Index: APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml
===================================================================
diff -u -r44139 -r44154
--- APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 44139)
+++ APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor.cls.xml (.../KenmerkConvertor.cls.xml) (revision 44154)
@@ -71,7 +71,7 @@
#dim Toepassing As DOM.PM.enu.TBXToepassing = ##class(DOM.PM.enu.TBXToepassing).Lade()
If (Product.IsSpoelbakLade()) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() }
- If (Product.IsSifonLade() && (Product.GeefUitsparingen().GetAt(1).GeefUitsparingType() = ##class(DOM.PM.enu.TBXUitsparingType).SifonType1())) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).Sifon() }
+ If (Product.IsSifonLade() && (Product.GeefUitsparingen().GetAt(1).GeefUitsparingType() = ##class(DOM.PM.enu.TBXUitsparingType).SifonType1())) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType1() }
If (Product.IsSifonLade() && (Product.GeefUitsparingen().GetAt(1).GeefUitsparingType() = ##class(DOM.PM.enu.TBXUitsparingType).SifonType2())) { Set Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum() } ; To be done (added by WimV on 11/08/2011)
Set TBXKenmerken.Toepassing = Toepassing
Index: BL/Flow/Offerte/ProductGAData.cls.xml
===================================================================
diff -u -r38568 -r44154
--- BL/Flow/Offerte/ProductGAData.cls.xml (.../ProductGAData.cls.xml) (revision 38568)
+++ BL/Flow/Offerte/ProductGAData.cls.xml (.../ProductGAData.cls.xml) (revision 44154)
@@ -356,7 +356,7 @@
; SpoelbakBreedte (SPBR) wordt berekend in Prod.BWValuesToProduct()
}
}
- ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).Sifon() {
+ ElseIf Klas=##class(DOM.PM.enu.TBXToepassing).SifonType1() {
Set arKenm("SpoelbakZkLi")=$P($$$GetKenm("ItemSPZK"),";",2)
Set arKenm("SpoelbakZkRe")=$P($$$GetKenm("ItemSPZK"),";",3)
Set arKenm("SpoelbakZkMi")=$P($$$GetKenm("ItemSPZK"),";",4)
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml
===================================================================
diff -u -r38570 -r44154
--- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml (.../BevatSifonEvaluator.cls.xml) (revision 38570)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/BevatSifonEvaluator.cls.xml (.../BevatSifonEvaluator.cls.xml) (revision 44154)
@@ -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: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml
===================================================================
diff -u -r38568 -r44154
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml (.../FrontOndersteuningValidator.cls.xml) (revision 38568)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/FrontOndersteuningValidator.cls.xml (.../FrontOndersteuningValidator.cls.xml) (revision 44154)
@@ -12,7 +12,7 @@
Do Exceptions.Insert(Exception)
}
- 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)) {
+ If ((Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()) || (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonTypeBlum()) || (Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType1()) && (+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)
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r41564 -r44154
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 41564)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 44154)
@@ -370,7 +370,7 @@
TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken
-
Index: DOM/PM/impl/ProductTypeAPIimpl.cls.xml
===================================================================
diff -u -r44146 -r44154
--- DOM/PM/impl/ProductTypeAPIimpl.cls.xml (.../ProductTypeAPIimpl.cls.xml) (revision 44146)
+++ DOM/PM/impl/ProductTypeAPIimpl.cls.xml (.../ProductTypeAPIimpl.cls.xml) (revision 44154)
@@ -48,7 +48,7 @@
{
Set Product = ##class(DOM.PM.TBXProduct.impl.TBXLadeImpl).%New(ProductID)
}
- Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).Sifon())
+ Elseif (Klas = ##class(DOM.PM.enu.TBXToepassing).SifonType1())
{
Set Product = ##class(DOM.PM.TBXProduct.impl.TBXSifonladeType1).%New(ProductID)
}
Index: DOM/PM/enu/TBXToepassing.cls.xml
===================================================================
diff -u -r42717 -r44154
--- DOM/PM/enu/TBXToepassing.cls.xml (.../TBXToepassing.cls.xml) (revision 42717)
+++ DOM/PM/enu/TBXToepassing.cls.xml (.../TBXToepassing.cls.xml) (revision 44154)
@@ -34,7 +34,7 @@
]]>
-
+
1
DOM.PM.enu.TBXToepassing