Dotaz na měsíc

Seznam témat:

řešení

Řešení

Následující skript lze v editoru sestav použít jako dotaz na měsíc v roce.

// nejdříve se proměnná VarPom naplní číslem měsíce, ve kterém je uživatel právě přihlášený

SET varpom = QUERY('Select _gusers.month from dba._gusers') - 1

// nyní se program dotáže na na měsíc a nabídne seznam měsíců slovně. Předvyplněn bude aktuální měsíc

SET var0 = COMBOBOX('Zvolte měsíc','Leden;Únor;Březen;Duben;Květen;Červen;Červenec;Srpen;Září;Říjen;Listopad;Prosinec',varpom)

// pokud uživatel zmáčkne STORNO (nebo ESC) je opět nastaven měsíc na aktuální měsíc

  if (var0 =-1)

     OKBOX('Nebyl vybrán měsíc, sestava bude pracovat s aktuálním obdobím přihlášeného uživatele')

     set var0 = QUERY('Select _gusers.month from dba._gusers')

     set var0=var0-1

  endif

//funkce COMBOBOX vrací pro leden hodnotu 0, pro únor hodnotu 1 atd.. proto je potřeba k proměnné Var0 příšís ještě jedničku.

set var0=var0+1

// výsledek je v proměnné Var0

Související témata