# Customized Panes for 'xxxxxxxx' Created: 2008/12/15
# PANE:Notepad
[PANE]
Phil  IMPMENLX    01000Notepad                                                                                             060                                                                                                                                                                                                                                                               000000502141IMPMEN020M001
[VBSCRIPT]
Option Explicit


Function CustomizedPane_OnRefresh()

dim XMLOut, XMLParam, NotekeyArray

NotekeyArray = CustomizedPane.CodeObject.RefreshValue

if NotekeyArray = "" then
   exit function
end if

NotekeyArray = split(NotekeyArray,",")

XMLParam = XMLParam & " <Query>"
XMLParam = XMLParam & "   <Key>"
XMLParam = XMLParam & "     <NoteType>" & NotekeyArray(0) & "</NoteType>"
XMLParam = XMLParam & "     <KeyFieldValue>" & NotekeyArray(1) & "</KeyFieldValue>"
XMLParam = XMLParam & "   </Key>"
XMLParam = XMLParam & "   <ReturnRtf>Y</ReturnRtf>"
XMLParam = XMLParam & " </Query>"
on error resume next
XMLOut = CallBO("COMNOT",XMLParam,"auto")
if err then
  ' Blank out notes if the notepad cannot be found  
  CustomizedPane.CodeObject.RTFText = " "
  exit function
end if
' Switch on error handling
on error goto 0

CustomizedPane.CodeObject.RTFText = XMLOUT

End Function



Function CustomizedPane_OnSave()

exit function

' Read in contents of RTF file saved in the RTFTextFileIn filename...
dim filesys, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject")
set readfile = filesys.OpenTextFile (CustomizedPane.CodeObject.RTFTextFileIn, 1, false)
contents = readfile.Readall
readfile.close

dim XMLOut, XMLParam, XMLDoc

XMLParam = XMLParam & "<SetupNotepad />"

XMLDoc = XMLDoc & " <SetupNotepad>"
XMLDoc = XMLDoc & "   <Item>"
XMLDoc = XMLDoc & "     <Key>"
XMLDoc = XMLDoc & "       <Company>" & SystemVariables.CodeObject.Company & "</Company>"
XMLDoc = XMLDoc & "       <NoteType>ORD</NoteType>"
XMLDoc = XMLDoc & "       <KeyField>000791</KeyField>"
XMLDoc = XMLDoc & "     </Key>"
XMLDoc = XMLDoc & "     <NotepadText><![CDATA[" & contents & "]]></NotepadText>"
XMLDoc = XMLDoc & "   </Item>"
XMLDoc = XMLDoc & " </SetupNotepad>"
on error resume next
XMLOut = CallSetup("COMSNO",XMLParam,XMLDoc,"Update","auto")
if err then
  msgbox err.Description, vBCritical, "Calling Business Object"
  exit function
end if
' Switch on error handling
on error goto 0



End Function