Index: vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69428)
+++ vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69447)
@@ -33,6 +33,7 @@
Do ..VoegToeKenmerk("Inbouwbreedte", 876, RvgKenmerken)
Do ..VoegToeKenmerk("Inbouwdiepte", 595, RvgKenmerken)
Do ..VoegToeKenmerk("Inbouwhoogte", 1928, RvgKenmerken)
+ Do ..VoegToeKenmerk("Inkortinglijst1", "Track right;834;mm;", RvgKenmerken, "Data.Bomkenmerken.")
Do ..VoegToeKenmerk("Krasbescherming", "false", RvgKenmerken)
Do ..VoegToeKenmerk("Leveranciera", "unilin", RvgKenmerken)
Do ..VoegToeKenmerk("Materiaalopties", ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront(), RvgKenmerken)
@@ -86,6 +87,7 @@
Do ..VoegToeKenmerk("Inbouwbreedte", 2876, RvgKenmerken)
Do ..VoegToeKenmerk("Inbouwdiepte", 998, RvgKenmerken)
Do ..VoegToeKenmerk("Inbouwhoogte", 2378, RvgKenmerken)
+ Do ..VoegToeKenmerk("Inkortinglijst1", "Track right;834;mm;", RvgKenmerken, "Data.Bomkenmerken.")
Do ..VoegToeKenmerk("Krasbescherming", "true", RvgKenmerken)
Do ..VoegToeKenmerk("Leveranciera", "unilin", RvgKenmerken)
Do ..VoegToeKenmerk("Leverancierb", "egger", RvgKenmerken)
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447)
@@ -34,6 +34,7 @@
Set RvgKenmerken.InbouwDiepte = 595
Set RvgKenmerken.InbouwHoogte = 1928
Set RvgKenmerken.InstelZijde = $$$False
+ Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
Set RvgKenmerken.Krasbescherming = $$$False
Set RvgKenmerken.LeverancierA = "unilin"
Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
@@ -86,6 +87,7 @@
Set RvgKenmerken.InbouwDiepte = 998
Set RvgKenmerken.InbouwHoogte = 2378
Set RvgKenmerken.InstelZijde = $$$False
+ Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
Set RvgKenmerken.Krasbescherming = $$$True
Set RvgKenmerken.LeverancierA = "unilin"
Set RvgKenmerken.LeverancierB = "egger"
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r69333 -r69447
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69333)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69447)
@@ -61,6 +61,7 @@
} ElseIf (Variant = ##class(DOM.PM.enu.Variant).Revego()) {
Do ..ConverteerIdentnummers(OPCKenmerkenRequest.BlumIdentnummers, AXConfiguratieArray)
Do ..ConverteerBlumKenmerken(OPCKenmerkenRequest.BlumKenmerken, AXConfiguratieArray)
+ Do ..ConverteerInkortingen(OPCKenmerkenRequest.BlumInkortAfmetingen, AXConfiguratieArray)
} Else {
Do ..LogOnbekendeVariant(Variant, OPCKenmerkenRequest.Header)
}
@@ -104,11 +105,11 @@
IdentnummerLijst:%ListOfObjects,AXConfiguratieArray:%ArrayOfDataTypes
1
@@ -132,6 +133,20 @@
]]>
+
+InkortingLijst:%ListOfObjects,AXConfiguratieArray:%ArrayOfDataTypes
+1
+
+
+
BlumKenmerken:%ListOfObjects,VertaaldeWinkelkarInfo:%ListOfObjects
1
Index: vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428)
+++ vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447)
@@ -40,6 +40,7 @@
Set RVGKenmerken.InbouwHoogte = 1837
Set RVGKenmerken.InstelZijde = $$$False
Set RVGKenmerken.InbouwBreedte = 540
+ Set RVGKenmerken.InkortingLijst = "Track right;834;mm;"
Set RVGKenmerken.NominaleLengte = 450
Set RVGKenmerken.FrontOverstand = 99
Set RVGKenmerken.PocketAchterwandDikte = 4.5
Index: ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69428)
+++ ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69447)
@@ -129,6 +129,11 @@
+
+ECON.String
+
+
+
ECON.Boolean
@@ -279,6 +284,8 @@
If (Property = "StukLijst") {
Set Code = "Set .."_Property_" = ..ConcateneerStuklijst(KenmerkenArray)"
+ } ElseIf (Property = "InkortingLijst") {
+ Set Code = "Set .."_Property_" = ..ConcateneerInkortinglijst(KenmerkenArray)"
} ElseIf (PropertyType = "ECON.Boolean") {
Set Code = "Set .."_Property_" = $ZCVT(KenmerkenArray.GetAt("""_Key_"""),""L"")"
} Else {
@@ -309,6 +316,27 @@
]]>
+
+KenmerkenArray:%ArrayOfDataTypes
+1
+%String
+
+
+
objectgenerator
%ArrayOfDataTypes
@@ -491,6 +519,9 @@
VoegZijkant
+
+InkortingLijst
+
Index: DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428)
+++ DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447)
@@ -101,6 +101,10 @@
%Decimal
+
+TECH.String
+
+
%Boolean
@@ -229,7 +233,6 @@
%Library.CacheStorage
RVGKenmerkenDefaultData
-listnode
"RVGKenmerken"
BinnencorpusbreedteInDeToepassing
@@ -378,6 +381,9 @@
VoegZijkant
+
+InkortingLijst
+
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447)
@@ -32,6 +32,7 @@
Set RvgKenmerken.InbouwBreedte = 876
Set RvgKenmerken.InbouwDiepte = 595
Set RvgKenmerken.InbouwHoogte = 1928
+ Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
Set RvgKenmerken.Krasbescherming = $$$False
Set RvgKenmerken.LeverancierA = "unilin"
Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
@@ -83,6 +84,7 @@
Set RvgKenmerken.InbouwBreedte = 2876
Set RvgKenmerken.InbouwDiepte = 998
Set RvgKenmerken.InbouwHoogte = 2378
+ Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
Set RvgKenmerken.Krasbescherming = $$$True
Set RvgKenmerken.LeverancierA = "unilin"
Set RvgKenmerken.LeverancierB = "egger"
Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Rvg.cls.xml
===================================================================
diff -u -r68549 -r69447
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Rvg.cls.xml (.../Rvg.cls.xml) (revision 68549)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Rvg.cls.xml (.../Rvg.cls.xml) (revision 69447)
@@ -36,7 +36,7 @@
#dim Property As %String = ""
For { set Property = $order(Properties(Property)) quit:Property=""
continue:##class(TECH.StringUtils).Equals(Property,"Familie","Variant")
- continue:##class(TECH.StringUtils).Equals(Property,"Stuklijst")
+ continue:##class(TECH.StringUtils).Equals(Property,"Stuklijst","Inkortinglijst")
if $listget(Properties(Property),1)="ECON.Boolean" {
Do %code.WriteLine($$$TAB_"Set RvgKenmerken."_Property_" = $select(Kenmerken."_Property_"=""true"":""1"",1:""0"")")
Index: vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69428)
+++ vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69447)
@@ -26,6 +26,7 @@
Set RvgKenmerken.InbouwBreedte = 876
Set RvgKenmerken.InbouwDiepte = 595
Set RvgKenmerken.InbouwHoogte = 1928
+ Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
Set RvgKenmerken.Krasbescherming = "false"
Set RvgKenmerken.LeverancierA = "unilin"
Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront()
@@ -78,6 +79,7 @@
Set RvgKenmerken.InbouwBreedte = 2876
Set RvgKenmerken.InbouwDiepte = 998
Set RvgKenmerken.InbouwHoogte = 2378
+ Set RvgKenmerken.InkortingLijst = "Track right;834;mm;"
Set RvgKenmerken.Krasbescherming = "true"
Set RvgKenmerken.LeverancierA = "unilin"
Set RvgKenmerken.LeverancierB = "egger"
Index: APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml
===================================================================
diff -u -r69428 -r69447
--- APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428)
+++ APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447)
@@ -105,6 +105,10 @@
%Boolean
+
+TECH.String
+
+
%Boolean
Index: APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml
===================================================================
diff -u -r69428 -r69447
--- APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 69428)
+++ APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 69447)
@@ -43,6 +43,7 @@
Set DomKenmerken.InbouwDiepte = DtoKenmerken.InbouwDiepte
Set DomKenmerken.InbouwHoogte = DtoKenmerken.InbouwHoogte
Set DomKenmerken.InstelZijde = DtoKenmerken.InstelZijde
+ Set DomKenmerken.InkortingLijst = DtoKenmerken.InkortingLijst
Set DomKenmerken.Krasbescherming = DtoKenmerken.Krasbescherming
Set DomKenmerken.LeverancierA = DtoKenmerken.LeverancierA
Set DomKenmerken.LeverancierB = DtoKenmerken.LeverancierB