Index: AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml
===================================================================
diff -u -r44238 -r45041
--- AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml (.../AdminOrderLijnConverter.cls.xml) (revision 44238)
+++ AXimpl/Controle/Order/Admin/AdminOrderLijnConverter.cls.xml (.../AdminOrderLijnConverter.cls.xml) (revision 45041)
@@ -13,6 +13,11 @@
1
+
+Flow.OrderWMS.LijnRepository
+1
+
+
TECH.Format.FormatAPI
1
@@ -29,7 +34,7 @@
-ProductRolApi:DOM.PM.ProductRolAPI,AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,PartijApi:DOM.PARTIJ.PartijAPI
+ProductRolApi:DOM.PM.ProductRolAPI,AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,PartijApi:DOM.PARTIJ.PartijAPI,OrderWMSLijnRepository:Flow.OrderWMS.LijnRepository
1
1
%Status
@@ -38,6 +43,7 @@
Set ..ProductRolApi = $$$Inject(ProductRolApi,##class(DOM.DomeinContext).Instance().GeefProductRolAPI())
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()
@@ -57,15 +63,15 @@
// Iteratie 1:
Set ConvertedAdminOrderLijn.Klant = ..AdminToAxUtils.ConvertCustomerID(Order.GeefKlantID())
- Set ConvertedAdminOrderLijn.LeverDatum = ..Formatter.FormatHorolog(AdminOrderLijn.GeefLeverdag(),"JJJJ-MM-DD uu:nn:ss")_".000"
+ Set ConvertedAdminOrderLijn.LeverDatum = ..Formatter.FormatHorolog(AdminOrderLijn.GeefLeverdag(),"JJJJ-MM-DD")
Set ConvertedAdminOrderLijn.Product = ..ProductRolApi.GeefAdministratiefProduct(AdminOrderLijn.GeefProductID()).GeefIdentNr()
Set ConvertedAdminOrderLijn.VerkochtAantal = ..Formatter.FormatNumber(AdminOrderLijn.GeefAantal(),16,",")
Set ConvertedAdminOrderLijn.VerkoopOrderId = Order.GeefAxSalesId()
Set ConvertedAdminOrderLijn.VerkoopOrderLijnId = AdminOrderLijn.GeefAxInventTransId()
// Iteratie 2:
Set ConvertedAdminOrderLijn.ConfigId = AdminOrderLijn.GeefAxConfigId()
- Set ConvertedAdminOrderLijn.GepickteHoeveelheid = "0"
+ Set ConvertedAdminOrderLijn.GepickteHoeveelheid = ..BepaalGepickteHoeveelheid(AdminOrderLijn, Order)
Set ConvertedAdminOrderLijn.Land = Adres.GeefLand().GeefIso3()
Set ConvertedAdminOrderLijn.OpenstaandeHoeveelheid = "0"
Set ConvertedAdminOrderLijn.Postcode = Adres.GeefPostcode()
@@ -84,6 +90,21 @@
+
+
+AdminOrderLijn:DOM.VKP.ProductOrderlijn,Order:DOM.VKP.Order
+1
+%String
+
+
Index: AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml
===================================================================
diff -u -r44118 -r45041
--- AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 44118)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml (.../AxOrderLijnConverter.cls.xml) (revision 45041)
@@ -11,7 +11,7 @@
// Iteratie 1:
Set ConvertedAxOrderLijn.Klant = ResultSet.GetData(2)
- Set ConvertedAxOrderLijn.LeverDatum = ResultSet.GetData(5)
+ Set ConvertedAxOrderLijn.LeverDatum = $Piece(ResultSet.GetData(5)," ",1)
Set ConvertedAxOrderLijn.Product = ResultSet.GetData(4)
Set ConvertedAxOrderLijn.VerkochtAantal = $$$ExcelNum(ResultSet.GetData(6))
Set ConvertedAxOrderLijn.VerkoopOrderId = ResultSet.GetData(1)
Index: vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml
===================================================================
diff -u -r44165 -r45041
--- vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml (.../Test.cls.xml) (revision 44165)
+++ vhUnitTest/AXimpl/Controle/Order/Admin/AdminOrderLijnConverter/Test.cls.xml (.../Test.cls.xml) (revision 45041)
@@ -85,11 +85,11 @@
]]>
-
+