Logic multiselect

Other discussions about CSPro
Post Reply
AMR Burkina
Posts: 16
Joined: January 20th, 2019, 7:55 pm
Location: Gourcy

Logic multiselect

Post by AMR Burkina » May 13th, 2020, 9:57 am

Bonjour,
Depuis longtemps, j'essaie d’intégrerImage[/img] une logic multiselect, mais je n'arrive pas. Voici la logique que j'utilise:
PROC GLOBAL

//a counter variable et la variable conteur qui nous permet de faire la boucle
numeric ctr ;
//la variable qui prend en charge la case à cocher
numeric i ;
//this variable is used for check box manipulation etde alphabet pour la multiselect
String alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789";
//cette fonction est notre check box en fait ici il n y a rien et la même boucle peut être utilisée pour plusieurs questions
Function VerifyCheckBoxCodes(string checkBoxField)
String validOption = " " + alphabet [i :length(checkBoxField)] ;
do ctr = 1 while ctr <= length (checkBoxField)
if pos(checkBoxField[ctr :1], validOption )=<>0 then
errmsg ("option '%s'is invalid."checkBoxField (ctr ;1]) ;
reenter ;
endif ;

Après la compilation, l'erreur ci-après apparaît:
ERROR(VerifyCheckBoxCodes, 13): Invalid arithmetic or conditional expression

Je suis en attente de vos observations! Et merci d'avance.
Attachments
CSPro_13_05_2020.JPG
CSPro_13_05_2020.JPG (155.44 KiB) Viewed 293 times

josh
Posts: 2140
Joined: May 5th, 2014, 12:49 pm
Location: Washington DC

Re: Logic multiselect

Post by josh » May 13th, 2020, 10:33 am

Vous avez toujours des erreurs de syntaxe dans la logique:

- =<> n'est pas valide, je crois que vous voulez <> (different de)
- Il manque la virgule entre "option '%s'is invalid." et checkBoxField
- checkBoxField (ctr ;1] n'est pas valide, peut-etre checkBoxField[ctr:1]
Function VerifyCheckBoxCodes(string checkBoxField)
   
String validOption = " " + alphabet [i :length(checkBoxField)] ;
   
do ctr = 1 while ctr <= length (checkBoxField)
       
if pos(checkBoxField[ctr :1], validOption )<>0 then
            errmsg
("option '%s'is invalid.", checkBoxField[ctr:1]) ;
           
reenter ;
       
endif ;
   
enddo;
end;

AMR Burkina
Posts: 16
Joined: January 20th, 2019, 7:55 pm
Location: Gourcy

Re: Logic multiselect

Post by AMR Burkina » May 13th, 2020, 4:35 pm

Bonjour Josh;
Merci pour les corrections! Je vais utiliser cette nouvelle logique!
AMR

Post Reply