Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX/Test.cls.xml (revision 45729) @@ -0,0 +1,137 @@ + + + +vhUnitTest.DOM.PM.Maatwerk.LBX.Base + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,VerwachteOngeldigeProperties:%ListOfDataTypes + + + + + + Index: vhUnitTest/APPS/PM/Maatwerk/dto/LBXKenmerken/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/PM/Maatwerk/dto/LBXKenmerken/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/PM/Maatwerk/dto/LBXKenmerken/Test.cls.xml (revision 45729) @@ -0,0 +1,86 @@ + + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + + + + + +LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken +APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException + + + + + + Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (revision 0) +++ APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (revision 45729) @@ -0,0 +1,57 @@ + + + +DOM.PM.Maatwerk.LBX.impl.Base,TECH.Mockable + + +LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken + + + + +LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken,OngeldigeProperties:%ListOfDataTypes +1 + + + + + + Index: APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml =================================================================== diff -u -r39799 -r45729 --- APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml (.../LBXKenmerken.cls.xml) (revision 39799) +++ APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml (.../LBXKenmerken.cls.xml) (revision 45729) @@ -128,6 +128,30 @@ APPS.PM.enu.LBXAantalDwarsverdelingen + +APPS.PM.Maatwerk.impl.KenmerkenValidator.LBX +1 + + + +APPS.PM.Maatwerk.impl.KenmerkenValidator.Mailer +1 + + + +Validator:APPS.PM.Maatwerk.impl.KenmerkenValidator.LBX="",Mailer:APPS.PM.Maatwerk.impl.KenmerkenValidator.Mailer="" +1 +1 +%Status +1 + + + DOM.PM.enu.Familie %Boolean "PropertyNamen" toevoegen i.p.v "Opmerkingen" aan lijst voor onvolledige properties en Exceptie throwen - - method IsVolledig roept de ..Valideer() op binnen een Try-Catch() --> indien catch dan VerstuurMail() - */ + #dim IsVolledig As %Boolean = $$$False - #dim Opmerkingen As %String = "" - Set:(..Klasse = "") Opmerkingen = Opmerkingen_"Klasse niet ingevuld." - Set:(..CorpusBreedte = "") Opmerkingen = Opmerkingen_"CorpusBreedte niet ingevuld." - Set:('..IsBinnenbreedte && (..CorpusWandDikte = "")) Opmerkingen = Opmerkingen_"('..IsBinnenbreedte && (..CorpusWandDikte '= ""))" - Set:(..LadeKleur = "") Opmerkingen = Opmerkingen_"LadeKleur niet ingevuld." - Set:(..BodemKleur = "") Opmerkingen = Opmerkingen_"BodemKleur niet ingevuld." - Set:(..LadeHoogte = "") Opmerkingen = Opmerkingen_"LadeHoogte niet ingevuld." - Set:(..LadeDiepte = "") Opmerkingen = Opmerkingen_"LadeDiepte niet ingevuld." - Set:(..IsBinnenlade = "") Opmerkingen = Opmerkingen_"IsBinnenlade niet ingevuld." - Set:(..RugWandMateriaal = "") Opmerkingen = Opmerkingen_"RugWandMateriaal niet ingevuld." - If '( ('..IsBinnenlade) - || ( (..LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()) && (..VoorWandTypeVanCBinnenlade '= "") ) - || ( (..LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()) && (..VoorWandTypeVanMBinnenlade '= "" )) - ){ - Set Opmerkingen = Opmerkingen_"Binnenlade, C of M niet met VoorWandType ingevuld." + Try { + Do ..Valideer() + Set IsVolledig = $$$True + } Catch { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException") + Do ..Mailer.VerstuurMail(Exception) } - Set:(..HeeftOpvullijstLinks = "") Opmerkingen = Opmerkingen_"HeeftOpvullijstLinks niet ingevuld." - Set:(..HeeftOpvullijstRechts = "") Opmerkingen = Opmerkingen_"HeeftOpvullijstRechts niet ingevuld." - Set:(..HeeftZijstabilisering = "") Opmerkingen = Opmerkingen_"HeeftZijstabilisering niet ingevuld." - Set:(('..IsBinnenlade) && (..FrontBevestiging = "")) Opmerkingen = Opmerkingen_"FrontBevestiging niet ingevuld." - Set:(..GeleiderTechnologie = "") Opmerkingen = Opmerkingen_"GeleiderTechnologie niet ingevuld." - Set:(..Draagkracht = "") Opmerkingen = Opmerkingen_"Draagkracht niet ingevuld." - Set:(..VerpakkingType = "") Opmerkingen = Opmerkingen_"VerpakkingType niet ingevuld." - Set:(..ZijWandType = "") Opmerkingen = Opmerkingen_"ZijWandType niet ingevuld." - Set:(..HeeftDwarsverdeling = "") Opmerkingen = Opmerkingen_"HeeftDwarsverdeling niet ingevuld." - If $Length(Opmerkingen) { - #dim MailAPI As TECH.Mail.MailAPI = ##class(TECH.Context).Instance().GeefMailAPI() - #dim Mail As TECH.Mail.Mail = MailAPI.MaakNieuwMailVoorICT() - Do Mail.ZetVerzender($$$SystemMail("LBXKenmerken")) - Do Mail.ZetOnderwerp("IsVolledig") - Do Mail.ZetInhoud(Opmerkingen_$$$CRLF_$$$CRLF_##class(Tools.ObjectDumper.CodeCreator).%New(##this).ToString()_$$$CRLF_$$GetJobInfo^vhLib.System()) - Do MailAPI.VerstuurMail(Mail) - } - Quit ($Length(Opmerkingen)=0) + Quit IsVolledig ]]> - Index: vhTest/Mock/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml =================================================================== diff -u --- vhTest/Mock/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (revision 0) +++ vhTest/Mock/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (revision 45729) @@ -0,0 +1,25 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.PM.Maatwerk.impl.KenmerkenValidator.LBX,Tools.Mock.MockClassBase +right + + +DOM.PM.Maatwerk.LBX.impl.BaseEnums + + + + +LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken + + + + + + Index: vhTest/Fake/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml =================================================================== diff -u --- vhTest/Fake/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (revision 0) +++ vhTest/Fake/APPS/PM/Maatwerk/impl/KenmerkenValidator/LBX.cls.xml (revision 45729) @@ -0,0 +1,24 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +1 +APPS.PM.Maatwerk.impl.KenmerkenValidator.LBX + + +DOM.PM.Maatwerk.LBX.impl.BaseEnums + + + + +LbxKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken + + + + + +