17. März 2022 18:34
// Alle Sicherheitsdatenblätter auf den FTP laden
Item.SETCURRENTKEY("No.");
Item.SETRANGE(Item."LQ Artikel", TRUE);
IF Item.FINDFIRST THEN BEGIN
CREATE(lvarFSO, FALSE, TRUE);
sftpClient := sftpClient.SFTPClient_WinSCP('sl1.web.irgendwas.ch',FALSE,'ftpertet@dfsdfsd.ch','oerwqerr','',0, FALSE);
REPEAT
IF lvarFSO.FileExists('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\Sicherheitsdatenblatt\' + Item."No." + '.pdf') THEN BEGIN
IF NOT lvarFSO.FolderExists('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie\') THEN
lvarFSO.CreateFolder('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie\');
// Temporär Artikel Nr file kopieren wegen Punkt
lvarFSO.CopyFile('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\Sicherheitsdatenblatt\' + Item."No." + '.pdf',
'\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie\' + cuExport.fktReplaceString(Item."No.",'.','-') + '.pdf');
// Web URL dürfen keine Punkte enthalten
sftpClient.UploadFile('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie\' + cuExport.fktReplaceString(Item."No.",'.','-') + '.pdf','/export/sdb/');
// Temporär Artikel Nr file wieder löschen (kopieren wegen Punkt)
lvarFSO.DeleteFile('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie\' + cuExport.fktReplaceString(Item."No.",'.','-') + '.pdf');
IF lvarFSO.FolderExists('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie') THEN
lvarFSO.DeleteFolder('\\vDC01\daten$\Daten\Artikel\' + Item."No." + '\OnlineShop\SicherheitsdatenblattKopie');
END;
UNTIL Item.NEXT = 0;
END;
17. März 2022 18:50
17. März 2022 18:52
18. März 2022 17:18