# Customized Panes for 'xxxxxxxx' Created: 2009/04/09
# PANE:Job Tracking
[PANE]
ADMIN INVPENLZ    01000Job Tracking                                                                                        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='LabourAlloc' Style='DataGrid' AutoSize='false' FreezeColumn='1' >"
  ListXML = ListXML & "<Column Name='WorkCentre' Description='Work centre' />"
  ListXML = ListXML & "<Column Name='WorkCentreDesc' Description='Work centre description' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Operation' Description='Operation' Type='numeric' />"
  ListXML = ListXML & "<Column Name='QtyRequired' Description='Qty required' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyCompleted' Description='Qty completed' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyScrapped' Description='Qty scrapped' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='QtyOutstanding' Description='Qty Outstanding' Type='numeric' Decimals='3' />"
  ListXML = ListXML & "<Column Name='PlannedStartDate' Description='Planned start date' Type='date' />"
  ListXML = ListXML & "<Column Name='PlannedEndDate' Description='Planned end date' Type='date' />"
  ListXML = ListXML & "<Column Name='ICapacityReqd' Description='Planned time' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='ActualStartDate' Description='Actual start date' Type='date' />"
  ListXML = ListXML & "<Column Name='ActualFinishDate' Description='Actual finish date' Type='date' />"
  ListXML = ListXML & "<Column Name='TimeIssued' Description='Actual time' Type='numeric' Decimals='3' Hidden='true' />"
  ListXML = ListXML & "<Column Name='SubcontractOp' Description='Sub-op' Hidden='true' />"
  ListXML = ListXML & "<Column Name='Status' Description='Status' />"
  ListXML = ListXML & "<Column Name='PiecesCompleted' Description='Pieces completed' Hidden='true' />"
  ListXML = ListXML & "<Column Name='IMachine' Description='Machine' Hidden='true' />"
  ListXML = ListXML & "</Columns>"

' Hidden='true'


  ' 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 & "     <IncludeOperationAllocations>Y</IncludeOperationAllocations>"
  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, XMLDoc, UseIncase
  Dim LAB, LAE, WCB, WCE, WCDB, WCDE, OB, OE, QCB, QCE, QSB, QSE, PSB, PSE, PEB, PEE, CRB, CRE
  Dim ASDB, ASDE, AFDB, AFDE, TIB, TIE, SOB, SOE, SB, SE, PCB, PCE, MacB, MacE, QOB, QOE, QRB, QRE
  Dim StatusValue, QtyOutstanding, QtyOutstandingF

  NewXML = "<OutputXML>"
  NewXMLE = "</OutputXML>"
  LAB = "<LabourAlloc>"
  LAE = "</LabourAlloc>"
  WCB = "<WorkCentre>"
  WCE = "</WorkCentre>"
  WCDB = "<WorkCentreDesc>"
  WCDE = "</WorkCentreDesc>"
  OB = "<Operation>"
  OE = "</Operation>"
  QCB = "<QtyCompleted>"
  QCE = "</QtyCompleted>"
  QSB = "<QtyScrapped>"
  QSE = "</QtyScrapped>"
  QOB = "<QtyOutstanding>"
  QOE = "</QtyOutstanding>"
  QRB = "<QtyRequired>"
  QRE = "</QtyRequired>"
  PSB = "<PlannedStartDate>"
  PSE = "</PlannedStartDate>"
  PEB = "<PlannedEndDate>"
  PEE = "</PlannedEndDate>"
  CRB = "<ICapacityReqd>"
  CRE = "</ICapacityReqd>"
  ASDB = "<ActualStartDate>"
  ASDE = "</ActualStartDate>"
  AFDB = "<ActualFinishDate>"
  AFDE = "</ActualFinishDate>"
  TIB = "<TimeIssued>"
  TIE = "</TimeIssued>"
  SOB = "<SubcontractOp>"
  SOE = "</SubcontractOp>"
  SB = "<Status>"
  SE = "</Status>"
  PCB = "<PiecesCompleted>"
  PCE = "</PiecesCompleted>"
  MacB = "<IMachine>"
  MacE = "</IMachine>"
  


  ' 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("//WipQuery/LabourAlloc")

    ' Loop through each MaterialPosting 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 & LAB
        NewXML = NewXML & WCB & xList2(Counter2).SelectSingleNode("WorkCentre").Text & WCE
        NewXML = NewXML & WCDB & xList2(Counter2).SelectSingleNode("WorkCentreDesc").Text & WCDE
        NewXML = NewXML & OB & xList2(Counter2).SelectSingleNode("Operation").Text & OE
        NewXML = NewXML & QRB & xList2(Counter2).SelectSingleNode("ParentQtyPlanned").Text & QRE
        NewXML = NewXML & QCB & xList2(Counter2).SelectSingleNode("QtyCompleted").Text & QCE
        NewXML = NewXML & QSB & xList2(Counter2).SelectSingleNode("QtyScrapped").Text & QSE

        QtyOutstanding = ""
        QtyOutstanding = xList2(Counter2).SelectSingleNode("ParentQtyPlanned").Text - xList2(Counter2).SelectSingleNode("QtyCompleted").Text - xList2(Counter2).SelectSingleNode("QtyScrapped").Text 
        QtyOutstandingF = FormatNumber(QtyOutstanding,3)
        NewXML = NewXML & QOB & QtyOutstandingF & QOE

        NewXML = NewXML & PSB & xList2(Counter2).SelectSingleNode("PlannedStartDate").Text & PSE
        NewXML = NewXML & PEB & xList2(Counter2).SelectSingleNode("PlannedEndDate").Text & PEE
        NewXML = NewXML & CRB & xList2(Counter2).SelectSingleNode("ICapacityReqd").Text & CRE
        NewXML = NewXML & ASDB & xList2(Counter2).SelectSingleNode("ActualStartDate").Text & ASDE
        NewXML = NewXML & AFDB & xList2(Counter2).SelectSingleNode("ActualFinishDate").Text & AFDE
        NewXML = NewXML & TIB & xList2(Counter2).SelectSingleNode("TimeIssued").Text & TIE
        NewXML = NewXML & SOB & xList2(Counter2).SelectSingleNode("SubcontractOp").Text & SOE

        StatusValue = ""

        If xList2(Counter2).SelectSingleNode("Milestone").Text = "Y" Then
          StatusValue = "Milestone"
        End If

        If xList2(Counter2).SelectSingleNode("OperCompleted").Text = "Y" Then
          StatusValue = "Completed"
        End If

        NewXML = NewXML & SB & StatusValue & SE
        NewXML = NewXML & PCB & xList2(Counter2).SelectSingleNode("PiecesCompleted").Text & PCE
        NewXML = NewXML & MacB & xList2(Counter2).SelectSingleNode("IMachine").Text & MacE
        NewXML = NewXML & LAE
  
    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