Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r51128 -r51142
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51128)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 51142)
@@ -437,10 +437,11 @@
 	#dim CheckSumBon As %String = "" ;$$flbCalcCheckSumBon(KLNr,BONNr,FactSoort)
 
 	#dim RecuPak As %Boolean = ($D(^KUL(KLNr,FactSoort,BONNr,"VP")))&&('IsBlum)&&('IsVH)&&('IsOrgalux)&&('HeeftEigenHoofding)
+	#dim VerzendDatum As %String = ..GeefDatumOpBonGezet(BONNr,KLNr)
 	Set ..BONTYPE=BonType
 	Set ..DOCDATUM=$$EXTDATE^vhLib.DataTypes($H)
 	Set ..LEVERINGSNR=BONNr
-	Set ..LEVERINGSDATUM=$P(Rec,"\",2)
+	Set ..LEVERINGSDATUM=VerzendDatum   ; $P(Rec,"\",2)
 	Set ..CheckDigitLevNr=$$CalcCDigit6^vhRtn2(BONNr)
 	Set ..BarCodeBONNr=BONNr
 	
@@ -545,6 +546,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDatumOpBonGezet">
+<FormalSpec>LeveringBonId:%String,Klantnummer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:($$$Not(##class(Flow.OrderWMS.Hoofding).%ExistsId(LeveringBonId))) ""
+
+	#dim DatumOpBonGezet As %String = ""
+	#dim OrderWmsRec As %String = $G(^ORDW("D",LeveringBonId))                    ; ##class(Flow.OrderWMS.Hoofding).%OpenId(LeveringBonId) 
+	If (Klantnummer = $P(OrderWmsRec,"\",1)) {
+		Set DatumOpBonGezet = $$EXTDATE^vhLib.DataTypes($P(OrderWmsRec,"\",19))   ; OrderWms.TijdstipOpBonGezet   ; Deze property is niet gemapped, op piece 19.
+	}
+	Quit DatumOpBonGezet
+]]></Implementation>
+</Method>
+
 <Method name="AddDragerInfo">
 <FormalSpec><![CDATA[pxLijn,ORDNr,LRec,&Lookup,MogelijkeDragers:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>