psice
September 17, 2018, 10:29am
21
Hi aitorNAV,
If you read the link I post before, you can find this piece of code
PROCEDURE
DownloadToFile@13(ServerFileName@1002 : Text;ClientFileName@1000 : Text);
VAR
TempClientFileName@1001 : Text;
BEGIN
ValidateFileNames(ServerFileName,ClientFileName);
TempClientFileName := DownloadTempFile(ServerFileName);
MoveFile(TempClientFileName,ClientFileName);
END
Let’s give a try to this, and let me know if work correctly
Thank you [mention:97f6ed63e0014905a055e14ec8b51571:e9ed411860ed4f2ba0265705b8793d05] and [mention:74275055534c437ab13054c27a1ed5fb:e9ed411860ed4f2ba0265705b8793d05] for your tips, really appreciated!
I’ve finally solverd this issue like this:
lShipment.CALCFIELDS(Sticker);
lTmpBLob.Blob := lShipment.Sticker;
lTempServerFileName := lFileManagement.ServerTempFileName('.pdf');
lFileManagement.BLOBExportToServerFile(lTmpBLob,lTempServerFileName);
lFileManagement.DownloadToFile(lTempServerFileName, 'c:\XML\Pegatinas\'+lShipment."No."+'.pdf');
Thank you again!