Index: DOM/PM/enu/RVGTiponBevestiging.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGTiponBevestiging.cls.xml (revision 0) +++ DOM/PM/enu/RVGTiponBevestiging.cls.xml (revision 73395) @@ -0,0 +1,32 @@ + + + +datatype +1 +TECH.Enumeration + + +;AdapterPlaat;Ingebouwd + + + +;AdapterPlaat;Ingebouwd + + + +1 +DOM.PM.enu.RVGTiponBevestiging + + + + +1 +DOM.PM.enu.RVGTiponBevestiging + + + + + + Index: APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml =================================================================== diff -u -r72891 -r73395 --- APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 72891) +++ APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 73395) @@ -69,6 +69,8 @@ Set DomKenmerken.SpaanplaatSchroeven = DtoKenmerken.SpaanplaatSchroeven Set DomKenmerken.SysteemSchroeven = DtoKenmerken.SysteemSchroeven Set DomKenmerken.StukLijst = DtoKenmerken.StukLijst + Set DomKenmerken.TiponAdapterPlaatBevestiging = DtoKenmerken.TiponAdapterPlaatBevestiging + Set DomKenmerken.TiponBevestiging = DtoKenmerken.TiponBevestiging Set DomKenmerken.TOKleur = DtoKenmerken.TOKleur Set DomKenmerken.Toepassing = DtoKenmerken.Toepassing Set DomKenmerken.TypeMateriaalOppervlakteA = DtoKenmerken.TypeMateriaalOppervlakteA Index: DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 72891) +++ DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 73395) @@ -217,6 +217,14 @@ TECH.String + +DOM.PM.enu.RVGTiponBevestiging + + + +DOM.PM.enu.RVGTiponAdapterPlaatBevestiging + + DOM.PM.enu.RVGTOKleur @@ -482,6 +490,12 @@ PocketVerbinder + +TiponBevestiging + + +TiponAdapterPlaatBevestiging + Index: DOM/PM/enu/RVGTiponAdapterPlaatBevestiging/AutoComplete.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGTiponAdapterPlaatBevestiging/AutoComplete.cls.xml (revision 0) +++ DOM/PM/enu/RVGTiponAdapterPlaatBevestiging/AutoComplete.cls.xml (revision 73395) @@ -0,0 +1,21 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +serial +1 +%SerialObject + + +%String +"Schroef" +1 +1 + + + + + Index: DOM/PM/enu/RVGTiponAdapterPlaatBevestiging/Verwerker.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGTiponAdapterPlaatBevestiging/Verwerker.cls.xml (revision 0) +++ DOM/PM/enu/RVGTiponAdapterPlaatBevestiging/Verwerker.cls.xml (revision 73395) @@ -0,0 +1,32 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +1 +1 + + +1 +RVGTiponAdapterPlaatBevestiging:DOM.PM.enu.RVGTiponAdapterPlaatBevestiging + + + + +1 +1 + + + + + + Index: vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 72891) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 73395) @@ -55,6 +55,8 @@ Set RvgKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd() Set RvgKenmerken.SpaanplaatSchroeven = $$$False Set RvgKenmerken.SysteemSchroeven = $$$False + Set RvgKenmerken.TiponAdapterPlaatBevestiging = ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Schroef() + Set RvgKenmerken.TiponBevestiging = ##class(DOM.PM.enu.RVGTiponBevestiging).Ingebouwd() Set RvgKenmerken.TOKleur = ##class(DOM.PM.enu.RVGTOKleur).Platinumgrijs() Set RvgKenmerken.Toepassing = ##class(DOM.PM.enu.RVGToepassing).UnoLinks() Set RvgKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine() Index: DOM/PM/enu/RVGTiponBevestiging/Verwerker.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGTiponBevestiging/Verwerker.cls.xml (revision 0) +++ DOM/PM/enu/RVGTiponBevestiging/Verwerker.cls.xml (revision 73395) @@ -0,0 +1,40 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +1 +1 + + +1 +RVGTiponBevestiging:DOM.PM.enu.RVGTiponBevestiging + + + + +1 +1 + + + + +1 +1 + + + + + + Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r72891 -r73395 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 72891) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 73395) @@ -436,6 +436,8 @@ _ ";" _ RVGKenmerken.SysteemSchroeven _ ";" _ RVGKenmerken.ExpandoTSpreiddrevel _ ";" _ RVGKenmerken.PocketVerbinder + _ ";" _ RVGKenmerken.TiponAdapterPlaatBevestiging + _ ";" _ RVGKenmerken.TiponBevestiging ]]> Index: vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 72891) +++ vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 73395) @@ -54,6 +54,8 @@ Do ..VoegToeKenmerk("Productiewijze", ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd(), RvgKenmerken) Do ..VoegToeKenmerk("Spaanplaatschroeven", "false", RvgKenmerken) Do ..VoegToeKenmerk("Systeemschroeven", "false", RvgKenmerken) + Do ..VoegToeKenmerk("Tiponbevestiging", ##class(DOM.PM.enu.RVGTiponBevestiging).Ingebouwd(), RvgKenmerken) + Do ..VoegToeKenmerk("Tiponadapterplaatbevestiging", ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Schroef(), RvgKenmerken) Do ..VoegToeKenmerk("Tokleur", ##class(DOM.PM.enu.RVGTOKleur).Platinumgrijs(), RvgKenmerken) Do ..VoegToeKenmerk("Toepassing", ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), RvgKenmerken) Do ..VoegToeKenmerk("Typemateriaaloppervlaktea", ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine(), RvgKenmerken) Index: vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 72891) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 73395) @@ -47,6 +47,8 @@ Set RvgKenmerken.SpaanplaatSchroeven = "false" Set RvgKenmerken.SysteemSchroeven = "false" Set RvgKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd() + Set RvgKenmerken.TiponAdapterPlaatBevestiging = ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Schroef() + Set RvgKenmerken.TiponBevestiging = ##class(DOM.PM.enu.RVGTiponBevestiging).Ingebouwd() Set RvgKenmerken.TOKleur = ##class(DOM.PM.enu.RVGTOKleur).Platinumgrijs() Set RvgKenmerken.Toepassing = ##class(DOM.PM.enu.RVGToepassing).UnoLinks() Set RvgKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine() @@ -58,7 +60,7 @@ Set RvgKenmerken.VoegLinks = 1 Set RvgKenmerken.VoegMidden = 1 Set RvgKenmerken.VoegRechts = 1 - + Quit RvgKenmerken ]]> Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml =================================================================== diff -u -r73147 -r73395 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml (.../Test.cls.xml) (revision 73147) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml (.../Test.cls.xml) (revision 73395) @@ -73,6 +73,8 @@ Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("laenge_tuerstabilisierung_rechts", "645", "Data.Kenmerken.Deurstabiliseerderrechts", "645") Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("fuge_aussen_links", "646", "Data.Kenmerken.Voeglinks", "646") Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("fuge_aussen_rechts", "647", "Data.Kenmerken.Voegrechts", "647") + Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("tip_on_montage_adpl", "648", "Data.Kenmerken.Tiponbevestiging", "648") + Do ..AssertConversieBlumKenmerkenNaarAxKenmerken("tip_on_montage", "649", "Data.Kenmerken.Tiponadapterplaatbevestiging", "649") ]]> @@ -222,6 +224,18 @@ ]]> + + + + + + + + BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteAXKenmerkName:%String,VerwachteAXKenmerkValue:%String 1 Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 72891) +++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 73395) @@ -51,6 +51,8 @@ Set RvgKenmerken.SpaanplaatSchroeven = $$$False Set RvgKenmerken.SysteemSchroeven = $$$False Set RvgKenmerken.ProductieWijze = ##class(DOM.PM.enu.RVGProductieWijze).Voorgemonteerd() + Set RvgKenmerken.TiponAdapterPlaatBevestiging = ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Schroef() + Set RvgKenmerken.TiponBevestiging = ##class(DOM.PM.enu.RVGTiponBevestiging).Ingebouwd() Set RvgKenmerken.TOKleur = ##class(DOM.PM.enu.RVGTOKleur).Platinumgrijs() Set RvgKenmerken.Toepassing = ##class(DOM.PM.enu.RVGToepassing).UnoLinks() Set RvgKenmerken.TypeMateriaalOppervlakteA = ##class(DOM.PM.enu.RVGTypeMateriaalOppervlakte).Melamine() Index: DOM/PM/enu/RVGTiponBevestiging/AutoComplete.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGTiponBevestiging/AutoComplete.cls.xml (revision 0) +++ DOM/PM/enu/RVGTiponBevestiging/AutoComplete.cls.xml (revision 73395) @@ -0,0 +1,28 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +serial +1 +%SerialObject + + +%String +"AdapterPlaat" +1 +1 + + + +%String +"Ingebouwd" +1 +1 + + + + + Index: DOM/PM/enu/RVGTiponAdapterPlaatBevestiging.cls.xml =================================================================== diff -u --- DOM/PM/enu/RVGTiponAdapterPlaatBevestiging.cls.xml (revision 0) +++ DOM/PM/enu/RVGTiponAdapterPlaatBevestiging.cls.xml (revision 73395) @@ -0,0 +1,25 @@ + + + +datatype +1 +TECH.Enumeration + + +;Schroef + + + +;Schroef + + + +1 +DOM.PM.enu.RVGTiponAdapterPlaatBevestiging + + + + + + Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestRVGKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestRVGKenmerken.cls.xml (.../TestRVGKenmerken.cls.xml) (revision 72891) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestRVGKenmerken.cls.xml (.../TestRVGKenmerken.cls.xml) (revision 73395) @@ -5,7 +5,7 @@ %String -;VG;\\;\\;758;540;1914;0;ZonderSokkel;DummyNaamA;DummyNaamB;DummyNummerA;DummyNummerB;DecoratiefPaneelKastZijwand;;19;18;19;870;542.3;497.9;18;1900;730;107.3;67.9;876;595;1928;;0;DummyLeverancierA;DummyLeverancierB;500;155;450;450;450;;300;450;;GeenFront;Vrijstaand;320;575;1915;18;\1;0.275.985.8;1;0.648.409.6;1;0.648.765.0;1;0.818.647.1;\;PG-M;UnoLinks;DummyMateriaalA;DummyMateriaalB;5;10;3;412;1;1;1;411;410;0;0;0;0 +;VG;\\;\\;758;540;1914;0;ZonderSokkel;DummyNaamA;DummyNaamB;DummyNummerA;DummyNummerB;DecoratiefPaneelKastZijwand;;19;18;19;870;542.3;497.9;18;1900;730;107.3;67.9;876;595;1928;;0;DummyLeverancierA;DummyLeverancierB;500;155;450;450;450;;300;450;;GeenFront;Vrijstaand;320;575;1915;18;\1;0.275.985.8;1;0.648.409.6;1;0.648.765.0;1;0.818.647.1;\;PG-M;UnoLinks;DummyMateriaalA;DummyMateriaalB;5;10;3;412;1;1;1;411;410;0;0;0;0;Schroef;Ingebouwd Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r73147 -r73395 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 73147) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 73395) @@ -241,10 +241,11 @@ Quit:(KenmerkKeyBlum="revego_spanplattenschrauben_jn") GeconverteerdeKenmerkName_"Spaanplaatschroeven" Quit:(KenmerkKeyBlum="revego_expandotduebel_jn") GeconverteerdeKenmerkName_"Expandotspreiddrevel" Quit:(KenmerkKeyBlum="pocketverbinder_zusatz") GeconverteerdeKenmerkName_"Pocketverbinder" - + Quit:(KenmerkKeyBlum="tip_on_montage_adpl") GeconverteerdeKenmerkName_"Tiponbevestiging" + Quit:(KenmerkKeyBlum="tip_on_montage") GeconverteerdeKenmerkName_"Tiponadapterplaatbevestiging" Quit:(KenmerkNameBlum="amount") "Data.Lijn.Aantal" - If $$$Not(##class(TECH.StringUtils).Equals(KenmerkKeyBlum, "preeinbautiefe", "preeinbauhoehe", "preeinbaubreite", "prelichte_tiefe_innen", "prelichte_hoehe_innen", "prelichte_weite_innen", "haendler_revego_vanh_a_dekornr", "haendler_revego_vanh_b_dekornr", "haendlercode", "haendler_revego_konfektionierung", "tip_onadplmater", "tip_onadplfor", "tip_on_montage")) { + If $$$Not(##class(TECH.StringUtils).Equals(KenmerkKeyBlum, "preeinbautiefe", "preeinbauhoehe", "preeinbaubreite", "prelichte_tiefe_innen", "prelichte_hoehe_innen", "prelichte_weite_innen", "haendler_revego_vanh_a_dekornr", "haendler_revego_vanh_b_dekornr", "haendlercode", "haendler_revego_konfektionierung", "tip_onadplmater", "tip_onadplfor")) { Do ..Logger.ErrorMail("Onbekende BlumKenmerkName", "Kon RVG BlumKenmerk '"_ KenmerkKeyBlum _"' niet vertalen.") } Quit ..#OnvertaalbaarKenmerk_" '" _ KenmerkKeyBlum _ "'" @@ -298,6 +299,9 @@ Quit:(KenmerkValueKeyBlum="unilin") ##class(DOM.PM.enu.RVGLeverancier).Unilin() Quit:(KenmerkValueKeyBlum="egger") ##class(DOM.PM.enu.RVGLeverancier).Egger() Quit:(KenmerkValueKeyBlum="stylinart") ##class(DOM.PM.enu.RVGLeverancier).Stylinart() + Quit:(KenmerkValueKeyBlum="schrauben") ##class(DOM.PM.enu.RVGTiponAdapterPlaatBevestiging).Schroef() + Quit:(KenmerkValueKeyBlum="adpl") ##class(DOM.PM.enu.RVGTiponBevestiging).AdapterPlaat() + Quit:(KenmerkValueKeyBlum="einb") ##class(DOM.PM.enu.RVGTiponBevestiging).Ingebouwd() If (##class(TECH.StringUtils).Equals(KenmerkKeyBlum, "haendler_revego_vanh_a_dekorname","haendler_revego_vanh_b_dekorname")) { Quit KenmerkValueBlum Index: APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 72891) +++ APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 73395) @@ -221,6 +221,14 @@ %Boolean + +TECH.String + + + +TECH.String + + DOM.PM.enu.RVGTOKleur Index: ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml =================================================================== diff -u -r72891 -r73395 --- ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 72891) +++ ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 73395) @@ -279,6 +279,16 @@ + +ECON.String + + + + +ECON.String + + + ECON.String @@ -668,6 +678,12 @@ PocketVerbinder + +TiponBevestiging + + +TiponAdapterPlaatBevestiging +