m7_ucto s717a s717a1 R o z p o t y RIIS 7.2 et(6),St edisko(4) m_param r7_srozp r7_rozp r7_ucet r1_str m7_srozp m7_rozp m7_ucet v1_str x1_str Ro str(ro_ro,13,2) ro_ro Leden str(ro_m1,13,2) ro_m1 str(ro_m2,13,2) ro_m2 B str(ro_m3,13,2) ro_m3 Duben str(ro_m4,13,2) ro_m4 Kv str(ro_m5,13,2) ro_m5 erven str(ro_m6,13,2) ro_m6 ervenec str(ro_m7,13,2) ro_m7 Srpen str(ro_m8,13,2) ro_m8 Z str(ro_m9,13,2) ro_m9 str(ro_m10,13,2) ro_m10 Listopad str(ro_m11,13,2) ro_m11 Prosinec str(ro_m12,13,2) ro_m12 *****W_ROK ****W_ROK_VYB M7_UCTO **ROK edurPOLEX *FREEZE ---W_UCET ---F1 adeni rF3 ctu strF4 * -F5 -------F6 -------F7 set F8 ansi functioF10 o ';' PROCX nctiENTER o ';AKT dimenDETAIL oleDET_JM eoRAMECEK ppNAZEVT lace NADPIS w_LEVA novPRAVA DOL _z = .F9KEY if M_PARAM tPAR_POLE *POLE7 ----R7_SROZP UCET try pM7_SROZP kR7_ROZP --M7_ROZP R7_UCET toM7_UCET wjR1_STR adeNSTR oupecV1_STR X1_STR tKLICO -----JMENO ----HODN ----SOUC ----I ----MOD_PSV OBSAH to I *****ZAZN ****OPRAVA PS_RETURN W_POLE set color to b/w set color to bg/n set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w/n &barvau *****W_POLE ***ROK W_ROK NOVY_Z durJMENO_C *WJMENO_C -RADEK_C --SLOUPEC_C P_ZOB ni rKONTROLA * -Q2 -------Q3 -------Q4 set Q5 ansi functioQ7 o ';' nctiQ9 o ';Q10 dimenQ11 oleQ12 eoQ13 ppQ14 lace CISELNIK novDOL POCET POMOC = .RAD if SL tPOC *BARVAS -BARVAR BARVAZ y pBARVAU kBARVAN --BARVAH BARVA toM7_SROZP jMENU ePORADI pecKONEC -----Z ----U ----T ----Q ----A D_PSV ZMENY &barva Aktualizace rozpo Rok: Leden nor ezen 1.Q: Duben ten erven 2.Q: ervenec Srpen 3.Q: jen Listopad Prosinec 4.Q: 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 W_POLE @4,37 &vloz w_pole( 1) pict '999999' Chybn identifikace @4,51 &vloz w_pole( 2) @ 5,42 &vloz w_pole( 4) pict '9999999999.99' @ 6,42 &vloz w_pole( 5) pict '9999999999.99' @ 7,42 &vloz w_pole( 6) pict '9999999999.99' @ 9,42 &vloz w_pole( 7) pict '9999999999.99' @10,42 &vloz w_pole( 8) pict '9999999999.99' @11,42 &vloz w_pole( 9) pict '9999999999.99' @13,42 &vloz w_pole(10) pict '9999999999.99' @14,42 &vloz w_pole(11) pict '9999999999.99' @15,42 &vloz w_pole(12) pict '9999999999.99' @17,42 &vloz w_pole(13) pict '9999999999.99' @18,42 &vloz w_pole(14) pict '9999999999.99' @19,42 &vloz w_pole(15) pict '9999999999.99' 9999999999.99 9999999999.99 9999999999.99 9999999999.99 9999999999.99 ***P_ZOB ***NOVY_Z durQ3 ENO_C UPEC_C ni rQ8 TROLA * -Q10 ------Q11 ------Q12 set Q13 unctioPOCET nctiW_POLE ';M7_UCET enTXT leHLASKA ppM7_SROZP ehled ehled st edisek Konec mod7_lib Lze m nit pouze u nov mod_proc Lze m nit pouze u nov &barvau it pr ci beze zm n? (a/N) KONEC UPEC_C ni rJ TROLA rPROC1 * -ZMEN1 ----MM_LK ----NAP_HOD t P_ZOB ctioVOLBA W_UCET ctiW_POLE ';ZOBR_UCET W_ROK leMOD7_LIB oNOVY_Z ppHLASKA W_STRED ZOBR_STR _MOD_PROC vZRUS = .POCET if KONTROLA tULOZ et mus t vypln Chybn identifikace st ediska et na st edisku ji rozpo KONTROLA *W_POLE ***HLASKA durPAR_POLE *V1_STR -M7_SROZP SROZP M7_ROZP *W_POLE **UCET W_ROK durRO_RO *M7_SROZP -RO_M1 -RO_M2 RO_M3 rRO_M4 rRO_M5 -RO_M6 -RO_M7 -RO_M8 RO_M9 RO_M10 oRO_M11 RO_M12 M7_ROZP *W_POLE **RO_RO M7_SROZP RO_M1 durRO_M2 *RO_M3 -RO_M4 -RO_M5 RO_M6 rRO_M7 rRO_M8 -RO_M9 -RO_M10 -RO_M11 RO_M12 colora set color to &color *COLOR **OBR - - ^PgDn - F10 - ^Home - ^End,Esc Pohyb znam znamu Konec - mod7_lib Lze m nit pouze u nov &barvau mod_proc Lze m nit pouze u nov &barvau Pro toto pole neexistuje pomocn ehled hodnot P_ZOB *W_UCET **W_POLE ZOBR_UCET W_ROK durMOD7_LIB *NOVY_Z -HLASKA -W_STRED -ZOBR_STR -MOD_PROC S717A 9'))"% S717A1 c7_v9 OPRAVA PORADI PROC1 ZMEN1 "iif& ZMENY =0,sp KONTROLA 99 999 HLASKA NAP_HOD X:\OBEC\07\ S717A.FXP X:\OBEC\07\S717A.PRG