Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r51801 -r53400 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 51801) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 53400) @@ -199,6 +199,8 @@ Set TbxKenmerken.NietMeeleveren.TiponBlumotionSet = "true" Set TbxKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieToebehoren = "true" Set TbxKenmerken.NietMeeleveren.TiponBlumotionSynchronisatieStang = "true" + Set TbxKenmerken.NietMeeleveren.Spoelbakdwarslat = "true" + Set TbxKenmerken.NietMeeleveren.TiponBlumotionOnderdelen = "true" Quit TbxKenmerken ]]> Index: vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml =================================================================== diff -u -r53201 -r53400 --- vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 53201) +++ vhTest/Utils/AXimpl/PM/Maatwerk/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 53400) @@ -34,24 +34,26 @@ Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "Inbouwhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "Zijkanthoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "Zijwandverhogingtype", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -80,24 +82,26 @@ Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "Inbouwhoogte", "DM", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", "", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).D(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "DM", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", "", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).D(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "Zijkanthoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "Zijwandverhogingtype", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).D(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Reling(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -138,36 +142,38 @@ Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "Inbouwhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", "", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", "", TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Spoelbak(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "Uitsparingdatauitsparingaantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "Uitsparingdataxbreedte", "147", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "Uitsparingdataxhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "Uitsparingdataxmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "Uitsparingdataybreedte", "147", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "Uitsparingdatayhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "Uitsparingdataymateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "Uitsparingdataz1breedte", "306", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "Uitsparingdataz1diepte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "Uitsparingdataz1hoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "Uitsparingdataz1materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "Uitsparingdataz1vorm", "Recht", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "Zijkanthoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "Zijwandverhogingtype", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "UitsparingData_X_Breedte", "147", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "UitsparingData_X_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "UitsparingData_Y_Breedte", "147", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "UitsparingData_Y_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "UitsparingData_Z1_Breedte", "306", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "UitsparingData_Z1_Diepte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "UitsparingData_Z1_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "UitsparingData_Z1_Vorm", "Recht", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -181,11 +187,15 @@ Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set UitsparingDataUitsparingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() @@ -200,32 +210,42 @@ Set UitsparingDataZ1Hoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set UitsparingDataZ1Materiaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set UitsparingDataZ1Vorm = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", "", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", "", TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).SifonType2(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "Uitsparingdatauitsparingaantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "Uitsparingdataxbreedte", "225", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "Uitsparingdataxhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "Uitsparingdataxmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "Uitsparingdataybreedte", "225", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "Uitsparingdatayhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "Uitsparingdataymateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "Uitsparingdataz1breedte", "150", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "Uitsparingdataz1diepte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "Uitsparingdataz1hoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "Uitsparingdataz1materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "Uitsparingdataz1vorm", "Recht", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Enkel(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "UitsparingData_X_Breedte", "225", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "UitsparingData_X_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "UitsparingData_Y_Breedte", "225", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "UitsparingData_Y_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "UitsparingData_Z1_Breedte", "150", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "UitsparingData_Z1_Diepte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "UitsparingData_Z1_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "UitsparingData_Z1_Vorm", "Recht", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -239,11 +259,15 @@ Set CorpusBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set CorpusWandDikte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set DwarsverdelingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set FrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set GeleiderTechnologie = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set HeeftOpvullijstLinks = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set HeeftOpvullijstRechts = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set InbouwHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set InterneBreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set IsBinnenbreedte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set IsBinnenlade = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set RugHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set RugwandMateriaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set Toepassing = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set UitsparingDataUitsparingAantal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() @@ -266,40 +290,50 @@ Set UitsparingDataZ2Hoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set UitsparingDataZ2Materiaal = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set UitsparingDataZ2Vorm = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "900", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "900", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", "", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "900", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "900", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", "", TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).SifonType2(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "Uitsparingdatauitsparingaantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Dubbel(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMBreedte, "Uitsparingdatambreedte", "240", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMHoogte, "Uitsparingdatamhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMMateriaal, "Uitsparingdatammateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "Uitsparingdataxbreedte", "180", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "Uitsparingdataxhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "Uitsparingdataxmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "Uitsparingdataybreedte", "180", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "Uitsparingdatayhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "Uitsparingdataymateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "Uitsparingdataz1breedte", "150", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "Uitsparingdataz1diepte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "Uitsparingdataz1hoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "Uitsparingdataz1materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "Uitsparingdataz1vorm", "Recht", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Breedte, "Uitsparingdataz2breedte", "150", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Diepte, "Uitsparingdataz2diepte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Hoogte, "Uitsparingdataz2hoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Materiaal, "Uitsparingdataz2materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Vorm, "Uitsparingdataz2vorm", "Recht", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataUitsparingAantal, "UitsparingData_UitsparingAantal", ##class(ECON.PM.Maatwerk.enu.TBXUitsparingAantal).Dubbel(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMBreedte, "UitsparingData_M_Breedte", "240", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMHoogte, "UitsparingData_M_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataMMateriaal, "UitsparingData_M_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXBreedte, "UitsparingData_X_Breedte", "180", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXHoogte, "UitsparingData_X_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataXMateriaal, "UitsparingData_X_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYBreedte, "UitsparingData_Y_Breedte", "180", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYHoogte, "UitsparingData_Y_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataYMateriaal, "UitsparingData_Y_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Breedte, "UitsparingData_Z1_Breedte", "150", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Diepte, "UitsparingData_Z1_Diepte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Hoogte, "UitsparingData_Z1_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Materiaal, "UitsparingData_Z1_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ1Vorm, "UitsparingData_Z1_Vorm", "Recht", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Breedte, "UitsparingData_Z2_Breedte", "150", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Diepte, "UitsparingData_Z2_Diepte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Hoogte, "UitsparingData_Z2_Hoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Materiaal, "UitsparingData_Z2_Materiaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Staal(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(UitsparingDataZ2Vorm, "UitsparingData_Z2_Vorm", "Recht", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -334,30 +368,32 @@ Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandVerhogingRelingKleur = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "18", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Drie(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).TiponBlumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "Inbouwhoogte", "CM", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "514", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(MatKleur, "Matkleur", ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(MatMateriaal, "Matmateriaal", ##class(DOM.PM.enu.MATMateriaal).AntislipFiber(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(OpvullijstKleur, "Opvullijstkleur", ##class(ECON.PM.Maatwerk.enu.TBXOpvullijstKleur).Wit(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).C(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "18", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Drie(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).TiponBlumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "CM", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "514", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(MatKleur, "MatKleur", ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(MatMateriaal, "MatMateriaal", ##class(DOM.PM.enu.MATMateriaal).AntislipFiber(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(OpvullijstKleur, "OpvullijstKleur", ##class(ECON.PM.Maatwerk.enu.TBXOpvullijstKleur).Wit(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).C(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "Zijkanthoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingMateriaal, "Zijwandverhogingmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Glas(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingInschuifelementKleur, "Zijwandverhoginginschuifelementkleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "Zijwandverhogingtype", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).InschuifElement(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingRelingKleur, "Zijwandverhogingrelingkleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingRelingKleur).ZijdeWit(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingMateriaal, "ZijwandVerhogingMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementMateriaal).Glas(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingInschuifelementKleur, "ZijwandVerhogingInschuifelementKleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingInschuifelementKleur).FloatGezuurd8mm(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).InschuifElement(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingRelingKleur, "ZijwandVerhogingRelingKleur", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingRelingKleur).ZijdeWit(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -385,46 +421,50 @@ Set ZijkantHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenGeleider = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenFrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenReling = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenBodemsteun = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set NietMeeleverenAfdekkap = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenAntislipmat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenBodemsteun = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenFrontBevestiging = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenGeleider = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set NietMeeleverenInschuifElement = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set NietMeeleverenOpvullijst = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenAntislipmat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenTiponBlumotionSet = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenTiponBlumotionSynchronisatieToebehoren = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Set NietMeeleverenTiponBlumotionSynchronisatieStang = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenReling = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenSpoelbakdwarslat = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenTOBOnderdelen = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenTOBSet = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenTOBSyncToebehoren = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() + Set NietMeeleverenTOBSyncStang = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "Inbouwhoogte", "M", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "M", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "Zijkanthoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "Zijwandverhogingtype", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenGeleider, "Nietmeeleverengeleider", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenFrontBevestiging, "Nietmeeleverenfrontbevestiging", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenReling, "Nietmeeleverenreling", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenBodemsteun, "Nietmeeleverenbodemsteun", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAfdekkap, "Nietmeeleverenafdekkap", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenInschuifElement, "Nietmeelevereninschuifelement", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenOpvullijst, "Nietmeeleverenopvullijst", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAntislipmat, "Nietmeeleverenantislipmat", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTiponBlumotionSet, "Nietmeeleverentiponblumotionset", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTiponBlumotionSynchronisatieToebehoren, "Nietmeeleverentiponblumotionsynchronisatietoebehoren", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTiponBlumotionSynchronisatieStang, "Nietmeeleverentiponblumotionsynchronisatiestang", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAfdekkap, "NM_Afdekkap", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenAntislipmat, "NM_Antislipmat", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenBodemsteun, "NM_Bodemsteun", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenFrontBevestiging, "NM_FrontBevestiging", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenGeleider, "NM_Geleider", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenInschuifElement, "NM_InschuifElement", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenOpvullijst, "NM_Opvullijst", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenReling, "NM_Reling", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenSpoelbakdwarslat, "NM_Spoelbakdwarslat", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBOnderdelen, "NM_TOBOnderdelen", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSet, "NM_TOBSet", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSyncToebehoren, "NM_TOBSynchronisatieToebehoren", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(NietMeeleverenTOBSyncStang, "NM_TOBSynchronisatieStang", "true", TbxKenmerken) Quit TbxKenmerken ]]> @@ -454,24 +494,26 @@ Set ZijwandHoogte = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set ZijwandVerhogingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "Corpusbreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "Corpuswanddikte", "0", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "Dwarsverdelingaantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "Geleidertechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "Heeftopvullijstlinks", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "Heeftopvullijstrechts", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "Inbouwhoogte", "CM", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "Internebreedte", "600", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "Isbinnenbreedte", "true", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "Isbinnenlade", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "Frontbevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "Rughoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "Rugwandmateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusBreedte, "CorpusBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(CorpusWandDikte, "CorpusWandDikte", "0", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(DwarsverdelingAantal, "DwarsverdelingAantal", ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GeleiderTechnologie, "GeleiderTechnologie", ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstLinks, "HeeftOpvullijstLinks", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftOpvullijstRechts, "HeeftOpvullijstRechts", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InbouwHoogte, "InbouwHoogte", "CM", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(InterneBreedte, "InterneBreedte", "600", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenbreedte, "IsBinnenbreedte", "true", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(IsBinnenlade, "IsBinnenlade", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontBevestiging, "FrontBevestiging", ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugHoogte, "RugHoogte", ##class(ECON.PM.Maatwerk.enu.TBXRugHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(RugwandMateriaal, "RugwandMateriaal", ##class(ECON.PM.Maatwerk.enu.TBXRugwandMateriaal).Hout(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Toepassing, "Toepassing", ##class(ECON.PM.Maatwerk.enu.TBXToepassing).Lade(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "Zijkanthoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "Zijwandhoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "Zijwandverhogingtype", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijkantHoogte, "ZijkantHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijkantHoogte).M(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandHoogte, "ZijwandHoogte", ##class(ECON.PM.Maatwerk.enu.TBXZijwandHoogte).C(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ZijwandVerhogingType, "ZijwandVerhogingType", ##class(ECON.PM.Maatwerk.enu.TBXZijwandVerhogingType).Zonder(), TbxKenmerken) + Do ..ZetDefaultNietMeeleverenKenmerken(TbxKenmerken) + Quit TbxKenmerken ]]> @@ -499,27 +541,62 @@ Set Variant = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set VerpakkingType = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - Do ..SetAxdEntityAttributeEnInsertInLijst(BodemKleur, "Bodemkleur", ##class(ECON.PM.Maatwerk.enu.TBXBodemKleur).Wit(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(BodemKleur, "BodemKleur", ##class(ECON.PM.Maatwerk.enu.TBXBodemKleur).Wit(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Draagkracht, "Draagkracht", ##class(ECON.PM.Maatwerk.enu.TBXDraagkracht).Draagkracht30(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Familie, "Familie", "Lade", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontHouderKleur, "Fronthouderkleur", "", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontOndersteuningType, "Frontondersteuningtype", ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(FrontStabilisatorAantal, "Frontstabilisatoraantal", "", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(GreepEnMeenemer, "Greepenmeenemer", ##class(ECON.PM.Maatwerk.enu.TBXGreepEnMeenemer).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HangmapBoringAantal, "Hangmapboringaantal", ##class(ECON.PM.Maatwerk.enu.TBXHangmapBoringAantal).Zonder(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftAfwijkendeRughoogte, "Heeftafwijkenderughoogte", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftZijstabilisering, "Heeftzijstabilisering", "false", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDesign, "Ladedesign", ##class(ECON.PM.Maatwerk.enu.TBXLadeDesign).ZijdeWitAntaro(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDiepte, "Ladediepte", ##class(ECON.PM.Maatwerk.enu.TBXLadeDiepte).LadeDiepte500(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(LadeKleur, "Ladekleur", ##class(ECON.PM.Maatwerk.enu.TBXLadeKleur).ZijdeWit(), TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(ProductieWijze, "Productiewijze", ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontHouderKleur, "FrontHouderKleur", "", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontOndersteuningType, "FrontOndersteuningType", ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(FrontStabilisatorAantal, "FrontStabilisatorAantal", "", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(GreepEnMeenemer, "GreepEnMeenemer", ##class(ECON.PM.Maatwerk.enu.TBXGreepEnMeenemer).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HangmapBoringAantal, "HangmapBoringAantal", ##class(ECON.PM.Maatwerk.enu.TBXHangmapBoringAantal).Zonder(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftAfwijkendeRughoogte, "HeeftAfwijkendeRughoogte", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(HeeftZijstabilisering, "HeeftZijstabilisering", "false", TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDesign, "LadeDesign", ##class(ECON.PM.Maatwerk.enu.TBXLadeDesign).ZijdeWitAntaro(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(LadeDiepte, "LadeDiepte", ##class(ECON.PM.Maatwerk.enu.TBXLadeDiepte).LadeDiepte500(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(LadeKleur, "LadeKleur", ##class(ECON.PM.Maatwerk.enu.TBXLadeKleur).ZijdeWit(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(ProductieWijze, "ProductieWijze", ##class(ECON.PM.Maatwerk.enu.ProductieWijze).Volledig(), TbxKenmerken) Do ..SetAxdEntityAttributeEnInsertInLijst(Variant, "Variant", "TBX", TbxKenmerken) - Do ..SetAxdEntityAttributeEnInsertInLijst(VerpakkingType, "Verpakkingtype", ##class(ECON.PM.Maatwerk.enu.TBXVerpakkingType).V1(), TbxKenmerken) + Do ..SetAxdEntityAttributeEnInsertInLijst(VerpakkingType, "VerpakkingType", ##class(ECON.PM.Maatwerk.enu.TBXVerpakkingType).V1(), TbxKenmerken) Quit TbxKenmerken ]]> + +1 +TbxKenmerken:%ListOfObjects +1 + + + 1 AxdEntityAttribute:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute,AxdEntityAttributeName:%String,AxdEntityAttributeValueTxt:%String,TbxKenmerken:%ListOfObjects Index: vhUnitTest/AXimpl/PM/Maatwerk/TBX/AxNaarEconConverter/Test.cls.xml =================================================================== diff -u -r53200 -r53400 --- vhUnitTest/AXimpl/PM/Maatwerk/TBX/AxNaarEconConverter/Test.cls.xml (.../Test.cls.xml) (revision 53200) +++ vhUnitTest/AXimpl/PM/Maatwerk/TBX/AxNaarEconConverter/Test.cls.xml (.../Test.cls.xml) (revision 53400) @@ -32,23 +32,17 @@ ]]> - - -IN COMMENT TOTDAT BESLIST IS HOE AX UITSPARINGDATA EN NIETMEELEVEREN GAAT DOORGEVEN + - - -IN COMMENT TOTDAT BESLIST IS HOE AX UITSPARINGDATA EN NIETMEELEVEREN GAAT DOORGEVEN + - - -IN COMMENT TOTDAT BESLIST IS HOE AX UITSPARINGDATA EN NIETMEELEVEREN GAAT DOORGEVEN + @@ -58,9 +52,7 @@ ]]> - - -IN COMMENT TOTDAT BESLIST IS HOE AX UITSPARINGDATA EN NIETMEELEVEREN GAAT DOORGEVEN + @@ -79,8 +71,6 @@ #dim AxKenmerken As %ListOfDataTypes = $ClassMethod("vhTest.Utils.AXimpl.PM.Maatwerk.TbxKenmerken", SoortLade) #dim GeconverteerdeKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratie = ..Converter.Convert(AxKenmerken) #dim IngegevenKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken = GeconverteerdeKenmerken.IngegevenKenmerken - #dim NietMeeleveren As ECON.PM.Maatwerk.dto.TbxKenmerken.NietMeeleveren = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken.NietMeeleveren).%New() - Set IngegevenKenmerken.NietMeeleveren = NietMeeleveren Do $$$AssertEmptyList(..Differenciator.GetDifferences(IngegevenKenmerken, $ClassMethod("vhTest.Utils.ECON.PM.Maatwerk.dto.TbxKenmerken", SoortLade))) ]]>