Framework EDI Reference. Methods and Properties
ediAcknowledgment. GetFirst997DataSegment

Returns the first Data Segment in the Functional Acknowledgment.

Syntax:

Returns

Object of type FREDI.ediDataSegment.

Controlling Agency:

Example:

Set oEdiDoc = New Fredi.ediDocument
Set oAck = oEdiDoc.GetAcknowledgment

sEdiFile = "850.TXT"
sAckfile = "997_850.TXT"

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

'Create acknowldgment when EDI file gets loaded
oAck.EnableFunctionalAcknowledgment = True
oAck.AcceptSetWithErrors = True
oAck.AcceptGroupWithErrors = True

oEdiDoc.LoadEdi sPath & sEdiFile

'modify ISA segment of 997
Set oSegment = oAck.GetFirst997DataSegment
oSegment.DataElementValue("I08") = "010101" ' Change date
oSegment.DataElementValue("I09") = "110130" ' Change time

oTransports.Send sAckfile