m6_srazk dr_sraz m6_zam m_dat x_dat m_cis1 x_cis1 m4_organ m6_zp m6_arc m6_muo m6_zpz m6_srazu cis_spuc m6_sazby RIIS 6.1 ky ze mzdy, druh : DR_SRAZ w_dr_sraz M6_SRAZK tDR_SRAZ i=M6_ZAM l(iOSC M_DAT jmX_DAT "priM_CIS1 hodX_CIS1 ijmM4_ORGAN zahl(iM6_ZP o(i)="jM6_ARC odnM6_MUO no'UZIV M6_ZPZ ='BM6_SRAZU CIS_SPUC (M6_SAZBY W_HODN 'byANSI i=iW_DR_SRAZ JMENO_C WJMENO_C "ZMENA i)='OK_C i=MOD_C2 l(iMOD_C3 MOD612FX ky ze mzdy, druh : F RIIS 6.1 fun_prg zmena_sr mod612c2 Zadejte osobn slo: c6_srazk+ c6_srazk xc6_sraz m6_zam.osc m6_zam.osc m6_zam.prijmeni m6_zam.prijmeni m6_zam.jmeno m6_zam.jmeno ' '+e.typ_sraz+' ' upper(e.typ_sraz) Identifikace sr e.ident_sraz+' ' e.ident_sraz zp_plats+' ' zp_plats cis_spuc cis_spuc trans(dat_zah,'@E')+' ' dat_zah trans(dat_ukon,'@E')+' ' dat_ukon Celkem s. ' '+str(e.celk_sraz,7,0)+' ' e.celk_sraz Splaceno ' '+str(e.splat_sraz,7,0)+' ' e.splat_sraz Sazba str(e.sazba,5,2) e.sazba ' '+e.zaklad+' ' e.zaklad e s. str(e.vyse_sraz,7,0)+ ' ' e.vyse_sraz Minim.s. ' '+str(e.min_sraz,7,0)+' ' e.min_sraz Posl.v ' '+str(e.posl_vyse,7,0)+' ' e.posl_vyse Posl.dat. trans(e.posl_dat,'@E')+' ' e.posl_dat Osoby ' '+str(e.osoby,2,0)+' ' e.osoby Pl.st ' '+e.sniz_zp+' ' e.sniz_zp Min.VZZP ' '+e.min_vz+' ' e.min_vz jemce e.ico+' ' e.ico e.zavod+' ' e.zavod iif(dr_sraz='ZP',m6_zp.nazev_zp,m4_organ.nazev_org) iif(dr_sraz='ZP',m6_zp.nazev_zp,m4_organ.nazev_org) Var. symbol e.var_s e.var_s Konst e.kons_s e.kons_s Spec. symbol e.spec_s e.spec_s e.ucet e.ucet poznamka poznamka Pozast. ' '+pozast_sr+' ' pozast_sr prijmeni prijmeni jmeno jmeno Bydli Ulice ulice ulice cis_domu cis_domu Vznik vznik+' ' vznik left(m6_zam.rodne_cis,6)+'/'+right(m6_zam.rodne_cis,4) m6_zam.rodne_cis Autor autor autor Aktual. aktual aktual Dat.akt. trans(datum,'@E') datum W_DR_SRAZ ID_ORG i=POLEX l(iRAMECEK NAZEVT jmRIIS hodRBOT ijmCLEFT =CRIGHT l(iFREEZE o(i)="jF2 odnF3 no'F4 ='BF9 SRAZU (F10_JM F10PRG 'byDETAIL i=iDET_JM ENTER PROCX "F9KEY i)='M6_SRAZK =C6_SRAZK DR_SRAZ XC6_SRAZ nM6_ZAM ce'ICO ZAVOD M4_ORGAN nM6_ZP dZAHL odn(JMENO _domHODN i=i+I (i)=MOD_PSV OBSAH colora set color to &col _SRAZ i=OBR ident_sraz dr_sraz 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 OBRAZ i=ZAZ_M6 l(iNOVY_Z C6_SRAZK mPRIDEJ_ZAZM6_SRAZK dIDENT_SRAZOSC =DR_SRAZ AZW_OSC W_ROD_CIS W_ICO odnW_KOD_ZP 'W_DAT_ZMENW_POHLAVI W_ROK_NAR W_PRIJMENIW_JMENO W_ULICE byW_CIS_DOMUW_BYDL W_PSC NOVY_PP "ST_Q i)='ST_POCET =S_OSC S_DR_SR S_TYP_SR S_IDENT_SRS_DAT_ZAH S_DAT_UKONS_CELK_SR S_SPLAT_SRS_SAZBA dS_ZAKLAD (S_VYSE_SR S_MIN_SR +S_POSL_VYSS_POSL_DATS_OSOBY znS_ICO S_ZAVOD 'vS_VAR_S iS_KONS_S zS_SPEC_S iS_UCET KUHS_POZNAM 1S_POZAST iS_ZP_PLATSS_CIS_SPUCS_SNIZ_ZP S_MIN_VZ oS_PRIJMENIS_JMENO (mS_BYDL dneS_PSC S_ULICE ='S_CIS_DOMUS_DATUM ndS_AUTOR iS_AKTUAL (NAPLN_POL ZMENA i)="ZMENA_ZP dJMENO_C orWJMENO_C 1RADEK_C ='SLOUPEC_C )="akQ1 hodnQ2 'aktualQ3 i=i+1Q4 hl(i)='Q5 akt.' o(i)="tQ7 (datum,Q8 hodQ9 ='datumQ10 do moQ11 releQ12 ahl, jQ13 obsahQ14 retQ15 ******Q16 ******Q17 ******Q18 ******Q19 ******Q20 ******Q21 procQ22 hlaskQ23 paramQ24 sys(20Q26 olor")Q27 e screQ28 olor tQ30 @ 1CISELNIK )/2 clDOL o 15,(POCET txt)DOP1 @ 13DOP2 en(txPOR /2 to COUNT len(ZAKAZNIK dPOMOC @ 14Y 9-len(txRAD say tSL = inkeyPOC restorKONTROLA rP_ZOB setBARVAS o &BARVAR urnBARVAZ ***BARVAU ***BARVAN ***BARVAH ***BARVA ****KS ***MENU uPORADI _srKONEC t fuI n 6 toX set fR ZMENY PS_RETURN Aktualizace Obdob Pozastaven sob platby Spol. Celkov Splaceno Sazba (%) klad sr Osob v dom cnosti Minim Posledn Datum tcem pojistn ho i st Minim VZ ZP POR_DET et pro zas jemce Var. symbol Konst Specifick et pro zas Specifick Adresa pro zas Ulice slo domu Bydli S_ZP_PLATS &barvau 9999999 9999999 999.99 9999999 9999999 9999999 S_OSC LATSW_PICT_OSCM6_ZAM l(iW_TEXT PRIJMENI mJMENO _ZAZC6_SRAZK dS_TYP_SR ZS_IDENT_SRS_DAT_ZAH S_DAT_UKONS_POZNAM S_POZAST nS_ZP_PLATSS_CIS_SPUCS_CELK_SR S_SPLAT_SRS_SAZBA NIS_ZAKLAD S_OSOBY byS_VYSE_SR S_MIN_SR S_POSL_VYSS_POSL_DATS_SNIZ_ZP S_MIN_VZ =S_ICO LATSS_ZAVOD S_VAR_S S_KONS_S RS_SPEC_S S_UCET KONW_DR_SRAZ M6_ZP T_SRNAZEV_ZP dM4_ORGAN (NAZEV_ORG S_PRIJMENIS_JMENO YSS_ULICE ATS_CIS_DOMUS_BYDL S_PSC &barvau Bezhotovostn Dluh zam stnance vky odbor Zdravotn poji s_osc @ 4,24 &vloz s_osc picture w_pict_osc s_typ_sr @ 4,66 &vloz s_typ_sr picture '@!X' @ 5,16 &vloz s_ident_sr picture '@X' @ 5,47 &vloz s_dat_zah picture '@E' @ 5,58 &vloz s_dat_ukon picture '@E' @ 6,22 &vloz s_poznam @ 6,67 &vloz s_pozast pict '!X' s_zp_plats @ 7,27 &vloz s_zp_plats pict '!' s_cis_spuc @ 7,65 &vloz s_cis_spuc pict '999' @ 9,28 &vloz s_celk_sr picture '9999999' @ 10,28 &vloz s_splat_sr picture '9999999' @ 11,29 &vloz s_sazba picture '999.99' @ 12,34 &vloz s_zaklad picture '!X' @ 13,33 &vloz s_osoby picture '99' @ 9,61 &vloz s_vyse_sr picture '9999999' @ 10,61 &vloz s_min_sr picture '9999999' @ 13,67 &vloz s_sniz_zp picture '!X' @ 14,67 &vloz s_min_vz picture '!X' s_ico @ 17,19 &vloz s_ico picture '@!X' Zdravotn poji ovna nenalezena Organizace nenalezena s_zavod @ 17,32 &vloz s_zavod picture 'XXX' Organizace nenalezena @ 17,37 &vloz s_var_s picture '@!X' @ 17,51 &vloz s_kons_s picture '@!X' @ 17,58 &vloz s_spec_s picture '@!X' @ 18,19 &vloz s_ucet picture '@!X' @ 16,22 &vloz s_prijmeni @ 17,22 &vloz s_jmeno @ 18,22 &vloz s_ulice @ 18,60 &vloz s_cis_domu @ 19,22 &vloz s_bydl @ 19,60 &vloz s_psc &barvau LATSP_ZOB _OSCNASTAV_Q JMENI mW_DR_SRAZ S_ZAKLAD dS_TYP_SR ZS_IDENT_SRS_ZP_PLATSS_SAZBA T_SRQ3 P_PLATSQ5 IS_SPUCQ6 ELK_SR PLAT_SRQ8 M6_SRAZU SS_CIS_SPUCS_ICO SL_VYSS_ZAVOD ATZAVOD S_UCET =UCET2 LATSS_VAR_S M6_SAZBY CS_VARS_K S_KONS_S CS_KONST_KC6_SRAZK V_ORG IJMENIQ15 YSQ16 ATQ17 S_DOMUQ18 'vS_DR_SR iM6_ZP zHLASKA KUHM4_ORGAN iW_HODN ATSQ21 IZ_ZP IJMENIQ25 (mQ26 dneQ27 ='Q29 S_DOMUQ30 ndZMENA iNOVY_Z (POR_DET PROC1 i)="S_DATUM dS_AKTUAL rMM_AUTOR zdravotn poji Zdravotn poji na ke dni Pohlav Rok narozen &barvau @R 999999/9999 W_OSC LATSM6_ZAM OSCPRIJMENI iJMENO W_ROD_CIS M6_ZPZ W_ICO dM6_ZP ZNAZEV_ZP RW_KOD_ZP SW_DAT_ZMENW_POHLAVI W_ROK_NAR @ 14,25 &vloz w_rod_cis pict '@R 999999/9999' @ 15,25 &vloz w_ico pict '@!X' w_kod_zp @ 17,25 &vloz w_kod_zp pict '!' @ 17,55 &vloz w_dat_zmen pict '@E' @ 18,25 &vloz w_pohlavi pict '!' @ 18,55 &vloz w_rok_nar pict '9999' do proc&y LATSP_ZOB IJMENI OD_CIS EV_ZP RAKTUAL SMM_AUTOR NDAT_AKT ZMENA_ZP do proc&y do zmen&y with 'get' do zmen&y with 'say' Skute znam? (a/N) ident_sraz dr_sraz it pr ci beze zm n? (a/N) mod612g KONEC LATSI IJMENI D_CIS EV_ZP _AUTOR NAP_HOD P_ZOB LATSS_DR_SR UCHLASENI PLAT_SRM6_ZPZ NIW_OSC S_OSC SM6_ZAM PUCW_ROD_CIS RODNE_CIS W_ICO ATS_ICO W_KOD_ZP =W_DAT_ZMENW_POHLAVI W_ROK_NAR KONS_S ST_POCET KPOCET V_ORG IJMENIQ6 ATMENU2 DOMUPORADI2 PROC2 'vVOLBA iPROC1 zID_ORG KUHNOVY_Z 1M6_SRAZK iZAZ_M6 SC6_SRAZK CMOD612C2 IDENT_SRAZOSC IDR_SRAZ AZNAPLN_POL PORADI K_UDAJU ='OK_C _DOMUULOZ ndPRIDEJ_ZAZZMENA PLN_POL MOD612G dKOD_ZP DAT_ZMEN 1POHLAVI ENROK_NAR AKTUAL MM_AUTOR nDAT_AKT alAUTOR ehled spole ehled organizac Konec mod6_lib mod_proc &barvau mod7_lib &barvau &barvau LATSO1 OSCW_CIS_SPUCS_CIS_SPUCZOBR_SRAZUMOD6_LIB CZMENA SPUCS_DR_SR UCW_ZP RS_ICO SZOBR_ZP NMOD_PROC W_DICO W_NAZ LATSZOBR_ORGANS_ZAVOD MOD7_LIB C6_SRAZK SW_ROD_CIS M6_ZAM PUCRODNE_CIS ZMENA RAZUOSC CS_OSC SPUCDR_SRAZ UCW_DR_SRAZ TYP_SRAZ SS_TYP_SR NIDENT_SRAZS_IDENT_SRDAT_ZAH TSS_DAT_ZAH DAT_UKON S_DAT_UKONCELK_SRAZ S_CELK_SR SPLAT_SRAZS_SPLAT_SRSAZBA S_SAZBA ZAKLAD ATS_ZAKLAD VYSE_SRAZ S_VYSE_SR MIN_SRAZ S_MIN_SR POSL_VYSE S_POSL_VYSPOSL_DAT KS_POSL_DATOSOBY RS_OSOBY (S_ICO ZAVOD MENIS_ZAVOD YSVAR_S ATS_VAR_S MUKONS_S S_KONS_S vSPEC_S iS_SPEC_S zUCET iS_UCET KUHPOZNAMKA 1S_POZNAM iPOZAST_SR S_POZAST CZP_PLATS S_ZP_PLATSCIS_SPUC IS_CIS_SPUCSNIZ_ZP S_SNIZ_ZP MIN_VZ ='S_MIN_VZ UPRIJMENI dS_PRIJMENIJMENO (S_JMENO "S_BYDL S_PSC 1ULICE ENS_ULICE CIS_DOMU S_CIS_DOMUDATUM alAKTUAL i+1MM_AUTOR 'M6_SRAZK ZAZ_M6 udaj_sf udaj_sf udaj_nf udaj_nf M6_SRAZK udaj_nf W_NAZEV SUDAJ_S UDAJ_N PUCW_UDAJ_N W_UDAJ_S CW_NAZ_DBF M6_ARC UCCISLOZ NAZEV_DBF NAZEV_POL TYP_POL SRDAT_ZMENY CAS_ZMENY OBSAH_S OBSAH_N NDELKA_POL AKTUAL MM_AUTOR ZC6_SRAZK Osobn slo nen uvedeno Osobn slo neexistuje TYP_SRAZ s_typ_sr ident_sraz dr_sraz Nejednozna identifikace sr Datum zah t vypln Datum ukon nesm t men datum zah Chybn hodnota pozastaven ky (mezera, A) ZP_PLATS s_zp_plats Neexistuje slo sb Neexistuje slo spole Typ sr "MP" je ur en pouze pro druh sr ky "EX"=exekuce Celkov ka mus t pro typ sr ky "MP" a "MC" vypln "Sazba" a "M ky" nesm t vypln ny sou "Sazba" nebo "M ky" mus t vypln Nutno vyplnit. Povolen hodnoty jsou "B"=brutto a "N"=netto Zdravotn poji ovna nebyla nalezena Organizace nebyla nalezena Chybn hodnota ozna tce pojistn Chybn hodnota uplatn minim ho VZ zdravotn ho poji SS_OSC HLASKA UDAJ_N DAJ_S CM6_ZAM JMENO_C UCWJMENO_C MOD_C2 MOD_C3 ZMENA SRS_DR_SR W_POC X_DUPL M6_SRAZK NIDENT_SRAZNOVY_Z S_IDENT_SROSC ENT_SRDR_SRAZ SRZAZ_M6 C6_SRAZK S_DAT_ZAH S_DAT_UKONQ5 S_POZAST VYSQ8 KS_ZP_PLATSM6_SRAZU RS_CIS_SPUCQ9 (S_TYP_SR CS_CELK_SR YSS_SAZBA ATS_VYSE_SR S_ZAKLAD iM6_ZP zS_ICO KUHS_ZAVOD 1M4_ORGAN iS_SNIZ_ZP CS_MIN_VZ S_OSC S_DR_SR UCDR_SRAZ S_TYP_SR UTYP_SRAZ CS_IDENT_SRIDENT_SRAZS_DAT_ZAH DAT_ZAH S_DAT_UKONDAT_UKON S_CELK_SR CELK_SRAZ S_SPLAT_SRSPLAT_SRAZS_SAZBA NSAZBA SRAZS_ZAKLAD ZAKLAD _SRS_VYSE_SR VYSE_SRAZ S_MIN_SR MIN_SRAZ TS_POSL_VYSPOSL_VYSE S_POSL_DATPOSL_DAT NS_OSOBY OSOBY S_ICO VYSICO KS_ZAVOD TSZAVOD RS_VAR_S UCVAR_S (S_KONS_S CKONS_S S_SPEC_S SSPEC_S ATS_UCET S_POZNAM POZNAMKA iS_POZAST zPOZAST_SR S_ZP_PLATSZP_PLATS 1S_CIS_SPUCCIS_SPUC S_SNIZ_ZP SNIZ_ZP S_MIN_VZ SMIN_VZ IS_PRIJMENIPRIJMENI S_JMENO JMENO ='S_BYDL UBYDL dS_PSC MENIPSC (S_ULICE ULICE "S_CIS_DOMUCIS_DOMU S_DATUM 1DATUM ENS_AUTOR AUTOR S_AKTUAL UAKTUAL - - ^PgDn - ^Home - F10 - ^End,Esc - F6 Pohyb znamu znamu Organizace Konec S_DR_SR - - ^End,Esc Pohyb Konec q&si = pocet q&si = 0 DR_SR NOVY_Z UCID_ORG S_DR_SR US_MIN_VZ CS_SNIZ_ZP S_ZP_PLATSS_CIS_SPUCS_ICO LATSS_ZAVOD ONS_VAR_S S_KONS_S S_SPEC_S S_UCET _SRS_PRIJMENIS_JMENO NS_BYDL RAZS_PSC S_ULICE SRS_CIS_DOMUPOCET IN_SR s_osc mod_proc s_typ_sr TYP_SRAZ s_typ_sr s_dr_sraz DR_SRAZ s_dr_sr s_zp_plats ZP_PLATS s_zp_plats s_cis_spuc mod6_lib s_ico s_zavod mod_proc mod7_lib w_kod_zp KOD_ZP w_kod_zp Pro toto pole neexistuje pomocn ehled hodnot P_ZOB SW_OSC S_OSC UCZOBR_ZAM MOD_PROC UZMENA CMOD_C3 W_CIS_SPUCS_CIS_SPUCZOBR_SRAZUMOD6_LIB CS_DR_SR UCW_ZP S_ICO ZOBR_ZP SRW_ICO IW_ZAVOD NS_ZAVOD AZW_DICO W_NAZ SRZOBR_ORGANMOD7_LIB SZMENA_ZP HLASKA colora set color to &color SCOLOR NOVY_Z SC6_SRAZK DR_SRAZ CW_DR_SRAZ AUTOR UMM_AUTOR CAKTUAL DATUM CDAT_ZAH UCW_ZAC_MES ZAKLAD CVZNIK UCSAZBA ID_ORG ZP_PLATS RMIN_VZ SNIZ_ZP NM6_SRAZK ZZAZ_M6 Akt. m V 99999999.99 99999999.99 ST_ZAZ SPOM_SOUC SOUCET CVYSE_SRAZ SOUC_VSE USOUC_AKT POZAST_SR DAT_ZAH CW_ZAC_MES DAT_UKON W_KON_MES MOD612FX HLASKA ZMENA_SR PORADI #% POR_DET eniL( PROC1 ZMEN1 {1 PORADI2 volK@ PROC2 sk ( ZMEN2 f6 = ZMENY /F VOLBA ba po t./.f. ARCHIV K_UDAJU NAPLN_POL f10 = MENU2 jm = NASTAV_Q NAP_HOD HLASKA PRIDEJ_ZAZ FUN_PRG W:\06\ MOD612C2.FXP W:\06\MOD612C2.PRG