mod69d mod69d1 ehled o d p r a c o v a n d o b y RIIS 6.9 m6_mzd m6_kal_h m6_kal_z m6_zam m_cis1 x_cis1 m_dat x_dat m6_zam.prijmeni m6_zam.prijmeni no m6_zam.jmeno m6_zam.jmeno DD odp str(m6_kal_h.dny_odp,6,2) m6_kal_h.dny_odp H odp. str(m6_kal_h.hod_odp,6,2) m6_kal_h.hod_odp str(m6_kal_h.dny_rd,5,2) m6_kal_h.dny_rd str(m6_kal_h.hod_rd,6,2) m6_kal_h.hod_rd DD PSV ' '+str(m6_kal_h.dny_psv,5,2) m6_kal_h.dny_psv H PSV str(m6_kal_h.hod_psv,6,2) m6_kal_h.hod_psv DD OPV ' '+str(m6_kal_h.dny_opv,5,2) m6_kal_h.dny_opv H OPV str(m6_kal_h.hod_opv,6,2) m6_kal_h.hod_opv DD STV ' '+str(m6_kal_h.dny_stv,5,2) m6_kal_h.dny_stv H STV str(m6_kal_h.hod_stv,6,2) m6_kal_h.hod_stv DD nem ' '+str(m6_kal_h.dny_nem,5,2) m6_kal_h.dny_nem DD NV str(m6_kal_h.dny_nv,5,2) m6_kal_h.dny_nv H NV str(m6_kal_h.hod_nv,6,2) m6_kal_h.hod_nv DD abs ' '+str(m6_kal_h.dny_abs,5,2) m6_kal_h.dny_abs H abs str(m6_kal_h.hod_abs,6,2) m6_kal_h.hod_abs DD MF str(m6_kal_h.dny_mf,5,2) m6_kal_h.dny_mf H MF str(m6_kal_h.hod_mf,6,2) m6_kal_h.hod_mf DD zap. ' '+str(m6_kal_h.dny_zapoc,5,2) m6_kal_h.dny_zapoc DD MPP ' '+str(m6_kal_h.dny_mpp,5,2) m6_kal_h.dny_mpp DD kal ' '+str(m6_kal_h.dny_kal,5,2) m6_kal_h.dny_kal DD prac ' '+str(m6_kal_h.dny_p,5,2) m6_kal_h.dny_p DD PS str(m6_kal_h.dny_s,5,2) m6_kal_h.dny_s DD NS str(m6_kal_h.dny_n,5,2) m6_kal_h.dny_n DD 67 str(m6_kal_h.dny_,5,2) m6_kal_h.dny_ Dat.akt. tran(m6_kal_h.dat_akt,'@E') m6_kal_h.dat_akt Autor m6_kal_h.autor m6_kal_h.autor Aktual m6_kal_h.aktual m6_kal_h.aktual POLEX _kalFREEZE i = i+1F2 hl(i)='F3 i)="strF5 kal_h.hF6 f,6,2)"F7 dn(i)="F8 al_h.hoF9 iPROCX zahENTER D zaDETAIL no(DET_JM +stRAMECEK h.NAZEVT c,5RIIS hodn(NADPIS al_LEVA zapocPRAVA = iHOR ahl(i)DOL M6_MZD ="'OSC r(m6_kM6_KAL_H pM6_KAL_Z M6_ZAM M_CIS1 X_CIS1 M_DAT X_DAT DRUH_POMERZAHL JMENO >MOD_PSV OBSAH _kalZAZN OPRAVA i+1PS_RETURN W_POLE mod6_lib _kalM6_KAL_H M6_MZD ETURN DRUH_POMERGEN_KALZ rW_KON_MES MOD6_LIB ZMEN_KAL 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+/w set color to w/n A k t u a l i z a c e kalend e zam stnance RIIS 7.5 c6_kal_z+ c6_kal_z _kalZMENA1 ZMENA2 1KONTROLA KONEC OMERP_ZOB N_MES POCET "BARVA .hoRADEK_C iSLOUPEC_C D zaPOMOC +stRAD c,5POC hodn(BARVAS al_BARVAR pocBARVAZ = iBARVAU (i)BARVAN BARVAT ="'BARVAH 6_kNOVY_ZH pM6_KAL_H W_OSC W_DRUH_POMDRUH_POMERWD_ODP DNY_ODP ERWH_ODP HOD_ODP WD_RD DNY_RD >WH_RD HOD_RD WD_PSV DNY_PSV WH_PSV HOD_PSV WD_OPV DNY_OPV WH_OPV HOD_OPV WD_STV DNY_STV WH_STV HOD_STV WD_NEM DNY_NEM WD_NV DNY_NV oceWH_NV p_hoHOD_NV terWD_ABS do DNY_ABS pWH_ABS v_aHOD_ABS xM6_KAL_Z C6_KAL_Z RPOCET1 RPOCET2 HLAV1 PROC1 HLAV2 _KAL_Z PROC2 ZMENY PS_RETURN &barvau &barvas &barvaz &barvar &barvaz &barvat dny hodiny Odpracovan as celkem Dovolen Ost. placen volno Studijn volno Nemoc a o Neplacen volno Absence Celkem &barvau _kal. &barvau &barvas 99.99 999.99 99.99 999.99 99.99 999.99 99.99 999.99 99.99 999.99 99.99 999.99 999.99 99.99 999.99 &barvau _kalWD_ODP WH_ODP 1WD_RD WH_RD OMERWD_PSV rWH_PSV WD_OPV WH_OPV "WD_STV .hoWH_STV iWD_NEM WD_NV D zaWH_NV no(WD_ABS +stWH_ABS @ 5,25 &vloz wd_odp pict '99.99' @ 5,32 &vloz wh_odp pict '999.99' @ 6,25 &vloz wd_rd pict '99.99' @ 6,32 &vloz wh_rd pict '999.99' @ 7,25 &vloz wd_psv pict '99.99' @ 7,32 &vloz wh_psv pict '999.99' @ 8,25 &vloz wd_opv pict '99.99' @ 8,32 &vloz wh_opv pict '999.99' @ 9,25 &vloz wd_stv pict '99.99' @ 9,32 &vloz wh_stv pict '999.99' @ 10,25 &vloz wd_nem pict '99.99' @ 11,25 &vloz wd_nv pict '999.99' @ 11,32 &vloz wh_nv pict '999.99' @ 12,25 &vloz wd_abs pict '99.99' @ 12,32 &vloz wh_abs pict '999.99' _kalQ POCET1 1ZMENA1 &barvas &barvau &barvar &barvaz Datum Den-Z Hod.sm Odpracov vod absence &barvat &barvau _kalHOR &barvas &barvau 999.99 999.99 _kalPU OMERDATUM rUPPERCS CDOWCS PERIODA "PERIODA_Z HOD_SMEN iHOD_ODP DUV_ABS &barvau @ x,18 &vloz perioda_z pict '!X' @ x,27 &vloz hod_smen pict '999.99' function '@Z' @ x,39 &vloz hod_odp pict '999.99' function '@Z' duv_abs @ x,46 &vloz duv_abs pict '@!X' 999.99 DUV_ABS _kalP_ZOB DUV_ABS ERHOD_ODP rHOD_SMEN D_ODP M_CIS1 "C6_KAL_Z iZMENA2 do proc&y do zmen&y with 'get' do zmen&y with 'say' Nelze zru it, existuje stav c6_kal_z c6_kal_z+ c6_kal_z it pr ci beze zm n? (a/N) _kalZ V_ABS D_ODP rKONEC _KAL_Z POMOC zaOBR no(NAP_HOD stP_ZOB c,5KONTROLA (ZAPIS _C6_KAL_Z _KAL_Z iHLAV1 (i)PROC1 HLAV2 ="'PROC2 6_kPOCET2 pZMENA2 M6_KAL_H NOVY_Z POMZMENA1 RNOVY_ZH W_UCET ERW_UZAV W_NAZEV NAZEV >W_UCET2 UCET2 W_NAZEV2 NAZEV2 W_PREVOD PREVOD W_BIL M7_STAV HLASKA M7_POZUC POCET1 Prob definice tu ... c6_kal_z ZAPIS _kalMOD_SYS 1ZMENA1 M6_KAL_H RUCET rW_UCET M7_POZUC C6_KAL_Z iW_UZAV NAZEV zaW_NAZEV o(PREVOD stW_PREVOD c,5W_BIL (UCET2 _W_UCET2 cNAZEV2 iW_NAZEV2 )ZMENA2 ="'RAD_TX KONTROLA D_SYS - - ^PgDn - ^Home - ^End,Esc Pohyb znamu znamu Konec colora set color to &color lCOLOR colora set color to &color lCOLOR text k tomuto tu neexistuje c6_kal_z+ c6_kal_z lM7_POZUC M6_KAL_H 1UCET HLASKA RC6_KAL_Z rPS_LINE ZOBRAZ_TXT ehled dopl ch text ehled dopl ch text Zadejte: Osob. text_tx text_tx POLEX lPROCX 1RBOT CLEFT RCRIGHT rFREEZE ORDER _TXTZAHL "JMENO iTITLE TITLECOLORPS_LINE REVOD c,5F4 )DETAIL F1PRG ="'F4_JM kF4PRG pF7_JM F7PRG F9KEY F10_JM POMF10PRG RDET_JM DETPRG ERRAMECEK NAZEVT M6_KAL_H >UCET ENTER MOD_PSV PS_RETURN duv_abs DUV_ABS c6_kal_z.duv_abs Pro toto pole neexistuje pomocn ehled hodnot P_ZOB lMOD_C3 1ZMENA2 HLASKA RMOD69D1 OPRAVA ZMEN_KAL HLAV1 PROC1 ZMEN1 HLAV2 PROC2 ZMEN2 ZMENY ZAPIS KONTROLA HLASKA MOD69D3 ZOBRAZ_TXT NAP_HOD L:\OBEC\06\ MOD69D.FXP L:\OBEC\06\MOD69D.PRG