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(){