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 @@