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