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()