Windows Analysis Report
bnerad4129F.xlsm

Attribute VB_Name = "BneBrowser"
Attribute VB_Base = "0{E7E14E05-267E-4DF5-AB46-4EAEDFC6DBE2}{F7753E73-3A3F-4A39-83EF-62561949B23D}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Option Explicit
Option Base 1
Const BROWSER = 1
Const DIALOG = 2
Const WINDOW_STATUS_EVENT = "EVENT"
Const WINDOW_STATUS_DONE = "Done"
Const PROGRESS_MESSAGE = "Working "
Dim WithEvents WebBrowser As WebBrowser
Attribute WebBrowser.VB_VarHelpID = -1
Dim WithEvents BneDocument As HTMLDocument
Attribute BneDocument.VB_VarHelpID = -1
Dim m_Document As IHTMLDocument2
Dim m_EventCallBacks As Collection
Dim m_Document_OnClick As String
Dim m_Document_Complete As String
Dim m_UploadBegin As String
Dim m_UploadComplete As String
Dim m_caption As String
Dim m_URL As String
Dim m_LookAndFeel As Integer
Dim b_UploadBegin As Boolean
Dim b_UploadComplete As Boolean
Dim m_SessionName As String
Dim m_SessionState As Boolean
Dim m_SessionTicket As String
Dim m_documentId As String
Dim m_language As String
Dim m_appsServletAgent As String
Dim m_strMsgHeader As String
Dim m_strMsgBody As String
Dim m_strMsgAction1 As String
Dim m_strMsgAction2 As String
Dim m_SheetRef As Object
Public Property Let sessionName(ByVal sessionName As String)
m_SessionName = sessionName
End Property
Public Property Let sessionState(ByVal sessionState As Boolean)
m_SessionState = sessionState
End Property
Public Property Let sessionTicket(ByVal sessionTicket As String)
m_SessionTicket = sessionTicket
End Property
Public Property Let LookAndFeel(ByRef LookAndFeel As Integer)
m_LookAndFeel = LookAndFeel
End Property
Public Property Let DOCUMENT_ONCLICK(ByVal value As String)
m_Document_OnClick = value
End Property
Public Property Let DOCUMENT_COMPLETE(ByVal value As String)
m_Document_Complete = value
End Property
Public Property Let UPLOADBEGIN(ByVal value As String)
m_UploadBegin = value
End Property
Public Property Let UPLOADCOMPLETE(ByVal value As String)
m_UploadComplete = value
End Property
Public Sub ErrorMessage(strMsgHeader As String, strMsgBody As String, strMsgAction1 As String, strMsgAction2 As String)
m_strMsgHeader = strMsgHeader
m_strMsgBody = strMsgBody
m_strMsgAction1 = strMsgAction1
m_strMsgAction2 = strMsgAction2
End Sub
Public Sub setSession(ByRef sessionName As String, ByRef sessionState As Boolean, ByRef sessionTicket As String)
m_SessionName = sessionName
m_SessionState = sessionState
m_SessionTicket = sessionTicket
End Sub
Public Sub setDocumentId(documentId As String)
m_documentId = documentId
End Sub
Public Sub setLanguage(ByRef language As String)
m_language = language
End Sub
Public Sub setAppsServletAgent(appsServletAgent As String)
m_appsServletAgent = appsServletAgent
End Sub
Public Sub addEventCallBack(l_sProcedure As String, l_sEventName As String, Optional l_oSheet As Object)
If l_oSheet Is Nothing Then
m_EventCallBacks.add l_sProcedure, l_sEventName
Else
If Len(l_oSheet.Parent.path) = 0 Then
m_EventCallBacks.add "'" & l_oSheet.Parent.FullName & "'" & "!" & l_oSheet.CodeName & "." & l_sProcedure, l_sEventName
Else
m_EventCallBacks.add l_oSheet.CodeName & "." & l_sProcedure, l_sEventName
End If
End If
End Sub
Public Function getEventCallBack(vEvent As Variant) As String
On Error Resume Next
Dim tmp As Variant
tmp = m_EventCallBacks.Item(vEvent)
If tmp = Empty Then
If Right(vEvent, 5) = "_uixr" Then
Dim s As String
s = Left(vEvent, Len(vEvent) - 5)
tmp = m_EventCallBacks.Item(s)
End If
End If
getEventCallBack = tmp
End Function
Public Sub removeEventCallBack(vEvent As Variant)
On Error Resume Next
If Right(vEvent, 5) = "_uixr" Then
Dim s As String
s = Left(vEvent, Len(vEvent) - 5)
m_EventCallBacks.Remove (s)
Else
m_EventCallBacks.Remove (vEvent)
End If
End Sub
Public Sub clearAllEventCallBacks()
Do Until m_EventCallBacks.count = 0
m_EventCallBacks.Remove 1
Loop
End Sub
Private Sub runCallback(strCallBack As String)
Dim strSubName As String
strSubName = getEventCallBack(strCallBack)
If (Not WebBrowser Is Nothing) Then
Set m_Document = WebBrowser.Document
Set BneDocument = m_Document
End If
If Len(strSubName) > 0 And (Not m_Document Is Nothing) Then
removeEventCallBack strCallBack
Application.Run strSubName, m_Document
End If
End Sub
Public Property Get Document() As Object
Set Document = m_Document
End Property
Public Sub Navigate(ByVal location As String)
Dim clsProperties As New BneVBAProperties
Dim clsProperty As BneVBAProperty
On Error Resume Next
If m_SessionTicket <> "" Then
If InStr(location, "ICX_SESSION_ID") = 0 Then
location = location & "&ICX_SESSION_ID=" & m_SessionTicket
End If
Else
If InStr(location, "ICX_SESSION_ID") = 0 Then
Set clsProperty = clsProperties.getProperty("ICX_SESSION_ID")
If Not clsProperty Is Nothing Then
location = location & "&ICX_SESSION_ID=" & clsProperty.value
End If
End If
End If
WebBrowser.Navigate location
End Sub
Public Sub NavigatePost(ByVal sURL As String, ByVal oPostData As BneVBAParameters)
On Error Resume Next
Dim vPost     As Variant
Dim vHeader   As Variant
Dim vFlags    As Variant
Dim vTarget   As Variant
Dim abyte()   As Byte
Dim iParamCnt As Long
Dim sPostData As String
Dim clsProperties As New BneVBAProperties
Dim clsProperty As BneVBAProperty
If isEmpty(oPostData.Item("ICX_SESSION_ID")) Then
If Len(m_SessionTicket) > 0 Then
oPostData.add "ICX_SESSION_ID", m_SessionTicket
Else
Set clsProperty = clsProperties.getProperty("ICX_SESSION_ID")
If Not clsProperty Is Nothing Then
oPostData.add "ICX_SESSION_ID", clsProperty.value
Else
Set clsProperty = clsProperties.getProperty("ICX_SESSION_ID_BOOTSTRAP")
If Not clsProperty Is Nothing Then
oPostData.add "ICX_SESSION_ID", clsProperty.value
clsProperties.removeProperty ("ICX_SESSION_ID_BOOTSTRAP")
End If
End If
End If
End If
If isEmpty(oPostData.Item("tzOffset")) Then
oPostData.add "tzOffset", getTimeZoneOffset()
End If
If isEmpty(oPostData.Item("bne:embedded")) Then
oPostData.add "bne:embedded", "true"
End If
If isEmpty(oPostData.Item("bne:documentId")) Then
oPostData.add "bne:documentId", m_documentId
End If
If isEmpty(oPostData.Item("bne:language")) Then
oPostData.add "bne:language", m_language
End If
oPostData.add "bne:login_host", m_appsServletAgent
For iParamCnt = 1 To oPostData.count
If iParamCnt > 1 Then sPostData = sPostData & "&"
sPostData = sPostData & oPostData.Item(iParamCnt).name & "=" & UrlEncodeUtf8(oPostData.Item(iParamCnt).value)
Next iParamCnt
vHeader = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
abyte = StrConv(sPostData, vbFromUnicode)
vPost = abyte
If InStr(1, sURL, "?") > 0 Then
sURL = sURL & "&"
Else
sURL = sURL & "?"
End If
sURL = sURL & "bne:encoding=UTF-8"
Call WebBrowser.Navigate(sURL, vFlags, vTarget, vPost, vHeader)
End Sub
Private Sub UserForm_Initialize()
m_LookAndFeel = BROWSER
b_UploadBegin = False
b_UploadComplete = False
Set WebBrowser = Me.Controls.add("Shell.Explorer.2", "WebBrowser")
With WebBrowser
.MenuBar = False
.StatusBar = False
.AddressBar = False
.RegisterAsBrowser = True
.Silent = False
End With
Set m_Document = WebBrowser.Document
Set BneDocument = m_Document
UserForm_Resize
Set m_EventCallBacks = New Collection
m_strMsgHeader = "Error"
m_strMsgBody = "The connection to the server is unavailable."
m_strMsgAction1 = "Please contact your support representative."
If Application.ShowWindowsInTaskbar = True Then
Application.ShowWindowsInTaskbar = False
Application.ShowWindowsInTaskbar = True
End If
End Sub
Private Sub UserForm_Resize()
ResizeForm
End Sub
Sub ResizeForm()
On Error Resume Next
WebBrowser.Move 0, 0, Me.InsideWidth, Me.InsideHeight
End Sub
Private Sub UserForm_Terminate()
Call runCallback("CLOSE")
Me.Controls.Remove "WebBrowser"
Set WebBrowser = Nothing
Set BneDocument = Nothing
Set m_Document = Nothing
Set m_EventCallBacks = Nothing
Set m_SheetRef = Nothing
End Sub
Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Dim caption As String
If Progress > 0 Then
caption = Me.caption
If Left(caption, Len(PROGRESS_MESSAGE)) <> PROGRESS_MESSAGE Then
caption = PROGRESS_MESSAGE & " "
End If
Me.caption = caption & "."
Else
Me.caption = m_caption
End If
End Sub
Private Sub WebBrowser_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
Unload Me
End Sub
Private Sub WebBrowser_WindowSetResizable(ByVal Resizable As Boolean)
If Resizable = False Then
borderStyle = 3
End If
End Sub
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set m_Document = WebBrowser.Document
Set BneDocument = m_Document
If (Not m_Document Is Nothing) Then
m_caption = StripURLFromTitle(m_Document.Title)
Me.caption = m_caption
If m_LookAndFeel = DIALOG Then
m_Document.body.Style.Border = "1"
m_Document.body.Style.margin = "5"
m_Document.body.Style.padding = "0"
m_Document.body.Style.overflow = "auto"
End If
If m_Document_Complete <> "" Then
Application.Run m_Document_Complete, pDisp, m_Document
End If
If Mid(URL, 1, 6) = "res://" Then
m_Document.body.innerHTML = WebBrowser_DocumentComplete_ERROR_MESSAGE
m_Document.parentWindow.execScript "window.setTimeout(""window.status='EVENT=ERROR'"", 20000);", "javascript"
End If
End If
End Sub
Public Function StripURLFromTitle(lsTitle As String) As String
On Error Resume Next
lsTitle = Trim(lsTitle)
If (InStr(1, lsTitle, "http://", vbTextCompare) = 1 Or InStr(1, lsTitle, "https://", vbTextCompare) = 1) And InStr(lsTitle, " - ") > 0 Then
lsTitle = Mid(lsTitle, InStr(lsTitle, " - ") + 3)
End If
StripURLFromTitle = lsTitle
End Function
Public Function WebBrowser_DocumentComplete_ERROR_MESSAGE() As String
Dim sCloseText As String
Dim sCopyrightText As String
sCloseText = "Close"
sCopyrightText = "Copyright (c) 1998, 2017, Oracle and/or its affiliates. All rights reserved."
WebBrowser_DocumentComplete_ERROR_MESSAGE = "<br>" & "<table border='0' cellpadding='0' cellspacing='0' width='100%'>" & "  <tr><td style='font-family:Arial;color:#cc0000; font-size:16pt'>" & m_strMsgHeader & "</td></tr>" & "  <tr><td style='background-color:#336699' height='1' colspan='3'></td></tr>" & "  <tr><td width='100%' align='left'><br>" & "      <span style='font-family:Arial;color:#000000; font-size:10pt'><b>" & m_strMsgBody & "</b></span></td></tr>" & "  <tr><td><span style='font-family:Arial;color:#000000; font-size:10pt'>" & m_strMsgAction1 & "</span><br><br></td></tr>" & "  <tr><td><span style='font-family:Arial;color:#000000; font-size:10pt'>" & m_strMsgAction2 & "</span><br><br></td></tr>" & "  <tr><td style='background-color:#336699' height='1' colspan='3'></td></tr>" & "  <tr><td colspan='3' align='center'><span id='bne:messages'></span></td></tr>" & "  <tr><td colspan='3' align='right'><span id=""BNE:CANCEL""><input type='button' value='" & sCloseText & "' onclick='javascript:return false;'></span></td></tr>" & "  <tr><td width='100%' align='left'><br><span style='font-family:Arial;color:#000000; font-size:9pt'>" & sCopyrightText & "</span></td></tr>" & "</table>"
End Function
Private Sub WebBrowser_StatusTextChange(ByVal l_sStatusText As String)
Dim l_sCallBack As String
l_sCallBack = getWindowStatusEvent(l_sStatusText)
Call runCallback(l_sCallBack)
End Sub
Private Function getWindowStatusEvent(ByVal statusText As String)
If statusText <> "" And statusText <> WINDOW_STATUS_DONE Then
If InStr(1, statusText, WINDOW_STATUS_EVENT & "=") Then
getWindowStatusEvent = UCase(Mid(statusText, 7))
Else
getWindowStatusEvent = ""
End If
End If
End Function
Private Function BneDocument_onclick() As Boolean
Dim curWnd As HTMLWindow2
Dim curElement As IHTMLElement
Dim elementName As String
Set curWnd = BneDocument.parentWindow
Set curElement = curWnd.event.srcElement
elementName = curElement.id
If m_Document_OnClick <> "" Then
Application.Run m_Document_OnClick
End If
If Application.ShowWindowsInTaskbar = True Then
Application.ShowWindowsInTaskbar = False
Application.ShowWindowsInTaskbar = True
End If
BneDocument_onclick = True
If InStr(elementName, "SubmitButton") > 0 Then
BneDocument_onclick = False
ElseIf Not curElement.parentElement Is Nothing Then
If Not IsNull(curElement.parentElement.getAttribute("onclick")) Then
If curElement.parentElement.getAttribute("onclick") <> "" Then
BneDocument_onclick = False
End If
End If
ElseIf Not IsNull(curElement.getAttribute("onclick")) Then
If curElement.getAttribute("onclick") <> "" Then
BneDocument_onclick = True
End If
End If
End Function
Public Sub setSheetRef(Sheet As Object)
Set m_SheetRef = Sheet
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim strCallBack As String
If CloseMode = vbFormControlMenu Then
strCallBack = getEventCallBack("BNE:BROWSERCLOSE")
If Len(strCallBack) > 0 Then
removeEventCallBack "BNE:BROWSERCLOSE"
Application.Run strCallBack
Cancel = 1
Else
Set WebBrowser = Nothing
Set BneDocument = Nothing
Set m_Document = Nothing
Set m_EventCallBacks = Nothing
Set m_SheetRef = Nothing
End If
End If
End Sub

Attribute VB_Name = "BNEERROR"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Option Explicit
Private Const ERR_BASE                    As Integer = 32000
Private Const ERR_SAX_CANCEL              As Integer = 32001
Private Const ERR_SAX_DOM_ERR             As Integer = 32002
Property Get SAX_CANCEL() As Integer
SAX_CANCEL = SAX_CANCEL
End Property
Property Get SAX_DOM_ERR() As Integer
SAX_DOM_ERR = SAX_DOM_ERR
End Property
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub

Attribute VB_Name = "BneBrowser"
Attribute VB_Base = "0{E7E14E05-267E-4DF5-AB46-4EAEDFC6DBE2}{F7753E73-3A3F-4A39-83EF-62561949B23D}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Option Explicit
Option Base 1
Const BROWSER = 1
Const DIALOG = 2
Const WINDOW_STATUS_EVENT = "EVENT"
Const WINDOW_STATUS_DONE = "Done"
Const PROGRESS_MESSAGE = "Working "
Dim WithEvents WebBrowser As WebBrowser
Attribute WebBrowser.VB_VarHelpID = -1
Dim WithEvents BneDocument As HTMLDocument
Attribute BneDocument.VB_VarHelpID = -1
Dim m_Document As IHTMLDocument2
Dim m_EventCallBacks As Collection
Dim m_Document_OnClick As String
Dim m_Document_Complete As String
Dim m_UploadBegin As String
Dim m_UploadComplete As String
Dim m_caption As String
Dim m_URL As String
Dim m_LookAndFeel As Integer
Dim b_UploadBegin As Boolean
Dim b_UploadComplete As Boolean
Dim m_SessionName As String
Dim m_SessionState As Boolean
Dim m_SessionTicket As String
Dim m_documentId As String
Dim m_language As String
Dim m_appsServletAgent As String
Dim m_strMsgHeader As String
Dim m_strMsgBody As String
Dim m_strMsgAction1 As String
Dim m_strMsgAction2 As String
Dim m_SheetRef As Object
Public Property Let sessionName(ByVal sessionName As String)
m_SessionName = sessionName
End Property
Public Property Let sessionState(ByVal sessionState As Boolean)
m_SessionState = sessionState
End Property
Public Property Let sessionTicket(ByVal sessionTicket As String)
m_SessionTicket = sessionTicket
End Property
Public Property Let LookAndFeel(ByRef LookAndFeel As Integer)
m_LookAndFeel = LookAndFeel
End Property
Public Property Let DOCUMENT_ONCLICK(ByVal value As String)
m_Document_OnClick = value
End Property
Public Property Let DOCUMENT_COMPLETE(ByVal value As String)
m_Document_Complete = value
End Property
Public Property Let UPLOADBEGIN(ByVal value As String)
m_UploadBegin = value
End Property
Public Property Let UPLOADCOMPLETE(ByVal value As String)
m_UploadComplete = value
End Property
Public Sub ErrorMessage(strMsgHeader As String, strMsgBody As String, strMsgAction1 As String, strMsgAction2 As String)
m_strMsgHeader = strMsgHeader
m_strMsgBody = strMsgBody
m_strMsgAction1 = strMsgAction1
m_strMsgAction2 = strMsgAction2
End Sub
Public Sub setSession(ByRef sessionName As String, ByRef sessionState As Boolean, ByRef sessionTicket As String)
m_SessionName = sessionName
m_SessionState = sessionState
m_SessionTicket = sessionTicket
End Sub
Public Sub setDocumentId(documentId As String)
m_documentId = documentId
End Sub
Public Sub setLanguage(ByRef language As String)
m_language = language
End Sub
Public Sub setAppsServletAgent(appsServletAgent As String)
m_appsServletAgent = appsServletAgent
End Sub
Public Sub addEventCallBack(l_sProcedure As String, l_sEventName As String, Optional l_oSheet As Object)
If l_oSheet Is Nothing Then
m_EventCallBacks.add l_sProcedure, l_sEventName
Else
If Len(l_oSheet.Parent.path) = 0 Then
m_EventCallBacks.add "'" & l_oSheet.Parent.FullName & "'" & "!" & l_oSheet.CodeName & "." & l_sProcedure, l_sEventName
Else
m_EventCallBacks.add l_oSheet.CodeName & "." & l_sProcedure, l_sEventName
End If
End If
End Sub
Public Function getEventCallBack(vEvent As Variant) As String
On Error Resume Next
Dim tmp As Variant
tmp = m_EventCallBacks.Item(vEvent)
If tmp = Empty Then
If Right(vEvent, 5) = "_uixr" Then
Dim s As String
s = Left(vEvent, Len(vEvent) - 5)
tmp = m_EventCallBacks.Item(s)
End If
End If
getEventCallBack = tmp
End Function
Public Sub removeEventCallBack(vEvent As Variant)
On Error Resume Next
If Right(vEvent, 5) = "_uixr" Then
Dim s As String
s = Left(vEvent, Len(vEvent) - 5)
m_EventCallBacks.Remove (s)
Else
m_EventCallBacks.Remove (vEvent)
End If
End Sub
Public Sub clearAllEventCallBacks()
Do Until m_EventCallBacks.count = 0
m_EventCallBacks.Remove 1
Loop
End Sub
Private Sub runCallback(strCallBack As String)
Dim strSubName As String
strSubName = getEventCallBack(strCallBack)
If (Not WebBrowser Is Nothing) Then
Set m_Document = WebBrowser.Document
Set BneDocument = m_Document
End If
If Len(strSubName) > 0 And (Not m_Document Is Nothing) Then
removeEventCallBack strCallBack
Application.Run strSubName, m_Document
End If
End Sub
Public Property Get Document() As Object
Set Document = m_Document
End Property
Public Sub Navigate(ByVal location As String)
Dim clsProperties As New BneVBAProperties
Dim clsProperty As BneVBAProperty
On Error Resume Next
If m_SessionTicket <> "" Then
If InStr(location, "ICX_SESSION_ID") = 0 Then
location = location & "&ICX_SESSION_ID=" & m_SessionTicket
End If
Else
If InStr(location, "ICX_SESSION_ID") = 0 Then
Set clsProperty = clsProperties.getProperty("ICX_SESSION_ID")
If Not clsProperty Is Nothing Then
location = location & "&ICX_SESSION_ID=" & clsProperty.value
End If
End If
End If
WebBrowser.Navigate location
End Sub
Public Sub NavigatePost(ByVal sURL As String, ByVal oPostData As BneVBAParameters)
On Error Resume Next
Dim vPost     As Variant
Dim vHeader   As Variant
Dim vFlags    As Variant
Dim vTarget   As Variant
Dim abyte()   As Byte
Dim iParamCnt As Long
Dim sPostData As String
Dim clsProperties As New BneVBAProperties
Dim clsProperty As BneVBAProperty
If isEmpty(oPostData.Item("ICX_SESSION_ID")) Then
If Len(m_SessionTicket) > 0 Then
oPostData.add "ICX_SESSION_ID", m_SessionTicket
Else
Set clsProperty = clsProperties.getProperty("ICX_SESSION_ID")
If Not clsProperty Is Nothing Then
oPostData.add "ICX_SESSION_ID", clsProperty.value
Else
Set clsProperty = clsProperties.getProperty("ICX_SESSION_ID_BOOTSTRAP")
If Not clsProperty Is Nothing Then
oPostData.add "ICX_SESSION_ID", clsProperty.value
clsProperties.removeProperty ("ICX_SESSION_ID_BOOTSTRAP")
End If
End If
End If
End If
If isEmpty(oPostData.Item("tzOffset")) Then
oPostData.add "tzOffset", getTimeZoneOffset()
End If
If isEmpty(oPostData.Item("bne:embedded")) Then
oPostData.add "bne:embedded", "true"
End If
If isEmpty(oPostData.Item("bne:documentId")) Then
oPostData.add "bne:documentId", m_documentId
End If
If isEmpty(oPostData.Item("bne:language")) Then
oPostData.add "bne:language", m_language
End If
oPostData.add "bne:login_host", m_appsServletAgent
For iParamCnt = 1 To oPostData.count
If iParamCnt > 1 Then sPostData = sPostData & "&"
sPostData = sPostData & oPostData.Item(iParamCnt).name & "=" & UrlEncodeUtf8(oPostData.Item(iParamCnt).value)
Next iParamCnt
vHeader = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
abyte = StrConv(sPostData, vbFromUnicode)
vPost = abyte
If InStr(1, sURL, "?") > 0 Then
sURL = sURL & "&"
Else
sURL = sURL & "?"
End If
sURL = sURL & "bne:encoding=UTF-8"
Call WebBrowser.Navigate(sURL, vFlags, vTarget, vPost, vHeader)
End Sub
Private Sub UserForm_Initialize()
m_LookAndFeel = BROWSER
b_UploadBegin = False
b_UploadComplete = False
Set WebBrowser = Me.Controls.add("Shell.Explorer.2", "WebBrowser")
With WebBrowser
.MenuBar = False
.StatusBar = False
.AddressBar = False
.RegisterAsBrowser = True
.Silent = False
End With
Set m_Document = WebBrowser.Document
Set BneDocument = m_Document
UserForm_Resize
Set m_EventCallBacks = New Collection
m_strMsgHeader = "Error"
m_strMsgBody = "The connection to the server is unavailable."
m_strMsgAction1 = "Please contact your support representative."
If Application.ShowWindowsInTaskbar = True Then
Application.ShowWindowsInTaskbar = False
Application.ShowWindowsInTaskbar = True
End If
End Sub
Private Sub UserForm_Resize()
ResizeForm
End Sub
Sub ResizeForm()
On Error Resume Next
WebBrowser.Move 0, 0, Me.InsideWidth, Me.InsideHeight
End Sub
Private Sub UserForm_Terminate()
Call runCallback("CLOSE")
Me.Controls.Remove "WebBrowser"
Set WebBrowser = Nothing
Set BneDocument = Nothing
Set m_Document = Nothing
Set m_EventCallBacks = Nothing
Set m_SheetRef = Nothing
End Sub
Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Dim caption As String
If Progress > 0 Then
caption = Me.caption
If Left(caption, Len(PROGRESS_MESSAGE)) <> PROGRESS_MESSAGE Then
caption = PROGRESS_MESSAGE & " "
End If
Me.caption = caption & "."
Else
Me.caption = m_caption
End If
End Sub
Private Sub WebBrowser_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
Unload Me
End Sub
Private Sub WebBrowser_WindowSetResizable(ByVal Resizable As Boolean)
If Resizable = False Then
borderStyle = 3
End If
End Sub
Private Sub WebBrowser_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
Set m_Document = WebBrowser.Document
Set BneDocument = m_Document
If (Not m_Document Is Nothing) Then
m_caption = StripURLFromTitle(m_Document.Title)
Me.caption = m_caption
If m_LookAndFeel = DIALOG Then
m_Document.body.Style.Border = "1"
m_Document.body.Style.margin = "5"
m_Document.body.Style.padding = "0"
m_Document.body.Style.overflow = "auto"
End If
If m_Document_Complete <> "" Then
Application.Run m_Document_Complete, pDisp, m_Document
End If
If Mid(URL, 1, 6) = "res://" Then
m_Document.body.innerHTML = WebBrowser_DocumentComplete_ERROR_MESSAGE
m_Document.parentWindow.execScript "window.setTimeout(""window.status='EVENT=ERROR'"", 20000);", "javascript"
End If
End If
End Sub
Public Function StripURLFromTitle(lsTitle As String) As String
On Error Resume Next
lsTitle = Trim(lsTitle)
If (InStr(1, lsTitle, "http://", vbTextCompare) = 1 Or InStr(1, lsTitle, "https://", vbTextCompare) = 1) And InStr(lsTitle, " - ") > 0 Then
lsTitle = Mid(lsTitle, InStr(lsTitle, " - ") + 3)
End If
StripURLFromTitle = lsTitle
End Function
Public Function WebBrowser_DocumentComplete_ERROR_MESSAGE() As String
Dim sCloseText As String
Dim sCopyrightText As String
sCloseText = "Close"
sCopyrightText = "Copyright (c) 1998, 2017, Oracle and/or its affiliates. All rights reserved."
WebBrowser_DocumentComplete_ERROR_MESSAGE = "<br>" & "<table border='0' cellpadding='0' cellspacing='0' width='100%'>" & "  <tr><td style='font-family:Arial;color:#cc0000; font-size:16pt'>" & m_strMsgHeader & "</td></tr>" & "  <tr><td style='background-color:#336699' height='1' colspan='3'></td></tr>" & "  <tr><td width='100%' align='left'><br>" & "      <span style='font-family:Arial;color:#000000; font-size:10pt'><b>" & m_strMsgBody & "</b></span></td></tr>" & "  <tr><td><span style='font-family:Arial;color:#000000; font-size:10pt'>" & m_strMsgAction1 & "</span><br><br></td></tr>" & "  <tr><td><span style='font-family:Arial;color:#000000; font-size:10pt'>" & m_strMsgAction2 & "</span><br><br></td></tr>" & "  <tr><td style='background-color:#336699' height='1' colspan='3'></td></tr>" & "  <tr><td colspan='3' align='center'><span id='bne:messages'></span></td></tr>" & "  <tr><td colspan='3' align='right'><span id=""BNE:CANCEL""><input type='button' value='" & sCloseText & "' onclick='javascript:return false;'></span></td></tr>" & "  <tr><td width='100%' align='left'><br><span style='font-family:Arial;color:#000000; font-size:9pt'>" & sCopyrightText & "</span></td></tr>" & "</table>"
End Function
Private Sub WebBrowser_StatusTextChange(ByVal l_sStatusText As String)
Dim l_sCallBack As String
l_sCallBack = getWindowStatusEvent(l_sStatusText)
Call runCallback(l_sCallBack)
End Sub
Private Function getWindowStatusEvent(ByVal statusText As String)
If statusText <> "" And statusText <> WINDOW_STATUS_DONE Then
If InStr(1, statusText, WINDOW_STATUS_EVENT & "=") Then
getWindowStatusEvent = UCase(Mid(statusText, 7))
Else
getWindowStatusEvent = ""
End If
End If
End Function
Private Function BneDocument_onclick() As Boolean
Dim curWnd As HTMLWindow2
Dim curElement As IHTMLElement
Dim elementName As String
Set curWnd = BneDocument.parentWindow
Set curElement = curWnd.event.srcElement
elementName = curElement.id
If m_Document_OnClick <> "" Then
Application.Run m_Document_OnClick
End If
If Application.ShowWindowsInTaskbar = True Then
Application.ShowWindowsInTaskbar = False
Application.ShowWindowsInTaskbar = True
End If
BneDocument_onclick = True
If InStr(elementName, "SubmitButton") > 0 Then
BneDocument_onclick = False
ElseIf Not curElement.parentElement Is Nothing Then
If Not IsNull(curElement.parentElement.getAttribute("onclick")) Then
If curElement.parentElement.getAttribute("onclick") <> "" Then
BneDocument_onclick = False
End If
End If
ElseIf Not IsNull(curElement.getAttribute("onclick")) Then
If curElement.getAttribute("onclick") <> "" Then
BneDocument_onclick = True
End If
End If
End Function
Public Sub setSheetRef(Sheet As Object)
Set m_SheetRef = Sheet
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim strCallBack As String
If CloseMode = vbFormControlMenu Then
strCallBack = getEventCallBack("BNE:BROWSERCLOSE")
If Len(strCallBack) > 0 Then
removeEventCallBack "BNE:BROWSERCLOSE"
Application.Run strCallBack
Cancel = 1
Else
Set WebBrowser = Nothing
Set BneDocument = Nothing
Set m_Document = Nothing
Set m_EventCallBacks = Nothing
Set m_SheetRef = Nothing
End If
End If
End Sub

Attribute VB_Name = "BneDownloadXSD"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Option Explicit
Option Base 1
Private oXSDDoc As Object
Private oXMLDoc As Object
Private oColElements As Collection
Private iPointer As Integer
Private sErrorList() As String
Public Property Set XSDNode(oXSDSection As Object)
Set oXSDDoc = oXSDSection
Call ProcessXSD
End Property
Public Property Set XMLNode(oXMLSection As Object)
Dim oElement As BneXSDElement
Set oXMLDoc = oXMLSection
If oXMLDoc.ChildNodes.Length > 0 Then
Call ProcessDataNode(oXMLDoc)
End If
End Property
Public Property Get VBADataType(sKey As String) As String
On Error GoTo ErrorHandler
VBADataType = oColElements(sKey).VBADataType
Exit Property
ErrorHandler:
VBADataType = "string"
End Property
Public Property Get InterfaceName(sKey As String) As String
On Error GoTo ErrorHandler
InterfaceName = oColElements(sKey).InterfaceName
Exit Property
ErrorHandler:
InterfaceName = ""
End Property
Public Property Get ColumnName(sKey As String) As String
On Error GoTo ErrorHandler
ColumnName = oColElements(sKey).ColumnName
Exit Property
ErrorHandler:
ColumnName = ""
End Property
Public Property Get DataArray(sKey As String)
Dim aEmpty() As String
On Error GoTo ErrorHandler
DataArray = oColElements(sKey).DataArray
Exit Property
ErrorHandler:
DataArray = aEmpty
End Property
Public Property Get RowCount(sKey As String) As Long
On Error GoTo ErrorHandler
RowCount = oColElements(sKey).RowCount
Exit Property
ErrorHandler:
RowCount = 0
End Property
Public Property Get FirstKey() As String
On Error GoTo ErrorHandler
iPointer = 1
FirstKey = oColElements(iPointer).path & "/" & oColElements(iPointer).name
Exit Property
ErrorHandler:
FirstKey = ""
End Property
Public Property Get NextKey() As String
On Error GoTo ErrorHandler
iPointer = iPointer + 1
NextKey = oColElements(iPointer).path & "/" & oColElements(iPointer).name
Exit Property
ErrorHandler:
NextKey = ""
End Property
Public Property Get ErrorCount() As Integer
On Error GoTo ErrorHandler
ErrorCount = UBound(sErrorList)
Exit Property
ErrorHandler:
ErrorCount = 0
End Property
Public Property Get ErrorMessage(iNumber As Integer) As String
On Error GoTo ErrorHandler
ErrorMessage = sErrorList(iNumber)
Exit Property
ErrorHandler:
ErrorMessage = ""
End Property
Public Property Get ErrorMessages() As String
On Error GoTo ErrorHandler
ErrorMessages = Join(sErrorList, vbCrLf)
Exit Property
ErrorHandler:
ErrorMessages = ""
End Property
Public Sub ProcessData()
If oXMLDoc.ChildNodes.Length > 0 Then
Call ProcessDataNode(oXMLDoc)
End If
End Sub
Private Sub AddErrorToList(sMessage As String)
On Error GoTo ErrorHandler
ReDim Preserve sErrorList(UBound(sErrorList) + 1)
sErrorList(UBound(sErrorList)) = sMessage
Exit Sub
ErrorHandler:
ReDim sErrorList(1)
sErrorList(UBound(sErrorList)) = sMessage
End Sub
Private Sub ProcessXSD()
Dim oNode As Object
Dim sPath As String
Set oColElements = New Collection
Set oNode = oXSDDoc.SelectSingleNode("xsd:element")
Call ProcessType(oXSDDoc, oNode.Attributes.getNamedItem("name").text, oNode.Attributes.getNamedItem("type").text, sPath & "/" & oNode.Attributes.getNamedItem("name").text)
End Sub
Private Sub ProcessType(oNode As Object, sName As String, sType As String, sPath As String)
Dim oType         As Object
Dim oSequence     As Object
Dim oElement      As Object
Dim oXSDItem      As Object
Dim sVBAType      As String
Dim sInterface    As String
Dim sColumn       As String
Dim aTemp         As Variant
On Error GoTo ErrorHandler
Set oType = oXSDDoc.SelectSingleNode("xsd:complexType[@name='" & sType & "']")
Set oSequence = oType.SelectSingleNode("xsd:sequence")
For Each oElement In oSequence.ChildNodes
Set oXSDItem = New BneXSDElement
sVBAType = ConvertXSDTypeToVBAType(oElement.Attributes.getNamedItem("type").text)
aTemp = Split(oElement.Attributes.getNamedItem("name").text, ".")
If IsArray(aTemp) Then
If UBound(aTemp) = 1 Then
sInterface = aTemp(0)
sColumn = aTemp(1)
oXSDItem.setAttributes oElement.Attributes.getNamedItem("name").text, sPath, oElement.Attributes.getNamedItem("type").text, sVBAType, sInterface, sColumn
oColElements.add oXSDItem, sPath & "/" & oElement.Attributes.getNamedItem("name").text
End If
End If
Call ProcessType(oType, oElement.Attributes.getNamedItem("name").text, oElement.Attributes.getNamedItem("type").text, sPath & "/" & oElement.Attributes.getNamedItem("name").text)
Next
ErrorHandler:
End Sub
Private Function ConvertXSDTypeToVBAType(sXSDType As String) As String
Select Case sXSDType
Case "xsd:string"
ConvertXSDTypeToVBAType = "string"
Case "xsd:date"
ConvertXSDTypeToVBAType = "date"
Case "xsd:datetime"
ConvertXSDTypeToVBAType = "datetime"
Case "xsd:datetimetz"
ConvertXSDTypeToVBAType = "datetime"
Case "xsd:double"
ConvertXSDTypeToVBAType = "double"
Case "xsd:integer"
ConvertXSDTypeToVBAType = "integer"
Case Else
ConvertXSDTypeToVBAType = "string"
End Select
End Function
Private Sub ProcessDataNode(oCurrentNode As Object)
Dim oDataRows As Object
Dim oRow As Object
Dim oChild As Object
Dim nIndex As Long
Dim sMsg As String
Set oDataRows = oCurrentNode.SelectNodes("DataRow")
On Error GoTo ErrorHandle_CurrentNode
For Each oRow In oDataRows
nIndex = CLng(oRow.getAttribute("id"))
For Each oChild In oRow.ChildNodes
DoEvents
Call oColElements("/Data/DataRow/" & oChild.nodeName).setDataItem(nIndex, oChild.nodeTypedValue)
Next
ErrorHandle_CurrentNode:
If Err <> 0 Then
sMsg = "Error &VB_ERR_NUM: &VB_ERR_DESCRIPTION while processing download for column &DATA_NODE_NAME."
sMsg = Replace(sMsg, "&DATA_NODE_NAME", oChild.nodeName)
sMsg = Replace(sMsg, "&VB_ERR_NUM ", Err.Number)
sMsg = Replace(sMsg, "&VB_ERR_DESCRIPTION", Err.Description)
AddErrorToList (sMsg)
End If
Next
End Sub

Attribute VB_Name = "BneImageProperty"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Private m_strImageId As String
Private m_strImageURL As String

Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
Public Property Let imageId(strImageId As String)
On Error Resume Next
m_strImageId = strImageId
End Property
Public Property Get imageId() As String
On Error Resume Next
imageId = m_strImageId
End Property
Public Property Let imageURL(strImageURL As String)
On Error Resume Next
m_strImageURL = strImageURL
End Property
Public Property Get imageURL() As String
On Error Resume Next
imageURL = m_strImageURL
End Property

Attribute VB_Name = "BneLayout"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False

Option Explicit
Option Base 1
Private m_objSheet As Worksheet
Private m_clsLayout As BneLayoutBlock
Private m_clsStyleSheet As BneStyleSheet
Private m_blnReadOnly As Boolean
Private m_layoutImage As String
Private m_colAllBlocks As Collection
Private Sub Class_Initialize_0(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_operating_unit As New BneLayoutColumn
clsp_operating_unit.isInterfaceColumn = True
clsp_operating_unit.ColumnName = "P_OPERATING_UNIT"
clsp_operating_unit.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_operating_unit.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_OPERATING_UNIT"
clsp_operating_unit.Prompt = "OPERATING_UNIT"
clsp_operating_unit.HintText = "* Text"
clsp_operating_unit.Order = 1
clsp_operating_unit.DataType = 2
clsp_operating_unit.ColumnWidth = 15
clsp_operating_unit.DefaultValue = "IT_RHIAG_IA"
clsp_operating_unit.DefaultType = "SQL"
clsp_operating_unit.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_operating_unit.HintStyle = m_clsStyleSheet.getStyle("")
clsp_operating_unit.ReadOnly = False
clsp_operating_unit.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_operating_unit.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_operating_unit.TotalColumn = False
clsp_operating_unit.ColumnFormat = "@"
clsp_operating_unit.ValType = "TABLE"
clsp_operating_unit.PopListNamedRange = "PopCache_XXPO_MASS_CPA_UPLOAD_PRC_P_OPERATING_UNIT"
clsBlock1.addLayoutColumn clsp_operating_unit
End Sub
Private Sub Class_Initialize_1(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsbne_upload As New BneLayoutColumn
clsbne_upload.isInterfaceColumn = False
clsbne_upload.ColumnName = "BNE_UPLOAD"
clsbne_upload.InterfaceColName = "BNE_UPLOAD"
clsbne_upload.Prompt = "Upl"
clsbne_upload.Order = 1
clsbne_upload.DataType = 0
clsbne_upload.ColumnWidth = 3
clsbne_upload.DefaultValue = ""
clsbne_upload.DefaultType = ""
clsbne_upload.PromptStyle = m_clsStyleSheet.getStyle("")
clsbne_upload.HintStyle = m_clsStyleSheet.getStyle("")
clsbne_upload.ReadOnly = False
clsbne_upload.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsbne_upload.ColumnStyle = m_clsStyleSheet.getStyle("ICON_STYLE")
clsbne_upload.TotalColumn = False
clsbne_upload.ColumnFormat = "General"
clsbne_upload.ValType = ""
clsbne_upload.GroupChildColumns = True
clsBlock2.addLayoutColumn clsbne_upload
End Sub
Private Sub Class_Initialize_2(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_action As New BneLayoutColumn
clsp_action.isInterfaceColumn = True
clsp_action.ColumnName = "P_ACTION"
clsp_action.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_action.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_ACTION"
clsp_action.Prompt = "Action"
clsp_action.HintText = "* Text"
clsp_action.Order = 2
clsp_action.DataType = 2
clsp_action.ColumnWidth = 15
clsp_action.DefaultValue = ""
clsp_action.DefaultType = ""
clsp_action.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_action.HintStyle = m_clsStyleSheet.getStyle("")
clsp_action.ReadOnly = False
clsp_action.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_action.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_action.TotalColumn = False
clsp_action.ColumnFormat = "@"
clsp_action.ValType = "TABLE"
clsp_action.PopListNamedRange = "PopCache_XXPO_MASS_CPA_UPLOAD_PRC_P_ACTION"
clsBlock2.addLayoutColumn clsp_action
End Sub
Private Sub Class_Initialize_3(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_cpa_number As New BneLayoutColumn
clsp_cpa_number.isInterfaceColumn = True
clsp_cpa_number.ColumnName = "P_CPA_NUMBER"
clsp_cpa_number.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_cpa_number.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_CPA_NUMBER"
clsp_cpa_number.Prompt = "CPA Number"
clsp_cpa_number.HintText = "* Text"
clsp_cpa_number.Order = 3
clsp_cpa_number.DataType = 2
clsp_cpa_number.ColumnWidth = 15
clsp_cpa_number.DefaultValue = ""
clsp_cpa_number.DefaultType = ""
clsp_cpa_number.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_cpa_number.HintStyle = m_clsStyleSheet.getStyle("")
clsp_cpa_number.ReadOnly = False
clsp_cpa_number.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_cpa_number.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_cpa_number.TotalColumn = False
clsp_cpa_number.ColumnFormat = "@"
clsp_cpa_number.ValType = ""
clsBlock2.addLayoutColumn clsp_cpa_number
End Sub
Private Sub Class_Initialize_4(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_supplier_number As New BneLayoutColumn
clsp_supplier_number.isInterfaceColumn = True
clsp_supplier_number.ColumnName = "P_SUPPLIER_NUMBER"
clsp_supplier_number.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_supplier_number.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_SUPPLIER_NUMBER"
clsp_supplier_number.Prompt = "Supplier No."
clsp_supplier_number.HintText = "Either Supplier No. OR Name is Mandatory"
clsp_supplier_number.Order = 4
clsp_supplier_number.DataType = 2
clsp_supplier_number.ColumnWidth = 15
clsp_supplier_number.DefaultValue = ""
clsp_supplier_number.DefaultType = ""
clsp_supplier_number.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_number.HintStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_number.ReadOnly = False
clsp_supplier_number.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_supplier_number.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_number.TotalColumn = False
clsp_supplier_number.ColumnFormat = "@"
clsp_supplier_number.ValType = ""
clsBlock2.addLayoutColumn clsp_supplier_number
End Sub
Private Sub Class_Initialize_5(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_supplier_name As New BneLayoutColumn
clsp_supplier_name.isInterfaceColumn = True
clsp_supplier_name.ColumnName = "P_SUPPLIER_NAME"
clsp_supplier_name.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_supplier_name.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_SUPPLIER_NAME"
clsp_supplier_name.Prompt = "Supplier Name"
clsp_supplier_name.HintText = "Text"
clsp_supplier_name.Order = 5
clsp_supplier_name.DataType = 2
clsp_supplier_name.ColumnWidth = 15
clsp_supplier_name.DefaultValue = ""
clsp_supplier_name.DefaultType = ""
clsp_supplier_name.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_name.HintStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_name.ReadOnly = False
clsp_supplier_name.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_supplier_name.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_name.TotalColumn = False
clsp_supplier_name.ColumnFormat = "@"
clsp_supplier_name.ValType = ""
clsBlock2.addLayoutColumn clsp_supplier_name
End Sub
Private Sub Class_Initialize_6(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_supplier_site As New BneLayoutColumn
clsp_supplier_site.isInterfaceColumn = True
clsp_supplier_site.ColumnName = "P_SUPPLIER_SITE"
clsp_supplier_site.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_supplier_site.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_SUPPLIER_SITE"
clsp_supplier_site.Prompt = "Supplier Site"
clsp_supplier_site.HintText = "* Text"
clsp_supplier_site.Order = 6
clsp_supplier_site.DataType = 2
clsp_supplier_site.ColumnWidth = 15
clsp_supplier_site.DefaultValue = ""
clsp_supplier_site.DefaultType = ""
clsp_supplier_site.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_site.HintStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_site.ReadOnly = False
clsp_supplier_site.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_supplier_site.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_site.TotalColumn = False
clsp_supplier_site.ColumnFormat = "@"
clsp_supplier_site.ValType = ""
clsBlock2.addLayoutColumn clsp_supplier_site
End Sub
Private Sub Class_Initialize_7(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_cpa_line_no As New BneLayoutColumn
clsp_cpa_line_no.isInterfaceColumn = True
clsp_cpa_line_no.ColumnName = "P_CPA_LINE_NO"
clsp_cpa_line_no.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_cpa_line_no.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_CPA_LINE_NO"
clsp_cpa_line_no.Prompt = "CPA Line No."
clsp_cpa_line_no.HintText = "Number"
clsp_cpa_line_no.Order = 7
clsp_cpa_line_no.DataType = 1
clsp_cpa_line_no.ColumnWidth = 15
clsp_cpa_line_no.DefaultValue = ""
clsp_cpa_line_no.DefaultType = ""
clsp_cpa_line_no.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_cpa_line_no.HintStyle = m_clsStyleSheet.getStyle("")
clsp_cpa_line_no.ReadOnly = False
clsp_cpa_line_no.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_cpa_line_no.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_cpa_line_no.TotalColumn = False
clsp_cpa_line_no.ColumnFormat = "General"
clsp_cpa_line_no.ValType = ""
clsBlock2.addLayoutColumn clsp_cpa_line_no
End Sub
Private Sub Class_Initialize_8(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_oracle_item As New BneLayoutColumn
clsp_oracle_item.isInterfaceColumn = True
clsp_oracle_item.ColumnName = "P_ORACLE_ITEM"
clsp_oracle_item.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_oracle_item.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_ORACLE_ITEM"
clsp_oracle_item.Prompt = "Oracle Item"
clsp_oracle_item.HintText = "* Text"
clsp_oracle_item.Order = 8
clsp_oracle_item.DataType = 2
clsp_oracle_item.ColumnWidth = 15
clsp_oracle_item.DefaultValue = ""
clsp_oracle_item.DefaultType = ""
clsp_oracle_item.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_oracle_item.HintStyle = m_clsStyleSheet.getStyle("")
clsp_oracle_item.ReadOnly = False
clsp_oracle_item.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_oracle_item.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_oracle_item.TotalColumn = False
clsp_oracle_item.ColumnFormat = "@"
clsp_oracle_item.ValType = ""
clsBlock2.addLayoutColumn clsp_oracle_item
End Sub
Private Sub Class_Initialize_9(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_supplier_item As New BneLayoutColumn
clsp_supplier_item.isInterfaceColumn = True
clsp_supplier_item.ColumnName = "P_SUPPLIER_ITEM"
clsp_supplier_item.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_supplier_item.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_SUPPLIER_ITEM"
clsp_supplier_item.Prompt = "Supplier Item"
clsp_supplier_item.HintText = "Text"
clsp_supplier_item.Order = 9
clsp_supplier_item.DataType = 2
clsp_supplier_item.ColumnWidth = 15
clsp_supplier_item.DefaultValue = ""
clsp_supplier_item.DefaultType = ""
clsp_supplier_item.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_item.HintStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_item.ReadOnly = False
clsp_supplier_item.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_supplier_item.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_supplier_item.TotalColumn = False
clsp_supplier_item.ColumnFormat = "@"
clsp_supplier_item.ValType = ""
clsBlock2.addLayoutColumn clsp_supplier_item
End Sub
Private Sub Class_Initialize_10(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_valid_frm_dte As New BneLayoutColumn
clsp_valid_frm_dte.isInterfaceColumn = True
clsp_valid_frm_dte.ColumnName = "P_VALID_FRM_DTE"
clsp_valid_frm_dte.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_valid_frm_dte.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_VALID_FRM_DTE"
clsp_valid_frm_dte.Prompt = "Valid From Date"
clsp_valid_frm_dte.HintText = "* Mandatory for Line Addition"
clsp_valid_frm_dte.Order = 10
clsp_valid_frm_dte.DataType = 3
clsp_valid_frm_dte.ColumnWidth = 15
clsp_valid_frm_dte.DefaultValue = ""
clsp_valid_frm_dte.DefaultType = ""
clsp_valid_frm_dte.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_valid_frm_dte.HintStyle = m_clsStyleSheet.getStyle("")
clsp_valid_frm_dte.ReadOnly = False
clsp_valid_frm_dte.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_valid_frm_dte.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_valid_frm_dte.TotalColumn = False
clsp_valid_frm_dte.ColumnFormat = "dd-MMM-yyyy"
clsp_valid_frm_dte.ValType = ""
clsBlock2.addLayoutColumn clsp_valid_frm_dte
End Sub
Private Sub Class_Initialize_11(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_valid_to_dte As New BneLayoutColumn
clsp_valid_to_dte.isInterfaceColumn = True
clsp_valid_to_dte.ColumnName = "P_VALID_TO_DTE"
clsp_valid_to_dte.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_valid_to_dte.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_VALID_TO_DTE"
clsp_valid_to_dte.Prompt = "Valid To Date"
clsp_valid_to_dte.HintText = "Date"
clsp_valid_to_dte.Order = 11
clsp_valid_to_dte.DataType = 3
clsp_valid_to_dte.ColumnWidth = 15
clsp_valid_to_dte.DefaultValue = ""
clsp_valid_to_dte.DefaultType = ""
clsp_valid_to_dte.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_valid_to_dte.HintStyle = m_clsStyleSheet.getStyle("")
clsp_valid_to_dte.ReadOnly = False
clsp_valid_to_dte.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_valid_to_dte.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_valid_to_dte.TotalColumn = False
clsp_valid_to_dte.ColumnFormat = "dd-MMM-yyyy"
clsp_valid_to_dte.ValType = ""
clsBlock2.addLayoutColumn clsp_valid_to_dte
End Sub
Private Sub Class_Initialize_12(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_min_inv_level As New BneLayoutColumn
clsp_min_inv_level.isInterfaceColumn = True
clsp_min_inv_level.ColumnName = "P_MIN_INV_LEVEL"
clsp_min_inv_level.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_min_inv_level.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_MIN_INV_LEVEL"
clsp_min_inv_level.Prompt = "Min Inv Level"
clsp_min_inv_level.HintText = "Number"
clsp_min_inv_level.Order = 12
clsp_min_inv_level.DataType = 1
clsp_min_inv_level.ColumnWidth = 15
clsp_min_inv_level.DefaultValue = ""
clsp_min_inv_level.DefaultType = ""
clsp_min_inv_level.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_min_inv_level.HintStyle = m_clsStyleSheet.getStyle("")
clsp_min_inv_level.ReadOnly = False
clsp_min_inv_level.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_min_inv_level.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_min_inv_level.TotalColumn = False
clsp_min_inv_level.ColumnFormat = "General"
clsp_min_inv_level.ValType = ""
clsBlock2.addLayoutColumn clsp_min_inv_level
End Sub
Private Sub Class_Initialize_13(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_max_inv_level As New BneLayoutColumn
clsp_max_inv_level.isInterfaceColumn = True
clsp_max_inv_level.ColumnName = "P_MAX_INV_LEVEL"
clsp_max_inv_level.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_max_inv_level.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_MAX_INV_LEVEL"
clsp_max_inv_level.Prompt = "Max Inv Level"
clsp_max_inv_level.HintText = "Number"
clsp_max_inv_level.Order = 13
clsp_max_inv_level.DataType = 1
clsp_max_inv_level.ColumnWidth = 15
clsp_max_inv_level.DefaultValue = ""
clsp_max_inv_level.DefaultType = ""
clsp_max_inv_level.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_max_inv_level.HintStyle = m_clsStyleSheet.getStyle("")
clsp_max_inv_level.ReadOnly = False
clsp_max_inv_level.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_max_inv_level.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_max_inv_level.TotalColumn = False
clsp_max_inv_level.ColumnFormat = "General"
clsp_max_inv_level.ValType = ""
clsBlock2.addLayoutColumn clsp_max_inv_level
End Sub
Private Sub Class_Initialize_14(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_stock_level As New BneLayoutColumn
clsp_stock_level.isInterfaceColumn = True
clsp_stock_level.ColumnName = "P_STOCK_LEVEL"
clsp_stock_level.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_stock_level.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_STOCK_LEVEL"
clsp_stock_level.Prompt = "Stock Level"
clsp_stock_level.HintText = "Number"
clsp_stock_level.Order = 14
clsp_stock_level.DataType = 1
clsp_stock_level.ColumnWidth = 15
clsp_stock_level.DefaultValue = ""
clsp_stock_level.DefaultType = ""
clsp_stock_level.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_stock_level.HintStyle = m_clsStyleSheet.getStyle("")
clsp_stock_level.ReadOnly = False
clsp_stock_level.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_stock_level.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_stock_level.TotalColumn = False
clsp_stock_level.ColumnFormat = "General"
clsp_stock_level.ValType = ""
clsBlock2.addLayoutColumn clsp_stock_level
End Sub
Private Sub Class_Initialize_15(clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsp_max_agreed_qty As New BneLayoutColumn
clsp_max_agreed_qty.isInterfaceColumn = True
clsp_max_agreed_qty.ColumnName = "P_MAX_AGREED_QTY"
clsp_max_agreed_qty.InterfaceName = "XXPO_MASS_CPA_UPLOAD_PRC"
clsp_max_agreed_qty.InterfaceColName = "XXPO_MASS_CPA_UPLOAD_PRC_P_MAX_AGREED_QTY"
clsp_max_agreed_qty.Prompt = "Max Agreed QTY"
clsp_max_agreed_qty.HintText = "Number"
clsp_max_agreed_qty.Order = 15
clsp_max_agreed_qty.DataType = 1
clsp_max_agreed_qty.ColumnWidth = 15
clsp_max_agreed_qty.DefaultValue = ""
clsp_max_agreed_qty.DefaultType = ""
clsp_max_agreed_qty.PromptStyle = m_clsStyleSheet.getStyle("")
clsp_max_agreed_qty.HintStyle = m_clsStyleSheet.getStyle("")
clsp_max_agreed_qty.ReadOnly = False
clsp_max_agreed_qty.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsp_max_agreed_qty.ColumnStyle = m_clsStyleSheet.getStyle("")
clsp_max_agreed_qty.TotalColumn = False
clsp_max_agreed_qty.ColumnFormat = "General"
clsp_max_agreed_qty.ValType = ""
clsBlock2.addLayoutColumn clsp_max_agreed_qty
End Sub
Private Sub Class_Initialize_16_0(clsmessages As BneLayoutColumn, clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsbne_messages_lamp As New BneLayoutColumn
clsbne_messages_lamp.isInterfaceColumn = False
clsbne_messages_lamp.ColumnName = "BNE_MESSAGES_LAMP"
clsbne_messages_lamp.InterfaceColName = "BNE_MESSAGES_LAMP"
clsbne_messages_lamp.Order = 1
clsbne_messages_lamp.DataType = 0
clsbne_messages_lamp.ColumnWidth = 3
clsbne_messages_lamp.DefaultValue = ""
clsbne_messages_lamp.DefaultType = ""
clsbne_messages_lamp.PromptStyle = m_clsStyleSheet.getStyle("")
clsbne_messages_lamp.HintStyle = m_clsStyleSheet.getStyle("")
clsbne_messages_lamp.ReadOnly = False
clsbne_messages_lamp.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsbne_messages_lamp.ColumnStyle = m_clsStyleSheet.getStyle("ICON_STYLE")
clsbne_messages_lamp.TotalColumn = False
clsbne_messages_lamp.ColumnFormat = "General"
clsbne_messages_lamp.ValType = ""
clsbne_messages_lamp.GroupChildColumns = True
clsmessages.addChildColumn clsbne_messages_lamp
End Sub
Private Sub Class_Initialize_16_1(clsmessages As BneLayoutColumn, clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsbne_messages_hidden As New BneLayoutColumn
clsbne_messages_hidden.isInterfaceColumn = False
clsbne_messages_hidden.ColumnName = "BNE_MESSAGES_HIDDEN"
clsbne_messages_hidden.InterfaceColName = "BNE_MESSAGES_HIDDEN"
clsbne_messages_hidden.Order = 2
clsbne_messages_hidden.DataType = 0
clsbne_messages_hidden.ColumnWidth = 0
clsbne_messages_hidden.DefaultValue = ""
clsbne_messages_hidden.DefaultType = ""
clsbne_messages_hidden.PromptStyle = m_clsStyleSheet.getStyle("")
clsbne_messages_hidden.HintStyle = m_clsStyleSheet.getStyle("")
clsbne_messages_hidden.ReadOnly = False
clsbne_messages_hidden.ReadOnlyStyle = m_clsStyleSheet.getStyle("READ_ONLY")
clsbne_messages_hidden.ColumnStyle = m_clsStyleSheet.getStyle("")
clsbne_messages_hidden.TotalColumn = False
clsbne_messages_hidden.ColumnFormat = "General"
clsbne_messages_hidden.ValType = ""
clsbne_messages_hidden.GroupChildColumns = True
clsmessages.addChildColumn clsbne_messages_hidden
End Sub
Private Sub Class_Initialize_16_2(clsmessages As BneLayoutColumn, clsBlock1 As BneLayoutBlock, clsBlock2 As BneLayoutBlock)
Dim clsbne_messages As New BneLayoutColumn
clsbne_messages.isInterfaceColumn = False
clsbne_messages.ColumnName = "BNE_MESSAGES"
clsbne_messages.InterfaceColName = "