1Use Windows.pkg // Basic Definitions 2Use DataDict.pkg // DataDictionary Class Definition 3Use DDvalTbl.pkg // Validation Table Class Definitions 4 5Open Salesp 6Open Orderhea 7 8Register_Object SalesP_sl 9 10Class SalesP_DataDictionary Is A DataDictionary 11 12 Procedure Construct_Object 13 Forward Send Construct_Object 14 15 Set Main_File To Salesp.File_Number 16 Set Cascade_Delete_State To FALSE 17 18 Set Foreign_Field_Option DD_KEYFIELD DD_NOPUT to True 19 Set Foreign_Field_Option DD_KEYFIELD DD_FINDREQ to True 20 Set Foreign_Field_Option DD_INDEXFIELD DD_NOPUT to True 21 Set Foreign_Field_Option DD_DEFAULT DD_DISPLAYONLY to True 22 23 Set Add_Client_File to Orderhea.File_Number 24 25 26 Set Field_Label_Long Field Salesp.Id To "Sales Person ID" 27 Set Field_Label_Short Field Salesp.Id To "ID" 28 Set Field_Option Field Salesp.Id DD_AUTOFIND to True 29 Set Field_Option Field Salesp.Id DD_REQUIRED to True 30 Set Field_Option Field Salesp.Id DD_CAPSLOCK to True 31 Set Field_Prompt_Object Field Salesp.Id to SalesP_sl 32 Set Key_Field_State Field Salesp.Id To TRUE 33 Set Status_Help Field Salesp.Id To "Sales person ID code - Upper case alpha" 34 35 Set Field_Label_Long Field Salesp.Name To "Sales Person Name" 36 Set Field_Label_Short Field Salesp.Name To "Sales Person Name" 37 Set Field_Prompt_Object Field Salesp.Name to SalesP_sl 38 Set Status_Help Field Salesp.Name To "Sales person name - first and last" 39 40 End_Procedure // Construct_Object 41 42 43 Procedure Field_Defaults 44 Forward Send Field_Defaults 45 End_Procedure // Field_Defaults 46 47End_Class // Salesp_DataDictionary 48#IFDEF Is$WebApp 49#ELSE 50 51Use SalesP.sl // SalesP_sl 52 53#ENDIF 54