# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Lots for Job Components 
[PANE]
ADMIN INVPENLZ    01000Lots for Job Components                                                                             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()
  ' Specify the variable used to contain the XML that defines the listview structure
  dim ListXML

  ' Populate the XML that defines the listview structure
  ListXML = ListXML & "<Columns PrimaryNode='MaterialPosting' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='MLot' Description='Lot number' />"
  ListXML = ListXML & "<Column Name='MStockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='MDescription' Description='Description' />"
  ListXML = ListXML & "<Column Name='Line' Description='Line number' Type='numeric' />"
  ListXML = ListXML & "<Column Name='MWarehouse' Description='Warehouse' />"
  ListXML = ListXML & "<Column Name='MQtyIssued' Description='Qty issued' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='MUom' Description='Unit of measure' />"
  ListXML = ListXML & "<Column Name='TrnDate' Description='Transaction date' Type='date' />"
  ListXML = ListXML & "<Column Name='TrnType' Description='Transaction type'  Hidden='true' />"
  ListXML = ListXML & "<Column Name='MReference' Description='reference' Hidden='true' />"
  ListXML = ListXML & "<Column Name='TrnValue' Description='Transaction value' Type='numeric' Decimals='2' Hidden='true'  />"
  ListXML = ListXML & "</Columns>"


  ' Take the XML and pass it to the ListviewProperties variable
  CustomizedPane.CodeObject.ListviewProperties = ListXML

End Function

Function CustomizedPane_OnRefresh()
  ' Specify the variables that will be used when calling the business object
  dim XMLOut, XMLParam, Job
  CustomizedPane.CodeObject.ListviewData = " "

  ' Populate the Stockcode variable with the refresh value
  Job = CustomizedPane.CodeObject.RefreshValue

  if Job = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Key>"
  XMLParam = XMLParam & "     <Job>" & Job & "</Job>"
  XMLParam = XMLParam & "   </Key>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeMaterialTransactions>Y</IncludeMaterialTransactions>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & " </Query>"
  on error resume next


  ' Call the business object, supply the XML and put the resulting XML in to XMLOut
  XMLOut = CallBO("WIPQRY",XMLParam,"auto")
  if err then
    exit function
  end if
  ' Switch on error handling
  on error goto 0



  ' 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, MPB, MPE, LotB, LotE, SCB, SCE, DB, DE
  Dim LB, LE, WB, WE, QIB, QIE, UOMB, UOME, TDB, TDE, TTB, TTE, REFB, REFE, TVB, TVE, LotItems, XMLDoc, UseIncase

  NewXML = "<OutputXML>"
  NewXMLE = "</OutputXML>"
  MPB = "<MaterialPosting>"
  MPE = "</MaterialPosting>"
  LotB = "<MLot>"
  LotE = "</MLot>"
  SCB = "<MStockCode>"
  SCE = "</MStockCode>"
  DB = "<MDescription>"
  DE = "</MDescription>"
  LB = "<Line>"
  LE = "</Line>"
  WB = "<MWarehouse>"
  WE = "</MWarehouse>"
  QIB = "<MQtyIssued>"
  QIE = "</MQtyIssued>"
  UOMB = "<MUom>"
  UOME = "</MUom>"
  TDB = "<TrnDate>"
  TDE = "</TrnDate>"
  TTB = "<TrnType>"
  TTE = "</TrnType>"
  REFB = "<MReference>"
  REFE = "</MReference>"
  TVB = "<TrnValue>"
  TVE = "</TrnValue>"


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



  ' Loop through each of the InvoiceDetail elements
    LotItems = ""
    ' Within the InvoiceDetail elements, locate the MaterialPosting elements
    Set xList2 = XMLDoc.SelectNodes("//WipQuery/MaterialPosting")

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

      If xList2(Counter2).SelectSingleNode("MLot").Text <> "" Then

        ' Build the new XML containing the original content of the SerialItem nodes and
        ' include the Warehouse from several levels above.
        NewXML = NewXML & MPB
        NewXML = NewXML & LotB & xList2(Counter2).SelectSingleNode("MLot").Text & LotE
        NewXML = NewXML & SCB & xList2(Counter2).SelectSingleNode("MStockCode").Text & SCE
        NewXML = NewXML & DB & xList2(Counter2).SelectSingleNode("MDescription").Text & DE
        NewXML = NewXML & LB & xList2(Counter2).SelectSingleNode("Line").Text & LE
        NewXML = NewXML & WB & xList2(Counter2).SelectSingleNode("MWarehouse").Text & WE
        NewXML = NewXML & QIB & xList2(Counter2).SelectSingleNode("MQtyIssued").Text & QIE
        NewXML = NewXML & UOMB & xList2(Counter2).SelectSingleNode("MUom").Text & UOME
        NewXML = NewXML & TDB & xList2(Counter2).SelectSingleNode("TrnDate").Text & TDE
        NewXML = NewXML & TTB & xList2(Counter2).SelectSingleNode("TrnType").Text & TTE
        NewXML = NewXML & REFB & xList2(Counter2).SelectSingleNode("MReference").Text & REFE
        NewXML = NewXML & TVB & xList2(Counter2).SelectSingleNode("TrnValue").Text & TVE
        NewXML = NewXML & MPE
  
      End If
    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