modud0x MODUD0X trMOD_SYS v)PREHLED ehled d a t a b syst RIIS 0.0 modud0x Zadejte n zev dbf : Funkce modud1x Aktual modud2x 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 ! flag &f_adr\data\m_idx.dbf -t >nul m_idx ! flag &f_adr\data\m_idx.dbf t >nul m_idx m_idx cesta zev DB m_dbf.nazev_dbf m_dbf.nazev_dbf Popis datab m_dbf.popis_dbf m_dbf.popis_dbf Cesta m_dbf.cesta m_dbf.cesta Dat.ind. tran(m_dbf.datum_akt,'@E') m_dbf.datum_akt POLEX trFREEZE v)LEVA PRAVA * DOL elect RAMECEK _dNAZEVT stRIIS =ltriNADPIS lecPROCX deleF1 ag all select F3 seekF4 esta+w_F6 ile cesF9 azev_dbF9KEY ta+wF10 v and F10_JM F10PRG lecDETAIL ldbDET_JM casENTER ---SPACEBAR iM_PARAM --W_SIT se lPOLE0 m(rtM_DBF dx.nCESTA g)))NAZEV_DBF NAZEV M_IDX iNAZEV_IDX NAZEV_TAG JMENO 'comHODN MOD_PSV Indexace aktu datab Indexace v ech datab Prohl datab Test integrity index Konec ba datab ba datab set order to &w_order set order to &w_order set order to &w_order trM_DBF v)W_ORDER VOL W_MODUD1X W_POC_CH INDEX_AKT INDEX_VSE ZOBR_DBF TEST_IDX cPS_RETURN c_chyby c_chyby nazev case !file('&w_dbf') Datab ze FF neexistuje M_DBF M_IDX use &w_dbf Datab ze se kop ruje ... c_test c_test RIIS 1.7 et ? (a/N) Chyby v datab hem testu integrity index nebyla nelezena chyba trMOD_SYS v)ST_REC POC_CHYB MODUD1X POCET POCETC NALLPZAZ C_CHYBY NAZEV cM_DBF T_PRERUS W_DBF ect STAN_DBF kCESTA a+w_NAZEV_DBF HLASKA cesC_TEST a+wPRER and W_WIN Datab Index indexu Hodnota et chyb for FOR compact ascending descending , index : Sch use &w_dbf order &w_tag , index : Schazi klic \data\ use &w_dbf index &w_idx w_klic2 = &w_klic1 w_klic2f w_klic2f w_klic2f 9999999999 c_chyby w_klic4 = &w_klic1 9999999999 c_chyby M_IDX trM_DBF v)CESTA NAZEV_DBF MODUD1X KLIC_IDX NAZEV_IDX NAZEV_TAG KONEC_IDX TYP_IDX cORD_IDX HLASKA W_KLIC kW_TAG _W_IDX F_ADR cesC_TEST W_KLIC1 wW_KLIC3 d W_KLIC2 POC_CHYB cC_CHYBY bW_KLIC4 if !file('&w_dbf') Datab ze neexistuje M_DBF M_IDX use &w_dbf again use &w_dbf go top go bottom W_DBF trSTAN_DBF )M_DBF CESTA NAZEV_DBF HLASKA W_WIN C_IDX case !file('&w_dbf') Datab ze neexistuje M_DBF M_IDX Tuto datab zi nelze indexovat, prob automaticky Prob kondenzace datab ze ... !flag &x_dbf -t >nul do chyba with error() use &w_dbf excl do moderror with sys(16),error(),lineno(1) &w_pom !flag &x_dbf t >nul use &w_dbf excl trMOD_SYS )W_DBF STAN_DBF M_DBF CESTA NAZEV_DBF HLASKA X_DBF W_SIT KONT_HL MEXIT MAZANI kW_POM _INDEXACE FFFZ^D Prob indexace datab ze ... cesta use &w_dbf excl FFFZ^D select &st_seldb compact ascending descending , index : Schazi klic CZECH index on &w_klic tag &w_tag &konec_idx MACHINE , index : Schazi klic CZECH index on &w_klic to &w_idx MACHINE select &st_seldb select &st_sel W_CESTA trW_NAZEV )ST_SEL ST_SELDB W_CESTA2 STAN_PATH W_DBF M_IDX CESTA NAZEV_DBF NAZEV_IDX NAZEV_TAG KONEC_IDX TYP_IDX ORD_IDX KLIC_IDX HLASKA wM_DBF d W_KLIC W_TAG cORD_CES W_IDX DATUM_AKT Prob indexace datab ... case !file('&w_dbf') Datab ze FF neexistuje M_DBF M_IDX !flag &x_dbf -t >nul do chyba with error() use &w_dbf excl do moderror with sys(16),error(),lineno(1) &w_pom !flag &x_dbf t >nul use &w_dbf excl trMOD_SYS )ST_REC _SELDB POCET POCETC NALLPZAZ M_DBF NAZEV_DBF W_DBF STAN_DBF CESTA HLASKA X_DBF W_SIT KONT_HL MEXIT PROCENTA MAZANI wW_POM d INDEXACE Poru hlavi ka, oprava ... Oprava hlavi ky neprob , pou ijte HEADER- FILE_HANDLX_DBF )IFP_SIZE LIFP_TOP DLPOC_ZAZDB HANDLPOC2 POCET_C POZICE1 HANDLPOZ2 W_POZ DELKA1 HANDLDEL2 W_DEL POCET_CV wOBRHL MESS _HANDLST_POM ST_POC1 ST_POC2 ST_POC3 iW_STRING LHLASKA colora set color to &Mcolor _HANDLMCOLOR POCET ANDLPOCETC colora SET COLOR TO &col CMESS ANDLCOL Nelze indexovat, se souborem F se pracuje ! do moderror with sys(16),error(),lineno(1) \data\ delete file &sw_dbf ANDLHLASKA )W_DBF LMEXIT DLSW_DBF F_ADR ANDLM_DBF CESTA NAZEV_DBF MODERROR \data\ if !file('&w_dbf') and id_org='NAST' and w_misto#'SOWA' R:\RIIS_MS\F W_CESTA DLW_NAZEV )W_DBF LF_ADR \data\ if !file('&w_dbf') and id_org='NAST' and w_misto#'SOWA' R:\RIIS_MS\ \data\ W_CESTA DLW_NAZEV )W_CESTA2 LW_DBF DLF_ADR PREHLED MODUD1X TEST_IDX en\ ZOBR_DBF INDEX_AKT INDEXACE INDEX_VSE KONT_HL HLASKA bstrk/ PROCENTA selecR1 CHYBA do caB2 STAN_DBF STAN_PATH X:\OBEC\ MODUD0X.FXP X:\OBEC\MODUD0X.PRG