//DDB-FileStart
//DDB-HeaderStart

// File Name : OrderHea.DD
// Class Name: OrderHea_DataDictionary
// Revision  : 8
// 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.Time_Start

        // Orderhea.Time_End

        // 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 Order\OrderHea.sl      // OrderHea_sl

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