Index: BL/EC/Data.cls.xml =================================================================== diff -u -r58697 -r73835 --- BL/EC/Data.cls.xml (.../Data.cls.xml) (revision 58697) +++ BL/EC/Data.cls.xml (.../Data.cls.xml) (revision 73835) @@ -3216,6 +3216,17 @@ #Define errCannotOpenDoc "PR:CannotOpenDoc" #Define errOfferteIsOngeldig "OfferteIsOngeldig" + #dim pxDocLink As BL.EC.pxDocLink + #dim DocURL As %String + #dim FileName As %String + #dim FileNameMetPlaceholder As %String + #dim FilePad As %String + #dim FilePadOnAxEC As %String + #dim DocumentPadOnAxEC As %String = ..#DocumentPadDocBase + #dim DocumentPadForTransfert As %String = "\\Notes01\FOP\TempDocForTransfertToAXEC" + #dim IsFileGemaaktVoorFTP As %Boolean = $$$False + #dim Status As %Status + Set DocURL="" ;Indien leeg, dan geeft de functie een fout terug Set Status=$$$OK ;Invullen bij fout (komt in de logging terecht=INTERNAL MESSAGE, gebruiker ziet deze boodschap NIET) Set InterfaceError="" ;Invullen als een andere boodschap dan de standaard boodschap aan de gebruiker moet getoond worden @@ -3263,8 +3274,18 @@ . If RecordType=$$$rtPDF Do . . Set FileNameMetPlaceholder=..GeefUniekeNaamVoorFTP(URLKey,"LEV"_DocNr,"pdf") . . Set FileName=..VervangPlaceholder(FileNameMetPlaceholder) - . . Set FilePad=$$FULLPAD^vhDEV(..#DocumentPadDocBase,FileName) + . . Set FilePad=$$FULLPAD^vhDEV(DocumentPadForTransfert,FileName) ; DocBaseV7 compatible : transfert via \\Notes01\FOP\ + . . Set FilePadOnAxEC = $$FULLPAD^vhDEV(DocumentPadOnAxEC,FileName) ; transfer to AxEC pad : \\cache01\AX.EC . . Set Status=##class(BL.Flow.Levering.Doc).RenderAndFileDoc(DocNr,.FilePad) + . . + . . // Tussenstap via \\Notes01\FOP : DocBaseV7-compatible + . . If $$$ISOK(Status) Do + . . . Set IsFileGemaaktVoorFTP = ##class(%File).Exists(FilePad) + . . . If IsFileGemaaktVoorFTP Do + . . . . Set Status = ##class(%File).Rename(FilePad, FilePadOnAxEC) + . . . Else Do + . . . . Set Status=$$$ERROR($$$GeneralError,"File '"_FilePad_"' is niet gevonden. Mogelijks een probleem bij FopTaak 'RenderAndFileDoc'. Check logging op de Fop/DocBase-server.") + . . . . If ($$$ISOK(Status)) Do . . . Do ..CopyFileFTP(..#DocumentPadCache,$$$vHisieDownloadIntern,FileName) . . . Set DocURL=$$$vHisieDownloadExtern_"/"_FileName