Index: APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml =================================================================== diff -u -r52232 -r52248 --- APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml (.../IngegevenKenmerkVerpakkingVisitor.cls.xml) (revision 52232) +++ APPS/PM/Maatwerk/impl/IngegevenKenmerkVerpakkingVisitor.cls.xml (.../IngegevenKenmerkVerpakkingVisitor.cls.xml) (revision 52248) @@ -23,21 +23,6 @@ 1 - -TECH.FrequentieTabel -1 - - - -TECH.FrequentieTabel -1 - - - -TECH.FrequentieTabel -1 - - %Integer 1 @@ -54,12 +39,6 @@ Set ..VerpakkingenTAOR = ##class(TECH.FrequentieTabel).%New() Set ..VerpakkingenTBX = ##class(TECH.FrequentieTabel).%New() Set ..VerschillendeVerpakkingsTypes = ##class(TECH.FrequentieTabel).%New() - - If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsGemengdVerpakkingsTypeMogelijkViaVhisie4()) { - Set ..LBXVerschillendeVerpakkingsTypes = ##class(TECH.FrequentieTabel).%New() - Set ..TAORVerschillendeVerpakkingsTypes = ##class(TECH.FrequentieTabel).%New() - Set ..TBXVerschillendeVerpakkingsTypes = ##class(TECH.FrequentieTabel).%New() - } Quit $$$OK ]]> @@ -75,10 +54,6 @@ @@ -87,10 +62,6 @@ @@ -106,10 +77,6 @@ Do ..VerpakkingenTBX.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking) Do ..VerschillendeVerpakkingsTypes.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking) - - If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsGemengdVerpakkingsTypeMogelijkViaVhisie4()) { - Do ..TBXVerschillendeVerpakkingsTypes.VerhoogMetAantal(VerpakkingType,..AantalTeGebruikenBijVerwerking) - } ]]> @@ -119,7 +86,7 @@ #dim Aantal As %Integer = ..VerschillendeVerpakkingsTypes.GeefAantalVerschillendeItems() If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsGemengdVerpakkingsTypeMogelijkViaVhisie4()) { - Set Aantal = ##class(TECH.Math).Grootste(..LBXVerschillendeVerpakkingsTypes.GeefAantalVerschillendeItems(), ..TAORVerschillendeVerpakkingsTypes.GeefAantalVerschillendeItems(), ..TBXVerschillendeVerpakkingsTypes.GeefAantalVerschillendeItems()) + Set Aantal = ##class(TECH.Math).Grootste(..VerpakkingenLBX.GeefAantalVerschillendeItems(), ..VerpakkingenTAOR.GeefAantalVerschillendeItems(), ..VerpakkingenTBX.GeefAantalVerschillendeItems()) } Quit Aantal