Přidání akce do menu Vision ERP

Top  Previous  Next

Seznam témat:

řešení

 

Řešení

Příklad 1

První příklad ukazuje jak přidat do hlavního menu Vision ERP (pod submenu Sestavy) novou akci spouštějící tiskovou sestavu rekapitulace majetku.

V menu Skripty - Speciální skripty nadefinovat tyto skripty:

System.OnInit:

begin

 RegisterAppAction(1908, 16100, 'Rekapitulace majetku');

end.

 

System.OnAppAction:

begin

 if ActionID = 16100 then

   InvokeReport('Majetek\Odpisy\20 Rekapitulace', 0);

end.

Příklad 2

Druhý příklad ukazuje jak přidat do hlavního menu Vision ERP (pod submenu Nástroje) novou akci spouštějící aplikaci MS Excel. Akce bude mít kláv. zkratku Ctrl+Alt+F8 a vlastní ikonku.

1. Připravit si obrázek ve formátu BMP reprezentující akci jako bitmapu o velikosti 16x16 pixelů a uložit ji do dokumentů (do databáze) pod jméno (např.):

System\Actions\msexcel.bmp

 

2. V menu Skripty - Speciální skripty nadefinovat tyto skripty:

System.OnInit:

var

 ImgIdx: integer;

begin

 ImgIdx := RegisterActionImage('System\Actions\msexcel.bmp');

 RegisterAppAction(1902, 16101, 'Excel', ImgIdx, Shortcut(VK_F8, ssCtrl+ssAlt));

end.

 

System.OnAppAction:

begin

 if ActionID = 16101 then

   ShellExec('excel.exe', '', False);

end.

 

Poznámky:

Levý dolní pixel v bitmapě definuje transparentní barvu (tato barva bude zobrazena jako průhledná).
Číslo submenu lze získat v navigátoru (Shift+Esc) klepnutím pravým tlačítkem myši a volbou Vlastnosti.
Čísla nových akcí by měla být v rozsahu 16000-16383

 

Související témata