Index: AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml =================================================================== diff -u -r73898 -r74224 --- AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 73898) +++ AXimpl/Controle/OrdDiff/AX/DataBouwer.cls.xml (.../DataBouwer.cls.xml) (revision 74224) @@ -45,6 +45,7 @@ #dim ConfigId As %String = $$$Strip0(rs.Data("CONFIGID")) #dim SoprContractId As %String =$$$Strip0(rs.Data("ADUSOPRCONTRACTID")) #dim Leverdatum As %Date = $zdh(rs.Data("RECEIPTDATECONFIRMED"),3) ;CONFIRMEDDLV + #dim DocumentStatus As %String = +rs.Data("DOCUMENTSTATUS") #dim ItemId As %String =rs.Data("ITEMID") #dim ProductNr As %String = $$$Strip0(rs.Data("ADMINPRODUCTNUMMER")) @@ -57,7 +58,7 @@ } #dim ProductOrderLijn As AXimpl.Controle.Order.ProductOrderLijn - Set ProductOrderLijn=..GeefOrderLijn(KlantNr,OrderId,InventTransId) + Set ProductOrderLijn=..GeefOrderLijn(KlantNr,OrderId,InventTransId,DocumentStatus) Set AXData = ##class(AXimpl.Controle.OrdDiff.AX.OrderData).%New() Set AXData.ItemId = ItemId @@ -88,7 +89,7 @@ -KlantNr:%String,OrderId:%String,InventTransId:%String +KlantNr:%String,OrderId:%String,InventTransId:%String,DocumentStatus:%String AXimpl.Controle.OrdDiff.ProductOrderLijn