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")
]]>
+
+
+
+