Framework EDI Reference. Methods and Properties
ediAcknowledgment. Get997Transport

Returns the transports object associated with the ASC/X12 Functional Acknowledgment.

Syntax:

• Set <oTransports> = object.Get997Transport

Returns:

If successful an object of type FREDI.ediTransports is returned, otherwise an empty object is returned.

Controlling Agency:

• X12

Remarks:

The transports object is returned only if the ASC/X12 Functional Acknowledgment has been enabled.

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

Set oTransports = oAck.Get997Transport

' Send Acknowledgment using FTP
Set oTransport = oTransports.CreateTransport
oTransport.SetFTP ' FTP
oTransport.Address = "www.domain.com"
oTransport.Password = "password"
oTransport.User = "username"
oTransport.TargetPath = "targetpath"

oTransport.Send sAckfile