Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml
===================================================================
diff -u -r60608 -r60685
--- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 60608)
+++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 60685)
@@ -8,6 +8,11 @@
Onvertaalbaar kenmerk
+
+%String
+EcenKenmerkValueIsLeegTeMaken
+
+
BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String="LBX"
WS.Vhisie4.OCC.dto.Kenmerk
@@ -22,6 +27,8 @@
If ($$$Not($$$HasLength(EconKenmerk.Value))) {
Set EconKenmerk.Value = ..ConvertKenmerkValueBlumNaarEconKenmerk(BlumKenmerk.Value, LadeType)
+ } ElseIf (EconKenmerk.Value = ..#EconKenmerkValueIsLeegTeMaken) {
+ Set EconKenmerk.Value = ""
}
If ($$$Not($$$HasLength(EconKenmerk.Name))) {
@@ -100,10 +107,12 @@
BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String
1
@@ -119,6 +128,10 @@
Do ..ConvertTbxKenmerkValueLateralDivider(BlumKenmerk, EconKenmerk)
} ElseIf (BlumKenmerk.Name = "latch") {
Do ..ConvertKenmerkNameLatch(EconKenmerk, LadeType)
+ } ElseIf ((LadeType = "TBX") & (BlumKenmerk.Name = "side stabiliser")) {
+ Do ..ConvertTbxKenmerkValueSideStabiliser(BlumKenmerk, EconKenmerk)
+ } ElseIf ((LadeType = "TBX") & (BlumKenmerk.Name = "blum design elements")) {
+ Do ..ConvertTbxKenmerkValueBlumDesignElements(BlumKenmerk, EconKenmerk)
}
]]>
@@ -141,6 +154,8 @@
Quit:(KenmerkNameBlumKenmerk="handle") "Data.Kenmerken.TBXGreepEnMeenemer"
Quit:(KenmerkNameBlumKenmerk="pull-out type") "Data.Kenmerken.Toepassing"
Quit:(KenmerkNameBlumKenmerk="type of back") "Data.Kenmerken.Rugwandmateriaal"
+ Quit:(KenmerkNameBlumKenmerk="blum design elements") "Data.Kenmerken.ZijwandVerhogingMateriaal"
+ Quit:(KenmerkNameBlumKenmerk="colour/surface of design elements") "Data.Kenmerken.ZijwandVerhogingInschuifelementKleur"
Quit ..#OnvertaalbaarKenmerk
]]>
@@ -220,6 +235,7 @@
Quit:(KenmerkValueBlumKenmerk="terra black matt") ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart()
Quit:(KenmerkValueBlumKenmerk="high fronted pull-out") ##class(DOM.PM.enu.LBXKlasse).Lade()
Quit:(KenmerkValueBlumKenmerk="drawer") ##class(DOM.PM.enu.LBXKlasse).Lade()
+ Quit:(KenmerkValueBlumKenmerk="sink high fronted pull-out") ##class(DOM.PM.enu.LBXKlasse).Spoelbak() // !!! Wordt, afhankelijk van "Sink pull-out design", aangepast naar SY in WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter
Quit:(KenmerkValueBlumKenmerk="sink drawer") ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
Quit:(KenmerkValueBlumKenmerk="wood") ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
Quit:(KenmerkValueBlumKenmerk="chipboard back") ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
@@ -232,14 +248,18 @@
-BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk
+BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String
1
%Boolean
@@ -332,11 +352,63 @@
} ElseIf (BlumKenmerk.Value = "2x2") {
Set EconKenmerk.Value = ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).TweeMaalTwee()
} Else {
+ Set EconKenmerk.Value = ..#EconKenmerkValueIsLeegTeMaken
+ }
+]]>
+
+
+
+BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk
+1
+
+
+BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk
+1
+
+
+
+
+BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String
+1
+
+
+
KenmerkValueBlumKenmerk:%String
1
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml
===================================================================
diff -u -r60607 -r60685
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 60607)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 60685)
@@ -48,7 +48,7 @@
Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "3", "Data.Kenmerken.Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Drie())
Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "4", "Data.Kenmerken.Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Vier())
Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "2x2", "Data.Kenmerken.Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).TweeMaalTwee())
- Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "RandomWaarde", "Data.Kenmerken.Dwarsverdelingaantal", ..#OnvertaalbaarKenmerk, "Onbekende waarde resulteert in 'Onvertaalbaar kenmerk'")
+ Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "RandomWaarde", "Data.Kenmerken.Dwarsverdelingaantal", "", "Onbekende waarde resulteert in leeg")
]]>
@@ -132,6 +132,13 @@
]]>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1
@@ -324,6 +334,16 @@
]]>
+
+BlumKenmerkSinkPullOutDesign:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String,EconConfiguratieArray:%ArrayOfDataTypes
+1
+
+
+
EconConfiguratieArray:%ArrayOfDataTypes,LadeType:%String
1
Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml
===================================================================
diff -u -r60313 -r60685
--- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml (.../Test.cls.xml) (revision 60313)
+++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml (.../Test.cls.xml) (revision 60685)
@@ -37,6 +37,7 @@