Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnvoormaatwerkproduct/Result.xml =================================================================== diff -u -r49347 -r49368 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnvoormaatwerkproduct/Result.xml (.../Result.xml) (revision 49347) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnvoormaatwerkproduct/Result.xml (.../Result.xml) (revision 49368) @@ -1,7 +1,7 @@ OrderBevestigingTekst Lijn - KlantOrderlijnNr + 1 PakketReferentie FaktuurTekst Lijn GenerischIdentNummer Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnVoorNewSobelwoodbarcodenaarprojectreferentie/Result.xml =================================================================== diff -u -r49347 -r49368 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnVoorNewSobelwoodbarcodenaarprojectreferentie/Result.xml (.../Result.xml) (revision 49347) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnVoorNewSobelwoodbarcodenaarprojectreferentie/Result.xml (.../Result.xml) (revision 49368) @@ -1,7 +1,7 @@ OrderBevestigingTekst Lijn - KlantOrderlijnNr + 1 PakketReferentie FaktuurTekst Lijn GenerischIdentNummer Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder/Test.cls.xml =================================================================== diff -u -r49347 -r49368 --- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 49347) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 49368) @@ -44,7 +44,7 @@ #dim AxOrderLine as AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderLine = OrderlijnConverteerder.Converteer(ProductOrderlijn) Do $$$AssertEquals(AxOrderLine.ExternalItemId,"PakketReferentie") - Do $$$AssertEquals(AxOrderLine.CustomerLineNum,"KlantOrderlijnNr") + Do $$$AssertEquals(AxOrderLine.CustomerLineNum,"1") Do $$$AssertEquals(AxOrderLine.SalesQty,5) Do $$$AssertEquals(AxOrderLine.ReceiptDateRequested,"64470") Do $$$AssertEquals(AxOrderLine.ProdBody,"ProjectReferentie") @@ -97,7 +97,7 @@ #dim AxOrderLine as AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderLine = OrderlijnConverteerder.Converteer(ProductOrderlijn) do $$$AssertEquals(AxOrderLine.ExternalItemId,"PakketReferentie") - Do $$$AssertEquals(AxOrderLine.CustomerLineNum,"KlantOrderlijnNr") + Do $$$AssertEquals(AxOrderLine.CustomerLineNum,"1") do $$$AssertEquals(AxOrderLine.SalesQty,5) do $$$AssertEquals(AxOrderLine.ReceiptDateRequested,"64470") do $$$AssertEquals(AxOrderLine.ProdBody,"Barcode") @@ -126,6 +126,69 @@ ]]> + + + + + + + + + + + +1 +DOM.VKP.ProductOrderlijn + @@ -427,11 +516,24 @@ Do Order.IndienMethodCall("GeefOorsprong").DanReturn("") Do Order.IndienMethodCall("GeefStatus").DanReturn("") DO Order.IndienMethodCall("GeefID").DanReturn("OrderId") - DO Order.IndienMethodCall("GeefKlantID").DanReturn("K||9365") + DO Order.IndienMethodCall("GeefKlantID").DanReturn(##class(DOM.VKP.enu.Klant).NewSobelwood()) Quit Order ]]> + +1 +DOM.VKP.Order + + + DOM.PM.Product OrderBevestigingTekst Lijn - KlantOrderlijnNr + 1 PakketReferentie FaktuurTekst Lijn ProductIdentNummer Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder.cls.xml =================================================================== diff -u -r49359 -r49368 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder.cls.xml (.../OrderlijnConverteerder.cls.xml) (revision 49359) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder.cls.xml (.../OrderlijnConverteerder.cls.xml) (revision 49368) @@ -86,10 +86,10 @@ Set AxOrderLine = ##class(AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderLine).%New() Set AxOrderLine.class = "entity" Set AxOrderLine.ExternalItemId = ProductOrderlijn.GeefPakketReferentie() - if ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).SFS() { + if $$$HasLength(ProductOrderlijn.GeefKlantOrderlijnNr()) && (ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).SFS()) { Set AxOrderLine.CustomerLineNum = $Piece(ProductOrderlijn.GeefKlantOrderlijnNr(),".",1) } else { - Set AxOrderLine.CustomerLineNum = ProductOrderlijn.GeefKlantOrderlijnNr() + Set AxOrderLine.CustomerLineNum = ProductOrderlijn.GeefLijnVolgNr() } Set AxOrderLine.SalesQty= ProductOrderlijn.GeefAantal() Set AxOrderLine.ReceiptDateRequested = ProductOrderlijn.GeefLeverdag() Index: vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnvoorOrgaluxopmaat/Result.xml =================================================================== diff -u -r49347 -r49368 --- vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnvoorOrgaluxopmaat/Result.xml (.../Result.xml) (revision 49347) +++ vhTestFiles/UnitTests/AXimpl.Dynamics.SalesOrderOut.Converter.OrderlijnConverteerder/Test/TestconversievanProductOrderlijnvoorOrgaluxopmaat/Result.xml (.../Result.xml) (revision 49368) @@ -1,7 +1,7 @@ OrderBevestigingTekst Lijn - KlantOrderlijnNr + 1 PakketReferentie FaktuurTekst Lijn 9.048.771.18