XMLPorts Runner for Business Central SaaS

3 January 20193 January 2019 rstefanetti 0 Comments AL, Business Central, Demo, Dynamics 365 Business Central, Go-LIve Tool, MSDYN365BC, XMLPort

XMLPorts Runner for Business Central SaaS

i found this nice question on MS Community : “XML port and file Output” in BC SaaS https://community.dynamics.com/business/f/758/t/298825

“If you are working on the Business Central SaaS you cannot specify a network folder because the cloud doesn’t know that; In the cloud, you cannot automatically save a file in a local folder. What you can do is using a Cloud Storage provider and having a “shared folder” with an URL (for example, Onedrive).”

Other Solution\Workaround

In this case is possible to recall XMLPorts (Xmlport.Import and Xmlport.Export properties) using the STREAM objects (InStream and OutStream), in this way it is possible to pass the source files (input \ output) in the STREAMS and to pass it in execution to the XMLPort in order to be processed; very useful function for Dynamics 365 Business Central SaaS.

UPLOADINTOSTREAM and DOWNLOADFROMSTREAM

[Ok :=] UPLOADINTOSTREAM(DialogTitle, FromFolder, FromFilter, FromFile, NVInStream)

“Sends a file from Microsoft Dynamics NAV Server computer to the client computer.”

[Ok :=] DOWNLOADFROMSTREAM(VarInstream, DialogTitle, ToFolder, ToFilter, ToFile)

“Sends a file from the client computer to the corresponding Microsoft Dynamics NAV Server”

Procedures for STREAMS (for XMLPorts and Reports)

procedure RunXMLPortImport()

var

FileInstream: InStream;

FileName: Text;

begin

UploadIntoStream(”,”,”,FileName,FileInstream);

Xmlport.Import(Xmlport::MyXmlportImportCustomer,FileInStream);

Message(‘Import Done successfully.’);

end;

XMLPortExport

procedure RunXMLPortExport()

var

TempBlob: Record TempBlob;

FileName: Text;

MyOutStream: OutStream;

MyInStream: InStream;

outputFileName: Text;

begin

TempBlob.Blob.CREATEOUTSTREAM(MyOutStream);

Xmlport.Export(Xmlport::MyXmlportImportCustomer,MyOutStream);

TempBlob.Blob.CREATEINSTREAM(MyInStream);

outputFileName := ‘MyOutput.xml’;

DownloadFromStream(MyInStream,”,”,”,outputFileName); //Save in Download folder

Message(‘Export Done successfully.’);

end;

XMLPorts RUNNER – DEMO

I attached a code example (and an Ready-to-use APP) to launch XMLPorts from a page in a dynamic way, useful for Dynamics 365 Business Central SaaS.

Objects in APP: