Index: APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml =================================================================== diff -u -r29059 -r38568 --- APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 29059) +++ APPS/PM/Maatwerk/dto/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 38568) @@ -74,7 +74,7 @@ -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing Index: APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml =================================================================== diff -u -r35832 -r38568 --- APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 35832) +++ APPS/Halux/common/impl/ProductieGroepBepalerTBX.cls.xml (.../ProductieGroepBepalerTBX.cls.xml) (revision 38568) @@ -58,7 +58,7 @@ Quit:(TBXLade.GeefPRNr() = $$$UTxTandemboxCMetHangmap ) $$$False Quit:(TBXLade.GeefAantalHangmappen() > 0) $$$True - Quit:(..GeefKlasse(TBXLade.GeefPRNr()) = ##class(DOM.PM.enu.TBXKlas).Buro()) $$$True + Quit:(..GeefKlasse(TBXLade.GeefPRNr()) = ##class(DOM.PM.enu.TBXToepassing).Buro()) $$$True Quit $$$False ]]> Index: BL/Flow/Offerte/ProductGAData.cls.xml =================================================================== diff -u -r38119 -r38568 --- BL/Flow/Offerte/ProductGAData.cls.xml (.../ProductGAData.cls.xml) (revision 38119) +++ BL/Flow/Offerte/ProductGAData.cls.xml (.../ProductGAData.cls.xml) (revision 38568) @@ -85,6 +85,7 @@ What : P = Prijzen, L = Levertermijn, A = Aantal oLijn:Flow.Offerte.Lijn,What:%String,Taal:%String,NoSa:%String %Status + @@ -331,7 +332,7 @@ Set:(arKenm("TBStalenRug")="") arKenm("TBStalenRug")="Z" Set arKenm("TBSPZijkant") =$P($$$GetKenm("ItemSPZK"),";",1) - If Klas=##class(DOM.PM.enu.TBXKlas).SifonTypeBlum() { + If Klas=##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() { Set arKenm("SpoelbakZkLi")=$P($$$GetKenm("ItemSPZK"),";",2) Set arKenm("SpoelbakZkRe")=$P($$$GetKenm("ItemSPZK"),";",3) Set AantalUitsparingen=blTBox.SpoelbakUitsparingen(arKenm("LadeCode"),arKenm("TBSPZijkant"),Klas) @@ -344,7 +345,7 @@ Set arKenm("SpoelbakBreedte1")=$P($$$GetKenm("ItemSPZK"),";",4) } } - ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Spoelbak() { + ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).Spoelbak() { #define SPZkOpMaat(%v) (%v?1(1"M".E,1"SI".E)) @@ -355,7 +356,7 @@ ; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct() } } - ElseIf Klas=##class(DOM.PM.enu.TBXKlas).Sifon() { + ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).Sifon() { Set arKenm("SpoelbakZkLi")=$P($$$GetKenm("ItemSPZK"),";",2) Set arKenm("SpoelbakZkRe")=$P($$$GetKenm("ItemSPZK"),";",3) Set arKenm("SpoelbakZkMi")=$P($$$GetKenm("ItemSPZK"),";",4) Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r38120 -r38568 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 38120) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 38568) @@ -670,7 +670,7 @@ 1 %Float @@ -1063,7 +1063,7 @@ TBKlasseID:%String 1 %Float - Index: APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml =================================================================== diff -u -r29059 -r38568 --- APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml (.../TBXLadeImageCodeBepaler.cls.xml) (revision 29059) +++ APPS/PM/Maatwerk/AfbeeldingService/impl/TBXLadeImageCodeBepaler.cls.xml (.../TBXLadeImageCodeBepaler.cls.xml) (revision 38568) @@ -86,7 +86,7 @@ Set DC=..GeefDesignCodeID(Input.DesignID) // Burobox - If KLAS=##class(DOM.PM.enu.TBXKlas).Buro() { + If KLAS=##class(DOM.PM.enu.TBXToepassing).Buro() { Set:(LadeCodeID?1.E1"B") LadeCodeID=$E(LadeCodeID,1,*-1) ; Laatste karakter van de LadeCode bij burobox (is altijd "B") wegstrippen If (DC="A") { Set:(LadeCodeID="C")||(LadeCodeID="D") LadeCodeID=LadeCodeID_"M" Index: APPS/Halux/common/impl/ProductieService/PRNrCategorieBepaler.cls.xml =================================================================== diff -u -r29059 -r38568 --- APPS/Halux/common/impl/ProductieService/PRNrCategorieBepaler.cls.xml (.../PRNrCategorieBepaler.cls.xml) (revision 29059) +++ APPS/Halux/common/impl/ProductieService/PRNrCategorieBepaler.cls.xml (.../PRNrCategorieBepaler.cls.xml) (revision 38568) @@ -21,7 +21,7 @@ Set Categorie = ##class(APPS.Halux.common.enu.Categorie).Hoekkast() } ElseIf (Gentype = "DIV\SDM\S") { Set Categorie = ##class(APPS.Halux.common.enu.Categorie).Servodrive() - } ElseIf (($Piece(Gentype,"\",1,2) = "TBX\BBX") && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"KLAS")) '= ##class(DOM.PM.enu.TBXKlas).Buro())) { + } ElseIf (($Piece(Gentype,"\",1,2) = "TBX\BBX") && ($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"KLAS")) '= ##class(DOM.PM.enu.TBXToepassing).Buro())) { Set Categorie = ##class(APPS.Halux.common.enu.Categorie).BuroboxLadeblok() } ElseIf (Gentype = "DIV\DCM\C"){ Set Categorie = ##class(APPS.Halux.common.enu.Categorie).Mondo() Index: DOM/PM/enu/TBXKlas.cls.xml =================================================================== diff -u -r29059 -r38568 --- DOM/PM/enu/TBXKlas.cls.xml (.../TBXKlas.cls.xml) (revision 29059) +++ DOM/PM/enu/TBXKlas.cls.xml (.../TBXToepassing.cls.xml) (revision 38568) @@ -1,6 +1,6 @@ - + datatype 1 %String @@ -15,35 +15,35 @@ 1 -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing 1 -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing 1 -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing 1 -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing 1 -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38566 -r38568 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38566) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38568) @@ -29,7 +29,7 @@ Set TBXKenmerken.FrontOndersteuningAantal = 1 Set TBXKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() Set TBXKenmerken.HangmapBoringAantal = 0 - Set TBXKenmerken.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak() + Set TBXKenmerken.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() Set TBXKenmerken.HeeftOpvullijstLinks = 1 Set TBXKenmerken.HeeftOpvullijstRechts = 0 Set TBXKenmerken.PlaatMateriaal = "HS" Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml =================================================================== diff -u -r29059 -r38568 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml (.../BevatSifonEvaluator.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml (.../BevatSifonEvaluator.cls.xml) (revision 38568) @@ -9,7 +9,7 @@ HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean - Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSpoelbakEvaluator.cls.xml =================================================================== diff -u -r29059 -r38568 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSpoelbakEvaluator.cls.xml (.../BevatSpoelbakEvaluator.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSpoelbakEvaluator.cls.xml (.../BevatSpoelbakEvaluator.cls.xml) (revision 38568) @@ -7,11 +7,9 @@ right - - HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean - Index: DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSpoelbakHelper.cls.xml =================================================================== diff -u -r29059 -r38568 --- DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSpoelbakHelper.cls.xml (.../IngegevenKenmerkenSpoelbakHelper.cls.xml) (revision 29059) +++ DOM/PM/Maatwerk/Calc/Common/impl/IngegevenKenmerkenSpoelbakHelper.cls.xml (.../IngegevenKenmerkenSpoelbakHelper.cls.xml) (revision 38568) @@ -26,7 +26,7 @@ TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml =================================================================== diff -u -r38433 -r38568 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml (.../Test.cls.xml) (revision 38433) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator/Test.cls.xml (.../Test.cls.xml) (revision 38568) @@ -6,7 +6,7 @@ TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken - Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml =================================================================== diff -u -r38025 -r38568 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml (.../FrontOndersteuningValidator.cls.xml) (revision 38025) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml (.../FrontOndersteuningValidator.cls.xml) (revision 38568) @@ -12,7 +12,7 @@ Do Exceptions.Insert(Exception) } - If ((Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak()) || (Product.Klasse = ##class(DOM.PM.enu.TBXKlas).SifonTypeBlum()) || (Product.Klasse = ##class(DOM.PM.enu.TBXKlas).Sifon()) && (+Product.FrontOndersteuningAantal > 0)) { + If ((Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) || (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum()) || (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Sifon()) && (+Product.FrontOndersteuningAantal > 0)) { Set Exception = ##class(TECH.ObjectUtils.ObjectConverterCombinationException).%New() Do Exception.AddCombination($classname(Product),"Klasse",Product.Klasse) Do Exception.AddCombination($classname(Product),"FrontOndersteuningAantal",Product.FrontOndersteuningAantal) FishEye: Tag 38568 refers to a dead (removed) revision in file `DOM/PM/enu/TBXKlas.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml =================================================================== diff -u -r35173 -r38568 --- vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 35173) +++ vhUnitTest/APPS/Halux/common/impl/ProductieGroepBepalerTBX/GeefProductieGroep/Test.cls.xml (.../Test.cls.xml) (revision 38568) @@ -66,7 +66,7 @@ -DOM.PM.enu.TBXKlas +DOM.PM.enu.TBXToepassing @@ -342,23 +342,23 @@ Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml =================================================================== diff -u -r35039 -r38568 --- DOM/PM/impl/ProductTypeAPIimpl.cls.xml (.../ProductTypeAPIimpl.cls.xml) (revision 35039) +++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml (.../ProductTypeAPIimpl.cls.xml) (revision 38568) @@ -44,23 +44,23 @@ If (..IsTandemboxProduct(ProductID)) { #dim Klas As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",ProductID,"KLAS")) - If ((Klas = ##class(DOM.PM.enu.TBXKlas).Lade()) || (Klas = "")) + If ((Klas = ##class(DOM.PM.enu.TBXToepassing).Lade()) || (Klas = "")) { Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID) } - Elseif (Klas = ##class(DOM.PM.enu.TBXKlas).Sifon()) + Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).Sifon()) { Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeImpl).%New(ProductID) } - Elseif (Klas = ##class(DOM.PM.enu.TBXKlas).SifonTypeBlum()) + Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum()) { Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeTypeBlumImpl).%New(ProductID) } - Elseif (Klas = ##class(DOM.PM.enu.TBXKlas).Spoelbak()) + Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) { Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSpoelbakladeImpl).%New(ProductID) } - Elseif (Klas = ##class(DOM.PM.enu.TBXKlas).Buro()) + Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).Buro()) { Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID) // Er is nog geen speciale klasse voorzien voor buroladen } Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml =================================================================== diff -u -r38566 -r38568 --- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38566) +++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 38568) @@ -69,10 +69,10 @@ Set TBXKenmerken.HeeftOpvullijstLinks = Product.BevatOpvullijstLinks() If (TBXKenmerken.HeeftOpvullijstLinks = "") { Do ErrorLijst.Insert("HeeftOpvullijstLinks niet ingevuld") } - Set Klasse = ##class(DOM.PM.enu.TBXKlas).Lade() - If (Product.IsSpoelbakLade()) { Set Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak() } - If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRondeUitsparing()) { Set Klasse = ##class(DOM.PM.enu.TBXKlas).Sifon() } - If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRechteUitsparing()) { Set Klasse = ##class(DOM.PM.enu.TBXKlas).SifonTypeBlum() } ; To be done (added by WimV on 11/08/2011) + Set Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() + If (Product.IsSpoelbakLade()) { Set Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() } + If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRondeUitsparing()) { Set Klasse = ##class(DOM.PM.enu.TBXToepassing).Sifon() } + If (Product.IsSifonLade() && Product.GeefUitsparingen().GetAt(1).IsRechteUitsparing()) { Set Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() } ; To be done (added by WimV on 11/08/2011) Set TBXKenmerken.Klasse = Klasse Set TBXKenmerken.HeeftOpvullijstRechts = Product.BevatOpvullijstRechts()