deutschsprachige FoxPro User Group
Forum View
Home
  
  Re: Meldung beim Start- #20413 in section [741586]
Sec: (28) VFX deutsch
Von: Reinhard Jacke
An: Reinhard Jacke
Am/Um: 20.08.2018 21:12:46

--from Newsreader at Montag, 20. August 2018; 21:12:46--

Hallo Uwe,


eben fiel auf, in foxappl.ismenuitemallowed tcMenuItem ==... zu sehen sind, während in der foxappl.onskipmenu ...=... ist!
LPARAMETERS tcMenuItem

LOCAL llResult
DO CASE
CASE (tcMenuItem == "EDIT_DELETE" OR tcMenuItem == "EDIT_NEW" OR tcMenuItem == "EDIT_COPY")
llResult = INLIST(goUser.UserLevel, 1, 2, 3, 4)
CASE tcMenuItem == "EDIT_NEW"
llResult = INLIST(goUser.UserLevel, 1, 2, 3, 4 )
CASE tcMenuItem == "EDIT_COPY"
llResult = INLIST(goUser.UserLevel, 1, 2, 3, 4 )
OTHERWISE
llResult = DODEFAULT(tcMenuItem)
ENDCASE
RETURN llResult
Nachdem ich dies in der foxappl.onskipmenu geändert habe, kommt die Anwendung ohne Meldungen hoch.
Morgen werde ich mir die Forms anschauen und hoffe, dass die korrekt funktionieren.

Mit den besten Grüßen aus dem Weserbergland

Reinhard Jacke
VFP 9.0 SP2 ...7423 + VFX 17.00.1312





Reinhard Jacke   19.08.2018 15:40
Reinhard Jacke  19.08.2018 17:26
Uwe Habermann  19.08.2018 20:41
Reinhard Jacke  20.08.2018 13:39
Uwe Habermann  20.08.2018 14:39
Reinhard Jacke  20.08.2018 19:15
Reinhard Jacke  20.08.2018 21:12
  
zurück zum Forum