m_param v4_skl_z x4_skl_z m1_obr sklad c_tiskv m1_ident soucasti m1_zas x1_zas m1_um ident v4_sklad x4_sklad m_dat x_dat m_cis1 x_cis1 m1_kalk x1_kalk v1_str x1_str v4_skl_z x4_skl_z c_tiskv m1_plan x1_plan M5_AKT.DBF2 m5_akt ident m7_rene.DBF2 m7_rene set color to b/w set color to bg/n set color to w+/w set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w/n d e j s k l a d u : RIIS 4.2 &barvau @!R XXXX mod_proc Sklad neexistuje mod_proc Nelze prov dej z jin ho ne ho skladu Pro zadan sklad nem te opr mod_proc RIIS 5.4 &barvau doklad sklad vrat Konec &barvau &barvau eadkeANSI M_PARAM rW_POLE1 rePOLE1 W_POLE4 POLE4 rePOM screeTER_UZAV W_ROK eW_MESIC 'AV4_SKL_Z X4_SKL_Z ePRIHLAS W_SKLAD1 eSKLAD M1_OBR doC_TISKV itM1_IDENT pSOUCASTI M1_ZAS obX1_ZAS e uM1_UM IDENT enV4_SKLAD X4_SKLAD M_DAT X_DAT saM_CIS1 X_CIS1 poM1_KALK X1_KALK t V1_STR w+X1_STR M1_PLAN 1X1_PLAN r M5_AKT M7_RENE to 15,Q1 ouble @ Q3 4 say 'Q4 it pr eze zm a/N)' @ Q8 5 get pQ9 ict '!XQ10 POCET2 sorPOC_ZAZ ZOBR_ZAZ RADEK set Q_CENA INDIK sP_ZOB r toHOR ,w+/rbDOL POCET key(DOP1 r reaDOP2 COUNT re sCENA_NOV else SL tore scPOC KONTROLA uEXISTUJE =BARVAS BARVAR kBARVAT BARVAZ BARVAU BARVAN BARVAH ratZOBR_SKL MOD_PROC kW_NAZEV_SKNAZEV HLASKA DRUH_SKL fMOD_SYS W_TYP1 ndiBARVA W_DOKLAD W_KOD_OB nW_TERMIN HLAV1 MENU ONEC W_SKUT_MN W_ZASOBA *W_IDENT W_UM1 i=2W_SKLAD2 iW_UM2 * W_TYP2 o hW_STRED h W_ID_ZAK nW_CPOL pW_ID_VYS aW_POPIS loW_NAZEV W_MJ nec =HLAV2 KONEC do k_X if koZ a = 'oU &&T ntrola pQ ehla v pA ZMENY koVOL11 OBR1 endiM enW_MENA &barvau &barvas &barvaz &barvar &barvaz &barvat dejka Druh p. &barvau eadkeW_NAZEV_SK3 &barvas &barvau &barvar &barvaz &barvat &barvan Mno Rozpiska Z Sklad-2 &barvau eadkep &barvau &barvas &barvau eadkeW_DOKLAD KW_KOD_OB &barvas &barvau 99999999.999 &barvau eadkeR DOKLAD KW_IDENT KM1_IDENT eW_NAZEV NAZEV W_MJ reMJ screeM1_OBR W_SKUT_MN W_STRED 'AW_ID_ZAK W_ID_VYS eW_UM1 W_POPIS eW_SKLAD2 W_UM2 doW_TYP2 &barvau w_doklad @ 4,14 &vloz w_doklad pict '999999' w_kod_ob @ 4,30 &vloz w_kod_ob pict '@!X' eadkeQ DOKLAD KPOCET1 eP_ZOB C_TISKV M1_OBR &barvau w_ident @ x,2 &vloz w_ident pict '@!X' ka neexistuje Nelze vyd vat jin polo ky ne w_skut_mn @ x,15 &vloz w_skut_mn pict '99999999.999' w_stred @ x,28 &vloz w_stred pict '@!X' w_id_zak @ x,33 &vloz w_id_zak pict '@!X' w_id_vys @ x,44 &vloz w_id_vys pict '@!X' w_um1 @ x,57 &vloz w_um1 pict '@!X' w_popis @ x,62 &vloz w_popis pict '@!X' w_sklad2 @ x+1,44 &vloz w_sklad2 pict '@!X' w_um2 @ x+1,49 &vloz w_um2 pict '@!X' @ x+1,54 &vloz w_typ2 pict '!X' eadkeQ DOKLAD KPOCET2 eP_ZOB M1_IDENT _IDENT eW_IDENT HLASKA KOD_POL 'AW_MJ D_VYS eW_NAZEV NAZEV eM1_OBR PROC2 doQ2 obQ6 e uQ7 Q8 enV4_SKLAD W_SKLAD2 W_TYP2 DRUH_SKL aW_SKLAD1 poQ10 do proc&n do zmen&n with 'get' do zmen&n with 'say' &barvau if q - ^PgDn - F10 - Esc,^End IDENT w_kod_ob mod_proc w_ident mod_proc inlist(kod_pol,'F','P','S','A','B','C','O','J','K','G') w_skut_mn mod_proc w_um1 w_um2 mod_proc w_doklad mod_proc w_sklad2 mod_proc w_stred mod_proc w_id_zak mod6_lib Pro toto pole neexistuje pomocn ehled hodnot P_ZOB eZOBR_OBV MOD_PROC AW_KOD_OB eZOBR_POL W_IDENT W_NAZEV IW_MJ ZOBR_UM ZOBR_OB LZOBR_SKL W_SKLAD2 ZOBR_STR W_STRED PODNIK LZOBR_RENE W_ID_ZAK MOD6_LIB tHLASKA KLMOD54F HLAV1 HLAV2 PROC1 PROC2 ZMEN1 ZMEN2 ZMENY HLASKA K_HLAVA K_OBRATU KONTR_VR KONTR_TR ZAPIS_OBR LOCK_ZAS TISK_HL TISK_S UKONCI VOLBA HELP7 ZAPIS_AKT NAP_HOD X:\OBEC\05\ MOD54F.FXP X:\OBEC\05\MOD54F.PRG