*:*****************************************************************************
*: VYROBA_.PRG
*:*****************************************************************************


*:*****************************************************************************
PROCEDURE def_menu_vyroba
DEFINE BAR 11 OF vyroba PROMPT "Jídelní lístek" 
DEFINE BAR 22 OF vyroba PROMPT "Sestavy"  
DEFINE BAR 33 OF vyroba PROMPT "Generuj čísla strávníku"
DEFINE BAR 44 OF vyroba PROMPT "Strávníci"

ON SELECTION BAR 11 OF vyroba DO FORM jidelak_lvi_dvur
ON SELECTION BAR 22 OF vyroba DO FORM stravovani_sestavy
ON SELECTION BAR 33 OF vyroba DO      generuj_clients_a_users
ON SELECTION BAR 44 OF vyroba DO FORM stravnici


nazev_S = "Přílohy-salaty"
nazev_O = "Hlavní jídla"
nazev_P = "Polevky"
nazev_V = "Doplňkový prodej"

SET PROC TO stravovani_ppgm ADDI
DO stahni_chody_a_kantyny



********** vraci string s uvozovkami nahrazenymi apostrofy + uvozovky  **********
FUNCTION tx2 (retez)
RETURN '"' + ALLTRIM(STRTRAN(IIF(ISNULL(m.retez), "", m.retez), '"', "'")) + '"'

********** vraci string bez mezers uvozovkami nahrazenymi apostrofy + uvozovky  **********
FUNCTION tx (retez)
retval = STRTRAN(m.retez, " ", "")
RETURN '"' + ALLTRIM(STRTRAN(retval, '"', "'")) + '"'

********** vraci string s uvozovkami nahrazenymi apostrofy  **********
FUNCTION xx (retez)
RETURN ALLTRIM(STRTRAN(retez, '"', "'"))

