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