Index: APPS/TRANSP/GLS/Bericht/dto/Request.cls.xml
===================================================================
diff -u -r29059 -r29570
--- APPS/TRANSP/GLS/Bericht/dto/Request.cls.xml	(.../Request.cls.xml)	(revision 29059)
+++ APPS/TRANSP/GLS/Bericht/dto/Request.cls.xml	(.../Request.cls.xml)	(revision 29570)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.GLS.Bericht.dto.Request">
 <ClassType>serial</ClassType>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>APPS.TRANSP.GLS.Bericht.dto.AbstractRequest,%SerialObject</Super>
 
 <Property name="T050">
@@ -246,6 +247,16 @@
 <Parameter name="MAXLEN" value="15"/>
 </Property>
 
+<Method name="T854Set">
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do:($$$Not(Value = "")) ..Validator.ValideerAfzenderReferentie(Value)
+	Set i%T854 = Value
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Property name="T860">
 <Description>
 Consignee name1</Description>
@@ -330,6 +341,21 @@
 <Parameter name="MAXLEN" value="10"/>
 </Property>
 
+<Property name="Validator">
+<Type>APPS.TRANSP.GLS.impl.Validator</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Method name="ValidatorGet">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.GLS.impl.Validator</ReturnType>
+<Implementation><![CDATA[
+	Set r%Validator = $$$LazyLoad(r%Validator,##class(APPS.TRANSP.GLS.impl.Validator).%New())
+	Quit r%Validator
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>RequestState</State>