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 _ "'" ]]>