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 } ]]>