*:*****************************************************************************
*: VYROBA_SAS.PRG
*:*****************************************************************************


*:*****************************************************************************
PROCEDURE def_menu_vyroba
DEFINE BAR 11 OF vyroba PROMPT "Jídelní lístek"
DEFINE BAR 22 OF vyroba PROMPT "Sestavy" 
DEFINE BAR 44 OF vyroba PROMPT "Strávníci"
DEFINE BAR 55 OF vyroba PROMPT "Nulovaní kreditu"

ON SELECTION BAR 11 OF vyroba DO FORM jidelak_sas
ON SELECTION BAR 22 OF vyroba DO FORM stravovani_sestavy
ON SELECTION BAR 44 OF vyroba DO FORM stravnici
ON SELECTION BAR 55 OF vyroba DO FORM nulovani_limitu

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, '"', "'"))

