https://wikii.int.com.pl/index.php?action=history&feed=atom&title=MotlawaTech%3AJak_ukry%C4%87_kartotek%C4%99_w_menu_po_lewej 2026-04-13T02:21:27Z Historia wersji tej strony wiki MediaWiki 1.23.13 https://wikii.int.com.pl/index.php?title=MotlawaTech:Jak_ukry%C4%87_kartotek%C4%99_w_menu_po_lewej&diff=6744&oldid=prev 2009-12-03T09:25:23Z

<p>Utworzył nową stronę „ Trzeba wejść do &#039;&#039;&#039;D_Motlawa.pas&#039;&#039;&#039; i odszukać : &lt;code&gt; function TDMotlawa.EnabledFrameForSysId(aSysId: Integer; aWithMessage: Boolean): Boolean; &lt;/code&gt; pod…”</p> <p><b>Nowa strona</b></p><div><br /> Trzeba wejść do '''D_Motlawa.pas''' i odszukać :<br /> &lt;code&gt;<br /> function TDMotlawa.EnabledFrameForSysId(aSysId: Integer;<br /> aWithMessage: Boolean): Boolean;<br /> &lt;/code&gt;<br /> <br /> podpisać na końcu funkcji swoją sekwencję (przykład dla atestu stali):<br /> &lt;code&gt;<br /> if (aSysId = IdSAtestyStali) then<br /> {$IFDEF ATESTY}<br /> if User60.UprawnienieExist('UstawianieAtestyStali') then<br /> Result := (User60.GetUprawnienie('UstawianieAtestyStali') &gt; uprDSDisabled);<br /> {$ELSE}<br /> Result:= False;<br /> {$ENDIF}<br /> if (aSysId = IdRejestrDostaw) then<br /> {$IFDEF ATESTY}<br /> if User60.UprawnienieExist('UstawianieAtestyStali') then<br /> Result := (User60.GetUprawnienie('UstawianieAtestyStali') &gt; uprDSDisabled);<br /> {$ELSE}<br /> Result:= False;<br /> {$ENDIF}<br /> &lt;/code&gt;<br /> <br /> Po tym zabiegu odpowiednia kartoteka pojawi sie tylko osobom z uprawnieniami lub jeśli jest ifdef.<br /> <br /> [[Kategoria: MotlawaTech|Jak ukryć kartotekę w menu po lewej]]</div>

Sebasoul