Returns the transports object associated with the UN/EDIFACT Service Report.
Syntax:
Returns
If successful an object of type FREDI.ediTransports is returned, otherwise an empty object is returned.
Controlling Agency:
Remarks:
The transports object is returned only if the UN/EDIFACT Service Report has been enabled.
Example:
Set oEdiDoc = New Fredi.ediDocument
Set oAck = oEdiDoc.GetAcknowledgment
oAck.EnableFunctionalAcknowledgment = True
oEdiDoc.SegmentTerminator = "'" & vbCrLf
oEdiDoc.ElementTerminator = "+"
oEdiDoc.CompositeTerminator = ":"
oEdiDoc.ReleaseIndicator = "?"
oEdiDoc.LoadEdi sInputPath & sEdiFile
Set oTransports = oAck.GetContrlTransport
' 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