Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r29059 -r32538
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 29059)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 32538)
@@ -602,6 +602,7 @@
 Embedded object RecuPak invullen</Description>
 <FormalSpec>KLNr:%String,BONNr:%String,FactSoort:%String="F"</FormalSpec>
 <Implementation><![CDATA[
+	#dim AantalGeleverd,KortTxt,RVPPRNr,RecVP,Saldo,SaldoOp,SortKey
 	Quit:('$D(^KUL(KLNr,FactSoort,BONNr,"VP")))
 	;New RVPPRNr,SortKey,RecVP
 	Set ..RecuPak=""
@@ -618,7 +619,11 @@
 	. Set AantalGeleverd=$P(RecVP,"\",3)
 	. Set:(KLNr=4628) Saldo=-Saldo
 	. Set KortTxt=$P(^KPR(RVPPRNr,0),"\",1)
-	. Do brpAddNewRecuPak(KortTxt,SaldoOp,AantalGeleverd,Saldo)
+	. 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"))))
+	}
 	Quit
 brpAddNewRecuPak(KortTxt,SaldoOp,AantalGeleverd,Saldo)
 	Set pxRVP=##class(pxLevRecuPak).%New()   ; BL.Flow.Proxy.pxLevRecuPak