# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Warehouse Control Information
[PANE]
ADMIN ARSPENLZ    01001Warehouse Control Information                                                                       090settings\ADMIN_VBS_ARSPEN01.XML                                                                                                                                                                                                                                000000500000ARSPEN010M000                    0000                    00000
[VBSCRIPT]
' This script contains functions for form and field events.
' You must not modify the name of the functions.
Option Explicit

Function CustomizedPane_OnLoad()
  Dim FormProps
  FormProps = "<Form><Fields>"
  Formprops = FormProps & "<Field Name='Warehouse' Type='A' />"
  Formprops = FormProps & "<Field Name='Warehouse description' Type='A' />"
  Formprops = FormProps & "<Field Name='Next stock take ticket number' Type='A' />"
  Formprops = FormProps & "<Field Name='Stock take in progress' Type='A' />"
  Formprops = FormProps & "<Field Name='Nationality' Type='A' />"
  Formprops = FormProps & "<Field Name='Costing Method' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Cost implosion and routing' Type='H' />"
  Formprops = FormProps & "<Field Name='Component warehouse to use' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Routing' Type='N' Group='1' />"

  Formprops = FormProps & "<Field Name='G/L accounts' Type='H' />"
  Formprops = FormProps & "<Field Name='Warehouse control' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Warehouse variance' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='GRN suspense' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Goods in transit control' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Dispatched but not invoiced' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='WIP inspection' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Work in Progress' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='WIP variance' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Automatically cleared variances' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Warehouse address information' Type='H' />"
  Formprops = FormProps & "<Field Name='Delivery address line 1' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Delivery address line 2' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Delivery address line 3' Type='A' Group='1' />"  
  Formprops = FormProps & "<Field Name='Delivery address line 4' Type='A' Group='1' />"  
  Formprops = FormProps & "<Field Name='Delivery address line 5' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Delivery address Postal code' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Supply chain transfer documents' Type='H' />"
  Formprops = FormProps & "<Field Name='Fax SCT documents' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='SCT fax number' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='SCT contact name' Type='A' Group='1'/>"
  Formprops = FormProps & "<Field Name='SCT default document format' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Warehouse management' Type='H' />"
  Formprops = FormProps & "<Field Name='Warehouse under control of WMS' Type='B' Group='1' />"

  Formprops = FormProps & "<Field Name='Goods in transit' Type='H' />"
  Formprops = FormProps & "<Field Name='Goods in transit branch' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Goods in transit geographic area' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='GIT reference number prefix' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='GIT next reference number' Type='A' Group='1' />"

  Formprops = FormProps & "<Field Name='Purchase orders' Type='H' />"
  Formprops = FormProps & "<Field Name='Purchase order prefix' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Next purchase order number' Type='N' Group='1' />"

  Formprops = FormProps & "<Field Name='Goods received note' Type='H' Group='1' />"
  Formprops = FormProps & "<Field Name='GRN prefix' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Next GRN number' Type='N' Group='1'/>"
  Formprops = FormProps & "</Fields></Form>"
  CustomizedPane.CodeObject.FormProperties = FormProps
End Function


Function CustomizedPane_OnRefresh()
  ' Specify the variables to be used when calling the business object
  dim XMLOut, XMLParam, Warehouse, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

  ' Populate the SalesOrder variable with the refresh value
  Warehouse = CustomizedPane.CodeObject.RefreshValue

  if Warehouse = "" then
    exit function
  end if

  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & " <Fetch>"
  XMLParam = XMLParam & "   <TableName>InvWhControl</TableName>"
  XMLParam = XMLParam & "   <Key>" & Warehouse & "</Key>"
  XMLParam = XMLParam & " </Fetch>"
  on error resume next


  ' Call the business object, supplying the XML and putting the result in to XMLOut
  XMLOut = CallBO("COMFCH",XMLParam,"auto")
  if err then
    exit function
  end if
  ' Switch on error handling
  on error goto 0

  ' Define the variables required for extracting the information from the DOM.
  Dim XMLDoc, WH, WHDesc, STTicket, STFlag, Nation, Costing, CostingDesc
  Dim WHToUse, Route, WHControl, WHVariance, GRNSuspense, GITControl, Disp, WIPInsp, WIPControl, WIPVar, AutoClearVar
  Dim DelAddr1, DelAddr2, DelAddr3, DelAddr4, DelAddr5, DelAddrPC
  Dim FaxSCT, SCTFaxNum, SCTFaxContact, SCTDefDocFormat, WMSFlag, GITBranch, GITArea, GTRPrefix, GTRNextNum
  Dim POPrefix, PONextNum, GRNPrefix, GRNNextNum 
 
  ' Load the output from the business object in to the DOM
  Set XMLDoc = createobject("MSXML2.DOMDocument")
  XMLDoc.async = false
  XMLDoc.LoadXML(XMLOut)


  ' Populate the values for the fields
  WH = XMLDoc.SelectSingleNode("//Warehouse").Text
  WHDesc = XMLDoc.SelectSingleNode("//Description").Text
  STTicket = XMLDoc.SelectSingleNode("//NextTicketNo").Text
  STFlag = XMLDoc.SelectSingleNode("//StockTakeFlag").Text
  Nation= XMLDoc.SelectSingleNode("//Nationality").Text
  Costing= XMLDoc.SelectSingleNode("//CostingMethod").Text

  Select Case Costing

    Case "A" 
            CostingDesc = "Average"

    Case "S" 
            CostingDesc = "Standard"

    Case "L" 
            CostingDesc = "Last"

    Case Else 
            CostingDesc = "Company"

  End select


  WHToUse = XMLDoc.SelectSingleNode("//WhForComp").Text
  Route = XMLDoc.SelectSingleNode("//Route").Text

  WHControl = XMLDoc.SelectSingleNode("//WhLdgCtlAcc").Text
  WHVariance = XMLDoc.SelectSingleNode("//WhVarLdg").Text
  GRNSuspense = XMLDoc.SelectSingleNode("//GrnLdgAcc").Text
  GITControl = XMLDoc.SelectSingleNode("//GtrCtlAccl").Text
  Disp = XMLDoc.SelectSingleNode("//GitAdjAcc").Text
  WIPInsp = XMLDoc.SelectSingleNode("//WipInspectGlCode").Text
  WIPControl = XMLDoc.SelectSingleNode("//WipControlGlCode").Text
  WIPVar = XMLDoc.SelectSingleNode("//WipVarCtlGlCode").Text
  AutoClearVar = XMLDoc.SelectSingleNode("//WipAutoVarGlCode").Text

  DelAddr1 = XMLDoc.SelectSingleNode("//DeliveryAddr1").Text
  DelAddr2 = XMLDoc.SelectSingleNode("//DeliveryAddr2").Text
  DelAddr3 = XMLDoc.SelectSingleNode("//DeliveryAddr3").Text
  DelAddr4 = XMLDoc.SelectSingleNode("//DeliveryAddr4").Text
  DelAddr5 = XMLDoc.SelectSingleNode("//DeliveryAddr5").Text
  DelAddrPC = XMLDoc.SelectSingleNode("//PostalCode").Text

  FaxSCT = XMLDoc.SelectSingleNode("//FaxDocIwsFlag").Text
  SCTFaxNum = XMLDoc.SelectSingleNode("//Fax").Text
  SCTFaxContact = XMLDoc.SelectSingleNode("//FaxContact").Text
  SCTDefDocFormat = XMLDoc.SelectSingleNode("//SoDefaultDoc").Text

  WMSFlag = XMLDoc.SelectSingleNode("//WmsActive").Text

  GITBranch = XMLDoc.SelectSingleNode("//Branch").Text
  GITArea = XMLDoc.SelectSingleNode("//Area").Text
  GTRPrefix = XMLDoc.SelectSingleNode("//GtrPrefix").Text
  GTRNextNum = XMLDoc.SelectSingleNode("//GtrNextNo").Text

  POPrefix = XMLDoc.SelectSingleNode("//PoPrefix").Text
  PONextNum = XMLDoc.SelectSingleNode("//PoNextNumber").Text
  GRNPrefix = XMLDoc.SelectSingleNode("//GrnPrefix").Text
  GRNNextNum = XMLDoc.SelectSingleNode("//GrnNextNumber").Text



  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='Warehouse' Value='" & WH & "' />"
  FormData = FormData & "<Field Name='Warehouse description' Value='" & WHDesc & "' />"
  FormData = FormData & "<Field Name='Next stock take ticket number' Value='" & STTicket & "' />"
  FormData = FormData & "<Field Name='Stock take in progress' Value='" & STFlag & "' />"
  FormData = FormData & "<Field Name='Nationality' Value='" & Nation & "' />"
  FormData = FormData & "<Field Name='Costing Method' Value='" & CostingDesc & "' />"

  FormData = FormData & "<Field Name='Component warehouse to use' Value='" & WHToUse & "' />"
  FormData = FormData & "<Field Name='Routing' Value='" & Route & "' />"

  FormData = FormData & "<Field Name='Warehouse control' Value='" & WHControl & "' />"
  FormData = FormData & "<Field Name='Warehouse variance' Value='" & WHVariance & "' />"
  FormData = FormData & "<Field Name='GRN suspense' Value='" & GRNSuspense & "' />"
  FormData = FormData & "<Field Name='Goods in transit control' Value='" & GITControl & "' />"
  FormData = FormData & "<Field Name='Dispatched but not invoiced' Value='" & Disp & "' />"
  FormData = FormData & "<Field Name='WIP inspection' Value='" & WIPInsp & "' />"
  FormData = FormData & "<Field Name='Work in Progress' Value='" & WIPControl & "' />"
  FormData = FormData & "<Field Name='WIP variance' Value='" & WIPVar & "' />"
  FormData = FormData & "<Field Name='Automatically cleared variances' Value='" & AutoClearVar & "' />"

  FormData = FormData & "<Field Name='Delivery address line 1' Value='" & DelAddr1 & "' />"
  FormData = FormData & "<Field Name='Delivery address line 2' Value='" & DelAddr2 & "' />"
  FormData = FormData & "<Field Name='Delivery address line 3' Value='" & DelAddr3 & "' />"
  FormData = FormData & "<Field Name='Delivery address line 4' Value='" & DelAddr4 & "' />"
  FormData = FormData & "<Field Name='Delivery address line 5' Value='" & DelAddr5 & "' />"
  FormData = FormData & "<Field Name='Delivery address Postal code' Value='" & DelAddrPC & "' />"

  FormData = FormData & "<Field Name='Fax SCT documents' Value='" & FaxSCT & "' />"
  FormData = FormData & "<Field Name='SCT fax number' Value='" & SCTFaxNum & "' />"
  FormData = FormData & "<Field Name='SCT contact name' Value='" & SCTFaxContact & "' />"
  FormData = FormData & "<Field Name='SCT default document format' Value='" & SCTDefDocFormat & "' />"

  FormData = FormData & "<Field Name='Warehouse under control of WMS' Value='" & WMSFlag & "' />"

  FormData = FormData & "<Field Name='Goods in transit branch' Value='" & GITBranch & "' />"
  FormData = FormData & "<Field Name='Goods in transit geographic area' Value='" & GITArea & "' />"
  FormData = FormData & "<Field Name='GIT reference number prefix' Value='" & GTRPrefix & "' />"
  FormData = FormData & "<Field Name='GIT next reference number' Value='" & GTRNextNum & "' />"

  FormData = FormData & "<Field Name='Purchase order prefix' Value='" & POPrefix & "' />"
  FormData = FormData & "<Field Name='Next purchase order number' Value='" & PONextNum & "' />"

  FormData = FormData & "<Field Name='Goods received note' Value='" & GRNPrefix & "' />"
  FormData = FormData & "<Field Name='Next GRN number' Value='" & GRNNextNum & "' />"

  FormData = FormData & "</Fields></Form>"

  CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function