m7_ucto D e f i n i c e v RIIS 7.5 s719a Zadejte n zev dbf : Kopie kop_vyk Aktual aktual r7_vykh ident_vyk r7_vykt radek r7_vyk ident_vyk m7_vykh ident_vyk m7_vykt radek m7_vyk ident_vyk m_dat x_dat m_cis1 x_cis1 Ident. ' '+ident_vyk+' ' ident_vyk ' '+typ_vyk+' ' typ_vyk zev v nazev nazev Autor autor autor Aktual. aktual aktual Dat.akt. tran(dat_akt,'@E') dat_akt W_ROK W_ROK_VYB M7_UCTO ROK _vykPOLEX t_vyFREEZE w_LEVA k = tPRAVA HOR nazev DOL RAMECEK n NAZEVT RIIS NADPIS PROCX F1 if eof(F3 F4 F7 rn to sF9 F9KEY F10_JM to F10PRG DETAIL DET_JM endENTER *R7_VYKH -IDENT_VYK M7_VYKH daR7_VYKT seRADEK _vykM7_VYKT usR7_VYK seM7_VYK M_DAT X_DAT ykh.M_CIS1 X_CIS1 eoZAHL JMENO strHODN _vykI elMOD_PSV OBSAH to c ZMEN_TXT set color to b/w set color to bg/n set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w+/w set color to w/n A k t u a l i z a c e v k a z RIIS 7.5 c7_vykt c7_vykt+ c7_vykt Q2 N_TXT _vykQ t_vyZMENA1 w_ZMENA2 = tKONTROLA KONEC zev HOR DOL n POCET BARVA RADEK_C SLOUPEC_C POMOC eof(Y RAD POC n to sP_ZOB BARVAS BARVAR BARVAZ to BARVAU BARVAN BARVAT endBARVAH *M7_VYKH -ROK W_ROK daNOVY_ZH seW_IDENT_VYIDENT_VYK W_TYP_VYK TYP_VYK W_NAZEV NAZEV ykh.W_POZN eoM7_VYKT C7_VYKT AUTOR MM_AUTOR lAKTUAL DAT_AKT cNOVY_Z hilPOCET1 .iPOCET2 =idHLAV1 MENU1 if PROC1 HLAV2 sU _VYKT use c7_PROC2 ZMENY PS_RETURN &barvau &barvas &barvaz &barvar &barvaz &barvat Typ v &barvau &barvau &barvas &barvau W_IDENT_VYW_NAZEV W_TYP_VYK W_POZN @ 4,13 &vloz w_ident_vyk pict '@!X' @ 4,27 &vloz w_nazev pict '@X' typ_vyk @ 5,13 &vloz w_typ_vyk pict '@!X' @ 5,27 &vloz w_pozn pict '@X' P_ZOB T_VYQ NAZEV POCET1 ZMENA1 &barvas &barvau &barvar &barvaz Skupina &barvat &barvau HOR &barvas &barvau @Z 999 PU T_VYU vykSKUPINA vyTEXT w_RADEK_VYK &barvau @ x,2 &vloz skupina pict '@!X' @ x,13 &vloz text pict '@X' @ x,49 &vloz radek_vyk pict '@Z 999' @ x,55 &vloz ucet pict '@X' P_ZOB T_VYZ POCET2 vykQ2 w_Q4 EK_VYK AKTUAL ev MM_AUTOR DAT_AKT n ZMENA2 do proc&y do zmen&y with 'get' do zmen&y with 'say' c7_vykt c7_vykt+ c7_vykt it pr ci beze zm n? (a/N) Z T_VYX vyKONEC w_DOL K_VYK n POMOC OBR Y KONTROLA ZAPIS C7_VYKT _VYKT HLAV1 PROC1 HLAV2 to sPROC2 MENU2 NAP_HOD P_ZOB to POCET2 ZMENA2 IDENT_VYK M7_VYKH *AUTOR MM_AUTOR AKTUAL daDAT_AKT ENT_VYW_ROK NOVY_Z ZMENA1 NOVY_ZH W_IDENT_VYW_TYP_VYK TYP_VYK eoW_NAZEV NAZEV W_POZN lM7_VYK M7_VYKT .iS71 =idPOCET1 Prob definice v kazu ... Prob definice v kazu ... c7_vykt ZAPIS MOD_SYS ZMENA1 M7_VYKH ykIDENT_VYK W_IDENT_VYMESS M7_VYKT M7_VYK _VYC7_VYKT VYALL n TYP_VYK VYW_TYP_VYK NAZEV W_NAZEV W_POZN f(AKTUAL MM_AUTOR DAT_AKT ZMENA2 o sRADEK vypln na identifikace v vypln n typ v TYP_VYK w_typ_vyk KONTROLA D_SYS VYW_IDENT_VYHLASKA _VYKH ENT_VYK W_TYP_VYK JMENO_C WJMENO_C MOD_C2 _VYOK_C VYRADEK_C n SLOUPEC_C MOD_C1 colora set color to &color COLOR VYOBR ENT_VY colora set color to &color COLOR Pohyb Bloky Konec - ^Home - ^PgDn - Esc,^End - ,PgDn,PgUp - ^PgDn - ^Home - ^End,Esc Pohyb idat Konec Kopie v kazu Typ v Identifikace v kazu mus t vypln zev v kazu mus t vypln Typ v kazu mus t vypln Chybn typ v kaz s udanou identifikac existuje Prob tvorba v kazu ... c7_vykh c7_vykt+ c7_vyk+ c7_vykh c7_vykt c7_vyk c7_vykh c7_vykt c7_vyk ST_ZAZH OBR_KOP VYM7_VYKH VYIDENT_VYK W_IDENT_VYW_NAZEV NAZEV W_TYP_VYK TYP_VYK W_POZN _VYPOZN VYHLASKA _VYMOD_SYS VYMESS C7_VYKH M7_VYKT C7_VYKT M7_VYK C7_VYK AUTOR MM_AUTOR AKTUAL o sDAT_AKT PS_RETURN typ_vyk TYP_VYK w_typ_vyk Pro toto pole neexistuje pomocn ehled hodnot P_ZOB MOD_C3 VYZMENA1 VYHLASKA AKTUAL end6 ZMEN_TXT HLAV1 PROC1 ZMEN1 HLAV2 PROC2 ZMEN2 ZMENY ZAPIS KONTROLA HLASKA MENU1 MENU2 KOP_VYK NAP_HOD W:\07\ S719A.FXP W:\07\S719A.PRG