w_rokf Nelze aktualizovat obraty jin ho ne minul ho roku m7_ucto set color to b/w set color to bg/n set color to w+/w set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w/n r7_obru denik m7_obru denik r7_ucet m7_ucet r7_denik denik m7_denik denik r1_str r4_sklad sklad v1_str x1_str v4_sklad x4_sklad m_dat x_dat m_cis1 x_cis1 m7_ucto m_param r7_stav m7_stav r7_sstav m7_sstav m7_uskup skupina m7_desk skupina m7_tup skupina c7_obru c7_obru RIIS 7.1 e t n obraty za obrat den Konec W_ROK ----W_ROK_VYB W_ROK_MIN HLASKA t dX_ROK cM7_UCTO KONTROLA rNOVY_R denOBRAT s m7ZMENA sTEXT_DEN tPMSTR _rokPMTUP topPMSKUP W_SK _obruPMDAT deniMHOD1 sMHOD2 ifMNAZ1 L_STMNAZ2 PMCASTKA W_DENIK upCISLO_P pW_DOKLAD kBARVAS aceBARVAR n_lBARVAT BARVAZ BARVAU z=5BARVAN mezBARVAH n_pANSI l_tupR7_OBRU odDENIK ina+M7_OBRU R7_UCET '6UCET n_texM7_UCET edR7_DENIK M7_DENIK uR1_STR NSTR V1_STR R4_SKLAD SKLAD DALV4_SKLAD aX1_STR eskX4_SKLAD M_DAT _tupX_DAT 7_deM_CIS1 +' X_CIS1 +' M_PARAM PAR_POLE 'POLE7 TUPR7_STAV zM7_STAV n R7_SSTAV M7_SSTAV (M7_USKUP SKUPINA p M7_DESK skM7_TUP DET_TUP mC7_OBRU _tOBD @OBDC 5 sayW_OBD _GENER 4,3CIS_G mtupPLAT_OBDOBW_TEXT OBW_NED_VYR W_PAR_ZNAKW_CINNOST W_SPLATNOSW_UC_MD W_UC_DAL endif ect c7_oOBRATUCT &barvah &barvau ----Q2 OK_VYB OK_MIN t dQ5 CISELNIK denDOL s m7POCET1 sPOOCET2 tMD_CELK okDAL_CELK P_ZOB obruPOMOC deniMENU1 sBARVA ifBARVAZ _STBARVA1 BARVAS BARVA2 upKONEC mezPOCET2 n_pHLAV1 _tupHLAV2 odPROC1 ina+PROC2 ZMENY &barvau &barvas &barvaz &barvar &barvar pis na v ce st edisek &barvaz &barvat Doklad: Var.symbol: innost: Splatnost: &barvau ----1 &barvas &barvau &barvar &barvaz &barvar pis na v ce st edisek &barvat &barvaz Celkem: &barvat &barvan D A L &barvau &barvau &barvas &barvaz &barvar &barvar &barvaz &barvat Text: Var.symbol: innost: Splatnost: &barvau ----ZAZ K_VYB &barvau &barvaz Esc - Konec ^End - Generuj &barvaz stka: edisko: Skupina: TUP: Dat.vyst.: &barvau ----` &barvau &barvas 99999 &barvau ----W_DENIK W_TEXT W_DOKLAD dW_NED_VYR W_PAR_ZNAKW_CINNOST W_SPLATNOSW_UC_MD rW_UC_DAL nM7_UCET m7NAZEV sC7_OBRU &barvat &barvaz &barvas &barvau &barvas &barvau 999999999999.99 999999999999.99 &barvau ----R DENIK DOKLAD dRADEK2 PAR_ZNAKMD INNOST LATNOSMD_CELK rDAL_CELK _UCET ----CIS_POL OKLAD SKLAD ZNAKTEXT &barvau &barvas &barvau ----X_TEXT X_NED_VYR X_PAR_ZNAKX_CINNOST X_SPLATNOS &barvau 999999999.99 ----PMCASTKA PMSTR PMSKUP NAKPMTUP PMDAT denik @ 4,9 &vloz w_denik picture '@!X' Chybn identifikace den @ 4,13 &vloz w_text picture '@X' @ 5,10 &vloz w_ned_vyr @ 5,33 &vloz w_par_znak @ 5,55 &vloz w_cinnost @ 5,70 &vloz w_splatnost picture '@E' uc_md @ 6,25 &vloz w_uc_md uc_dal @ 7,25 &vloz w_uc_dal ----P_ZOB NAKM7_DENIK W_DENIK SW_TEXT ATNOSW_DOKLAD rDOKLAD nHLASKA L_CELK _CELK Q6 obruQ7 deniQ8 sPROC1 @ x,8 &vloz nstr picture '9999' @ x,15 &vloz md @ x,32 &vloz dal sklad @ x,48 &vloz sklad picture '9999' @x,53 &vloz text 999999999999.99 999999999999.99 999999999999.99 &barvau ----P_ZOB NASTAV_Q NAKC7_OBRU _OBRU TNOSCIS_POL S_POL _CELK okST_ZAZ DAL obruMD_CELK niDAL_CELK @ 18,10 &vloz x_text @ 19,10 &vloz x_ned_vyr @ 19,33 &vloz x_par_znak @ 19,55 &vloz x_cinnost @ 19,70 &vloz x_splatnost picture '@E' ----P_ZOB STAV_Q NAKQ2 TNOSb @m+1,35 &vloz pmcastka picture '999999999.99' vypln @m+2,35 &vloz pmstr @m+3,35 &vloz pmskup @m+4,35 &vloz pmtup @m+5,35 &vloz pmdat picture '@E' vypln no datum ----P_ZOB STAV_Q NAKPMCASTKA HLASKA TNOSPMSTR rPAR_POLE nKONTR_STREQ3 _CELK sPMSKUP tKONTR_SKUPQ4 pPMTUP KONTR_TUP niPMDAT do proc&n do zmen&n with 'get' do zmen&n with 'say' &barvau &barvau ehled ch den tu MD tu DAL Konec mod7_lib mod7_lib mod7_lib &barvau ehled st edisek ehled sklad Konec mod_proc mod_proc &barvau do hlav&n do proc&n do menu&n &barvau if q