Sets or gets the flags for receiving.
Syntax:
<lFlags> = object.ReceiveFlags
object.ReceiveFlags = <lFlags>
Example:
Dim oEdiDoc As Fredi.ediDocument
Dim oTransports As Fredi.ediTransports
Dim oTransport As Fredi.ediTransport
Dim oHttpCfg As Fredi.ediHttpCfg
Dim lFlags As Long
' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument
' Get transports object
Set oTransports = oEdiDoc.GetTransports
' Create single transport object for receiving document.
Set oTransport = oTransports.CreateTransport
' Get the HTTP config object.
Set oHttpCfg = oTransport.GetHttpCfg
' Get the flags
lFlags = oHttpCfg.ReceiveFlags
' Change flags for receiving
oHttpCfg.ReceiveFlags = INTERNET_FLAG_CACHE_IF_NET_FAIL
' Set required parameters for the download.
oTransport.SetHTTP
oTransport.User = "Username"
oTransport.Password = "Password"
oTransport.Address = "255.255.255.1"
oTransport.TargetPath = "/test_folder/"
' Receive file.
oTransport.Receive "SampleEdiX12_850.X12"
oEdiDoc.Save App.Path & "\Output.Txt"
MsgBox "Done"