# Customized Panes for 'xxxxxxxx' Created: 2008/10/27
# PANE:Sales Order Mechandise Lines
[PANE]
Phil  INVPENLZ    01000Sales Order Mechandise Lines                                                                        020                                                                                                                                                                                                                                                               000000500000INVPEN000M
[VBSCRIPT]
' This script contains functions for customized pane events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()

dim ListXML
  ListXML = ListXML & "<Columns PrimaryNode='Merchandise' Style='DataGrid' AutoSize='false' FreezeColumn='1'>"
  ListXML = ListXML & "<Column Name='SalesOrderLine' Description='Line number' Type='numeric' />"
  ListXML = ListXML & "<Column Name='MStockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='MStockDes' Description='Stock description' />"
  ListXML = ListXML & "<Column Name='StockedStatus' Description='Stocked / non-stocked' />" 
  ListXML = ListXML & "<Column Name='MWarehouse' Description='MWarehouse' />"
  ListXML = ListXML & "<Column Name='MOrderQty' Description='Order quantity' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='MOrderUom' Description='Order unit of measure' />"  
  ListXML = ListXML & "<Column Name='MShipQty' Description='Ship quantity' Type='numeric' Decimals='3' />" 
  ListXML = ListXML & "<Column Name='MBackOrderQty' Description='Backorder quantity' Type='numeric' Decimals='3' />" 
  ListXML = ListXML & "<Column Name='MPrice' Description='Price' Type='numeric' Decimals='5' />" 
  ListXML = ListXML & "<Column Name='MPriceUom' Description='Price unit of measure' />"
  ListXML = ListXML & "<Column Name='MCustRequestDat' Description='Customer request date' Type='date' />"
  ListXML = ListXML & "<Column Name='MLineShipDate' Description='Line ship date' Type='date' />"
  ListXML = ListXML & "<Column Name='OrderLineValue' Description='Order line value' Type='numeric' Decimals='2' />"
  ListXML = ListXML & "</Columns>"

  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function


Function CustomizedPane_OnRefresh()
  dim XMLOut, XMLParam, SalesOrder
  CustomizedPane.CodeObject.ListviewData = " "

  SalesOrder = CustomizedPane.CodeObject.RefreshValue

  if SalesOrder = "" then
     exit function 
  end if

  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <SalesOrder><![CDATA[" & SalesOrder & "]]></SalesOrder>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeStockedLines>Y</IncludeStockedLines>"
  XMLParam = XMLParam & "     <IncludeNonStockedLines>Y</IncludeNonStockedLines>"
  XMLParam = XMLParam & "     <IncludeFreightLines>N</IncludeFreightLines>"
  XMLParam = XMLParam & "     <IncludeMiscLines>N</IncludeMiscLines>"
  XMLParam = XMLParam & "     <IncludeCommentLines>N</IncludeCommentLines>"
  XMLParam = XMLParam & "     <IncludeCompletedLines>N</IncludeCompletedLines>"
  XMLParam = XMLParam & "     <IncludeSerials>N</IncludeSerials>"
  XMLParam = XMLParam & "     <IncludeLots>N</IncludeLots>"
  XMLParam = XMLParam & "     <IncludeBins>N</IncludeBins>"
  XMLParam = XMLParam & "     <IncludeAttachedItems>N</IncludeAttachedItems>"
  XMLParam = XMLParam & "     <IncludeCustomForms>N</IncludeCustomForms>"
  XMLParam = XMLParam & "     <IncludeDetailLineCustomForms>N</IncludeDetailLineCustomForms>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"

  on error resume next
  
  XMLOut = CallBO("SORQRY",XMLParam,"auto")
  if err then
    exit function
  end if

  ' Switch on error handling
  on error goto 0

  CustomizedPane.CodeObject.ListviewData = XMLOUT


' XXXXXXXXXXXXXXXXXXXXXXX

  ' Define the variables required for building the new XML structure and extracting the information from
  ' the DOM. This is required because only lines containing a valid MLot must be displayed.
 
  Dim NewXML, NewXMLE, xDoc, xList, xList2, Counter, Counter2, XMLDoc, UseIncase1, useinCase2
  Dim MDB, MDE, SOLB, SOLE, SCB, SCE, SDB, SDE, WB, WE, OQB, OQE, OUB, OUE, SQB, SQE, BOB, BOE, PB, PE, PUMB, PUME 
  Dim LSDB, LSDE, OLVB, OLVE, CRDB, CRDE, SSB, SSE



  NewXML = "<OutputXML>"
  NewXMLE = "</OutputXML>"
  MDB = "<Merchandise>"
  MDE = "</Merchandise>"
  SOLB = "<SalesOrderLine>"
  SOLE = "</SalesOrderLine>"
  SCB = "<MStockCode>"
  SCE = "</MStockCode>"
  SDB = "<MStockDes>"
  SDE = "</MStockDes>"
  WB = "<MWarehouse>"
  WE = "</MWarehouse>"
  OQB = "<MOrderQty>"
  OQE = "</MOrderQty>"
  OUB = "<MOrderUom>"
  OUE = "</MOrderUom>"
  SQB = "<MShipQty>"
  SQE = "</MShipQty>"
  BOB = "<MBackOrderQty>"
  BOE = "</MBackOrderQty>"
  PB = "<MPrice>"
  PE = "</MPrice>"
  PUMB = "<MPriceUom>"
  PUME = "</MPriceUom>"
  CRDB = "<MCustRequestDat>"
  CRDE = "</MCustRequestDat>"
  LSDB = "<MLineShipDate>"
  LSDE = "</MLineShipDate>"
  OLVB = "<OrderLineValue>"
  OLVE = "</OrderLineValue>"
  SSB = "<StockedStatus>"
  SSE = "</StockedStatus>"

  ' Load the output from the business object in to the DOM
  Set XMLDoc = createobject("MSXML2.DOMDocument")
  XMLDoc.async = false
  XMLDoc.LoadXML(XMLOut)


    ' Locate the OperationItem elements
    Set xList2 = XMLDoc.SelectNodes("//SorDetail/SalesOrderLine/Merchandise")

    ' Loop through each Merchandise section
    For Counter2 = 0 To xList2.length - 1

        ' Build the new XML containing the original content of the OperationItem nodes and
        ' combine the two required times and the two issued times.
        NewXML = NewXML & MDB
        NewXML = NewXML & SOLB & xList2(Counter2).SelectSingleNode("SalesOrderLine").Text & SOLE
        NewXML = NewXML & SCB & xList2(Counter2).SelectSingleNode("MStockCode").Text & SCE
        NewXML = NewXML & SDB & xList2(Counter2).SelectSingleNode("MStockDes").Text & SDE
        NewXML = NewXML & WB & xList2(Counter2).SelectSingleNode("MWarehouse").Text & WE
        NewXML = NewXML & OQB & xList2(Counter2).SelectSingleNode("MOrderQty").Text & OQE
        NewXML = NewXML & OUB & xList2(Counter2).SelectSingleNode("MOrderUom").Text & OUE
        NewXML = NewXML & SQB & xList2(Counter2).SelectSingleNode("MShipQty").Text & SQE
        NewXML = NewXML & BOB & xList2(Counter2).SelectSingleNode("MBackOrderQty").Text & BOE
        NewXML = NewXML & PB & xList2(Counter2).SelectSingleNode("MPrice").Text & PE
        NewXML = NewXML & PUMB & xList2(Counter2).SelectSingleNode("MPriceUom").Text & PUME
        NewXML = NewXML & CRDB & xList2(Counter2).SelectSingleNode("MCustRequestDat").Text & CRDE
        NewXML = NewXML & LSDB & xList2(Counter2).SelectSingleNode("MLineShipDate").Text & LSDE
        NewXML = NewXML & OLVB & xList2(Counter2).SelectSingleNode("OrderLineValue").Text & OLVE

        UseIncase1 = xList2(Counter2).SelectSingleNode("MWarehouse").Text

        Select Case UseIncase1 

          Case "**"
               NewXML = NewXML & SSB & "Non-Stocked" & SSE

          Case Else 
               NewXML = NewXML & SSB & "Stocked" & SSE

        End select


        NewXML = NewXML & MDE
  
    Next


  ' Complete the XML by closing off the root element
  NewXML = NewXML & NewXMLE


  ' Load the new XML file in to the ListviewData variable
  CustomizedPane.CodeObject.ListviewData = NewXML


End Function