Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Subject: set skip to bar problem FPD25
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
FoxPro 2.x
Divers
Thread ID:
00524164
Message ID:
00524635
Vues:
18
This message has been marked as a message which has helped to the initial question of the thread.
The foolowing command
SET SKIP OF BAR m.zi OF helppopup m.zskip
sets skip condition to m.zskip. While you are in a loop m.zskip is correct because it's calculated for each bar. After you exit loop all BAR's will be desabled or enabled based on the vaue of m.zskip. The modification to code shown below shoud fix this problem.
    FOR m.zi = 1 TO CNTBAR("helppopup")
       m.zskip = <b>IIF( EVAL(zfiltstr), ".T.", ".F.")</b>
       SET SKIP OF BAR m.zi OF helppopup <b>&zskip</b>
    ENDFOR
>Here is that actual call Ive used for the helpme function
>
>m.zsavealias = ALIAS()
>
>= helpme(m.zsavealias, "company", " " + m.zsavealias + ".company + ' CMP' + ;
> TRANSFORM(" + m.zsavealias + ".cmpny_no, '@L 99999')", ;
> "xselectbar", LEN(&zsavealias..company) + 11, ;
> IIF(EMPTY(m._vsouserid), '.F.', IIF(m._vsosuper, '.F.', '!SEEK(codeit(m._vsouserid) + codeit(PADR(PRMBAR("helppopup", m.zi), 80)), "vsosecur")')), .F., .T.)
>
>basically this is a popup that has the companies that are there in the app and the user is controlled by a security database and the skip will be based on the user access rights. Bit complex but here it is, otherwise the helpme function shines out where I want to set filter, normal helps, great. But skip does not work
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform