Index: vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml =================================================================== diff -u -r42792 -r44893 --- vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml (.../Test.cls.xml) (revision 42792) +++ vhUnitTest/AXimpl/Utils/ConvertPrimaryVendorId/Test.cls.xml (.../Test.cls.xml) (revision 44893) @@ -18,6 +18,11 @@ 1 + +AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor +1 + + AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator 1 @@ -26,6 +31,7 @@ @@ -101,21 +107,61 @@ ]]> - + + + + + + + + + @@ -228,7 +274,7 @@ 1 AXimpl.Utils - Index: AXimpl/Utils.cls.xml =================================================================== diff -u -r44889 -r44893 --- AXimpl/Utils.cls.xml (.../Utils.cls.xml) (revision 44889) +++ AXimpl/Utils.cls.xml (.../Utils.cls.xml) (revision 44893) @@ -23,6 +23,16 @@ 1 + +AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde +1 + + + +AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor +1 + + BL.Prod.VoorraadBewegingService 1 @@ -34,7 +44,7 @@ -PartijApi:DOM.PARTIJ.PartijAPI,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,BestelImpulsRepository:DOM.AKP.BestelImpuls.impl.BestelImpulsRepository +PartijApi:DOM.PARTIJ.PartijAPI,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,BestelImpulsRepository:DOM.AKP.BestelImpuls.impl.BestelImpulsRepository,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 1 1 %Status @@ -45,6 +55,8 @@ Set ..VoorraadInstellingCalculator = $$$Inject(VoorraadInstellingCalculator,##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New()) Set ..VoorraadBewegingService = $$$Inject(VoorraadBewegingService,##class(BL.Prod.VoorraadBewegingService).%New()) Set ..BestelImpulsRepository = $$$Inject(BestelImpulsRepository,##class(DOM.AKP.BestelImpuls.impl.BestelImpulsRepository).%New()) + Set ..SoprProductConverter = $$$Inject(SoprProductConverter, ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()) + Set ..SoprBlumKundeConverter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New() Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI() Quit $$$OK @@ -173,7 +185,12 @@ Set PrimaryVendorId = "06051" } ElseIf ((LinkType = "HH") || (LinkType = "HHZ")){ Set PrimaryVendorId = "06332" - } Else { + } ElseIf (LeverancierNummer = "5005") { + #dim BlumKunde As %String = ..SoprProductConverter.GeefBlumKunde(Product.Basis.ProductNr) + Set PrimaryVendorId = ..SoprBlumKundeConverter.AdminNaarAx(BlumKunde) + If (PrimaryVendorId = "05005"){ + Set PrimaryVendorId = "212250" + }} Else { Set PrimaryVendorId = ##class(TECH.StringUtils).AddLeadingChar(LeverancierNummer,"0",5) } } ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv(){