Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml
===================================================================
diff -u -r69049 -r69471
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 69049)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 69471)
@@ -120,13 +120,21 @@
@@ -179,26 +200,36 @@
Set OPCKenmerkenRequest = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest).%New()
#dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Programme", "REVEGO")
#dim BlumKenmerkRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("DummyKenmerkName", "DummyKenmerkValue")
+ #dim BlumKenmerkApplication As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Application", "revego uno, left")
+ Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkApplication)
Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkVariant)
Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkRandom)
+ #dim DummyLegeLijstGeconverteerdeInkortingen As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New()
#dim DummyVertaaldKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Variant", "RVG")
#dim BlumKenmerkFamilie As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Familie", "Meubel")
#dim BlumKenmerkVerpakkingType As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Verpakkingtype", "Pallet")
+ #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.ProductieWijze", "LC")
+ #dim KenmerkAfbeeldingCode As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Berekendewaarden.Afbeeldingcode", "UnoLinks")
+ #dim DummyVertaaldKenmerkToepassing As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Toepassing", "UnoLinks")
#dim DummyVertaalKenmerkdRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Random", "Random")
#dim DummyLegeLijstGeconverteerdeIdentNummers As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New()
Set BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New()
- Do BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", $$$ElkeWaarde).DanReturn(DummyLegeLijstGeconverteerdeIdentNummers)
+ Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", $$$ElkeWaarde).DanReturn(DummyLegeLijstGeconverteerdeIdentNummers)
+ Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumInkortingenAxKenmerk", OPCKenmerkenRequest.BlumInkortAfmetingen).DanReturn(DummyLegeLijstGeconverteerdeInkortingen)
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkVariant).DanReturn(DummyVertaaldKenmerkVariant).ExactAantalKeer(1)
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkRandom).DanReturn(DummyVertaalKenmerkdRandom).ExactAantalKeer(1)
+ Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkApplication).DanReturn(DummyVertaaldKenmerkToepassing).ExactAantalKeer(1)
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Familie", "Meubel").DanReturn(BlumKenmerkFamilie)
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Verpakkingtype", "Pallet").DanReturn(BlumKenmerkVerpakkingType)
+ Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Productiewijze", "").DanReturn(BlumKenmerkProductieWijze)
+ Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefBerekendKenmerk", "Afbeeldingcode", "UnoLinks").DanReturn(KenmerkAfbeeldingCode)
- Set OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(BlumNaarAxKenmerkenConverterMock)
+ Set OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(BlumNaarAxKenmerkenConverterMock)
#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
- Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 4)
+ Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 8)
Do BlumNaarAxKenmerkenConverterMock.Verifieer()
]]>
@@ -207,8 +238,10 @@
+
+BlumKenmerken:%ListOfObjects,ValueKenmerkToepassing:%String
+1
+
+
+
BlumIdentnummer:%String,Aantal:%Integer
1
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter/Test.cls.xml
===================================================================
diff -u -r68962 -r69471
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter/Test.cls.xml (.../Test.cls.xml) (revision 68962)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/EconConfiguratieConverter/Test.cls.xml (.../Test.cls.xml) (revision 69471)
@@ -108,6 +108,7 @@
Do EconConfiguratie.SetAt($$$DummyString,"Data.Lijn.Groeperingcode")
Do EconConfiguratie.SetAt("1;1.111.111.1;2;2.222.222.2;", "Data.Bomkenmerken.Stuklijst1")
Do EconConfiguratie.SetAt("3;3.333.333.3;4;4.444.444.4;", "Data.Bomkenmerken.Stuklijst2")
+ Do EconConfiguratie.SetAt("Track right;834;mm;", "Data.Bomkenmerken.Inkortinglijst1")
#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = EconConfiguratieConverter.Convert(EconConfiguratie)
Index: vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r69333 -r69471
--- vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69333)
+++ vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69471)
@@ -14,6 +14,13 @@
]]>
+
+BlumInkortingenLijst:%ListOfObjects
+%ListOfObjects
+
+
+
BlumKenmerk:WS.Vhisie4.OPC.dto.Kenmerk
WS.Vhisie4.OPC.dto.Kenmerk
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml
===================================================================
diff -u -r69026 -r69471
--- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 69026)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/ConverteerIngegevenKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 69471)
@@ -42,7 +42,7 @@
Set RvgKenmerken.InstelZijde = ""
Set RvgKenmerken.DeurSteunNaarBinnen = ""
- Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|FRONT_WIDTH:=534|FRONT_THICKNESS:=20|FRONT_HEIGHT:=1809|FRONT_PROTRUSION:=99|FRONT_PROTRUSION_LEFT:=200|FRONT_PROTRUSION_RIGHT:=314|MOUNTING_WIDTH:=540|INSTALLATION_DEPTH:=577|INSTALLATION_HEIGHT:=1837|NOMINAL_LENGTH:=450|POCKET_BACK_THICKNESS:=4.5|POCKET_DEPTH:=555|POCKET_HEIGTH:=1817|APPLICATION:=801_links|TOP_GAP:=4|BOTTOM_GAP:=4|SIDE_GAP:=3")
+ Do ..AssertConversieIngegegevenKenmerkNaarImosKenmerken(RvgKenmerken, "|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|FRONT_PROTRUSION_LEFT:=200|FRONT_PROTRUSION_RIGHT:=314|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|NOMINAL_LENGTH:=500|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|APPLICATION:=801_links|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3")
]]>
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r69447 -r69471
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69447)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69471)
@@ -200,9 +200,8 @@
Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, ProductieWijzeKenmerk)
#dim Toepassing As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Toepassing")
- #dim RVGKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
- Set RVGKenmerken.Toepassing = Toepassing
- #dim Afbeeldingcode As %String = ..AfbeeldingcodeBepaler.Bepaal(RVGKenmerken)
+ #dim Afbeeldingcode As %String = ..AfbeeldingcodeBepaler.BepaalViaToepassing(Toepassing)
+
#dim AfbeeldingcodeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.GeefBerekendKenmerk("Afbeeldingcode", Afbeeldingcode)
Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, AfbeeldingcodeKenmerk)
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarWinkelkarLijnInfo/Test.cls.xml
===================================================================
diff -u -r68689 -r69471
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 68689)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 69471)
@@ -12,6 +12,8 @@
Set BlumKenmerkNaarWinkelkarLijnInfoConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.IndienMethodCall("GeefTaalKenmerk", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(dummyConvertedKenmerk)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.IndienMethodCall("GeefGroepering", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(dummyConvertedKenmerk)
+ Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.IndienMethodCall("GeefKleurFront", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(dummyConvertedKenmerk).ExactAantalKeer(10)
+ Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.IndienMethodCall("GeefKleurPockBottomCover", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(dummyConvertedKenmerk).ExactAantalKeer(10)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.IndienMethodCall("ConverteerBlumKenmerkNaarWinkelkarLijnInfo", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(dummyConvertedKenmerk)
Set OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(, BlumKenmerkNaarWinkelkarLijnInfoConverterMock)
@@ -65,11 +67,15 @@
#dim DummyTaalKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefDummyKenmerk("DummyTaalWaarde", "DummyTaalValue")
#dim DummyGroeperingKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefDummyKenmerk("DummyGroeperingWaarde", "DummyGroeperingValue")
+ #dim DummyKleurFrontKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefDummyKenmerk("DummyKleurFrontWaarde", "DummyKleurFrontValue")
+ #dim DummyKleurPockBottomCoverKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefDummyKenmerk("DummyKleurPockBottomCoverWaarde", "DummyKleurPockBottomCoverValue")
#dim dummyConvertedKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefDummyKenmerk("DummyConvertedWaarde", "DummyConvertedValue")
Set BlumKenmerkNaarWinkelkarLijnInfoConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefTaalKenmerk", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyTaalKenmerk).ExactAantalKeer(10)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefGroepering", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyGroeperingKenmerk).ExactAantalKeer(10)
+ Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefKleurFront", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyKleurFrontKenmerk).ExactAantalKeer(10)
+ Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefKleurPockBottomCover", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyKleurPockBottomCoverKenmerk).ExactAantalKeer(10)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarWinkelkarLijnInfo", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(dummyConvertedKenmerk).ExactAantalKeer(20)
Set OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(, BlumKenmerkNaarWinkelkarLijnInfoConverterMock)
@@ -90,12 +96,14 @@
Set BlumKenmerkNaarWinkelkarLijnInfoConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter).%New()
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefTaalKenmerk", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyLeegKenmerk).ExactAantalKeer(10)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefGroepering", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyLeegKenmerk).ExactAantalKeer(10)
+ Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefKleurFront", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyLeegKenmerk).ExactAantalKeer(10)
+ Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.VerwachtMethodCall("GeefKleurPockBottomCover", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyLeegKenmerk).ExactAantalKeer(10)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.IndienMethodCall("ConverteerBlumKenmerkNaarWinkelkarLijnInfo", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(DummyLeegKenmerk)
Set OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(, BlumKenmerkNaarWinkelkarLijnInfoConverterMock)
#dim Resultaat As WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse = OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarWinkelkarLijnInfo(OPCKenmerkenRequest)
- Do $$$AssertEquals(Resultaat.WinkelkarInfoLijnen.Count(), 20)
+ Do $$$AssertEquals(Resultaat.WinkelkarInfoLijnen.Count(), 50)
Do BlumKenmerkNaarWinkelkarLijnInfoConverterMock.Verifieer()
]]>
@@ -128,7 +136,7 @@
-Name:%String="",Value:%String=""
+Name:%String="Dummy",Value:%String="Dummy"
1
WS.Vhisie4.OPC.dto.Kenmerk
+
+BlumInkortingenLijst:%ListOfObjects
+%ListOfObjects
+
+
+
BlumKenmerk:WS.Vhisie4.OPC.dto.Kenmerk
WS.Vhisie4.OPC.dto.Kenmerk
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r69450 -r69471
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69450)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69471)
@@ -198,6 +198,7 @@
Quit:(KenmerkNameBlum="exact nominal length, right") GeconverteerdeKenmerkName_"Nominalelengterechtsexact"
Do ##class(vhLib.Logger).%New("BlumNaarAXKenmerkenConvertor").ErrorMail("Kon RVG BlumKenmerk '"_ KenmerkNameBlum _"' niet vertalen.")
+ Quit ..#OnvertaalbaarKenmerk_" '" _ KenmerkNameBlum _ "'"
]]>