Framework EDI Reference. Methods and Properties
ediAcknowledgment. GetEdiString

Gets the string containing the entire text of the X12 Functional Acknowledgment or EDIFACT Report Message.

Syntax:

• <sText> = object.GetEdiString

Returns

Returns a string representing the text of the acknowledgment.

Example

Dim oEdiDoc As ediDocument
Dim oSchema As ediSchema
Dim oAck As ediAcknowledgment
Dim sEdiFile As String
Dim sSefFile As String
Dim sOutputString As String

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

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

' Enabled functional acknowledgment
Set oAck = oEdiDoc.GetAcknowledgment
oAck.EnableFunctionalAcknowledgment = True

oEdiDoc.LoadEdi sEdiFile

' Get acknowledgment string
sOutputString = oAck.GetEdiString
Debug.Print sOutputString