0621x Zadejte den : Odveden operace postup , den FF Odveden operace postup RIIS 4.2 06217 Zadejte slo postupu : fun_det Detail v1_str x1_str m6_dm m6_sazby m6_zam zakladni\m1_hlava postup zakladni\m1_normy operace m6_odmj Prob r a kumulace dat ... m6_odmj c6_kump m6_odmj c6_kum m6_odmj c6_kump m6_odmj c6_kum Postup postup postup zev post. m1_hlava.nazev m1_hlava.nazev operace operace zev op. m1_normy.nazev_op m1_normy.nazev_op Kusy str(kusy,8) Nhod str(nhod,7,2) Hodiny str(hodiny,7,2) hodiny %PVN iif(c6_kump.h_pev#0,str(100*c6_kump.nh_pev/c6_kump.h_pev,6,2),' ') c6_kump.nh_pev/c6_kump.h_pev str(castka,9,2) castka W_DEN i=POLEX hl(iFREEZE jmLEVA ="' 'PRAVA hodnHOR zRAMECEK zNAZEVT jmeRIIS 6_dNADPIS hPROCX 'm6_F1 azev' i)='T meno(i)F6 ida+' F7 hodn(i)F9KEY zaENTER St.'DETAIL i)=DET_JM ' V1_STR (i)X1_STR M6_DM i)=' M6_SAZBY M6_ZAM ="sOSC ,11,4)ZAKLADNI =POSTUP i=OPERACE iM6_ODMJ (i)="pMOD_SYS odMESS pracoNHOD i+NH_PEV i)=HODINY jmeH_PEV str_W_DM_PEV (W_DM_PRE i=i+1W_ALG_PEV enoC6_KUMP opCASTKA )=KUSY *C6_KUM zaM1_HLAVA M1_NORMY )ZAHL "JMENO i)='HODN zMOD_PSV atOBSAH Detail dle dn Detail dle zam stnanc Detail dle druh mezd Konec i=VOL hl(iZOBR_DNY mZOBR_ZAM 'ZOBR_DM Prob r a kumulace dat ... m6_odmj c6_odm_p m6_odmj c6_odm_p Zadejte den : 06217 Odveden mzdy Detail odveden operace postupu dle dn ' '+str(den,2) m6_zam.prijmeni m6_zam.prijmeni m6_zam.jmeno m6_zam.jmeno Kusy str(kusy,8) Nhod str(nhod,7,2) Hodiny str(hodiny,7,2) hodiny str(castka,9,2) castka Sazba str(sazba,7,2) sazba %PVN iif(inlist(dm,w_dm_pev,w_dm_pre),str(100*nhod/hodiny,6,2),' ') nhod/hodiny druh_pomer druh_pomer ' '+alg zev DM m6_dm.nazev m6_dm.nazev trida+' ' trida stupen+' ' stupen Tac str(ta,11,4) Prac. pracov pracov str_zam str_zam str_op str_op str_prev str_prev Datum tran(dat_akt,'@E') dat_akt Autor autor autor i=PS_LINE (iW_POST mC6_KUM 'POSTUP dnW_OPER OPERACE zMOD_SYS meMESS 6_dW_DEN hM6_ODMJ 6_DEN C6_ODM_P meno(i)DRUH_POMERM6_ZAM (i)M6_DM OMERPOLEX zaPROCX St.'RTOP i)=RBOT ' CLEFT (i)CRIGHT FREEZE zORDER ' ZAHL JMENO ="sHODN 11,4)SOUC =TITLE i=TITLECOLORNAZEVT (i)="pF2 pracoF4 i)=F7 jmeF9 str_F10 (DETAIL mF1PRG =i+1F4_JM F4PRG enoF7_JM opF7PRG )=F9KEY *F10_JM zaF10PRG DET_JM )DETPRG "RAMECEK ='RIIS KLICO zPS_ZAZN atPS_RETURN (daMOD_PSV Prob r a kumulace dat ... m6_odmj c6_odm_p m6_odmj c6_odm_p Zadejte osobn slo : 06217 Odveden mzdy Detail odveden operace postupu dle zam stnanc m6_zam.prijmeni m6_zam.prijmeni m6_zam.jmeno m6_zam.jmeno Kusy str(kusy,12,3) ' '+str(den,2) str(castka,9,2) castka Nhod str(nhod,7,2) Hodiny str(hodiny,7,2) hodiny Sazba str(sazba,7,2) sazba %PVN iif(inlist(dm,w_dm_pev,w_dm_pre),str(100*nhod/hodiny,6,2),' ') nhod/hodiny druh_pomer druh_pomer ' '+alg zev DM m6_dm.nazev m6_dm.nazev trida+' ' trida stupen+' ' stupen Tac str(ta,11,4) Prac. pracov pracov str_zam str_zam str_op str_op str_prev str_prev Datum tran(dat_akt,'@E') dat_akt Autor autor autor i=PS_LINE (iW_POST mC6_KUM 'POSTUP dnW_OPER OPERACE zMOD_SYS meMESS 6_dW_DEN hM6_ODMJ 6_DEN C6_ODM_P eno(i)M6_ZAM MERDRUH_POMERM6_DM OMERPOLEX zaPROCX St.'RTOP i)=RBOT ' CLEFT (i)CRIGHT FREEZE zORDER ' ZAHL JMENO ="sHODN 11,4)SOUC =TITLE i=TITLECOLORNAZEVT (i)="pF2 pracoF4 i)=F7 jmeF9 str_F10 (DETAIL mF1PRG =i+1F4_JM F4PRG enoF7_JM opF7PRG )=F9KEY *F10_JM zaF10PRG DET_JM )DETPRG "RAMECEK ='RIIS KLICO zPS_ZAZN atPS_RETURN (daMOD_PSV Prob r a kumulace dat ... m6_odmj c6_odm_p m6_odmj c6_odm_p Zadejte druh mzdy : 06217 Odveden mzdy Detail odveden operace postupu dle druh mezd druh_pomer druh_pomer zev DM m6_dm.nazev m6_dm.nazev ' '+alg Kusy str(kusy,12,3) ' '+str(den,2) str(castka,9,2) castka Nhod str(nhod,7,2) Hodiny str(hodiny,7,2) hodiny Sazba str(sazba,7,2) sazba %PVN iif(inlist(dm,w_dm_pev,w_dm_pre),str(100*nhod/hodiny,6,2),' ') nhod/hodiny m6_zam.prijmeni m6_zam.prijmeni m6_zam.jmeno m6_zam.jmeno trida+' ' trida stupen+' ' stupen Tac str(ta,11,4) Prac. pracov pracov str_zam str_zam str_op str_op str_prev str_prev Datum tran(dat_akt,'@E') dat_akt Autor autor autor i=PS_LINE (iW_POST mC6_KUM 'POSTUP dnW_OPER OPERACE zMOD_SYS meMESS 6_dW_DEN hM6_ODMJ 6_DEN C6_ODM_P ODM_P eno(i)M6_ZAM MERDRUH_POMERM6_DM OMERPOLEX zaPROCX St.'RTOP i)=RBOT ' CLEFT (i)CRIGHT FREEZE zORDER ' ZAHL JMENO ="sHODN 11,4)SOUC =TITLE i=TITLECOLORNAZEVT (i)="pF2 pracoF4 i)=F7 jmeF9 str_F10 (DETAIL mF1PRG =i+1F4_JM F4PRG enoF7_JM opF7PRG )=F9KEY *F10_JM zaF10PRG DET_JM )DETPRG "RAMECEK ='RIIS KLICO zPS_ZAZN atPS_RETURN (daMOD_PSV colora set color to &color i=COLOR (i0621x _pome? FUN_DET ZOBR_DNY ZOBR_ZAM ZOBR_DM vat?, procx, W:\06\ 06217.FXP W:\06\06217.PRG