VB code snippet for using the generalCreditResponseManager


Private Sub doPrint_Click()

On Error GoTo Err_Trap

Dim bStatus As Boolean

'### GeneralCreditResponseManager interface
Dim generalCreditResponseManagerEx As GENERALCREDITRESPONSEMANAGER450Lib.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 GENERALCREDITRESPONSEMANAGER450Lib.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