Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r51197 -r51878 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 51197) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 51878) @@ -703,9 +703,9 @@ . Set KortTxt=$P(^KPR(RVPPRNr,0),"\",1) . Do:(+Saldo'=0) brpAddNewRecuPak(KortTxt,SaldoOp,AantalGeleverd,Saldo) - If ($IsObject(..RecuPak)) && (..RecuPak.Count()=0) { - Do ##class(vhLib.Logger).%New().Warning("BL.Flow:BuildRecuPak","Er werd geen recupak-info aan de leveringsbon "_BONNr_" toegevoegd, terwijl de subnode 'VP' toch aanwezig."_$$$CRLF_"Mogelijk saldo = 0 (?)"_$$$CRLF_$$$ArrayTT($Name(^KUL(KLNr,FactSoort,BONNr,"VP")))) - } + ;If ($IsObject(..RecuPak)) && (..RecuPak.Count()=0) { + ; Do ##class(vhLib.Logger).%New().Warning("BL.Flow:BuildRecuPak","Er werd geen recupak-info aan de leveringsbon "_BONNr_" toegevoegd, terwijl de subnode 'VP' toch aanwezig."_$$$CRLF_"Mogelijk saldo = 0 (?)"_$$$CRLF_$$$ArrayTT($Name(^KUL(KLNr,FactSoort,BONNr,"VP")))) + ;} Quit brpAddNewRecuPak(KortTxt,SaldoOp,AantalGeleverd,Saldo) Set pxRVP=##class(pxLevRecuPak).%New() ; BL.Flow.Proxy.pxLevRecuPak