
PROCEDURE OnSpin
        DECLARE PARAMETER nControlID as QUANTITY
        DECLARE PARAMETER sBuddyValue as TEXT DO
{

  #TODO: Add your control notification handler code here

}

PROCEDURE OnFocusChange_InsID
        DECLARE PARAMETER nControlID as QUANTITY
        DECLARE PARAMETER sName as TEXT
        DECLARE PARAMETER nFocus as QUANTITY DO
{ 
  if ([nFocus] = 1) do
  {
	  	ChangeControlTextColor(1,0,0,0);
	  	SetFieldValue1(1,"");
  }
}