# Customized Panes for 'xxxxxxxx' Created: 2010/03/03
# PANE:Requisition User Details
[PANE]
ADMIN ARSPENLZ    01001Requisition User Details                                                                            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='Requisition user details' Type='H' />"
  Formprops = FormProps & "<Field Name='User' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Name' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='E-mail address' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Authority level' Type='H' />"
  Formprops = FormProps & "<Field Name='Add requisition' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Add detailed information' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Change detailed information' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Approve requisition' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Create purchase orders' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Routing information' Type='H' />"
  Formprops = FormProps & "<Field Name='Route on to user' Type='A' Group='1' />"
  Formprops = FormProps & "<Field Name='Requisition maximum values' Type='H' />"
  Formprops = FormProps & "<Field Name='Entering a line' Type='N' Decimals='2' Group='1' />"
  Formprops = FormProps & "<Field Name='Auto-approving a line' Type='N' Decimals='2' Group='1' />"
  Formprops = FormProps & "<Field Name='Options' Type='H' />"
  Formprops = FormProps & "<Field Name='Check mandatory users' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Allow maintenance if not current holder' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Temporarily unavailable' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Forward to user' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Allow creation from sales order review' Type='B' Group='1' />"
  Formprops = FormProps & "<Field Name='Warehouse' Type='A' 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, RequisitionUser, FormData
  CustomizedPane.CodeObject.UpdateFormValues = " "

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

  if RequisitionUser = "" then
    exit function
  end if


  ' Build up the XML to be passed to the business object
  XMLParam = XMLParam & "<Query>"
  XMLParam = XMLParam & "  <Filter>"
  XMLParam = XMLParam & "  <User FilterType='S' FilterValue='" & RequisitionUser & "' />"
  XMLParam = XMLParam & "  </Filter>"
  XMLParam = XMLParam & "</Query>"
  on error resume next



  ' Call the business object, supplying the XML and putting the result in to XMLOut
  XMLOut = CallBO("PORQRU",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, User, Name, Email, AddReqFlag, AddDetFlag, ChgDetFlag, AppReqFlag, CreatePOFlag, RouteToUser, EnterLineValue
  Dim AutoLineValue, ChkMandUsers, AllowMaintFlag, TempUnavailFlag, FwdToUser, CreateFromSOFlag, Warehouse 

  ' 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
  User = XMLDoc.SelectSingleNode("//UserCode").Text
  Name = XMLDoc.SelectSingleNode("//UserName").Text
  Email = XMLDoc.SelectSingleNode("//Email").Text
  AddReqFlag = XMLDoc.SelectSingleNode("//CanAddReqn").Text
  AddDetFlag = XMLDoc.SelectSingleNode("//CanAddReqnDetails").Text
  ChgDetFlag = XMLDoc.SelectSingleNode("//CanChgReqnDetails").Text
  AppReqFlag = XMLDoc.SelectSingleNode("//CanApproveReqn").Text
  CreatePOFlag = XMLDoc.SelectSingleNode("//CanCreateOrder").Text
  RouteToUser = XMLDoc.SelectSingleNode("//NextUser").Text
  EnterLineValue = XMLDoc.SelectSingleNode("//MaxLineValue").Text
  AutoLineValue = XMLDoc.SelectSingleNode("//MaxApproveValue").Text
  ChkMandUsers = XMLDoc.SelectSingleNode("//MandatoryChkReqd").Text
  AllowMaintFlag = XMLDoc.SelectSingleNode("//MaintainReqnFlag").Text
  TempUnavailFlag = XMLDoc.SelectSingleNode("//OnHoldFlag").Text
  FwdToUser = XMLDoc.SelectSingleNode("//ForwardToUser").Text
  CreateFromSOFlag = XMLDoc.SelectSingleNode("//SoReviewFlag").Text
  Warehouse = XMLDoc.SelectSingleNode("//AuthWarehouse").Text



  FormData = "<Form><Fields>"
  FormData = FormData & "<Field Name='User' Value='" & User & "' />"
  FormData = FormData & "<Field Name='Name' Value='" & Name & "' />"
  FormData = FormData & "<Field Name='E-mail address' Value='" & Email & "' />"
  FormData = FormData & "<Field Name='Add requisition' Value='" & AddReqFlag & "' />"
  FormData = FormData & "<Field Name='Add detailed information' Value='" & AddDetFlag & "' />"
  FormData = FormData & "<Field Name='Change detailed information' Value='" & ChgDetFlag & "' />"
  FormData = FormData & "<Field Name='Approve requisition' Value='" & AppReqFlag & "' />"
  FormData = FormData & "<Field Name='Create purchase orders' Value='" & CreatePOFlag & "' />"
  FormData = FormData & "<Field Name='Route on to user' Value='" & RouteToUser & "' />"
  FormData = FormData & "<Field Name='Entering a line' Value='" & EnterLineValue & "' />"
  FormData = FormData & "<Field Name='Auto-approving a line' Value='" & AutoLineValue & "' />"
  FormData = FormData & "<Field Name='Check mandatory users' Value='" & ChkMandUsers & "' />"
  FormData = FormData & "<Field Name='Allow maintenance if not current holder' Value='" & AllowMaintFlag & "' />"
  FormData = FormData & "<Field Name='Temporarily unavailable' Value='" & TempUnavailFlag & "' />"
  FormData = FormData & "<Field Name='Forward to user' Value='" & FwdToUser & "' />"
  FormData = FormData & "<Field Name='Allow creation from sales order review' Value='" & CreateFromSOFlag & "' />"
  FormData = FormData & "<Field Name='Warehouse' Value='" & Warehouse & "' />"
  FormData = FormData & "</Fields></Form>"

  CustomizedPane.CodeObject.UpdateFormValues = FormData

End Function