Index: vhUnitTest/APPS/PM/impl/EANCodeMock/ProductImpl.cls.xml
===================================================================
diff -u -r29059 -r38760
--- vhUnitTest/APPS/PM/impl/EANCodeMock/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 29059)
+++ vhUnitTest/APPS/PM/impl/EANCodeMock/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 38760)
@@ -29,7 +29,7 @@
%String
-
+
+
+
+
+
TECH.Enumeration
-;425;837;1327;1328;1371;1108;1406;769;1459;1645;1603;542;543;863;1440
+;425;837;1327;1328;1371;1108;1406;769;1459;1645;1603;542;543;863;1440;1628;1629;1630
@@ -120,6 +120,27 @@
+
+
+1
+DOM.PM.enu.Classificatie
+
+
+
+
+1
+DOM.PM.enu.Classificatie
+
+
+
+
+1
+DOM.PM.enu.Classificatie
+
+
Index: APPS/PM/EANCodeService.cls.xml
===================================================================
diff -u -r29059 -r38760
--- APPS/PM/EANCodeService.cls.xml (.../EANCodeService.cls.xml) (revision 29059)
+++ APPS/PM/EANCodeService.cls.xml (.../EANCodeService.cls.xml) (revision 38760)
@@ -71,14 +71,36 @@
#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
#dim EANCode As %String = Product.GeefEANCode()
#dim IsGenerischAfgeleidProduct As %Boolean = (Product.GeefGenerischProductID()'="")
- If (EANCode="")&&($$$Not(IsGenerischAfgeleidProduct))&&(AdministratiefProduct.GeefClassificatieKnoop().GeefAutomatischEANCodeToekennen()) {
+ #dim ClassificatieKnoop As DOM.PM.ClassificatieKnoop = AdministratiefProduct.GeefClassificatieKnoop()
+ #dim MagEanCodeVoorProductEnClassificatie As %Boolean
+ Set MagEanCodeVoorProductEnClassificatie
+ = ( (ClassificatieKnoop.GeefAutomatischEANCodeToekennen()) &&
+ ($$$Not(IsGenerischAfgeleidProduct) || ..IsClassificatieWaarinOokGenerischAfgeleideProductenEenEanCodeKrijgen(ClassificatieKnoop)) )
+ If (EANCode="")&&MagEanCodeVoorProductEnClassificatie {
Set IsNieuweEANCodeNodig=1
}
}
Quit IsNieuweEANCodeNodig
]]>
+
+ClassificatieKnoop:DOM.PM.ClassificatieKnoop
+%Boolean
+
+
+
+
+ClassificatieKnoop:DOM.PM.ClassificatieKnoop
+%Boolean
+
+
+
ClassificatieID:%String
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
1
1
Index: vhUnitTest/APPS/PM/impl/EANCodeMock/ProductAPI.cls.xml
===================================================================
diff -u -r29059 -r38760
--- vhUnitTest/APPS/PM/impl/EANCodeMock/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 29059)
+++ vhUnitTest/APPS/PM/impl/EANCodeMock/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 38760)
@@ -11,7 +11,7 @@
ProductID:DOM.common.ProductID
DOM.PM.Product
ProductID:DOM.common.ProductID
vhUnitTest.APPS.PM.impl.EANCodeMock.AdministratiefProductImpl
%SerialObject
-DOM.PM.enu.Classificatie
+%String
"425"
1
1
-DOM.PM.enu.Classificatie
+%String
"542"
1
1
-DOM.PM.enu.Classificatie
+%String
"543"
1
1
-DOM.PM.enu.Classificatie
+%String
"1603"
1
1
-DOM.PM.enu.Classificatie
+%String
"1371"
1
1
-DOM.PM.enu.Classificatie
+%String
"769"
1
1
-DOM.PM.enu.Classificatie
+%String
"837"
1
1
-DOM.PM.enu.Classificatie
+%String
"863"
1
1
-DOM.PM.enu.Classificatie
+%String
"1327"
1
1
-DOM.PM.enu.Classificatie
+%String
"1328"
1
1
-DOM.PM.enu.Classificatie
+%String
"1108"
1
1
-DOM.PM.enu.Classificatie
+%String
"1645"
1
1
-DOM.PM.enu.Classificatie
+%String
"1406"
1
1
-DOM.PM.enu.Classificatie
+%String
"1459"
1
1
+
+%String
+"1630"
+1
+1
+
+
+
+%String
+"1628"
+1
+1
+
+
+
+%String
+"1629"
+1
+1
+
+
-DOM.PM.enu.Classificatie
+%String
"1440"
1
1
Index: vhUnitTest/APPS/PM/impl/EANCodeMock/AdministratiefProductImpl.cls.xml
===================================================================
diff -u -r29059 -r38760
--- vhUnitTest/APPS/PM/impl/EANCodeMock/AdministratiefProductImpl.cls.xml (.../AdministratiefProductImpl.cls.xml) (revision 29059)
+++ vhUnitTest/APPS/PM/impl/EANCodeMock/AdministratiefProductImpl.cls.xml (.../AdministratiefProductImpl.cls.xml) (revision 38760)
@@ -27,7 +27,10 @@
If ..ProductID=1005 {
Quit ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(378) ; Scharnier : EANCode niet nodig
}
- Else {
+ ElseIf ..ProductID=1006 {
+ Quit ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(1628) ; TAOR losse componenten : EANCode wel nodig, ook voor generisch afgeleide
+ }
+ Else {
Quit ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(1454) ; TAOR : EANCode wel nodig
}
]]>