Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r60997 -r61025
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 60997)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 61025)
@@ -4194,20 +4194,20 @@
 </Method>
 
 <Method name="BLValidateAntislipMat">
-<FormalSpec><![CDATA[&msg:%String]]></FormalSpec>
+<FormalSpec><![CDATA[&Msg:%String]]></FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Boolean</ReturnType>
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
-	Set msg = ""
-	Set bool = $$$False
+	Set Msg = ""
+	Set IsValid = $$$True
 	If (##class(DOM.PM.TBX.impl.AntislipMattenUitfaseren).%New().IsAntislipMatUitgefaseerd(..cboAntislipmat.SelectedGetKey(), ..cboLadeDiepte.SelectedGetKey())) {
-		set bool = $$$True
-		set msg = "De combinatie van dit kleur anti-slipmat met deze geselecteerde ladediepte is niet geldig. Selecteer eerst opnieuw de ladediepte en daarna de kleur van de anti-slipmat."
+		set IsValid = $$$False
+		set Msg = "De combinatie van dit kleur anti-slipmat met deze geselecteerde ladediepte is niet geldig. Selecteer eerst opnieuw de ladediepte en daarna de kleur van de anti-slipmat."
 	}
-	Quit bool
+	Quit IsValid
 ]]></Implementation>
 </Method>
 
@@ -5355,21 +5355,21 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
  ; Args format: $lb(Sender,PrevIndex)
- n Sender,PrevIndex
- s Sender=##class(%TMPersistent).GetObjOref($lg(Args,1))
- s PrevIndex=$lg(Args,2)
+ New Sender,PrevIndex
+ Set Sender = ##class(%TMPersistent).GetObjOref($lg(Args,1))
+ Set PrevIndex=$ListGet(Args,2)
  ;Beginning of user code
 
  New msg
- If ..BLValidateAntislipMat(.msg) Do  Quit
+ If '..BLValidateAntislipMat(.msg) Do  Quit
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONERROR)
- . Set ..cboAntislipmat.ItemIndex=-1
+ . Set ..cboAntislipmat.ItemIndex = -1
 
  Do ..EventAllBTChangeItem(.Args)
 
  ;End of user code
- s Args=$lb(Sender,PrevIndex)
- q
+ Set Args=$ListBuild(Sender,PrevIndex)
+ Quit
 ]]></Implementation>
 </Method>