Code

Stat gsPartNumber as String

gsPartNumber = "" 

Code

gsPartNumber = Part Number 

Code

var vPartNumber as String

vPartNumber = Part Number

If Part Number = "" Then
{
	ThrowFocus (Description)
}
Else
{
	NotifyForm(0)
	If ((@IsNew) OR (vPartNumber <> gsPartNumber)) Then
	{
		If vPartNumber = @XLU(@FN, Part Number, "Stock!Part Number", "Part Number") Then
		{
			NotifyForm(1)
			@MsgBox("This Entry matches an existing entry", vPartNumber,"Please modify this code OR exit without saving.")
		}
	}
} 

Code

// Creates FullName from both name parts

If @IsBlank(FullName) or not FullName=(Firstname+" "+Lastname) then
	{
	FullName=(Firstname+" "+Lastname)
	ThrowFocus(Address)
	}
Else
	ThrowFocus(Address) 

Code

// Checks to see if employee already exists

var vFullName as String

vFullName = FullName

If @IsNew then

	{
	 If vFullName = @XLU(@FN, FullName, "Employee!FullName", "FullName") then
		 {
		NotifyForm(1) // Prevent save
		@MsgBox("This Employee record already exists", FullName, "Please modify this record OR exit without saving.")
		Throwfocus(LastName)
		}
	}
Else
	{
	NotifyForm(0) //Allow save
	Throwfocus(Address)
	 } 

Code

// Checks to see if employee already exists

var vFullName as String

vFullName = FullName

NotifyForm(0) // Initialize save state

If @IsNew then
 	{
 	If vFullName = @XLU(@FN, FullName, "Employee!FullName", "FullName") then
 		{
		NotifyForm(1) // Prevent save
		@MsgBox("This Employee record already exists", FullName, "Please modify this record OR exit without saving.")
		ThrowFocus(LastName)
		}
	}
Else
	{
	NotifyForm(0) //Allow save
	ThrowFocus(Address)
 	}