Index: vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml
===================================================================
diff -u -r42590 -r42720
--- vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 42590)
+++ vhUnitTest/AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 42720)
@@ -37,6 +37,7 @@
Do ToeleveringStub.IndienMethodCall("GeefAanmaakDatum").DanReturn(50000)
Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn("5000||200000")
Do ToeleveringStub.IndienMethodCall("GeefReferentie").DanReturn("Ref")
+ Do ToeleveringStub.IndienMethodCall("GeefKlantNummerBijLeverancier").DanReturn("271250")
Set ..ToeleveringStub = ToeleveringStub
Set LeverancierStub = ##class(vhTest.Mock.DOM.AKP.Leverancier).%New()
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/ProductToeleveringLijnIterator.cls.xml
===================================================================
diff -u -r42197 -r42720
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/ProductToeleveringLijnIterator.cls.xml (.../ProductToeleveringLijnIterator.cls.xml) (revision 42197)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/ProductToeleveringLijnIterator.cls.xml (.../ProductToeleveringLijnIterator.cls.xml) (revision 42720)
@@ -57,13 +57,13 @@
Set SqlStatement = "SELECT * FROM Flow_Toelev.Lijn a, Prod.Product b WHERE a.Product = b.ID AND CodeSoortLijn = 'KTRPL' AND Leverancier <> '6332'"_
" AND (LinkType NOT IN ('HH', 'HHZ') OR LinkType IS null)"
// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
- //_" AND ID [ '5002||261154||101' OR ID [ '5005||265590||101' OR ID [ '5026||276749||101' OR ID [ '5490||278804||101' OR "
- //_"ID [ '5938||242802||101' OR ID [ '6051||280399||101' OR ID [ '6118||274544||101' OR ID [ '6118||274544||101' OR "
- //_"ID [ '6332||209746||101' OR ID [ '6347||261332||101' OR ID [ '6415||278507||101' OR ID [ '6494||256645||101' OR "
- //_"ID [ '6628||274325||101' OR ID [ '6813||276747||101' OR ID [ '7012||275442||101' OR ID [ '7112||268449||101' OR "
- //_"ID [ '7178||271524||101' OR ID [ '7407||272363||106' OR ID [ '7409||251880||101' OR ID [ '7509||280028||101' OR "
- //_"ID [ '7541||272115||101' OR ID [ '7564||270368||101' OR ID [ '7771||274511||101' OR ID [ '7802||264788||101' OR "
- //_"ID [ '8090||278685||101'"
+ //_" AND a.ID [ '5002||261154||101' OR a.ID [ '5005||265590||101' OR a.ID [ '5026||276749||101' OR a.ID [ '5490||278804||101' OR "
+ //_"a.ID [ '5938||242802||101' OR a.ID [ '6051||280399||101' OR a.ID [ '6118||274544||101' OR a.ID [ '6118||274544||101' OR "
+ //_"a.ID [ '6332||209746||101' OR a.ID [ '6347||261332||101' OR a.ID [ '6415||278507||101' OR a.ID [ '6494||256645||101' OR "
+ //_"a.ID [ '6628||274325||101' OR a.ID [ '6813||276747||101' OR a.ID [ '7012||275442||101' OR a.ID [ '7112||268449||101' OR "
+ //_"a.ID [ '7178||271524||101' OR a.ID [ '7407||272363||106' OR a.ID [ '7409||251880||101' OR a.ID [ '7509||280028||101' OR "
+ //_"a.ID [ '7541||272115||101' OR a.ID [ '7564||270368||101' OR a.ID [ '7771||274511||101' OR a.ID [ '7802||264788||101' OR "
+ //_"a.ID [ '8090||278685||101'"
} Else {
If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() {
Set SqlStatement = "SELECT * FROM Flow_Toelev.Lijn a, Prod.Product b WHERE a.Product = b.ID AND CodeSoortLijn = 'KTRPL' AND Leverancier <> '6332'"_
Index: AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml
===================================================================
diff -u -r42691 -r42720
--- AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml (.../AankoopOrderHoofdingDixfConverter.cls.xml) (revision 42691)
+++ AX/Uitgaand/PM/AankoopOrderHoofding/impl/AankoopOrderHoofdingDixfConverter.cls.xml (.../AankoopOrderHoofdingDixfConverter.cls.xml) (revision 42720)
@@ -13,6 +13,11 @@
1
+
+AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde
+1
+
+
TECH.Format.FormatAPI
1
@@ -45,6 +50,7 @@
Set ..LevNrConverter = $$$Inject(LevNrConverter,##class(AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+ Set ..BlumKundeOmzetter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New()
Quit $$$OK
]]>
@@ -108,7 +114,7 @@
Set ..AxHoofding.DeliveryStreet = "Europark-Noord 9"
Set ..AxHoofding.DefaultDimension = ..BepaalDefaultDimensionVanHoecke(Leverancier)
Set ..AxHoofding.InvoiceAccount = ..BepaalInvoiceAccountVanHoecke(Leverancier)
- Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier)
+ Set ..AxHoofding.OrderAccount = ..BepaalOrderAccountVanHoecke(Leverancier,Toelevering)
Set ..AxHoofding.Payment = ..BepaalPaymentVanHoecke(Leverancier)
Set ..AxHoofding.PaymMode = ..BepaalPaymModeVanHoecke(Leverancier)
Set ..AxHoofding.VendorRef = ..BepaalVendorRefVanHoecke(Leverancier,Toelevering)
@@ -199,12 +205,20 @@
-Leverancier:DOM.AKP.Leverancier
+Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering
1
%String