with MOD19AX e h l e d kurz a kolen RIIS 6.9 Detail mod619bd mod619b Zadejte osobn slo: m6_zam m6_kurzh ident_k m6_kurzp m6_zam.prijmeni m6_zam.prijmeni m6_zam.jmeno m6_zam.jmeno m6_zam.str m6_zam.str Ident. ident_k ident_k Datum tran(datum_k,'@E') datum_k slo osv cis_osv cis_osv Perioda str(m6_kurzh.perioda,7) m6_kurzh.perioda poznamka poznamka Kvalif. kvalif kvalif m6_kurzh.nazev m6_kurzh.nazev Popis m6_kurzh.popis m6_kurzh.popis Autor autor autor Aktualizoval aktual+' ' aktual Aktualizace tran(dat_akt,'@E')+' ' dat_akt POLEX ith PROCX mRTOP RBOT st_osCLEFT CRIGHT oscFREEZE ORDER menaHOR DOL LEVA arvauPRAVA exitNADPIS voZAHL JMENO w_iHODN SOUC br_kzPSOUC t_k TITLE procTITLECOLORPOC0 identF0 F1 entk=stF2 F3 na=.t. endifF6 &F7 F9 F10 F0PRG arvaF1ON F1PRG enF4_JM nddoF4PRG restTISKPRG n F7_JM do F7PRG retF9PRG ****F9KEY ****F9KEY1 ***F10_JM ***F10PRG eduRAMECEK &RIIS set cNAZEVT w/bKLICO 20 cKLNAZ 21,SPACEBAR oTR_HL1 @TR_HL2 o 2TR_HL3 9,3TR_HL4 AktTR_HL5 kuTR_HL6 oleTR_HL7 tnaTR_HL8 t cTR_HL9 w+/DET_JM ,22ENTER DETAIL 12,DETPRG PS_LINE 22PS_RETURN PS_ZAZN @ OBSAHX y 'M6_ZAM 15OSC ay 'PoM6_KURZH 2IDENT_K tuM6_KURZP oMOD_PSV 'OBSAH 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/n &barvau ith OBRAZ mW_OSC OSC st_osW_IDENTK IDENT_K scW_DATUM DATUM_K naW_POZNAM POZNAMKA W_KVALIF uKVALIF xitW_CISOSV oCIS_OSV NOVY_Z w_iAKTUAL MM_AUTOR zAUTOR t_k DAT_AKT cZMENA LORP_ZOB dentJMENO_C WJMENO_C tRADEK_C SLOUPEC_C endifQ1 &Q2 Q3 Q4 arvaQ6 Q7 enQ8 nddoQ9 restQ10 n Q11 do Q12 retQ13 ****Q14 ****Q15 ***Q16 ***Q17 eduQ18 set cQ20 w/bQ21 20 cQ22 21,Q23 oCISELNIK o 2DOL 9,3POCET AktDOP1 kuDOP2 olePOR tnaCOUNT t cZAKAZNIK /K_UDAJU 22POMOC 12,RAD 22POC ETURN KONTROLA BARVAS y 'BARVAR 15BARVAZ 'PoBARVAU 2BARVAN tuBARVAH 2BARVA 'MENU saPORADI mkaKONEC 22 sI valifikaR et colZ n/w,wU returnT ********Q ********A ********ZMENY ****PS_RETURN NEXIT Seznam zam stnanc Seznam kurz Konec mod_proc &barvau mod_proc &barvau &barvau ith VOLBA mST_OSC W_OSC t_osZOBR_ZAM MOD_PROC cZMENA ST_K naW_IDENTK ZOBR_KZ PROC1 &barva Aktualizace kurz kolen stnanc Identifikace Popis Datum slo osv kvalifikace &barvau W_OSC ith W_PICT_OSCM6_ZAM PRIJMENI sJMENO M6_KURZH cW_IDENTK NAZEV aPOPIS M6_KURZP W_DATUM uW_CISOSV tW_POZNAM oW_KVALIF &barvau w_osc @ 11,38 &vloz w_osc pict w_pict_osc w_identk @ 13,38 &vloz w_identk pict '@!X' @ 16,38 &vloz w_datum pict '@E' @ 17,38 &vloz w_cisosv @ 18,38 &vloz w_poznam @ 19,45 &vloz w_kvalif ith P_ZOB _OSCQ PROC1 sDAT_AKT AKTUAL cMM_AUTOR ZMENA do proc&y do zmen&y with 'get' do zmen&y with 'say' it pr ci beze zm n? (a/N) KONEC ith I _OSCA DATUM uNAP_HOD tP_ZOB oNOVY_Z M6_KURZP iZMENA W_OSC t_k W_IDENTK cIDENT_K ORW_DATUM ntDATUM_K W_POZNAM tPOZNAMKA W_KVALIF KVALIF difW_CISOSV &CIS_OSV PROC1 Q DAT_AKT aAKTUAL MM_AUTOR S_OSV oPOCET restPOM n K_UDAJU Osobn slo neexistuje Kurz neexistuje no datum K_UDAJU h M6_ZAM OSCW_OSC HLASKA cM6_KURZP M6_KURZH aW_IDENTK W_DATUM colora set color to &color h COLOR OSCOBR - - ^PgDn - F8 - ^Home - ^End,Esc Pohyb znamu znamu Konec w_osc mod_proc w_identk mod_proc Pro toto pole neexistuje pomocn ehled hodnot P_ZOB h ST_OSC OSCW_OSC ZOBR_ZAM sMOD_PROC ZMENA cST_K W_IDENTK aZOBR_KZ HLASKA PROC1 uMOD19AX MOD619BD VOLBA ,slou PORADI PROC1 ----U ZMEN1 ----- ZMENY -----K K_UDAJU ---G% HLASKA q1,q2, NAP_HOD X:\OBEC\06\ MOD619B.FXP X:\OBEC\06\MOD619B.PRG