m_param s e l n k y datov ch polo RIIS 0.0 mod_cis tisk_prg Zadejte polo Kopie kopie_cis penter Modul ' '+modul+' ' modul s_riis s_riis zev polo nazev_dp nazev_dp Ext.id. s_externi s_externi Rozsah ' '+str(rozsah,2)+' ' rozsah ' '+typ+' ' Zobraz. ' '+zobr_cis+' ' zobr_cis ' '+str(pocet_zaz,3)+' ' pocet_zaz ' '+str(delka_txt,3)+' ' delka_txt Aktual. ' '+aktual+' ' aktual 2-1,5POM_IDX2 oW_CESTA z2POSUN ay 'ZRUSENO 2-1,25KONTR1 xt'M_PARAM **W_PODNIK *FIRMA ****OTEVRI ***M_DAT ****P_DAT ****POLEX FREEZE e sLEVA paraPRAVA rx,bHOR et colDOL &barxRAMECEK leNAZEVT ,78RIIS ile dNADPIS .aPROCX endF2 f eof()F3 . m_datF4 iis # sF4PRG reF6 endif ,field_F9 say &reF9KEY cturF10 @ rF10_JM m_F10PRG _exDETAIL 5 sDET_JM 1.tENTER colZAHL returJMENO ****HODN ****I ****MOD_PSV **OBSAH use &pth\data\m_uziv order uzivatel ivatel syst mu RIIS - z RIIS 0.0 mod_sow Zadejte n zev u ivatele : Funkce fun_zak Aktual akt_zak ivatel uzivatel uzivatel Adres left(adresar,20) adresar c_oznac.dbf2 c_oznac zaznam Prob kopie ... \DATA \M_DAT.DBF \M_CIS1.DBF Soubor neexistuje Soubor neexistuje \m_dat \x_dat \m_cis1 \x_cis1 2-1,5ADRESAR oF_ADR z2POLEX ay 'PROCX @RTOP -1,25RBOT xt'CLEFT **CRIGHT *FREEZE ***ORDER ***ZAHL ****JMENO ****HODN TITLE e sTITLECOLORPS_LINE et colF2 &barxF3 ,78F6 ile dF7 .aF9 endDETAIL f()F1PRG _datF4_JM # sF4PRG reF7_JM F7PRG eld_F9KEY &reF10_JM turF10PRG @ rDET_JM m_DETPRG _exRAMECEK sNAZEVT 1.tRIIS colSPACEBAR rLEVA ****PRAVA ****HOR ****DOL **NADPIS **ENTER proMOD_PSV lpM_UZIV oviC_OZNAC rZAZNAM sM_DBF elseMESS M_DAT S_RIIS t cW_CESTA /nW_DAT clW_CIS1 +7TXT rxHLASKA x+7DAT ubCIS1 ,sNASEL '-MODUL 5)+NAZEV_DP rS_EXTERNI ROZSAH r(1TYP r(217)POCET_ZAZ DELKA_TXT ZOBR_CIS -AKTUAL @ rWHILE M_CIS1 gUpHODNOTA rHOD_EXT sTEXT ^HomePS_RETURN set color to &barx 2-1,5BARX oMODUL z2S_RIIS y 'NAZEV_DP @S_EXTERNI ROZSAH xt'TYP **ZOBR_CIS *AKTUAL RIIS 0.0 w+/bg 2-1,5STREC oPICTX z2RETEZ1 y 'WHODNOTA @FIELD_POZ KLIC1 xt'KLIC2 **CISELX *M_DAT ***HMEZ1 ***DMEZ1 ****HMEZ2 ****DMEZ2 R_POZ e sS_POZ OLORST_R_POZ bPPOL_R1 olPPOL_R2 rxPOLOVINA eNAPOVEDA 8NOVY_Z e dPOM .aK_KLICU ST_KLIC1 dBARVA1 f()BARVA2 datBARVA3 # sBARVA4 reBARVA5 SAYHL1 _SAYHL2 &reZOBR_R1P rM_CIS1 @ rS_RIIS m_ZOBR_R2P xHELP2 sST_KLIC2 tST_KLIC lST_TYP ****GET_POL ****PREPOCET R_R2P *KONTROL1 *KONTR1 proVAZBA pSAY_POL viBARVA rSAYRAD sSAYRAD2 sePS_RETURN POCET_ZAZ DELKA_TXT KLIC2 -1,5KLIC1 -1,5M_CIS1 oS_RIIS z2CISEL y 'M_DAT @ZAZNAM xt'DELKA **TEXT *DELKA_TXT POCET_ZAZ POLOVINA 5M_DAT oS_RIIS z2ST_KLIC 'M_CIS1 @ r_poz,field_poz say &retez1 picture pictx CHYBA ZOBRAZOV POLO S_POZ 5POLOVINA oR_POZ z2M_DAT 'MODUL @S_RIIS NAZEV_DP 'S_EXTERNI ROZSAH ZOBR_CIS AKTUAL *M_CIS1 *HOD_EXT CHYBA POLO S_POZ 5POLOVINA oR_POZ z2M_DAT 'MODUL @S_RIIS NAZEV_DP 'S_EXTERNI ROZSAH ZOBR_CIS AKTUAL *ST_RETEZ *POLOZKA M_CIS1 sHODNOTA ORFIELD_POZ PICTX olHOD_EXT xTEXT set color to &barva M_DAT 5POLOVINA oBARVA z2HMEZ1 'DMEZ1 'STREC *SAYRAD set color to &barva M_CIS1 5ST_RETEZ oPOLOVINA 2BARVA 'HMEZ2 @DMEZ2 STREC *M_DAT S_RIIS *SAYRAD2 substr(m_cis1.hodnota,1,m_dat.rozsah) val(substr(m_cis1.hodnota,1,m_dat.rozsah)) FIELD_LEN M_DAT oROZSAH 2FIELD_POZ PICTX RETEZ1 set color to &barva1 set color to &barva3 set color to &barva2 zev datov polo Ext.n Rozsah BARVA1 BARVA2 oBARVA3 2HMEZ1 DMEZ1 set color to &barva1 set color to &barva3 set color to &barva2 Hodnota Hod.EXT. BARVA1 BARVA2 oBARVA3 2HMEZ2 DMEZ2 set color to &barx @ rx,field_poz say &retez1 picture pictx oM_DAT 2S_RIIS M_CIS1 HOD_EXT ,PgUp,PgDn - F2,F3 - ^PgUp,^PgDn - ^Home - ^End,Esc ny - po ny - z Pohyb Bloky Konec it help POLOVINA m_dat x_dat m_cis1 x_cis1 M_DAT X_DAT oM_CIS1 2X_CIS1 S_RIIS D_EXT Povolen hodnota rozsahu je 1 - 10 ! Povolen hodnota typu polo ky je 'C','N' ! Povolen hodnota zobrazen je 'A','N' ! Povolen hodnota p znaku aktualizace je mezera,'N' ! KONTR1 M_DAT oROZSAH 2S_POZ HLASKA 'ZOBR_CIS AKTUAL colora set color to &color COLOR Tisk Tisk p ehledu Konec mod_psv mod_lib mod_lib c_cis1 m_dat, c_cis1 Prob tisk ... mod_lib mod_cis mod_cis W_TISK oTISK 2MOD_PSV P_SETUP P_RESET P_6LPI 'P_8LPI P_10CPI *P_12CPI P_16CPI P_20CPI *P_BOLDON *P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON 8P_SUBOFF dP_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT ()P_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY rMOD_LIB rINDIK m_NASTAV_PRNM_DAT sZAZT tM_CIS1 lS_RIIS rC_CIS1 ***HODNOTA **OBRT ***MESS *NASTAV_REPMOD_CIS *KOPIE_CIS SAYRAD oz,2: PENTER K_KLICU dif%2 VAZBA ap PREPOCET SAY_POL GET_POL 28 ZOBR_R1P ZOBR_R2P ST_RETEZ SAYHL1 SAYHL2 SAYRAD2 endFD HELP2 s_ptE OTEVRI KONTROL1 HLASKA TISK_PRG C:\OBEC\ MOD_CIS.FXP C:\OBEC\MOD_CIS.PRG