Dotaz na měsíc

Top  Previous  Next

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