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
+
+
+
+
+
+