Index: AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml =================================================================== diff -u -r49106 -r49225 --- AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml (.../AdminOrderLijnConverter.cls.xml) (revision 49106) +++ AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml (.../AdminOrderLijnConverter.cls.xml) (revision 49225) @@ -18,11 +18,6 @@ 1 - -Flow.OrderWMS.LijnRepository -1 - - TECH.Format.FormatAPI 1 @@ -39,7 +34,7 @@ -ProductApi:DOM.PM.ProductAPI,AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,PartijApi:DOM.PARTIJ.PartijAPI,OrderWMSLijnRepository:Flow.OrderWMS.LijnRepository +ProductApi:DOM.PM.ProductAPI,AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,PartijApi:DOM.PARTIJ.PartijAPI 1 1 %Status @@ -48,7 +43,6 @@ Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.DomeinContext).Instance().GeefProductAPI()) Set ..AxProductConvertor = $$$Inject(AxProductConvertor,##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()) Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI()) - Set ..OrderWMSLijnRepository = $$$Inject(OrderWMSLijnRepository,##class(Flow.OrderWMS.LijnRepository).%New()) Set ..AdminToAxUtils = ##class(AXimpl.AdminToAxUtils).%New() Set ..Formatter = ##class(TECH.Context).Instance().GeefFormatAPI() Set ..SoprContractIdConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.SoprContractIdConverter).%New() @@ -65,20 +59,19 @@ try { #dim Order As DOM.VKP.Order = AdminOrderLijn.GeefOrder() - #dim KlantNummer As %String = $Extract(Order.GeefKlantID(),4,*) #dim Klant As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Order.GeefKlantID()) #dim Adres As DOM.common.Adres = Klant.GeefAdres() Set ConvertedAdminOrderLijn.Klant = ..AdminToAxUtils.ConvertCustomerID(Order.GeefKlantID()) Set ConvertedAdminOrderLijn.LeverDatum = ..Formatter.FormatHorolog(AdminOrderLijn.GeefLeverdag(),"JJJJ-MM-DD") - Set ConvertedAdminOrderLijn.Product = ..BepaalProduct(AdminOrderLijn.GeefProductID(), KlantNummer) Set ConvertedAdminOrderLijn.VerkoopOrderId = Order.GeefAxSalesId() Set ConvertedAdminOrderLijn.VerkoopOrderLijnId = AdminOrderLijn.GeefAxInventTransId() Set ConvertedAdminOrderLijn.ConfigId = AdminOrderLijn.GeefAxConfigId() + Set ConvertedAdminOrderLijn.Product = ..BepaalProduct(AdminOrderLijn, ConvertedAdminOrderLijn.ConfigId) Set ConvertedAdminOrderLijn.Hoeveelheid = Aantal Set ConvertedAdminOrderLijn.Land = Adres.GeefLand().GeefIso3() Set ConvertedAdminOrderLijn.Postcode = Adres.GeefPostcode() - Set ConvertedAdminOrderLijn.Sopr = ..BepaalSopr(AdminOrderLijn, KlantNummer) + Set ConvertedAdminOrderLijn.Sopr = ..BepaalSopr(AdminOrderLijn) Set ConvertedAdminOrderLijn.Stad = Adres.GeefGemeente() Set ConvertedAdminOrderLijn.Straat = Adres.GeefStraat() } catch { @@ -91,27 +84,31 @@ -ProductID:%String,KlantNummer:%String +AdminOrderLijn:DOM.VKP.ProductOrderlijn,ConfigId:%String 1 %String -AdminOrderLijn:DOM.VKP.ProductOrderlijn,KlantNummer:%String +AdminOrderLijn:DOM.VKP.ProductOrderlijn 1 %String - Index: AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml =================================================================== diff -u -r49147 -r49225 --- AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 49147) +++ AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml (.../AxOrderLijnIterator.cls.xml) (revision 49225) @@ -54,7 +54,9 @@ _"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' " - _"ORDER BY salesLine.SalesId" + _"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) ]]> Index: AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml =================================================================== diff -u -r49091 -r49225 --- AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 49091) +++ AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 49225) @@ -17,11 +17,11 @@ Set ConvertedAxOrderLijn.VerkoopOrderLijnId = ResultSet.GetData(3) // Iteratie 2: - Set ConvertedAxOrderLijn.ConfigId = ResultSet.GetData(9) - Set ConvertedAxOrderLijn.Hoeveelheid = $$$ExcelNum(ResultSet.GetData(7) + ResultSet.GetData(8)) + Set ConvertedAxOrderLijn.ConfigId = $$$If(ResultSet.GetData(9)=$Char(0),"",ResultSet.GetData(9)) + Set ConvertedAxOrderLijn.Hoeveelheid = $$$ExcelNum(ResultSet.GetData(8) - ResultSet.GetData(7)) Set ConvertedAxOrderLijn.Land = ResultSet.GetData(11) Set ConvertedAxOrderLijn.Postcode = ResultSet.GetData(14) - Set ConvertedAxOrderLijn.Sopr = ResultSet.GetData(10) + Set ConvertedAxOrderLijn.Sopr = $$$If(ResultSet.GetData(10)=$Char(0),"",ResultSet.GetData(10)) Set ConvertedAxOrderLijn.Stad = ResultSet.GetData(12) Set ConvertedAxOrderLijn.Straat = ResultSet.GetData(13) Index: AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml =================================================================== diff -u -r49091 -r49225 --- AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml (.../AdminUniekeOrderLijnIterator.cls.xml) (revision 49091) +++ AXimpl/Controle/Order/Admin/AdminUniekeOrderLijnIterator.cls.xml (.../AdminUniekeOrderLijnIterator.cls.xml) (revision 49225) @@ -103,7 +103,7 @@ 1 Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml =================================================================== diff -u -r49091 -r49225 --- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml (.../Test.cls.xml) (revision 49091) +++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml (.../Test.cls.xml) (revision 49225) @@ -8,13 +8,18 @@ 1000 + +DOM.PM.Product +1 + + %String "15" 1 - + AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 1 @@ -46,16 +51,19 @@ @@ -76,13 +84,6 @@ ]]> - - - - - + + + + + - - - - @@ -238,7 +236,7 @@ 1 AXimpl.Controle.Order.Admin.AdminOrderLijnConverter -