26. Juni 2013 09:05
ExportGenJnlLines(VAR DestinationFolder : Text)
FileName := COPYSTR(FORMAT(TODAY),7,2);
FileName += COPYSTR(FORMAT(TODAY),4,2);
FileName += COPYSTR(FORMAT(TODAY),1,2);
FileName += '-GenJnlLines.xml';
TempXMLFile.CREATE(TEMPORARYPATH + FileName);
TempXMLFile.CREATEOUTSTREAM(Outstream);
ImportExportGenJnlLines.SETDESTINATION(Outstream);
ImportExportGenJnlLines.EXPORT;
IF COPYSTR(DestinationFolder, STRLEN(DestinationFolder), 1) <> '\' THEN
FileManagement.DownloadToFile(TempXMLFile.NAME,DestinationFolder + '\' + FileName) //ERROR
ELSE
FileManagement.DownloadToFile(TempXMLFile.NAME,DestinationFolder + FileName); //ERROR
TempXMLFile.CLOSE;
26. Juni 2013 09:26
TempXMLFile.CREATEINSTREAM(Instream);
TempBlob.Blob.CREATEOUTSTREAM(OutStr);
MyXMLport.SETDESTINATION(OutStr);
MyXMLport.SETTABLEVIEW(MyRec);
IF MyXMLport.EXPORT THEN BEGIN
ServerFileName := FileMgt.ServerTempFileName(...);
TempBlob.Blob.EXPORT(ServerFileName);
FileMgt.DownloadToFile(ServerFileName,ClientFileName);
END;
26. Juni 2013 09:45
Natalie hat geschrieben:Wenn ich mir zum Vergleich die Funktion BLOBExport der Codeunit 419 ansehe - müsste es dann nicht bei dirheißen?
- Code:
TempXMLFile.CREATEINSTREAM(Instream);
PS:
So könnte es auch gehen, hab ich woanders gefunden (TempBlob ist Tabelle 99008535):
- Code:
TempBlob.Blob.CREATEOUTSTREAM(OutStr);
MyXMLport.SETDESTINATION(OutStr);
MyXMLport.SETTABLEVIEW(MyRec);
IF MyXMLport.EXPORT THEN BEGIN
ServerFileName := FileMgt.ServerTempFileName(...);
TempBlob.Blob.EXPORT(ServerFileName);
FileMgt.DownloadToFile(ServerFileName,ClientFileName);
END;
Hier wird also der XMLport-Output in ein Blob-Feld geladen und von dort weiter verarbeitet.
26. Juni 2013 10:04
Sipa hat geschrieben:Bei diesem Snipplet muss ich zugeben es nicht ganz zu verstehen: Wofür der TempBlob.Blob.Export? Danach wird ja dennoch ein DownloadToFile ausgeführt wo mein Export nunmal in die Knie geht.
26. Juni 2013 11:42