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 ]]>