generalCreditResponse  -  the module for fetching
and analyzing the general XML credit responses
generalCreditResponse
    API DocBrowser   ·  Revision history
    Download area
    FAQ
 
home
system
integrators
search the
site
 

validator
modules
invoice
modules
credit
modules
miscellaneous
modules
tools

  Design by TMR AG
  © by sumex1.net
 
 
Visual Basic code snippet for using the generalCreditResponseManager 


Private Sub doPrint_Click()

On Error GoTo Err_Trap

Dim bStatus As Boolean

'### GeneralCreditResponseManager interface
Dim generalCreditResponseManagerEx As GENERALCREDITRESPONSEMANAGER430Lib.GeneralCreditResponseManager
Set generalCreditResponseManagerEx = New GeneralCreditResponseManager

'### GeneralCreditResponse interface
Dim generalCreditResponseEx As GeneralCreditResponse


Dim strXML As String
Dim strXSD As String
Dim lVersion As Long
Dim strFromEAN As String
Dim strToEAN As String
Dim bIsEncrypted As YesNoType

'### input xml
strXML = "PhysioAcceptedTest.xml"

'### get info about the xml file
bStatus = generalCreditResponseManagerEx.GetXMLInfo(strXML, strXSD, strFromEAN, strToEAN, bIsEncrypted)
'### This is a demo so we don't care about encryption
If bStatus And Not bIsEncrypted Then
    '### load the xml file
    bStatus = generalCreditResponseManagerEx.LoadXML(strXML, "", "", generalCreditResponseEx)
    If bStatus Then
            Dim strUsedSchema As String
            Dim lTimestamp As Long
            '### print the response
           bStatus = generalCreditResponseManagerEx.Print("", enYes)
    End If

End If

'### relase resources
Set generalCreditResponseEx = Nothing
Set generalCreditResponseManagerEx = Nothing

Exit Sub

Err_Trap:
    MsgBox "Error: " & Err.Description, vbCritical, _
           "Opps! Error" & Str$(Err.Number)

'### relase resources
Set generalCreditResponseEx = Nothing
Set generalCreditResponseManagerEx = Nothing

End Sub
Private Sub doPrint_Click()

On Error GoTo Err_Trap

Dim bStatus As Boolean

'### GeneralCreditResponseManager interface
Dim generalCreditResponseManagerEx As GENERALCREDITRESPONSEMANAGER430Lib.GeneralCreditResponseManager
Set generalCreditResponseManagerEx = New GeneralCreditResponseManager

'### GeneralCreditResponse interface
Dim generalCreditResponseEx As GeneralCreditResponse


Dim strXML As String
Dim strXSD As String
Dim lVersion As Long
Dim strFromEAN As String
Dim strToEAN As String
Dim bIsEncrypted As YesNoType

'### input xml
strXML = "PhysioAcceptedTest.xml"

'### get info about the xml file
bStatus = generalCreditResponseManagerEx.GetXMLInfo(strXML, strXSD, strFromEAN, strToEAN, bIsEncrypted)
'### This is a demo so we don't care about encryption
If bStatus And Not bIsEncrypted Then
    '### load the xml file
    bStatus = generalCreditResponseManagerEx.LoadXML(strXML, "", "", generalCreditResponseEx)
    If bStatus Then
            Dim strUsedSchema As String
            Dim lTimestamp As Long
            '### print the response
           bStatus = generalCreditResponseManagerEx.Print("", enYes)
    End If

End If

'### relase resources
Set generalCreditResponseEx = Nothing
Set generalCreditResponseManagerEx = Nothing

Exit Sub

Err_Trap:
    MsgBox "Error: " & Err.Description, vbCritical, _
           "Opps! Error" & Str$(Err.Number)

'### relase resources
Set generalCreditResponseEx = Nothing
Set generalCreditResponseManagerEx = Nothing

End Sub