Use cWebBusinessProcess.pkg Use DataDict.pkg Use cWebReport.pkg Use VENDOR.DD Use INVT.DD Use CUSTOMER.DD Use SALESP.DD Use OrderHea.DD Use OrderDtl.DD Object oOrderDtlReport is a cWebBusinessProcess Set pbAllowDelete to False Set pbAllowSaveEdit to False Set pbAllowSaveNew to False Set psDescription to "Order Detail For Order" Object Vendor_DD is a Vendor_DataDictionary Send DefineAllExtendedFields End_Object // Vendor_DD Object Invt_DD is a Invt_DataDictionary Set DDO_Server to Vendor_DD Send DefineAllExtendedFields End_Object // Invt_DD Object Customer_DD is a Customer_DataDictionary Send DefineAllExtendedFields End_Object // Customer_DD Object SalesP_DD is a Salesp_DataDictionary Send DefineAllExtendedFields End_Object // SalesP_DD Object OrderHea_DD is a OrderHea_DataDictionary Set DDO_Server to Customer_DD Set DDO_Server to SalesP_DD Send DefineAllExtendedFields End_Object // OrderHea_DD Object OrderDtl_DD is a OrderDtl_DataDictionary Set DDO_Server to OrderHea_DD Set DDO_Server to Invt_DD Send DefineAllExtendedFields End_Object // OrderDtl_DD Set Main_DD to OrderDtl_DD Object oReport is a cWebReport Set piConstrainFile To OrderHea.File_Number Set priConstrainRowId To (NullRowId()) // We will set this elsehwere Set piOrdering to 1 Function Break1 Returns String Number nNum Get ddValue "OrderHea.Order_Number" To nNum Function_Return nNum // Break every time the parent record changes End_Function // Break1 Procedure OnInitBreakpoints Send RegisterBreakpoint get_Break1 End_Procedure // OnInitBreakpoints Procedure OnSubHeader1 Number nOrderNumber nCustomerNumber String sDate sName sAddress sCity sState sZip sPhone sTerms String sVia sBy sSalespId sSalespName Get ddValueEncode "OrderHea.Order_Number" To nOrderNumber Get ddValueEncode "OrderHea.Order_Date" To sDate Get ddValueEncode "Customer.Customer_Number" To nCustomerNumber Get ddValueEncode "Customer.Name" To sName Get ddValueEncode "Customer.Address" To sAddress Get ddValueEncode "Customer.City" To sCity Get ddValueEncode "Customer.State" To sState Get ddValueEncode "Customer.Zip" To sZip Get ddValueEncode "Customer.Phone_Number" To sPhone Get ddValueEncode "OrderHea.Terms" To sTerms Get ddValueEncode "OrderHea.Ship_Via" To sVia Get ddValueEncode "OrderHea.Ordered_By" To sBy Get ddValueEncode "Salesp.Id" To sSalespId Get ddValueEncode "Salesp.Name" To sSalespName Send WriteHtmlTableBegin 'border="0" width="50%" Class="ReportHdr1Table"' Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Order Number' ' Class="Label"' Send WriteHtmlCell (FormatNumber(nOrderNumber,0)) ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Order Date' ' Class="Label"' Send WriteHtmlCell sDate ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Customer Number' ' Class="Label"' Send WriteHtmlCell (FormatNumber(nCustomerNumber,0)) ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Customer Name' ' Class="Label"' Send WriteHtmlCell sName ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Street Address' ' Class="Label"' Send WriteHtmlCell sAddress ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'City' ' Class="Label"' Send WriteHtmlCell sCity ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'State' ' Class="Label"' Send WriteHtmlCell sState ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Zip/Postal Code' ' Class="Label"' Send WriteHtmlCell sZip ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Phone Number' ' Class="Label"' Send WriteHtmlCell sPhone ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Terms' ' Class="Label"' Send WriteHtmlCell sTerms ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Ship Via' ' Class="Label"' Send WriteHtmlCell sVia ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Ordered By' ' Class="Label"' Send WriteHtmlCell sBy ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Sales Person ID' ' Class="Label"' Send WriteHtmlCell sSalespId ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Sales Person Name' ' Class="Label"' Send WriteHtmlCell sSalespName ' Class="Data"' Send WriteHtmlRowEnd Send WriteHtmlTableEnd Send WriteHtml '
' Send WriteHtmlTableBegin 'border="0" width="99%" Class="ReportTable"' Send WriteHtmlRowBegin Send WriteHtmlCellHeader 'Item ID' 'Class="Header" Align="left"' Send WriteHtmlCellHeader 'Description' 'Class="Header" Align="left"' Send WriteHtmlCellHeader 'Quantity' 'Class="Header" Align="right"' Send WriteHtmlCellHeader 'Price' 'Class="Header" Align="right"' Send WriteHtmlCellHeader 'Total' 'Class="Header" Align="right"' Send WriteHtmlRowEnd End_Procedure // OnSubHeader1 Procedure OnBody String sItemId sDesc Number nQty nPrice nExtended Get ddValueEncode "Invt.Item_id" To sItemId Get ddValueEncode "Invt.Description" To sDesc Get ddValueEncode "OrderDtl.Qty_Ordered" To nQty Get ddValueEncode "OrderDtl.Price" To nPrice Get ddValueEncode "OrderDtl.Extended_Price" To nExtended Send WriteHtmlRowBegin Send WriteHtmlCell sItemId 'Class="Data" Align="left"' Send WriteHtmlCell sDesc 'Class="Data" Align="left"' Send WriteHtmlCell (FormatNumber(nQty,0)) 'Class="Data" Align="right"' Send WriteHtmlCell (FormatNumber(nPrice,2)) 'Class="Data" Align="right"' Send WriteHtmlCell (FormatNumber(nExtended,2)) 'Class="Data" Align="right"' Send WriteHtmlRowEnd Send AddSubTotal 1 nExtended // Subtotal of field End_Procedure // OnBody Procedure OnSubTotal1 Number nTotal Send WriteHtmlCell "" 'colspan="4 Class="Header"' Get SubTotal 1 To nTotal Send WriteHtmlCell (FormatNumber(nTotal,2)) 'Class="Header" align="right" ' Send WriteHtmlTableEnd End_Procedure // OnSubTotal1 Function RunOrderDtlReport RowId riHdrRec Returns RowId RowId riEnd Integer iStat Set piMaxCount To 0 Set priStartRowId To (NullRowId()) Set priConstrainRowId To riHdrRec Get DoRunReport To iStat Function_Return (NullRowId()) End_Function // RunOrderDtlReport Function RunAllOrderDtlReport RowId riStart Integer iMax Returns RowId RowId riEnd Integer iStat Set piMaxCount To iMax Set piMaxCountBreakLevel To 1 Set priStartRowId To riStart Set priConstrainRowId To (NullRowId()) Get DoRunReport To iStat Get priLastRowId To riEnd Function_Return riEnd End_Function // RunAllOrderDtlReport End_Object // oReport { Published = True } { Description = "" } Procedure SetHRefName String sName Set psHRefname Of oReport To sName End_Procedure // SetHRefName { Published = True } { Description = "" } Function RunOrderDtlReport String sHdrRec Returns string RowId riEnd Get RunOrderDtlReport Of oReport (DeSerializeRowId(sHdrRec)) To riEnd Function_Return (SerializeRowId(riEnd)) End_Function // RunOrderDtlReport { Published = True } { Description = "" } Function RunAllOrderDtlReport string sStart Integer iMax Returns string RowId riEnd Get RunAllOrderDtlReport Of oReport (DeserializeRowid(sStart)) iMax To riEnd Function_Return (SerializeRowId(riEnd)) End_Function // RunAllOrderDtlReport End_Object // oOrderDtlReport