Framework EDI Reference. Methods and Properties
ediAcknowledgment. GetTA1Transport

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

Syntax:

• Set <oTransports> = object.GetTA1Transport

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 Interchange Acknowledgment has been enabled.

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

Set oTransports = oAck.GetTA1Transport

' 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