Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r51142 -r51197 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 51142) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 51197) @@ -441,7 +441,7 @@ Set ..BONTYPE=BonType Set ..DOCDATUM=$$EXTDATE^vhLib.DataTypes($H) Set ..LEVERINGSNR=BONNr - Set ..LEVERINGSDATUM=VerzendDatum ; $P(Rec,"\",2) + Set ..LEVERINGSDATUM=VerzendDatum Set ..CheckDigitLevNr=$$CalcCDigit6^vhRtn2(BONNr) Set ..BarCodeBONNr=BONNr @@ -553,9 +553,9 @@ 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) + #dim OrderWmsRec As %String = $G(^ORDW("D",LeveringBonId)) If (Klantnummer = $P(OrderWmsRec,"\",1)) { - Set DatumOpBonGezet = $$EXTDATE^vhLib.DataTypes($P(OrderWmsRec,"\",19)) ; OrderWms.TijdstipOpBonGezet ; Deze property is niet gemapped, op piece 19. + Set DatumOpBonGezet = $$EXTDATE^vhLib.DataTypes($P(OrderWmsRec,"\",19)) ; OrderWms.TijdstipOpBonGezet ; Deze property is niet gemapped in Flow.OrderWMS.Hoofding, dus rechtstreek via piece 19 ophalen. } Quit DatumOpBonGezet ]]>