MotlawaTech:Jak ukryć kartotekę w menu po lewej: Różnice pomiędzy wersjami
Z Motława
(Utworzył nową stronę „ Trzeba wejść do '''D_Motlawa.pas''' i odszukać : <code> function TDMotlawa.EnabledFrameForSysId(aSysId: Integer; aWithMessage: Boolean): Boolean; </code> pod…”) |
(Brak różnic)
|
Aktualna wersja na dzień 09:25, 3 gru 2009
Trzeba wejść do D_Motlawa.pas i odszukać :
function TDMotlawa.EnabledFrameForSysId(aSysId: Integer; aWithMessage: Boolean): Boolean;
podpisać na końcu funkcji swoją sekwencję (przykład dla atestu stali):
if (aSysId = IdSAtestyStali) then
{$IFDEF ATESTY}
if User60.UprawnienieExist('UstawianieAtestyStali') then
Result := (User60.GetUprawnienie('UstawianieAtestyStali') > uprDSDisabled);
{$ELSE}
Result:= False;
{$ENDIF}
if (aSysId = IdRejestrDostaw) then
{$IFDEF ATESTY}
if User60.UprawnienieExist('UstawianieAtestyStali') then
Result := (User60.GetUprawnienie('UstawianieAtestyStali') > uprDSDisabled);
{$ELSE}
Result:= False;
{$ENDIF}
Po tym zabiegu odpowiednia kartoteka pojawi sie tylko osobom z uprawnieniami lub jeśli jest ifdef.
