Chip 1999 June

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_KOND.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1999-03-18 | 13.1 KB | 307 lines

misto7 prac_adr7 prac_adr7 pathzF pathz set defa to &f_drv run &f_drv cd .. use &f_adr\data\m_param set path to &pth, &f_adr, &f_adr\data do chyba with sys(16),error(),lineno() master Epson LX-810 misto7 stanice7 typ_zpr7 LADENI \LADENI \DATA prac_adr7 FoxProFl set path to &f_adr,&pth,&pth\01,&pth\02,&pth\03,&pth\04,&pth\05,&pth\06,&pth\07,&pth\08,&pth\09,&pth\10,&pth\11,&pth\12,&pth\13,&f_adr\data M_PARAM m_param FoxPro 2.5 csprol25 csprol chdir mkdir rmdir set defa to &w1w run &w1w chdir chdir set defa to &w2w run &w2w mkdir chdir mkdir chdir d r b a RIIS m_param ! flag &f_adr\data\m_dbf.dbf -t >nul m_dbf ! flag &f_adr\data\m_dbf.dbf t >nul m_dbf m_dbf nazev m_idx m_idx m_idx cesta >syst Prob indexace datab ... \data\ case !file('&w_dbf') M_DBF M_IDX \data\ use &w_dbf excl use &w_dbf excl modify command quit ; *.*a@ set default to &f_drv run &f_drv *.*a@ chdir rmdir EUTIT talk PRIOR ----A1 -------AA -------PRIHLAS --HESLO --- SLAPEJ ?w?PRISTUP MM_ZPET MM_VER n_gUSCHOVA O_MM_DEMO _OMM_AUTOR _MM_JMENO W_TISKARNAW_FRONTA PODNIK _ _CISS _ _ W_CESTINA W_EGA_MIN W_KODPRN _W_SIT _ _ W_CSCON _W_CSPROL W_ADR _ _W_MISTO _ W_CD _ _ _PTH_DATA F_DRV _ _XX F_ADR PT_OBEC _ID_ORG W_SIT_OS _SIT_OS W_SIT_OSV VERZE _W_SET POLE0 _W_TYP_ZPR M_PARAM FIRMA CSPROL25 CSPROL CHDIR _MKDIR RMDIR _ _W1W _W_CESTA W_FLAG _M_DBF _CESTA NAZEV_DBF NAZEV M_IDX _NAZEV_IDX NAZEV_TAG W_ORDER UZ_AKCE ST_REC - CSPROLPOCET POCETC W_DBF X_DBF KONT_HL INDEXACE PROCENTA compact ascending descending index on &w_klic tag &w_tag &konec_idx \data\ index on &w_klic to &w_idx talk M_IDX ----M_DBF ----CESTA ----NAZEV_DBF NAZEV_TAG KONEC_IDX TYP_IDX ORD_IDX KLIC_IDX W_KLIC O_W_TAG ONAZEV_IDX W_IDX F_ADR ARNADATUM_AKT POCET alk POCETC ---POC colora alk HCOLOR ---OBRH colora alk MCOLOR enter centuryz w_cestinaf colorz set color to w+/n set color to w/n &barva2 &barva1 Moment - se souborem se pracuje ekejte nebo stiskn te <Esc>... &barva2 &barva1 Moment - se z znamem se pracuje ekejte nebo stiskn te <Esc>... &barva2 &barva1 stup na tisk rnu pozastaven it pap r (?)........<Enter> \data\ delete file &sw_dbf FULLPATHa m_log m_log chyba w_modud1xf Probiha udrzba databazi w_poc_chf kondenzace: kondenzace: select &sel chyba set defa to &w1w run &w1w chdir chdir chdir ER_PRG lk ER_CHYBA -ER_C_RAD -HOME ---END V_DBF EV_TAG ENTER W_CESTINA BARVA1 BARVA2 MQCOL EV_IDX SCR_ER ASW_DBF F_ADR _ _M_DBF _ _ CESTA NAZEV_DBF W_DBF _ _ M_LOG _CHYBA W_MESS _ _W_MODUD1X W_POC_CH DATUM _ _ZDROJ JM_PRG RADEK _JMENO MM_AUTOR POC_CHYB POC_POM W_ADR _CHDIR Poru hlavi ka, oprava ... Oprava hlavi ky neprob , pou ijte HEADER- FILE_HANDLX_DBF -IFP_SIZE LIFP_TOP DLPOC_ZAZDB HANDLPOC2 POCET_C POZICE1 O_POZ1 HANDLPOZ2 W_POZ DELKA1 ADEL1 HANDLDEL2 _ _W_DEL _ POCET_CV OBRHL _HANDLST_POM _ST_POC1 ST_POC2 _ST_POC3 W_STRING HLASKA m_akce.dbf2 m_param m_param select &st_sel m_akce m_akce m_akce select &st_sel W_FCE ANDLW_VYSL -ST_SEL LZAV_AKCE LW_MISTO HANDLM_PARAM W_BYTE POLE0 M_AKCE O_DATUM VYSL AMM_AUTOR LMOD_KOND INDEXACE PROCENTA HLASKA _misto CHYBA 'mist KONT_HL = g"& UZ_AKCE X:\OBEC\ MOD_KOND.FXP X:\OBEC\MOD_KOND.PRG