Framework EDI Reference. Methods and Properties
ediAcknowledgment. GetFirstTA1DataSegment

Returns the first Data Segment in the Interchange Acknowledgment.

Syntax:

Returns

Object of type FREDI.ediDataSegment.

Controlling Agency:

Example:

Set oEdiDoc = New Fredi.ediDocument
Set oAckTA1 = oEdiDoc.GetAcknowledgment
oAckTA1.EnableInterchangeAcknowledgment = True

sEdiFile = "850.TXT"
sAckfile = "TA1_850.TXT"

oEdiDoc.LoadSchema sPath & "850.SEF", 0

'Create TA1 acknowledgment when EDI file gets loaded
oEdiDoc.LoadEdi sPath & sEdiFile

'modify ISA segment of TA1
Set oSegment = oAckTA1.GetFirstTA1DataSegment
oSegment.DataElementValue("I08") = "010101" ' Change date
oSegment.DataElementValue("I09") = "110130" ' Change time

oTransports.Send sAckfile