TECH.RegisteredObject %ListOfDataTypes TECH.Config.ConfigMgr 1 DOM.PM.ProductAPI 1 vhLib.Logger 1 ProductApi:DOM.PM.ProductAPI="" 1 1 %Status 1 1 0 0 0 %String max 100 iteraties = 10 sec wachten . . Set IsCancelled=($G(^IPCom("D",Key,"P","DialogResult"))="CANCELLED") . . Set PRNr=$G(^IPCom("D",Key,"P","PRNR")) . . Set CanQuitECPWaitingLoop = ($G(^IPCom("D",Key,"P","ECP-READY")) = 1) ; (IsCancelled)||($length(PRNr)) . Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComEinde","Aantal loops : "_i_" ProductID : "_PRNr_" ECP-READY:"_$G(^IPCom("D",Key,"P","ECP-READY"),"???")) . Set Qty=$G(^IPCom("D",Key,"P","AANTAL")) Else Do . Set FP=2320 Write @F Read Qty . Set FP=2415 Write @F Read PRNr Kill ^IPCom("D",Key) Quit PRNr ]]> OrderID:%String,KLNr:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType 0 ProductID:%String,Aantal:%Integer,ProjectReferentie:%String="" ProductID:%String 0 %ListOfDataTypes ProductID:%String 1 1 ProductId:%String,Taal:%String="N" %String Voobeeld : Returnvalue: https://www-test.vanhoecke.be/nl/product/decrypt/iTYqj5vudgCR0rIEUYeM1A-- (DEV) ProductId:%String,Taal:%String="N" %String Bepaalt of de destination directory "inetpub-folder op FOP via netwerk-share" beschikbaar/bereikbaar is voor Kaderdeur pdf. 1 %Boolean ProductID:%String,IsKaderdeurProduct:%Boolean=0 %String ProductID:%String 1 FromPath:%String,ToPath:%String,IsDeleteOrigFileNeeded:%Boolean=1 1