Use cWebView.pkg
Use cWebPanel.pkg
Use cWebForm.pkg
Use cWebCombo.pkg
Use csfWebList.pkg
Use csfWebColumn.pkg
Use cWebDateForm.pkg

Use cVendorDataDictionary.dd
Use cInventoryDataDictionary.dd
Use cCustomerDataDictionary.dd
Use cSalesPersonDataDictionary.dd
Use cOrderHeaderDataDictionary.dd
Use cOrderDetailDataDictionary.dd

Use cWebParentCombo.pkg

Object oSyncFusionOrder is a cWebView
    Set piColumnCount to 10
    Set psCaption to "SyncFusion Order Header Details"
    Set piWidth to 800
    Set psStateViewName to "SyncFusionOrder"
    
    Object oVendorDataDictionary is a cVendorDataDictionary
    End_Object
    
    Object oInventoryDataDictionary is a cInventoryDataDictionary
        Set DDO_Server to oVendorDataDictionary
    End_Object
    
    Object oCustomerDataDictionary is a cCustomerDataDictionary
    End_Object
    
    Object oSalesPersonDataDictionary is a cSalesPersonDataDictionary
    End_Object
    
    Object oOrderHeaderDataDictionary is a cOrderHeaderDataDictionary
        Set DDO_Server to oCustomerDataDictionary
        Set DDO_Server to oSalesPersonDataDictionary
    End_Object
    
    Object oOrderDetailDataDictionary is a cOrderDetailDataDictionary
        Set DDO_Server to oOrderHeaderDataDictionary
        Set DDO_Server to oInventoryDataDictionary
        Set Constrain_File to OrderHeader.File_Number
    End_Object
    
    Set Main_DD To oOrderHeaderDataDictionary
    Set Server  to oOrderHeaderDataDictionary
    
    
    Object oWebMainPanel is a cWebPanel
        Set piColumnCount to 10
        
        Object oOrderHeaderOrder_Number is a cWebForm
            Entry_Item OrderHeader.Order_Number
            Set piColumnSpan to 3
            Set piColumnIndex to 0
            Set psLabel to "Order Number:"
            Set peLabelAlign to alignRight
            Set pbPromptButton to True

            Procedure OnPrompt
                Forward Send OnPrompt
                Send Popup of oOrderWebLookup Self //Standard webOrder OrderHeader lookup.
            End_Procedure
        End_Object
        
        Object oCustomerCustomer_Number is a cWebForm
            Entry_Item Customer.Customer_Number
            Set piColumnSpan to 3
            Set piColumnIndex to 3
            Set psLabel to "Customer Number:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oOrderHeaderOrder_Date is a cWebDateForm
            Entry_Item OrderHeader.Order_Date
            Set piColumnSpan to 4
            Set piColumnIndex to 6
            Set psLabel to "Order Date:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oCustomerName is a cWebForm
            Entry_Item Customer.Name
            Set piColumnSpan to 6
            Set piColumnIndex to 0
            Set psLabel to "Customer Name:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oCustomerAddress is a cWebForm
            Entry_Item Customer.Address
            Set piColumnSpan to 6
            Set piColumnIndex to 0
            Set psLabel to "Street Address:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oCustomerCity is a cWebForm
            Entry_Item Customer.City
            Set piColumnSpan to 3
            Set piColumnIndex to 0
            Set psLabel to "City:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oCustomerZip is a cWebForm
            Entry_Item Customer.Zip
            Set piColumnSpan to 3
            Set piColumnIndex to 3
            Set psLabel to "Zip:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oOrderHeaderOrdered_By is a cWebForm
            Entry_Item OrderHeader.Ordered_By
            Set piColumnSpan to 3
            Set piColumnIndex to 7
            Set psLabel to "Ordered By:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oCustomerState is a cWebCombo
            Entry_Item Customer.State
            Set piColumnSpan to 3
            Set piColumnIndex to 0
            Set psLabel to "State:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oSalesPersonID is a cWebParentCombo
            Entry_Item SalesPerson.Name
            Set piColumnSpan to 5
            Set piColumnIndex to 5
            Set psLabel to "Salesperson:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oOrderHeaderTerms is a cWebCombo
            Entry_Item OrderHeader.Terms
            Set piColumnSpan to 5
            Set piColumnIndex to 0
            Set psLabel to "Terms:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oOrderHeaderShip_Via is a cWebCombo
            Entry_Item OrderHeader.Ship_Via
            Set piColumnSpan to 5
            Set piColumnIndex to 5
            Set psLabel to "Ship Via:"
            Set peLabelAlign to alignRight
        End_Object
        
        Object oDetailGrid is a csfWebList
            Set Server to oOrderDetailDataDictionary
            Set piOrdering to 1
            Set piColumnSpan to 10
            Set piMinHeight to 200
            Set pbAllowFiltering to True
            Set pbAllowGrouping to False
            Set pbAllowPdfExport to False
            Set pbAllowReordering to True
            Set pbAllowResizing to True
            Set pbAllowSorting to True
            Set pbShowColumnChooser to True
            Set pbShowColumnMenu to True
            Set pbAllowExcelExport to True
            Set pbServerOnCreated to True
            Set psLocale to "sv"
            Set piHeight to 400
            
            Object oInventoryItem_ID is a csfWebColumn
                Entry_Item Inventory.Item_ID
                Set psCaption to "Item ID"
                Set piWidth to 130
            End_Object
            
            Object oInventoryDescription is a csfWebColumn
                Entry_Item Inventory.Description
                Set psCaption to "Description"
                Set piWidth to 320
            End_Object
            
            Object oInventoryUnit_Price is a csfWebColumn
                Entry_Item Inventory.Unit_Price
                Set psCaption to "Unit Price"
                Set piWidth to 94
            End_Object
            
            Object oOrderDetailPrice is a csfWebColumn
                Entry_Item OrderDetail.Price
                Set psCaption to "Price"
                Set piWidth to 94
            End_Object
            
            Object oOrderDetailQty_Ordered is a csfWebColumn
                Entry_Item OrderDetail.Qty_Ordered
                Set psCaption to "Quantity"
                Set piWidth to 94
            End_Object
            
            Object oOrderDetailExtended_Price is a csfWebColumn
                Entry_Item OrderDetail.Extended_Price
                Set psCaption to "Total"
                Set piWidth to 115
            End_Object
            
            Procedure OnCreateToolBarItems
                Boolean bIsFieldOpen
                tsfWebListToolBarCustomItem myItem
                
                Move "Ny" to myItem.sId
                Move "New Row" to myItem.sTooltipText
                Move "e-add" to myItem.sPrefixIcon
                Move "New Row" to myItem.sText
                Send AddToolbarCustomItem myItem
              
                Move "Redigera" to myItem.sId
                Move "Edit Row" to myItem.sTooltipText
                Move "e-edit" to myItem.sPrefixIcon
                Move "Edit Row" to myItem.sText
                Send AddToolbarCustomItem myItem
                
                Move "Delete" to myItem.sId
                Move "Delete Row" to myItem.sTooltipText
                Move "e-delete" to myItem.sPrefixIcon
                Move "Delete Row" to myItem.sText
                Send AddToolbarCustomItem myItem
                
                //Standard toolbar items l„ggs till s†h„r:
                Send AddToolBarItem "Search"
//                        Send AddToolbarItem "ExcelExport"
//                        Send AddToolbarItem "CsvExport"
            End_Procedure

            Procedure OnToolbarButtonClick String sID
                String sDDItemID sGlobalItemID
                Integer iLine
                Handle hoDD
                Forward Send OnToolbarButtonClick sID
                
                Move (oOrderDetailDataDictionary(Self)) To hoDD
                Get Field_Current_Value of hoDD Field OrderDetail.Item_ID to sDDItemID
                Move OrderDetail.Item_ID to sGlobalItemID
                If (sID="Delete") Begin
                  Move OrderDetail.Detail_Number To iLine
                  Send Request_Delete of hoDD
                  Send Rebuild_Constraints of hoDD
                  Move iLine to OrderDetail.Detail_Number
                  Send Request_Find of hoDD GE OrderDetail.File_Number 1
                  Send UpdateList 
                End
                Else Begin
                  Send ShowInfoBox ("DDBuffert: " + sDDItemID + ", Global: " + sGlobalItemID) "Buffert"
                End  
                
            End_Procedure
            
        End_Object
        Object oOrderHeader_Order_Total is a cWebForm
            Entry_Item OrderHeader.Order_Total
            Set psLabel to "Order Total:"
            
            Set piColumnIndex to 6
            Set peLabelAlign to alignRight
            Set piColumnSpan to 4
        End_Object
    End_Object
    
End_Object