Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r20256 -r21360
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 20256)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 21360)
@@ -719,6 +719,11 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
  New blnValid,msg,Result
+ 
+ If ('..BLValidateStalenRug(.msg)) Do  Quit 0
+ . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
+ . Do ..cboBlumotion.SetFocus()
+
  If ('..BLValidateIB(.msg)) Do  Quit 0   ; min. interne breedte is ??? mm
  . ;Set msg="De nuttige (interne) breedte van de lade moet minimum "_..#MinimumIB_" mm zijn."
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
@@ -4272,6 +4277,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BLValidateStalenRug">
+<FormalSpec>%msg:%String</FormalSpec>
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.Boolean</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+ Set msg=""   ; msg is returned by reference
+
+ If (..blTBox.BTValues.GetAt("TBStalenRug")="") Do  Quit 0
+ . Set msg="De optie ""houten/stalen rug"" is niet ingevuld (zie Opties-scherm)."
+ ; Else
+
+ Quit 1
+]]></Implementation>
+</Method>
+
 <Method name="BLValidateUitsparingDiepte">
 <FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
 <Language>cache</Language>