Code

// Saves the record and moves to the next

var NextRecord as int


IF @IsBlank(Code)   // Prevents saving of uncoded records
Then
	{
	 NotifyForm(1)
	 @MsgBox("Customer Code has not been assigned.","Please click ASSIGN CODE.","")
	}

Else IF @IsBlank(Company)    // Prevents saving of records with no Company Name
THEN
	{
	NotifyForm(1)
	@MsgBox("Customer Name cannot be blank.","","")
	ThrowFocus(Company)
	}


ELSE If @Mode() = 1  // Saves and advances in Update mode, Prevents entering Extended Mode from Search-Update
THEN
	{
	IF @ResultSetCurrentPosition() = @ResultSetTotal()
	THEN
		{
		NotifyForm(2)
		}
	ELSE
		{
		NotifyForm(0)
		NextRecord = @selecttreeitem("Search Update Menu!Navigation!Save Record")
		NextRecord = @selecttreeitem("Search Update Menu!Navigation!Advance Record (F10)")
		}
	}


ELSE  If @Mode() = 0  // Saves and advances in Add mode
	{
	NotifyForm(0)
	NextRecord = @selecttreeitem("Add Data Menu!Navigation!Save Record")
	NextRecord = @selecttreeitem("Add data menu!Navigation!Advance Record (F10)")
	}