# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Requisition Details (incl routes)
[PANE]
ADMIN INVPENLZ    01000Requisition Details (incl routes)                                                                   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()
  ' Define the variable to hold the XML that defines the listview structure
  dim ListXML

  ' Populate the XML that defines the listview structure
  ListXML = ListXML & "<Columns PrimaryNode='RequisitionDetail' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='Line' Description='Requisition line' />"
  ListXML = ListXML & "<Column Name='StockCode' Description='Stock code' />"
  ListXML = ListXML & "<Column Name='StockDescription' Description='Stock description' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Warehouse' Description='Warehouse' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='OrderQty' Description='Order quantity' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='OrderUom' Description='Order unit of measure' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Originator' Description='Originator' />"
  ListXML = ListXML & "<Column Name='OriginatorName' Description='Originator name' Hidden='true' />"
  ListXML = ListXML & "<Column Name='CurrentHolder' Description='Current holder' />"
  ListXML = ListXML & "<Column Name='CurrentHolderName' Description='Current holders name' Hidden='true' />"
  ListXML = ListXML & "<Column Name='DateReqnRaised' Description='Date requsition raised' Type='date' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='DueDate' Description='Due date' Type='date' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='Route' Description='Route code' />"
  ListXML = ListXML & "<Column Name='FromUser' Description='From user code' />"
  ListXML = ListXML & "<Column Name='FromUserName' Description='From user name' />"
  ListXML = ListXML & "<Column Name='ToUserCode' Description='To user code' />"
  ListXML = ListXML & "<Column Name='ToUserName' Description='To user name' />"
  ListXML = ListXML & "<Column Name='RouteNarrative' Description='Routing narrative' />"
  ListXML = ListXML & "<Column Name='CreationDate' Description='Creation date' Type='date' />"
  ListXML = ListXML & "<Column Name='Price' Description='Unit price' Type='numeric' Decimals='3' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='Currency' Description='Currency' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='NetValue' Description='Net value' Type='numeric' Decimals='2' />"
  ListXML = ListXML & "<Column Name='ReqnStatus' Description='Requisition status' />"
  ListXML = ListXML & "<Column Name='ReqnOnHoldFlag' Description='Requisition on hold' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='ReasonForReqn' Description='Reason for requisition' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='Supplier' Description='Supplier' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='SupplierName' Description='Supplier name' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='SupplierOnHold' Description='Supplier on hold' Hidden='true'  />"
  ListXML = ListXML & "<Column Name='SupCatalogueNum' Description='Supplier catalogue number' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Customer' Description='Customer' Hidden='true' />"
  ListXML = ListXML & "<Column Name='CustomerName' Description='Customer name' Hidden='true' />"
  ListXML = ListXML & "<Column Name='CustomerPoNumber' Description='Customer purchase order number' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ProductClass' Description='Product class' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ProductClassDesc' Description='Product class description' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ConfirmedPoNum' Description='Confirmed purchase order number' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ConfirmedPoLine' Description='Confirmed purchase order line number' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Job' Description='Job number' Hidden='true' />"
  ListXML = ListXML & "</Columns>"

  ' Load the XML in 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, Requisition
  CustomizedPane.CodeObject.ListviewData = " "

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

  if Requisition = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Query>"
  XMLParam = XMLParam & "   <Option>"
  XMLParam = XMLParam & "     <IncludeLineDetail>Y</IncludeLineDetail>"
  XMLParam = XMLParam & "     <IncludeRoutingDetails>Y</IncludeRoutingDetails>"
  XMLParam = XMLParam & "   </Option>"
  XMLParam = XMLParam & "   <Filter>"
  XMLParam = XMLParam & "     <Requisition FilterType='S' FilterValue='" & Requisition & "'/>"
  XMLParam = XMLParam & "   </Filter>"
  XMLParam = XMLParam & " </Query>"

  on error resume next
  ' Call the business object and supply the XML. The resulting XML is placed in the XMLOut variable
  XMLOut = CallBO("PORQ91",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 the Warehouse element is held at a different level in the original
  ' XML, so was not available to be used in the listview
  Dim NewXML, NewXMLE, xDoc, xList, xList2, Counter, Counter2, RDB, RDE, LB, LE, SCB, SCE, SDB, SDE
  Dim WHB, WHE, OQB, OQE, OUB, OUE, ORB, ORE, ONB, ONE, CHB, CHE, CHNB, CHNE, DRRB, DRRE, DDB, DDE
  Dim RB, RE, FUB, FUE, FUNB, FUNE, TUCB, TUCE, TUNB, TUNE, RNB, RNE, CDB, CDE, PB, PE, CUB, CUE
  Dim NVB, NVE, RSB, RSE, RSDB, RSDE, ROHB, ROHE, RFRB, RFRE, SUPB, SUPE, SNB, SNE, SOHB, SOHE
  Dim SCNB, SCNE, CUSB, CUSE, CNE, CNB, CPOB, CPOE, PCB, PCE, PCDB, PCDE, CPONB, CPONE, CPOLB,CPOLE
  Dim JOBB, JOBE, XMLDoc, UseIncase1, CDATAStr, CDATAStp
  CDATAStr = "<![CDATA["
  CDATAStp = "]]>"

  NewXML = "<?xml version='1.0' encoding='windows-1252'?><OutputXML>"
  NewXMLE = "</OutputXML>"
  RDB = "<RequisitionDetail>"
  RDE = "</RequisitionDetail>"
  LB = "<Line>"
  LE = "</Line>"
  SCB = "<StockCode>" & CDATAStr
  SCE = CDATAStp & "</StockCode>"
  SDB = "<StockDescription>" & CDATAStr
  SDE = CDATAStp & "</StockDescription>"
  WHB = "<Warehouse>"
  WHE = "</Warehouse>"
  OQB = "<OrderQty>"
  OQE = "</OrderQty>"
  OUB = "<OrderUom>"
  OUE = "</OrderUom>"
  ORB = "<Originator>"
  ORE = "</Originator>"
  ONB = "<OriginatorName>" & CDATAStr
  ONE = CDATAStp & "</OriginatorName>"
  CHB = "<CurrentHolder>" & CDATAStr
  CHE = CDATAStp & "</CurrentHolder>"
  CHNB = "<CurrentHolderName>" & CDATAStr
  CHNE = CDATAStp & "</CurrentHolderName>"
  DRRB = "<DateReqnRaised>"
  DRRE = "</DateReqnRaised>"
  DDB = "<DueDate>"
  DDE = "</DueDate>"
  RB = "<Route>"
  RE = "</Route>"
  FUB = "<FromUser>" & CDATAStr
  FUE = CDATAStp & "</FromUser>"
  FUNB = "<FromUserName>" & CDATAStr
  FUNE = CDATAStp & "</FromUserName>"
  TUCB = "<ToUserCode>" & CDATAStr
  TUCE = CDATAStp & "</ToUserCode>"
  TUNB = "<ToUserName>" & CDATAStr
  TUNE = CDATAStp & "</ToUserName>"
  RNB = "<RouteNarrative> " & CDATAStr
  RNE = CDATAStp & "</RouteNarrative>"
  CDB = "<CreationDate>"
  CDE = "</CreationDate>"
  PB = "<Price>"
  PE = "</Price>"
  CUB = "<Currency>"
  CUE = "</Currency>"
  NVB = "<NetValue>"
  NVE = "</NetValue>"
  RSB = "<ReqnStatus>"
  RSE = "</ReqnStatus>"
  RSDB = "<ReqnStatusDesc>" & CDATAStr
  RSDE = CDATAStp & "</ReqnStatusDesc>"
  ROHB = "<ReqnOnHoldFlag>"
  ROHE = "</ReqnOnHoldFlag>"
  RFRB = "<ReasonForReqn>" & CDATAStr
  RFRE = CDATAStp & "</ReasonForReqn>"
  SUPB = "<Supplier>"
  SUPE = "</Supplier>"
  SNB = "<SupplierName>" & CDATAStr
  SNE = CDATAStp & "</SupplierName>"
  SOHB = "<SupplierOnHold>"
  SOHE = "</SupplierOnHold>"
  SCNB = "<SupCatalogueNum>"
  SCNE = "</SupCatalogueNum>"
  CUSB = "<Customer>"
  CUSE = "</Customer>"
  CNB = "<CustomerName>" & CDATAStr
  CNE = CDATAStp & "</CustomerName>"
  CPOB = "<CustomerPoNumber>" & CDATAStr
  CPOE = CDATAStp & "</CustomerPoNumber>"
  PCB = "<ProductClass>"
  PCE = "</ProductClass>"
  PCDB = "<ProductClassDesc>" & CDATAStr
  PCDE = CDATAStp & "</ProductClassDesc>"
  CPONB = "<ConfirmedPoNum>"
  CPONE = "</ConfirmedPoNum>"
  CPOLB = "<ConfirmedPoLine>"
  CPOLE = "</ConfirmedPoLine>"
  JOBB = "<Job>"
  JOBE = "</Job>"

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

  ' Look for all WarehouseItem elements
  Set xList = XMLDoc.SelectNodes("//RequisitionDetail")

  ' Loop through each of the RequisitionDetail elements
  For Counter = 0 To xList.length - 1

    ' Within the RequisitionDetail elements, locate the RoutingInfo/RouteDetails elements
    Set xList2 = xList(Counter).SelectNodes("RoutingInfo/RouteDetails")

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

      ' Build the new XML containing the original content of the SerialItem nodes and
      ' include the Warehouse from several levels above.
      NewXML = NewXML & RDB
      NewXML = NewXML & LB & xList(Counter).SelectSingleNode("Line").Text & LE
      NewXML = NewXML & SCB & xList(Counter).SelectSingleNode("StockCode").Text & SCE
      NewXML = NewXML & SDB & xList(Counter).SelectSingleNode("StockDescription").Text & SDE
      NewXML = NewXML & WHB & xList(Counter).SelectSingleNode("Warehouse").Text & WHE
      NewXML = NewXML & OQB & xList(Counter).SelectSingleNode("OrderQty").Text & OQE
      NewXML = NewXML & OUB & xList(Counter).SelectSingleNode("OrderUom").Text & OUE
      NewXML = NewXML & ORB & xList(Counter).SelectSingleNode("Originator").Text & ORE
      NewXML = NewXML & ONB & xList(Counter).SelectSingleNode("OriginatorName").Text & ONE
      NewXML = NewXML & CHB & xList(Counter).SelectSingleNode("CurrentHolder").Text & CHE
      NewXML = NewXML & CHNB & xList(Counter).SelectSingleNode("CurrentHolderName").Text & CHNE
      NewXML = NewXML & DRRB & xList(Counter).SelectSingleNode("DateReqnRaised").Text & DRRE
      NewXML = NewXML & DDB & xList(Counter).SelectSingleNode("DueDate").Text & DDE
      NewXML = NewXML & RB & xList2(Counter2).SelectSingleNode("Route").Text & RE
      NewXML = NewXML & FUB & xList2(Counter2).SelectSingleNode("FromUser").Text & FUE
      NewXML = NewXML & FUNB & xList2(Counter2).SelectSingleNode("FromUserName").Text & FUNE
      NewXML = NewXML & TUCB & xList2(Counter2).SelectSingleNode("ToUserCode").Text & TUCE
      NewXML = NewXML & TUNB & xList2(Counter2).SelectSingleNode("ToUserName").Text & TUNE
      NewXML = NewXML & RNB & xList2(Counter2).SelectSingleNode("RouteNarrative").Text & RNE
      NewXML = NewXML & CDB & xList2(Counter2).SelectSingleNode("CreationDate").Text & CDE
      NewXML = NewXML & PB & xList(Counter).SelectSingleNode("Price").Text & PE
      NewXML = NewXML & CUB & xList(Counter).SelectSingleNode("Currency").Text & CUE
      NewXML = NewXML & NVB & xList(Counter).SelectSingleNode("NetValue").Text & NVE

        UseIncase1 = xlist(counter).SelectSingleNode("ReqnStatus").Text

        Select Case UseIncase1

          Case "P"
               NewXML = NewXML & RSB & "Confirmed in to a P/O" & RSE

          Case "R"
               NewXML = NewXML & RSB & "Approved and ready to be confirmed to a P/O" & RSE

          Case "*"
               NewXML = NewXML & RSB & "Cancelled" & RSE

          Case Else
               NewXML = NewXML & RSB & "Normal" & RSE

        End select

      NewXML = NewXML & ROHB & xList(Counter).SelectSingleNode("ReqnOnHoldFlag").Text & ROHE
      NewXML = NewXML & RFRB & xList(Counter).SelectSingleNode("ReasonForReqn").Text & RFRE
      NewXML = NewXML & SUPB & xList(Counter).SelectSingleNode("Supplier").Text & SUPE
      NewXML = NewXML & SNB & xList(Counter).SelectSingleNode("SupplierName").Text & SNE
      NewXML = NewXML & SOHB & xList(Counter).SelectSingleNode("SupplierOnHold").Text & SOHE
      NewXML = NewXML & SCNB & xList(Counter).SelectSingleNode("SupCatalogueNum").Text & SCNE
      NewXML = NewXML & CUSB & xList(Counter).SelectSingleNode("Customer").Text & CUSE
      NewXML = NewXML & CNB & xList(Counter).SelectSingleNode("ARSMST_Name").Text & CNE
      NewXML = NewXML & CPOB & xList(Counter).SelectSingleNode("CustomerPoNumber").Text & CPOE
      NewXML = NewXML & PCB & xList(Counter).SelectSingleNode("ProductClass").Text & PCE
      NewXML = NewXML & PCDB & xList(Counter).SelectSingleNode("SALPDS_Description").Text & PCDE
      NewXML = NewXML & CPONB & xList(Counter).SelectSingleNode("ConfirmedPoNum").Text & CPONE
      NewXML = NewXML & CPOLB & xList(Counter).SelectSingleNode("ConfirmedPoLine").Text & CPOLE
      NewXML = NewXML & JOBB & xList(Counter).SelectSingleNode("Job").Text & JOBE
      NewXML = NewXML & RDE
    Next

  Next

  ' Complete the XML by closing off the root element
  NewXML = NewXML & NewXMLE
  CustomizedPane.CodeObject.ListviewData = NewXML
End Function