OBRATY or MOD_SYS m5_plan zakazka m5_komp zakazka m1_plan x1_plan m1_ident ident m1_zas x1_zas m1_um ident m5_oper zakazka m5_text zakazka m5_prip zakazka v4_sklad x4_sklad Prob zky ... c5_prac c5_prac Zadejte slo zak m56ed mod56e RIIS 5.1 ch komponent zakazka zakazka Ident. ident ident trans(ter_uv,'@E') ter_uv ' '+stav+' ' K v iif(m5_plan.mno_pl-m5_plan.mno_ov-m5_plan.mno_zm=0,space(12),str(m5_plan.mno_pl-m5_plan.mno_ov-m5_plan.mno_zm,12,3)) m5_plan.mno_pl-m5_plan.mno_ov-m5_plan.mno_zm Odvedeno iif(m5_plan.mno_ov=0,space(12),str(m5_plan.mno_ov,12,3)) m5_plan.mno_ov Pl.mno str(m5_plan.mno_pl,12,3) m5_plan.mno_pl Zmetk str(m5_plan.mno_zm,12,3) m5_plan.mno_zm trans(ter_ov,'@E') ter_ov Nhod str(nmin/60,8,2) nmin/60 Skl. ' '+sklad sklad zev polo m1_ident.nazev m1_ident.nazev Ident.odb ratele substr(m1_ident.ident_odb,1,9) m1_ident.ident_odb m1_ident.ident_odb poznamka poznamka Uvoln tran(dat_u,'@E') dat_u ' '+p_mat+' ' p_mat ' '+p_sou+' ' p_sou ' '+ols+' ' ' '+pls+' ' ' '+vpo+' ' Rozpiska ident_v ident_v poz_v poz_v Autor autor autor Aktual. aktual aktual Dat.akt. tran(dat_akt,'@E') dat_akt F_OBR or MOD_SYS anM5_PLAN .tZAKAZKA aM5_KOMP 'NM1_PLAN ecX1_PLAN c5M1_IDENT IDENT on zM1_ZAS polX1_ZAS _ovM1_UM relaM5_OPER deM5_TEXT 1_M5_PRIP t V4_SKLAD oX4_SKLAD pMESS 5_C5_PRAC tore TV_ZAK omPOZAD =0TER_OV hlaHLASKA POLEX znamFREEZE turF1 lex = 2F3 &F4 cet polF6 celkemF9 eeze = F9KEY .t.ENTER DETAIL povDET_JM = .PROCX RAMECEK ybRIIS 3 = .NAZEVT .tRTOP = .t.RBOT CLEFT olozCRIGHT .tNADPIS 'ZaLEVA sloPRAVA JMENO +HODN PODNIK MOD_PSV --PS_RETURN colora set color to &color or COLOR anOBR colora set color to &color or COLOR anPOM .tDEL_POM L_POM OPRAVA or C5_PRAC anPS_RETURN 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 W_MNOZ or M5_PLAN anMNO_PL MNO_OV aMNO_ZM 'NJMENO_C ecWJMENO_C 5RADEK_C SLOUPEC_C polCISELNIK relaDOL dePOCET 1_DOP1 t DOP2 pCOUNT 5_ZAKAZNIK POMOC ore ZMENA hlaPOC KONTROLA mBARVAS turBARVAR *BARVAZ = 2BARVAU &BARVAN polBARVAH kemBARVA e = KS .t.MENU PORADI povKONEC X MECEK 3 = .Z = .t.T Q olozA .tZMENY &barva ch komponent Identifikace zev polo Uvoln novan Odvedeno &barvau 99999999.999 99999999.999 99999999.999 ZAKAZKA r CPOL anIDENT M1_IDENT aNAZEV 'NTER_OV ecTER_UV 5MNO_PL MNO_OV W_MNOZ &barvau @ 19,40 &vloz w_mnoz pict '99999999.999' r ZMENA do proc&y do zmen&y with 'get' do zmen&y with 'say' it pr ci beze zm n? (a/N) KONEC _IDENT ecHOR SELNIK relaPOCET deZMENA 1_POM t K_UDAJU oOK_C pULOZ mod56f r INDIK anLOCK_FSOUCC5_PRAC aZAKAZKA 'NCPOL ecMOD56F mod56f ODV_FSOUC C5_PRAC anZAKAZKA UCCPOL aW_MNOZ 'NMOD56F ecZMENA colora set color to &color FSOUC COLOR anOBR - - ^End,Esc Pohyb Konec OBRATY HLASKA M56ED 6I6R6 OPRAVA PORADI PROC1 ZMEN1 ZMENY K_UDAJU HLASKA 2B3g3 X:\OBEC\05\ MOD56E.FXP X:\OBEC\05\MOD56E.PRG