//DDB-FileStart
//DDB-HeaderStart

// File Name : OrderHea.DD
// Class Name: OrderHea_DataDictionary
// Revision  : 6
// Version   : 2

Use  Windows           // Basic Definitions
Use  DataDict.pkg          // DataDictionary Class Definition
Use  DDvalTbl          // Validation Table Class Definitions

Open OrderHea
Open OrderDtl
Open Customer
Open SalesP
Open OrdSys

//DDB-HeaderEnd
//DDB-ValidationStart

Register_Object Terms_table
Register_Object Ship_Table

Object Terms_table  is a DescriptionValidationTable

    Procedure Fill_List
        Forward Send Fill_List
        Send Add_Table_Value  "NONE"  "None established"
        Send Add_Table_Value  "COD"  "COD"
        Send Add_Table_Value  "NET30"  "Net 30"
        Send Add_Table_Value  "NET60"  "Net 60"
        Send Add_Table_Value  "NET90"  "Net 90"
        Send Add_Table_Value  "PREPAY"  "Pre-payment required"
    End_Procedure    // Fill_List
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Terms_table

Object Ship_Table  is a CodeValidationTable
    Set Type_Value        To "SHIPPING"
    Set Allow_Blank_State To True
    //DDB-ValidationCustomStart
    //DDB-ValidationCustomEnd
End_Object   // Ship_Table
//DDB-ValidationEnd
//DDB-SelectionStart
//DDB/ ExternalSelectionList OrderHea_sl  OrderHea.sl
Register_Object OrderHea_sl
//DDB-SelectionEnd

Class OrderHea_DataDictionary Is A DataDictionary

    Procedure Define_Fields
        Forward Send Define_Fields
        //DDB-Generated-Code-Location
        //DDB-DefineFieldStart

        Set Main_File            To OrderHea.File_Number

        Set Foreign_Field_Options  DD_KEYFIELD   To DD_FINDREQ    
        Set Foreign_Field_Options  DD_INDEXFIELD To DD_NOPUT      
        Set Foreign_Field_Options  DD_DEFAULT    To DD_DISPLAYONLY

        // Child (Client) file structure................
        Send Add_Client_File  OrderDtl.File_Number

        // Parent (Server) file structure...............
        Send Add_Server_File  Customer.File_Number
        Send Add_Server_File  SalesP.File_Number

        // External (System) file structure.............
        Send Add_System_File  OrdSys.File_Number  DD_LOCK_ON_NEW_SAVE_DELETE

        Define_Auto_Increment  OrdSys.Order_Number  To OrderHea.Order_Number

        // Field-based properties.......................

        // OrderHea.Order_Number
        Set Field_Options          Field OrderHea.Order_Number To DD_AUTOFIND   
        Set Field_Prompt_Object    Field OrderHea.Order_Number To (OrderHea_SL(Self))
        Set Key_Field_State        Field OrderHea.Order_Number To True
        Set Status_Help            Field OrderHea.Order_Number To "Order Number - New orders are assigned numbers automatically"

        // OrderHea.Customer_Number

        // OrderHea.Order_Date
        Set Field_Class_Name       Field OrderHea.Order_Date To "dbSpinForm"
        Set Field_Entry_msg        Field OrderHea.Order_Date To Entry_Order_Date
        Set Field_Mask_Type        Field OrderHea.Order_Date To MASK_DATE_WINDOW
        Set Field_Prompt_Object    Field OrderHea.Order_Date To (OrderHea_SL(Self))
        Set Status_Help            Field OrderHea.Order_Date To "Date on which the order was placed"

        // OrderHea.Terms
        Set Field_Class_Name       Field OrderHea.Terms To "dbComboForm"
        Set Field_Value_Table      Field OrderHea.Terms To (Terms_table(Self))
        Set Status_Help            Field OrderHea.Terms To "Payment terms"

        // OrderHea.Ship_Via
        Set Field_Class_Name       Field OrderHea.Ship_Via To "dbComboForm"
        Set Field_Value_Table      Field OrderHea.Ship_Via To (Ship_Table(Self))
        Set Status_Help            Field OrderHea.Ship_Via To "Shipping method"

        // OrderHea.Ordered_By
        //DDB/ Comment_Short       Field OrderHea.Ordered_By To "This is just a suggested list. No parent files support this"
        Set Status_Help            Field OrderHea.Ordered_By To "Order placed by"

        // OrderHea.Salesperson_Id
        Set Field_Label_Long       Field OrderHea.Salesperson_ID To "Sales Person ID"
        Set Field_Label_Short      Field OrderHea.Salesperson_ID To "Sales ID"
        Set Status_Help            Field OrderHea.Salesperson_ID To "Sales Person who initiated the order"

        // OrderHea.Order_Total
        //DDB/ Comment_Short       Field OrderHea.Order_Total To "Maintained by the OrderDtl DD"
        Set Field_Mask_Type        Field OrderHea.Order_Total To MASK_CURRENCY_WINDOW
        Set Field_Options          Field OrderHea.Order_Total To DD_DISPLAYONLY

        // OrderHea.Last_Detail_Num
        //DDB/ Comment_Short       Field OrderHea.Last_Detail_Num To "This is the "

        //DDB-DefineFieldEnd
    End_Procedure  // Define_Fields

    Procedure Field_Defaults
        Forward Send Field_Defaults
        //DDB-Generated-Code-Location
        //DDB-FieldDefaultStart
        //DDB-FieldDefaultEnd
    End_Procedure

    // Add a default date if the field is blank
    Procedure Entry_Order_Date Integer iField Date dDate
         Integer iChanged
         
         Get Field_Changed_State iField To iChanged
         If (iChanged=0 And dDate=0) Begin
            SysDate dDate
            Set Field_Default_Value iField To dDate
         End
    End_Procedure

    Procedure Update
        Forward Send Update
        Send Adjust_Balances OrderHea.Order_Total
    End_Procedure

    Procedure Backout
        Forward Send Backout
        Send Adjust_Balances (-OrderHea.Order_Total)
    End_Procedure

    Procedure Adjust_Balances Number Amt
        Add Amt To Customer.Purchases
        Add Amt To Customer.Balance
    End_Procedure

    Procedure Deleting
        Forward Send Deleting
        // see if we can decrement the order number in sys file...can only do
        // this if this is the newest order.
        If (OrderHea.Order_Number=OrdSys.Order_Number) Begin // if this is
           Decrement OrdSys.Order_Number          // the last number,
           Saverecord OrdSys                      // decrement and save.
        End
    End_Procedure

End_Class    //  OrderHea_DataDictionary
//DDB-Selection-pkg-Start
#IFDEF Is$WebApp
#ELSE

Use OrderHea.sl      // OrderHea_sl

#ENDIF
//DDB-Selection-pkg-End
//DDB-FileEnd