MotlawaTech:Jak ukryć kartotekę w menu po lewej
Z Motława
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.