Index: APPS/TRANSP/GLS/impl/Validator.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/GLS/impl/Validator.cls.xml	(revision 0)
+++ APPS/TRANSP/GLS/impl/Validator.cls.xml	(revision 29513)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.GLS.impl.Validator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="ValideerAfzenderReferentie">
+<FormalSpec>AfzenderReferentie:TECH.String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do:(AfzenderReferentie = "") ..ThrowException("De afzender referentie is vereist.")
+	Do:($$$Not(AfzenderReferentie ? 5N1"X"6N2.3A)) ..ThrowException("Het formaat van de afzender referentie is foutief.")
+
+	Quit $$$True
+]]></Implementation>
+</Method>
+
+<Method name="ThrowException">
+<FormalSpec>Omschrijving:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Omschrijving))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/GLS/impl/Validator/ValideerAfzenderReferentie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/GLS/impl/Validator/ValideerAfzenderReferentie/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/GLS/impl/Validator/ValideerAfzenderReferentie/Test.cls.xml	(revision 29513)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.GLS.impl.Validator.ValideerAfzenderReferentie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Validator">
+<Type>APPS.TRANSP.GLS.impl.Validator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[	Set ..Validator = ##class(APPS.TRANSP.GLS.impl.Validator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestCorrecteWaarde">
+<Implementation><![CDATA[
+	Do $$$AssertTrue(..Validator.ValideerAfzenderReferentie("12345X123456ab"))
+	Do $$$AssertTrue(..Validator.ValideerAfzenderReferentie("12345X123456abc"))
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetLegeWaarde">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("", "De afzender referentie is vereist")
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetTeKorteWaarde">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("TeKort", "Het formaat van de afzender referentie is foutief")
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetTeLangeWaarde">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("TeLangeAfzenderReferentie", "Het formaat van de afzender referentie is foutief")
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetEersteVijfKaraktersNietNumeriek">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("a2345X123456abc", "Het formaat van de afzender referentie is foutief")
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetZesdeKarakterNietGelijkAanX">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("12345x123456abc", "Het formaat van de afzender referentie is foutief")
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetZevendeTotTwaalfdeKarakterNietNumeriek">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("12345Xa23456abc", "Het formaat van de afzender referentie is foutief")
+]]></Implementation>
+</Method>
+
+<Method name="TestExceptieMetDertiendeTotLaatsteTekenNietAlfabetisch">
+<Implementation><![CDATA[	Do ..AssertAfzenderReferentieExceptie("12345X1234561bc", "Het formaat van de afzender referentie is foutief")
+]]></Implementation>
+</Method>
+
+<Method name="AssertAfzenderReferentieExceptie">
+<FormalSpec>AfzenderReferentie:TECH.String,ExceptieOmschrijving:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(ExceptieOmschrijving)
+	
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException, Substrings))
+	Do ..Validator.ValideerAfzenderReferentie(AfzenderReferentie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>