Hi Flip,
Rather than forcing the user to remain on the form until it is posted, have you considered using the NotifyForm commands to prohibit saving, advancing or retreating from the record until it is complete?

Global Code - Subroutine:

Subroutine CheckPosted() // If the form is complete but has not been posted it tells the data entry person to Post it.
If Dispatch0 = "Complete" and @IsBlank(brp_1) = False Then
{
	 If @IsBlank(p10) Then
	 {
	     NotifyForm(1)
	     @Msgbox("","THIS FORM NEEDS TO BE POSTED IN ORDER TO BE COMPLETED, EITHER LEAVE IT OPEN OR POST THIS FORM TO ADJUST THE INVENTORY","")

	 }
	 Else
	 {
	     NotifyForm(0)
	     @Msgbox("","THIS FORM HAS BEEN SAVED.","")
	 }
}
End Subroutine
 

On Form Exit

CheckPosted() 

FlipGilbert wrote on Oct 26^th, 2007 at 3:29pm:


Flip,
Your going to want to stop using Stop in your programming, it is not a good programming practice.

Once again I think I'm going about this the wrong way. It should be a @AskUser and then perform the function for the data entry person....

[quote]/* Move to the Next record in the set, If there is one. If Updating, this will save
the current record and move on.  If Adding records, this will save the current
record and move to a new form. select the Menu Tree Item based on where you currently
are in the application */

Var vNav as Int

If @mode()=1 and @ResultSetCurrentPosition() <> @ResultSetTotal()
     {
           // If the form is complete and has not been posted it tells the data entry person to Post it.
           If (Call_Date > (@Date - 90)) and (Dispatch0 = "Complete") 
           and (Not @IsBlank(brp_1)) and (@IsBlank(P10))
           or (Not @IsBlank(brp_2)) and (@IsBlank(P20)) 
           or (Not @IsBlank(brp_3)) and (@IsBlank(P30))
           or (Not @IsBlank(brp_4)) and (@IsBlank(P40))
           or (Not @IsBlank(brp_5)) and (@IsBlank(P50))
           or (Not @IsBlank(brp_5)) and (@IsBlank(P50))
           or (Not @IsBlank(brp_6)) and (@IsBlank(P60))
           or (Not @IsBlank(brp_7)) and (@IsBlank(P70))
           or (Not @IsBlank(brp_8)) and (@IsBlank(P80))
           or (Not @IsBlank(brp_9)) and (@IsBlank(P90))
           or (Not @IsBlank(brp_10)) and (@IsBlank(P100))
           or (Not @IsBlank(brp_11)) and (@IsBlank(P11))
           or (Not @IsBlank(brp_12)) and (@IsBlank(P12))
           or (Not @IsBlank(brp_13)) and (@IsBlank(P13))
           or (Not @IsBlank(brp_14)) and (@IsBlank(P14))
                 {
                       If Not @AskUser("You Must Post This Form If It Is Complete.","Would You Like To Proceed Without Posting It?) Then
                             {
                                   InvPost()
                             }
                 }
     Else
           {
                 [highlight]vNav = @SelectTreeItem("Search Update Menu!Navigation!Save Record")[/highlight] //this gives error
                 vNav = @SelectTreeItem("Search Update Menu!Navigation!Advance Record (F10)")
           }
           
     }
Else If @Mode()=1 and @ResultSetCurrentPosition() = @ResultSetTotal()
     {
           ThrowFocus(Company_Name)
           @Msg("There are No More Records In This Set")
     }
Else If @mode()=0 
     {
           // If the form is complete and has not been posted it tells the data entry person to Post it.
           If (Call_Date > (@Date - 90)) and (Dispatch0 = "Complete") 
           and (Not @IsBlank(brp_1)) and (@IsBlank(P10))
           or (Not @IsBlank(brp_2)) and (@IsBlank(P20)) 
           or (Not @IsBlank(brp_3)) and (@IsBlank(P30))
           or (Not @IsBlank(brp_4)) and (@IsBlank(P40))
           or (Not @IsBlank(brp_5)) and (@IsBlank(P50))
           or (Not @IsBlank(brp_5)) and (@IsBlank(P50))
           or (Not @IsBlank(brp_6)) and (@IsBlank(P60))
           or (Not @IsBlank(brp_7)) and (@IsBlank(P70))
           or (Not @IsBlank(brp_8)) and (@IsBlank(P80))
           or (Not @IsBlank(brp_9)) and (@IsBlank(P90))
           or (Not @IsBlank(brp_10)) and (@IsBlank(P100))
           or (Not @IsBlank(brp_11)) and (@IsBlank(P11))
           or (Not @IsBlank(brp_12)) and (@IsBlank(P12))
           or (Not @IsBlank(brp_13)) and (@IsBlank(P13))
           or (Not @IsBlank(brp_14)) and (@IsBlank(P14))
                 {
                       @Msgbox("","THIS FORM NEEDS TO BE POSTED IN ORDER TO BE COMPLETED, EITHER LEAVE IT OPEN OR POST THIS FORM TO ADJUST THE INVENTORY","")
                 }
     Else
           {
                 vNav = @SelectTreeItem("Add Data Menu!Navigation!Save Record")
                   vNav = @SelectTreeItem("Add Data Menu!Navigation!Advance Record (F10)")
           }
           
     }

ThrowFocus(Company_Name)[/quote]


and it still does not work.....  :-/[highlight][/highlight]

I see that this thread was marked solved.

1. Please leave that to the Admins. Thanks!

2. There still seem to be some questions.  Is this actually solved, or are there still open issues?