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
-