VendorVersion

PROPERTY - ReadOnly

Parent Object - HL7Vendor

Name: VendorVersion

Data Type: String

Description: Will contain the version of the currently opened Vendor definition.

Example:

Private Sub OpenAVendor()

Dim oVendor As New EasyHL7MC40.HL7Vendor

Dim strVendorID As String

With oVendor

.VendorPath = "C:\MyVendors"

strVendorID = .GetVendorID("Default","2.3")

If strVendorID.Length = 0 Then

Msgbox("Default 2.3 not installed in " & .VendorPath)

Exit Sub

End If

If Not .OpenVendor(strVendorID) Then

Msgbox(.LastError)

Exit Sub

End If

'VendorName is "Default", VendorVersion is "2.3"

Msgbox("Successfully Opened Vendor: " & .VendorName & " Version: " & .VendorVersion)

oVendor = Nothing

End With

End Sub

See Also: OpenVendor, GetVendorID