I have two forms; Invoice and Customers. The Customers form contains a subform called Ledger.

I’m trying to run FormRunProgram from the Post button on the Invoice Form.

I want it to run the InvPost :: On Form Entry code on the Customers form. InvPost posts data from the Customers parent to the Ledger subform.

What I’m trying to accomplish is; I want to be able to enter one invoice after the other, for the same customer, and have a new record created in the Ledger for each invoices data.

I can’t find a way to make it work. I do have the Customers database open when running and am using #include "Sbasic_include.sbas".  On its own, running the Invpost code when opening Customers, works fine.

Am I missing something simple?

** EDIT ** Completely forgot about XResultSetCreateNewRecord & XResultSetValue, so the problem is solved with posting to the Ledger. However, still would like to know what I'm missing with FormRunProgram.

Thanks.

Here’s the code:

INVOICE FORM

Post :: On Element Entry

FormCommit("Invoice")

			XPost(@fn, AcctNumInv, "Customers!AcctNum", "1", "InvPost", "")
			XPost(@fn, AcctNumInv, "Customers!AcctNum", InvoiceDate, "InvoiceDate", "")
			XPost(@fn, AcctNumInv, "Customers!AcctNum", Invoice number, "Invoice number", "")
			XPost(@fn, AcctNumInv, "Customers!AcctNum", Total, "Charges", "")

			FormRunProgram("Customers", "InvPost",PROGRAM_EVENT_FORM_ENTER)


ON THE CUSTOMERS DATABASE

Invpost :: On Form Entry

If Invpost = "1" then
{
			If @FormFieldValue("Ledger", "InvoiceDate", 1) <> ""  or @FormFieldValue("Ledger", "Invoice Number", 1) <> "" Then
			{
				nn = @FormNewRecord("Ledger")
			}
			Else
			{
				nn = 1
			}

		FormFieldValue("Ledger", "InvoiceDate", nn, InvoiceDate) 
		FormFieldValue("Ledger", "Invoice Number", nn, Invoice Number)
		FormFieldValue("Ledger", "Description", nn, Description)
		FormFieldValue("Ledger", "Charges", nn, Charges)

		FormCommit("Ledger")
		FormCommit("")
	 

Hello Mark,

Thank you for looking into this. I don't have an answer for you on why I don't have it in a subroutine, etc. But I originally did have the Invpost firing on the Customers On Form Entry and it worked fine.

To try to get FormRunProgram figured out, and in case something else was effecting this, I built one new LE on the Customers database to post to. The data from the invoice posts fine to that LE. I also built a new command button for the FormFieldValue code. I have it firing on On Element Change base upon someone elses suggestion. I've also put it into an LE on the customers form using On Element Entry, all with no luck.

If I put the FormFieldValue code into the new command button on On Element Entry and click on it, it works just fine for posting to the subform ledger.

So, I'll take you up on the "super-simplified example" if you don't mind.

I appreciate it, thank you