Forum

Check for invalid characters in description

May 25, 2012 12:40 PM

Active user

Points:: 0
Joined:: Sep 27, 2011

I'm trying to check for invalid characters in description fo Goods catalog, here is the Item form module Script:

Code

Var AllowedCharacters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()";

&AtClient
Procedure DescriptionOnChange(Item)
   Length = StrLen(Object.Description);
   For I = 1 To Length Do
      Char = Mid(Object.Description, I);
      If Not Find(AllowedCharacters, Char) Then
         DoMessageBox(NStr("en = 'Invalid characters in description'"));
         Break;
      EndIf;
   EndDo;
EndProcedure

But it produces following errors:

{Catalog.Goods.Form.ItemForm.Form(1,22)}: Expecting ';'
Var AllowedCharacters<<?>> = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()"; (Verification: Server)
{Catalog.Goods.Form.ItemForm.Form(1,23)}: Unknown operator
Var AllowedCharacters <<?>>= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()"; (Verification: Server)
{Catalog.Goods.Form.ItemForm.Form(1,22)}: Expecting ';'
Var AllowedCharacters<<?>> = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()"; (Verification: Thin client)
{Catalog.Goods.Form.ItemForm.Form(1,23)}: Unknown operator
Var AllowedCharacters <<?>>= "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()"; (Verification: Thin client)

Profile

Mikhail Goncharov

May 25, 2012 01:14 PM

Just came

Points:: 7
Joined:: Mar 15, 2012

1c is not support assignment of value in description of variable.

You should to do this in module or in procedure.

Code

Var AllowedCharacters;

&AtClient
Procedure DescriptionOnChange(Item)
    AllowedCharacters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()";
    Length = StrLen(Object.Description);
    For I = 1 To Length Do
        Char = Mid(Object.Description, I);
        If Not Find(AllowedCharacters, Char) Then
            DoMessageBox(NStr("en = 'Invalid characters in description'"));
            Break;
        EndIf;
    EndDo;
EndProcedure

Code

Var AllowedCharacters;

&AtClient
Procedure DescriptionOnChange(Item)
    Length = StrLen(Object.Description);
    For I = 1 To Length Do
        Char = Mid(Object.Description, I);
        If Not Find(AllowedCharacters, Char) Then
            DoMessageBox(NStr("en = 'Invalid characters in description'"));
            Break;
        EndIf;
    EndDo;
EndProcedure 

AllowedCharacters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -/()";

Profile

erickruger	#3 May 25, 2012 03:19 PM
Active user Points:: 0 Joined:: Sep 27, 2011	Thank you very much! Now it works!
	Profile