Index: AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml
===================================================================
diff -u -r49225 -r49431
--- AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 49225)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 49431)
@@ -37,26 +37,31 @@
1
'' "
_"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 "
- _"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"
+ _" INVENTTRANSORIGIN.PARTITION = salesline.PARTITION "
+ _"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"
Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
]]>
@@ -71,9 +76,10 @@
AXimpl.Controle.Order.OrderLijn
Index: AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml
===================================================================
diff -u -r49289 -r49431
--- AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml (.../AdminUniekeOrderLijnIterator.cls.xml) (revision 49289)
+++ AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml (.../AdminUniekeOrderLijnIterator.cls.xml) (revision 49431)
@@ -52,7 +52,11 @@
#dim Order As DOM.VKP.Order = ##class(DOM.VKP.impl.DataM.DataMOrder).%New(ProductOrderLijn.OrderId,"K||"_ProductOrderLijn.KlantNr)
#dim OrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijn(ProductOrderLijn.OrderLijnId)
#dim Aantal As %String = ProductOrderLijn.Aantal
- #dim ConvertedAdminProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..Converter.Convert(OrderLijn, Aantal)
+ If $IsObject(OrderLijn) {
+ #dim ConvertedAdminProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..Converter.Convert(OrderLijn, Aantal)
+ } Else {
+ Set ConvertedAdminProductOrderLijn = ##class(AXimpl.Controle.Order.OrderLijn).%New() // Quickfix voor Orders die niet geopend kunnen worden.
+ }
Quit ConvertedAdminProductOrderLijn
]]>