MOD62IEX m6_srazk u6_mzdy m6_zam m4_organ m6_srazu cis_spuc if !file('&f_adr\data\z6_vypl.dbf') use &f_adr\data\z6_vypl order prijmeni evodn kazy - Z6_VYPL.DBF RIIS 6.2 hledej1 Tvorba generuj Detail mod62fd mod62ie Zadejte p prijmeni prijmeni str(cisprac,5) cisprac skup_prac skup_prac ucet1 ucet1 ucet2 ucet2 stka p. str(castkap,10) castkap str(castka,10) castka str(pu,2) M6_SRAZK mU6_MZDY M6_ZAM suM4_ORGAN et,1,lM6_SRAZU CIS_SPUC =GENERUJ 6_POLEX cet,RAMECEK NAZEVT RIIS se m6RTOP .zp_pRBOT CLEFT seleCRIGHT azuFREEZE sF1 m6_srazF2 s_spuc loF4 at('/'F6 srazu.uF7 F9 f lomr>F9PRG F10 uc1 = F10_JM .ucF10PRG DETAIL d =DET_JM m6_ENTER cet,PROCX F9KEY elsZ6_VYPL ZAHL = JMENO k.ucHODN I od =MOD_PSV colorz Vyhled Zadejte p stnance prijmeni stnanec nebyl nalezen MCOLOR mKLIC CPODMV suCPODMS aPRIJMENI lCSNC HLASKA POCET POCETC if file('&f_adr\data\z6_vypl.dbf') use &f_adr\data\z6_vypl order prijmeni excl use &f_adr\data\z6_vypl order prijmeni create dbf &f_adr\data\z6_vypl (cisprac n(5), skup_prac C(1), str c(4), ucet1 c(20), ucet2 c(20), ks c(10), castkap n(10), castka n(10), prijmeni c(20), kod c(4), pu n(2)) Tvorba souboru Z6_VYPL.DBF ... H 998 m6_srazk, z6_vypl H 850 m6_srazk, z6_vypl Z6_VYPL mPRIJMENI W_KC1 uW_KC2 lMOD_SYS =POC_CHYB _M6_ZAM et,POCET POCETC M6_SRAZK pDR_SRAZ POZAST_SR M4_ORGAN sZAVOD zU6_MZDY oUCET 'W_UC1 zu.uW_KOD ZP_PLATS >M6_SRAZU CIS_SPUC LOMR .ucSPEC_S W_UC2 d =VAR_S _CISPRAC t,SKUP_PRAC elsUCET1 UCET2 k.ucCASTKAP CASTKA d =KOD JMENO TITUL otTYP_ORG VYSE_SRAZ PROCENTA kMOD62IEX HLEDEJ1 PROCENTA GENERUJ X:\OBEC\06\ MOD62IE.FXP X:\OBEC\06\MOD62IE.PRG