mod_lib m_param r7_stav r7_ucet r7_ucet r7_stav zmeny n a s t a v Funkce Funkce s713c RIIS 7.1 . stav roku str(p_s_r,16,2) p_s_r statek roku str(k_s_r,16,2) k_s_r Rozd str(k_s_r-p_s_r,16,2) (k_s_r-p_s_r) Procento iif( (p_s_r=0 and k_s_r # 0), '**********', str(procento,10,2) ) procento nazev nazev P_SETUP 0,P_RESET dnP_6LPI c_tP_8LPI od_P_10CPI seP_12CPI ahP_16CPI dnP_20CPI meP_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON *P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON --P_SUBOFF -P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT ihP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY robMOD_LIB acM_PARAM W_PODNIK nPODNIK =reR7_STAV toUCET ct suR7_UCET y.NAZEV aP_S_R m(K_S_R _rROZDIL r,PROCENTO aW_ROK_VYB ZMENY VYPOCET ozHLASKA 0NAZEVT asPOLEX FREEZE menF1 to dbf F2 et grouF3 soucetF6 scaF9 do casF10 casF10_JM 0 aF10PRG F9KEY vyRAMECEK (PROCX _s_rOBRZ r )*(KLICF KLICR _s_rKLICV k_s_RIIS NADPIS t =LEVA s_r-pPRAVA _s_rHOR case pZAHL JMENO vypHODN 0.00I erwiMOD_PSV OBSAH Rekapitulace t ty za syntetick Konec VOL11 0,OBR10 c_tS713C2 od_S713C3 sePS_RETURN kumulace dat ... zmeny soucet RIIS 7.1 n a s t a v tisk_rek s713c Rekapitulace iif(trida='C','Celkem ','T da '+trida) Po . stav roku str(p_s_r,17,2) p_s_r Z statek roku str(k_s_r,17,2) k_s_r Rozd str(rozdil,17,2) rozdil Procento iif((p_s_r=0 and k_s_r#0), '**********', str(proc_tr,10,2) ) proc_tr 0,MOD_SYS dnMESS c_tZAZN od_ZMENY seUCET TRIDA dnP_S_R meK_S_R ROZDIL PROC_TR SOUCET OFFVYPOCET *HLASKA PS_RETURN OFF_B UBOFF BST_ON POLEX FFPROCX QUALRTOP ihRBOT P_OFFCLEFT CRIGHT OFFFREEZE ORDER _OFFZAHL JMENO robHODN acTITLE TITLECOLORF1 =reF2 ct suF4 _rF10 r,DETAIL eF1PRG aF4_JM F4PRG F7_JM ozF7PRG 0F9KEY asF10_JM F10PRG menDET_JM bf DETPRG rouRAMECEK seNAZEVT cetRIIS scaTISKPRG asCARA casPOC0 0 aF5 vyOBRZ (KLICF _s_rKLICR )*(KLICV NADPIS s_rLEVA k_s_PRAVA HOR t =DOL s_r-pI s_rMOD_PSV OBSAH kumulace dat ... zmeny soucet tisk_srek s713c RIIS 7.1 n a s t a v Rekapitulace syntetick iif(su3='C','Celkem ','SU '+su3) Po . stav roku str(p_s_r,17,2) p_s_r Z statek roku str(k_s_r,17,2) k_s_r Rozd str(rozdil,17,2) rozdil Procento iif( (p_s_r=0 and k_s_r#0), '**********', str(proc_tr,10,2) ) proc_tr MOD_SYS 0,MESS dnANSI c_tZAZN od_ZMENY seUCET dnP_S_R meK_S_R ROZDIL PROC_TR SOUCET OFFVYPOCET *HLASKA PS_RETURN OFF_B UBOFF BST_ON POLEX FFPROCX QUALRTOP ihRBOT P_OFFCLEFT CRIGHT OFFFREEZE ORDER _OFFZAHL JMENO robHODN acTITLE TITLECOLORF1 =reF2 ct suF4 _rF10 r,DETAIL eF1PRG aF4_JM F4PRG F7_JM ozF7PRG 0F9KEY asF10_JM F10PRG menDET_JM bf DETPRG rouRAMECEK seNAZEVT cetRIIS scaTISKPRG asCARA casPOC0 0 aF5 vyOBRZ (KLICF _s_rKLICR )*(KLICV NADPIS _rLEVA k_s_PRAVA HOR t =DOL s_r-pI s_rMOD_PSV OBSAH mod_lib Prob tisk ... s713c1 0,W_TISK dnNASTAV_PRNMOD_LIB d_OBRT seMESS S713C1 mod_lib Prob tisk ... s713c2 0,W_TISK dnNASTAV_PRNMOD_LIB d_OBRT seMESS S713C2 COLORz 0,HCOLOR dnHOBR V_PRNFUNKCE S713C2 ----# S713C3 TISK_REK TISK_SREK HLASKA W:\07\ S713C.FXP W:\07\S713C.PRG