Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml =================================================================== diff -u -r53151 -r54338 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 53151) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml (.../OrderHoofdingConverteerder.cls.xml) (revision 54338) @@ -32,7 +32,11 @@ AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader + + + + DOM.PM.Product + +1 +DOM.VKP.ProductOrderlijn + + + + +1 +DOM.VKP.Order + + + 1 DOM.VKP.ProductOrderlijn Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder.cls.xml =================================================================== diff -u -r54173 -r54338 --- AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder.cls.xml (.../OrderlijnConverteerder.cls.xml) (revision 54173) +++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderlijnConverteerder.cls.xml (.../OrderlijnConverteerder.cls.xml) (revision 54338) @@ -88,8 +88,12 @@ Set AxOrderLine.ExternalItemId = ProductOrderlijn.GeefPakketReferentie() If $$$HasLength(ProductOrderlijn.GeefKlantOrderlijnNr()) && (ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).SFS()) { Set AxOrderLine.CustomerLineNum = $Piece(ProductOrderlijn.GeefKlantOrderlijnNr(),".",1) - } ElseIf $$$HasLength(ProductOrderlijn.GeefKlantOrderlijnNr()) && (ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).Noteborn()) { - Set AxOrderLine.CustomerLineNum = ProductOrderlijn.GeefKlantOrderlijnNr() + } ElseIf (ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).Noteborn()) { + If $$$HasLength(ProductOrderlijn.GeefKlantOrderlijnNr()){ + Set AxOrderLine.CustomerLineNum = ProductOrderlijn.GeefKlantOrderlijnNr() + } Else { + Set AxOrderLine.CustomerLineNum = $Piece(ProductOrderlijn.GeefProjectReferentie(),"£") + } } Else { Set AxOrderLine.CustomerLineNum = ProductOrderlijn.GeefLijnVolgNr() } @@ -98,7 +102,11 @@ if $$$HasLength(ProductOrderlijn.GeefKlantBarcode()) && (ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).NewSobelwood() ){ Set AxOrderLine.ProdBody = ProductOrderlijn.GeefKlantBarcode() } else { - Set AxOrderLine.ProdBody = ProductOrderlijn.GeefProjectReferentie() + If (ProductOrderlijn.GeefOrder().GeefKlantID() = ##class(DOM.VKP.enu.Klant).Noteborn()) { + Set AxOrderLine.ProdBody = $Piece(ProductOrderlijn.GeefProjectReferentie(),"£",2) + } Else { + Set AxOrderLine.ProdBody = ProductOrderlijn.GeefProjectReferentie() + } } Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml =================================================================== diff -u -r53267 -r54338 --- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 53267) +++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml (.../Test.cls.xml) (revision 54338) @@ -93,6 +93,28 @@ Do $$$AssertEquals(OrderHeader.ProdBody,"ToeleveringTekst") ]]> + + + +