Index: AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r49438 -r69259
--- AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 49438)
+++ AXimpl/Controle/OrdDiff/AX/AxOrderLijnIterator.cls.xml	(.../AxOrderLijnIterator.cls.xml)	(revision 69259)
@@ -41,27 +41,35 @@
 	Set SqlStatement = "Select salesLine.SALESID,salesLine.CUSTACCOUNT,salesline.INVENTTRANSID,salesline.ITEMID,salesline.CONFIRMEDDLV,salesline.RECEIPTDATECONFIRMED,salesline.QTYORDERED"
 	_"  ,isnull(( select -sum(qty) from inventtrans where INVENTTRANSORIGIN.RECID = inventtrans.INVENTTRANSORIGIN and INVENTTRANS.STATUSISSUE = 3 and "
 	_"            inventtrans.STATUSRECEIPT = 0 and inventtrans.DATAAREAID = INVENTTRANSORIGIN.DATAAREAID and inventtrans.PARTITION = INVENTTRANSORIGIN.PARTITION),0) as GEPICKTEHOEVEELHEID"
-	_"  ,salesline.REMAINSALESPHYSICAL as OPENSTAANDEHOEVEELHEID,ADMINPRODUCTNUMMER "
-	_"  ,inventtransorigin.ADUSOPRCONTRACTID "
+	_"  ,salesline.REMAINSALESPHYSICAL as OPENSTAANDEHOEVEELHEID, QtyOpBon,ADMINPRODUCTNUMMER "
+	_"  ,INVENTTRANSORIGIN.ADUSOPRCONTRACTID "
 	_"  ,InventDim.CONFIGID "
 	_"  ,isnull(LogisticsPostalAddress.CountryRegionId,'') as COUNTRYREGIONID "
 	_"  ,isnull(LogisticsPostalAddress.City,'') as CITY "
 	_"  ,isnull(LogisticsPostalAddress.Street,'') as STREET "
 	_"  ,isnull(LogisticsPostalAddress.Zipcode,'') as ZIPCODE "
-	_"from SALESLINE "
-	_"join inventdim on inventdim.INVENTDIMID = salesline.INVENTDIMID and inventdim.DATAAREAID = SALESLINE.DATAAREAID and inventdim.PARTITION = salesline.PARTITION "
-	_"join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION "
-	_"left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
+	_"	,(select top 1 r.LOG from VHVALENTITYRUN r where r.PARTITION = SALESTABLE.PARTITION and r.DATAAREAID = SALESTABLE.DATAAREAID and r.ENTITY = 2 and r.REFRECID = SALESTABLE.recid and r.STATUS in (2,3) and SALESTABLE.DOCUMENTSTATUS=0 ) as  VALIDATIECODE "
+	_" from SALESLINE "
+	_" join inventdim on inventdim.INVENTDIMID = salesline.INVENTDIMID and inventdim.DATAAREAID = SALESLINE.DATAAREAID and inventdim.PARTITION = salesline.PARTITION "
+	_" join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION "
+	_" left outer join ADUEcoResAttributeCombination as Kenmerk on InventDim.ConfigId=Kenmerk.ConfigId "
     _"   and SalesLine.ITEMID=Kenmerk.ITEMID "
     _"   and InventDim.ConfigId<>'' "
-	_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION "
-	_"join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and "
+	_" left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION "
+	_" join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and "
 	_"   INVENTTRANSORIGIN.PARTITION = salesline.PARTITION "
-	_"where salestable.SALESSTATUS = 1 and salestable.SALESTYPE = 3 and salesline.SALESQTY >= 0 "
+	_" Left outer join (select ito.INVENTTRANSID, -sum(qty) as QtyOpBon "
+    _"             from inventtrans it "
+    _"             join INVENTTRANSORIGIN ito "
+    _"                 on  it.INVENTTRANSORIGIN = ito.recid and ito.DATAAREAID='vhbe' and ito.PARTITION=5637144576 "
+    _"             where it.PARTITION = 5637144576 and it.DATAAREAID = 'vhbe' and it.StatusIssue=3 "
+    _"             group  by  ito.INVENTTRANSID) it2 "
+	_"  on  salesline.inventtransid = it2.INVENTTRANSID " 
+	_" where salestable.SALESSTATUS = 1 and salestable.SALESTYPE = 3 and salesline.SALESQTY >= 0 "
 	_"  and salesLine.DATAAREAID = 'VHBE' and salesline.PARTITION = '5637144576' "
-	_"  and salesline.REMAINSALESPHYSICAL - isnull(( select -sum(qty) from inventtrans where INVENTTRANSORIGIN.RECID = inventtrans.INVENTTRANSORIGIN and INVENTTRANS.STATUSISSUE = 3 and "
-	_"  inventtrans.STATUSRECEIPT = 0 and inventtrans.DATAAREAID = INVENTTRANSORIGIN.DATAAREAID and inventtrans.PARTITION = INVENTTRANSORIGIN.PARTITION),0) > 0 "
-	_"order by salesline.inventtransid"
+	_"  and salesline.REMAINSALESPHYSICAL  > 0 "
+	_"  and not exists (select 'x' from adushoppingcart sc where sc.dataareaid = 'vhbe' and sc.partition = 5637144576 and sc.salesid = salestable.salesid and sc.shoppingcartstatus <> 4 and sc.SOURCESERVICE in (0,1)) "
+	_" order by salesline.inventtransid"
 	
 	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
 ]]></Implementation>