Index: vhTest/Utils/AXimpl/PM/Maatwerk/MvxKenmerken.cls.xml =================================================================== diff -u -r63024 -r63035 --- vhTest/Utils/AXimpl/PM/Maatwerk/MvxKenmerken.cls.xml (.../MvxKenmerken.cls.xml) (revision 63024) +++ vhTest/Utils/AXimpl/PM/Maatwerk/MvxKenmerken.cls.xml (.../MvxKenmerken.cls.xml) (revision 63035) @@ -59,83 +59,113 @@ ]]> - - +1 +%ListOfObjects + + -ClassMethod SifonLadeMet1Uitsparing() As %ListOfObjects -{ - #dim LbxKenmerken As %ListOfObjects = ..StandaardLade() + +1 +%ListOfObjects + + -ClassMethod SifonLadeMet2Uitsparingen() As %ListOfObjects -{ - #dim LbxKenmerken As %ListOfObjects = ..StandaardLade() + +1 +%ListOfObjects + + + + + +1 +%ListOfObjects + + + 1 MvxKenmerken:%ListOfObjects Index: APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Mvx.cls.xml =================================================================== diff -u -r62346 -r63035 --- APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Mvx.cls.xml (.../Mvx.cls.xml) (revision 62346) +++ APPS/PM/Maatwerk/impl/KenmerkenConverter/DomNaarApps/Mvx.cls.xml (.../Mvx.cls.xml) (revision 63035) @@ -3,6 +3,27 @@ DOM.PM.Maatwerk.MVX.impl.Base + + + + + + + + + + + + APPS.PM.Maatwerk.dto.MVXKenmerkenFactory 1 @@ -63,24 +84,16 @@ #dim UitsparingHelper As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New() Set AppsKenmerken.UitsparingDataAantalUitsparingen = UitsparingData.AantalUitsparingen - Set AppsKenmerken.UitsparingDataBreedteX = ..MaakLeegIndienNul(UitsparingData.RugDeelX) - Set AppsKenmerken.UitsparingDataBreedteM = ..MaakLeegIndienNul(UitsparingData.RugDeelM) - Set AppsKenmerken.UitsparingDataBreedteY = ..MaakLeegIndienNul(UitsparingData.RugDeelY) - Set AppsKenmerken.UitsparingDataBreedteZ1 = ..MaakLeegIndienNul(UitsparingHelper.GeefBreedteUitsparingZ1(UitsparingData)) - Set AppsKenmerken.UitsparingDataBreedteZ2 = ..MaakLeegIndienNul(UitsparingHelper.GeefBreedteUitsparingZ2(UitsparingData)) + Set AppsKenmerken.UitsparingDataBreedteX = UitsparingData.RugDeelX + Set AppsKenmerken.UitsparingDataBreedteM = UitsparingData.RugDeelM + Set AppsKenmerken.UitsparingDataBreedteY = UitsparingData.RugDeelY + Set AppsKenmerken.UitsparingDataBreedteZ1 = UitsparingHelper.GeefBreedteUitsparingZ1(UitsparingData) + Set AppsKenmerken.UitsparingDataBreedteZ2 = UitsparingHelper.GeefBreedteUitsparingZ2(UitsparingData) Set AppsKenmerken.UitsparingDataCodeZ1 = UitsparingData.UitsparingZ1 Set AppsKenmerken.UitsparingDataCodeZ2 = UitsparingData.UitsparingZ2 ]]> - -Kenmerk:TECH.Decimal -1 -%String - - - DomKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 Index: vhTest/Utils/ECON/PM/Maatwerk/dto/MvxKenmerken.cls.xml =================================================================== diff -u -r62346 -r63035 --- vhTest/Utils/ECON/PM/Maatwerk/dto/MvxKenmerken.cls.xml (.../MvxKenmerken.cls.xml) (revision 62346) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/MvxKenmerken.cls.xml (.../MvxKenmerken.cls.xml) (revision 63035) @@ -48,94 +48,106 @@ ]]> - - +1 +ECON.PM.Maatwerk.dto.MvxKenmerken + + -ClassMethod SpoelbakLade() As ECON.PM.Maatwerk.dto.LbxKenmerken -{ - #dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ..StandaardLade() + +1 +ECON.PM.Maatwerk.dto.MvxKenmerken + + -ClassMethod SifonLadeMet1Uitsparing() As ECON.PM.Maatwerk.dto.LbxKenmerken -{ - #dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ..StandaardLade() + +1 +ECON.PM.Maatwerk.dto.MvxKenmerken + + -ClassMethod SifonLadeMet2Uitsparingen() As ECON.PM.Maatwerk.dto.LbxKenmerken -{ - #dim LbxKenmerken As ECON.PM.Maatwerk.dto.LbxKenmerken = ..StandaardLade() - - Set LbxKenmerken.Toepassing = ##class(DOM.PM.enu.LBXKlasse).Sifon() - Set LbxKenmerken.CorpusBreedte = 900 - Set LbxKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() - Set LbxKenmerken.UitsparingData.M.Breedte = 240 - Set LbxKenmerken.UitsparingData.M.Hoogte = "M" - Set LbxKenmerken.UitsparingData.M.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout() - Set LbxKenmerken.UitsparingData.X.Breedte = 180 - Set LbxKenmerken.UitsparingData.X.Hoogte = "M" - Set LbxKenmerken.UitsparingData.X.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout() - Set LbxKenmerken.UitsparingData.Y.Breedte = 180 - Set LbxKenmerken.UitsparingData.Y.Hoogte = "M" - Set LbxKenmerken.UitsparingData.Y.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout() - Set LbxKenmerken.UitsparingData.Z1.Breedte = 150 - Set LbxKenmerken.UitsparingData.Z1.Diepte = 250 - Set LbxKenmerken.UitsparingData.Z1.Hoogte = "M" - Set LbxKenmerken.UitsparingData.Z1.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal() - Set LbxKenmerken.UitsparingData.Z1.Vorm = "Recht" - Set LbxKenmerken.UitsparingData.Z2.Breedte = 150 - Set LbxKenmerken.UitsparingData.Z2.Diepte = 250 - Set LbxKenmerken.UitsparingData.Z2.Hoogte = "M" - Set LbxKenmerken.UitsparingData.Z2.Materiaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal() - Set LbxKenmerken.UitsparingData.Z2.Vorm = "Recht" - - Quit LbxKenmerken -} - + + + + +1 +ECON.PM.Maatwerk.dto.MvxKenmerken + + Index: vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Mvx/Test.cls.xml =================================================================== diff -u -r62287 -r63035 --- vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Mvx/Test.cls.xml (.../Test.cls.xml) (revision 62287) +++ vhUnitTest/ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Mvx/Test.cls.xml (.../Test.cls.xml) (revision 63035) @@ -32,24 +32,24 @@ ]]> - - + + -Method "Test: MVX SifonLadeMet1Uitsparing"() -{ - Do ..AssertConverter("SifonLadeMet1Uitsparing") -} + + + -Method "Test: MVX SifonLadeMet2Uitsparingen"() -{ - Do ..AssertConverter("SifonLadeMet2Uitsparingen") -} + + + + + Index: vhTest/Utils/APPS/PM/Maatwerk/dto/MVXKenmerken.cls.xml =================================================================== diff -u -r62346 -r63035 --- vhTest/Utils/APPS/PM/Maatwerk/dto/MVXKenmerken.cls.xml (.../MVXKenmerken.cls.xml) (revision 62346) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/MVXKenmerken.cls.xml (.../MVXKenmerken.cls.xml) (revision 63035) @@ -54,53 +54,70 @@ ]]> - - +1 +APPS.PM.Maatwerk.dto.MVXKenmerken + + -ClassMethod SifonLadeMet1Uitsparing() As APPS.PM.Maatwerk.dto.LBXKenmerken -{ - #dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade() + +1 +APPS.PM.Maatwerk.dto.MVXKenmerken + + -ClassMethod SifonLadeMet2Uitsparingen() As APPS.PM.Maatwerk.dto.LBXKenmerken -{ - #dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade() + +1 +APPS.PM.Maatwerk.dto.MVXKenmerken + + -ClassMethod LadeMetVeelExtras() As APPS.PM.Maatwerk.dto.LBXKenmerken + + + -ClassMethod StandaardLadeMetNietMeeleveren() As APPS.PM.Maatwerk.dto.LBXKenmerken -{ - #dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade() + +1 +APPS.PM.Maatwerk.dto.MVXKenmerken + + -ClassMethod CLade() As APPS.PM.Maatwerk.dto.LBXKenmerken + +