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