Index: APPS/PM/EANCodeService.cls.xml =================================================================== diff -u -r38760 -r38765 --- APPS/PM/EANCodeService.cls.xml (.../EANCodeService.cls.xml) (revision 38760) +++ APPS/PM/EANCodeService.cls.xml (.../EANCodeService.cls.xml) (revision 38765) @@ -70,37 +70,24 @@ { #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()'="") - #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 + If (EANCode="") { + #dim IsGenerischAfgeleidProduct As %Boolean = (Product.GeefGenerischProductID()'="") + Set IsNieuweEANCodeNodig + = ( (AdministratiefProduct.GeefClassificatieKnoop().GeefAutomatischEANCodeToekennen()) && + ($$$Not(IsGenerischAfgeleidProduct) || ..MagGenerischAfgeleidProductEanCodeKrijgen(ProductID)) ) } } Quit IsNieuweEANCodeNodig ]]> - -ClassificatieKnoop:DOM.PM.ClassificatieKnoop + +ProductID:%String %Boolean - - -ClassificatieKnoop:DOM.PM.ClassificatieKnoop -%Boolean - - - ClassificatieID:%String