Framework EDI Reference. Methods and Properties
ediInterconnectMailbag. GetSchema

Gets the schema that was used as a guideline to verify the syntax of the Interconnect Mailbag, or to generate the Interconnect Mailbag entity.

Syntax:

• Set <oSchema> = object.GetSchema

Returns

Returns an object of type FREDI.ediSchema.

Controlling Agency:

• ASC/X12

Remarks

The Interconnect Mailbag Control Header does not contain any version information so any schema’s guideline will be used to process the data segment. Please see additional information on how Framework EDI selects a schema.

Example

Dim oEdiDoc As ediDocument
Dim oSchema As ediSchema
Dim oSchema2 As ediSchema
Dim oInterconnect As ediInterconnectMailbag
Dim sEdiFile As String
Dim sSefFile As String

sEdiFile = App.Path & "\850.X12"
sSefFile = App.Path & "\850.SEF"

Set oEdiDoc = New ediDocument
Set oSchema = oEdiDoc.LoadSchema(sSefFile, 0)

oEdiDoc.LoadEdi sEdiFile

' Get Interconnect Mailbag from document
Set oInterconnect = oEdiDoc.FirstInterconnectMailbag

' Get schema object of Interconnect Mailbag
Set oSchema2 = oInterconnect.GetSchema
Debug.Print "Schema Handle: " & oSchema2.Handle
Debug.Print "Schema Version: " & oSchema2.Version
Debug.Print "Schema Industry: " & oSchema2.Industry
Debug.Print "Schema Version: " & oSchema2.StandardVersion