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