akt-koop pre-koop uza-koop pre-uzav arc-koop pre-arch obr-pri obr-mat obr-vyd pru-list Kooperace: |......... akt-koop Funkce Fce_Koop Aktul. Aktual pre-koop Funkce Fce_Koop Koop. Det_Koop uza-koop Uzav_Koop pre-uzav Funkce Fce_Koop Koop. Det_Koop arc-koop Archivace Arch_Koop pre-arch Funkce Fce_Koop Koop. Det_Koop Funkce Fce_Koop Obraty Obraty pru-list Funkce Fce_Koop Pru_List with m4_Koop.Koop s040401a akt-koop Aktualizace kooperac pre-koop e h l e d kooperac uza-koop ehled kooperac - uzav kooperac pre-uzav ehled kooperac - uzav arc-koop ehled kooperac - archivace kooperac pre-arch ehled kooperac - archiv obr-pri Aktualizace p kooperac obr-mat Aktualizace v materi ke kooperac obr-vyd Aktualizace v rozpracovan ch sou ke kooperac pru-list ehled kooperac - tisk pr RIIS 4.4 uza-koop Koop_O pre-uzav arc-koop Koop_U Kooperace m4_Koop.Koop m4_Koop.Koop Ident. m4_Koop.Ident m4_Koop.Ident Postup m4_Koop.Postup m4_Koop.Postup m4_Koop.Oper_Koop m4_Koop.Oper_Koop zev koop. v robku m4_Koop.Nazev_Koop m4_Koop.Nazev_Koop str(m4_Koop.Mno_Pri-m4_Koop.Mno_Pre,12) m4_Koop.Mno_Pri-m4_Koop.Mno_Pre ' '+m4_Koop.Nasob+' ' m4_Koop.Nasob m4_Koop.Str_Pr+' ' m4_Koop.Str_Pr m4_Koop.Oper_Pr+' ' m4_Koop.Oper_Pr m4_Koop.Str_Od+' ' m4_Koop.Str_Od Op.od. m4_Koop.Oper_Od+' ' m4_Koop.Oper_Od m4_Koop.Zakazka m4_Koop.Zakazka m4_Koop.CPol m4_Koop.CPol Dat.dok. trans(m4_Koop.Dat_Dok,'@E') m4_Koop.Dat_Dok Pl.mno .koop str(m4_Koop.Mno_Koop,12) m4_Koop.Mno_Koop .na obj. str(m4_Koop.Mno_Obj,12) m4_Koop.Mno_Obj str(m4_Koop.Mno_Pri,12) m4_Koop.Mno_Pri str(m4_Koop.Mno_Pre,12) m4_Koop.Mno_Pre .storno str(m4_Koop.Mno_Sto,12) m4_Koop.Mno_Sto m4_Koop.ICO m4_Koop.ICO m4_Koop.Zavod m4_Koop.Zavod m4_Koop.Stav m4_Koop.Stav m4_Koop.N_Konec m4_Koop.N_Konec Dat.za trans(m4_Koop.Dat_Zar,'@E') m4_Koop.Dat_Zar Autor m4_Koop.Autor m4_Koop.Autor Aktual. m4_Koop.Aktual m4_Koop.Aktual Dat.akt. trans(m4_Koop.Dat_Akt,'@E') m4_Koop.Dat_Akt POM_DRAKCEW_AKT POM_DRUOBRANSI AKCEOTEVRI POLEX PROCX CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS JMENO PSOUC TITLE TITLECOLORPOC0 F0PRG F1PRG TF4_JM F4PRG TISKPRG opF7_JM op >F7PRG op.MF9PRG + c4F9KEY no_SF9KEY1 rF10_JM oopF10PRG wiRAMECEK eRIIS NAZEVT KooKLICO = [QKLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM ENTER TDETAIL if DETPRG MnoPS_LINE c4PS_RETURN PS_ZAZN repl M4_KOOP CEKOOP_O KCEKOOP_U ifMOD_PSV znamem se pracuje, nelze aktualizovat. POM_OBR CEM4_KOOP RUOBRHLASKA KCEZMEN_K 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 set color to w+/n POM_VETA EPOM_PROM POM_ORGAN BARVAS BARVAR BARVAZ BARVAU BARVAN BARVAT BARVAH BARVAP BARVA ZMENA1 POM_KONTR POM_KONEC NOVY_Z1 POCET1 POMOC M4_KOOP NAPLN1 C4_KOOP THLAV1 MENU1 PROC1 opZMENY PS_RETURN NEXIT &barvah - ^End,Esc &barvap Pohyb Dodavatel polo da hodnot Konec &barvau &barvas &barvaz &barvar &barvaz &barvat Kooperace: Dat. za Ident. : zev koop.v robku: Postup : Operace: Oper: Oper: Pl.dokon robku: : Stav kooperace : uzav novan kooperace: Mn. za do objedn vek : Mn. p z kooperace : Mn. p do skladu/v roby: Mn. stornovan : Autor : Aktual. : Dat.akt.: &barvau M_VETA &barvau &barvas 99999999 99999999 99999999 99999999 99999999 &barvau M_VETA EC4_KOOP ZAVOD DAT_ZAR IDENT NAZEV_KOOPPOSTUP OPER_KOOP STR_PR OPER_PR STR_OD OPER_OD ZAKAZKA DAT_DOK NASOB N_KONEC MNO_KOOP MNO_OBJ MNO_PRI MNO_PRE MNO_STO AUTOR AKTUAL DAT_AKT POM_ORGAN &barvau if q>pocet&y q =pocet&y pocet&y =7 @ 4,36 &vloz c4_Koop.ICO pict "@!X" @ 4,49 &vloz c4_Koop.Zavod pict "@!X" @ 6,47 &vloz c4_Koop.Nazev_Koop @ 7,36 &vloz c4_Koop.Oper_Koop pict "@!X" @11,67 &vloz c4_Koop.Dat_Dok pict "@E" @14,75 &vloz c4_Koop.Stav pict "!" @15,32 &vloz c4_Koop.Mno_Koop pict "99999999" Operace neexistuje nebo nen kooperace. do Napov&y do Proc&y do Napov&y Zmena&y =.t. EPOM_VETA POM_NEKONTQ1 EV_KOOPQ6 R_KOOP W_AKT KONTKNT_OPER THLASKA C4_KOOP OPER_KOOP DEJ_OPER KNT_STAV filterz colorz Mod7_Lib Zmena&y =.t. vypln O organizace !. Mod7_Lib Zmena&y =.t. pom_Prom ehled kooperac postupu Op N zev Pstr Prac Kooperace Oper + ' ' + Nazev_Op + ' ' + DOp + ' ' + Prac + ' ' + str(Kooperace,10,4) Mod_Fun Zmena&y =.t. Stav kooperace jen O=otev , U=uzav U tohoto daje nen da ! do Proc&y POM_PROM EW_ICO W_ZAVOD NTPOM_ALI POM_ORD POM_VETA POM_FILT MMCOLOR COLOR R_KOOP C4_KOOP KONTZAVOD TZOBR_ORGANMOD7_LIB DEJ_ORGAN R_KOOP HLASKA M4_ORGAN ORGAN DEJ_POSTUPOPER_KOOP N_LMEZ N_PMEZ N_HMEZ N_DMEZ N_PROM N_HOD N_POC N_TEXT N_CCUR N_HLAV N_RAD C1_NORMY TYP_OPER ZOBR_NAP MOD_FUN DEJ_OPER DEJ_STAV do Proc&y do Zmen&y with "get" do Zmen&y with "say" do Napov&y if qpocet&y q =pocet&y pocet&y =6 pocet&y =5 pocet&y =4 pocet&y =4 pocet&y =3 @10,13 &vloz w_Koop pict "@!X" @10,42 &vloz w_Kam pict "!" @11,65 &vloz w_Mnoz pict "999999999" @12,19 &vloz w_Mno_Obr pict "999999999" @13,19 &vloz w_Dat_Obr pict "@E" @15,13 &vloz w_Sklad pict "@!X" @16,13 &vloz w_Umist pict "@!X" @18,13 &vloz w_Str_Od pict "@!X" S kooperac kdo pracuje, nelze nav t obrat ! do Proc&y do Napov&y do Proc&y do Proc&y do Napov&y Zmena&y =.t. POM_VETA POM_NEKONTW_KAM NO_OBR AT_OBR TR_OD _KOOP PUV_KOOP NW_KOOP PUV_KAM W_AKT KONTKNT_KOOP HLASKA M4_KOOP DEJ_S_S KNT_KAM DEJ_KAM KNT_MNOZ W_MNO_OBR W_MNOZ KNT_MNO_OBKNT_SKLAD filterz colorz Jen M=mezisklad, V=v roba, W=dal dej do v roby, S=storno. Mod_Proc Zmena&y =.t. U tohoto daje nen da ! do Proc&y POM_PROM POM_ALI POM_ORD NTPOM_VETA POM_FILT MMCOLOR COLOR OPHLASKA _KOOP OW_SKLAD TV4_SKLAD DRUH_SKL NZOBR_SKL MOD_PROC DEJ_STAV W_KOOP M4_KOOP NTW_MNOZ W_KAM W_MNO_OBR W_DAT_OBR W_SKLAD OPW_UMIST W_STR_OD W_KOD OPOM_STR_ODPOM_SKL POM_UMIST DEJ_S_S S kooperac kdo pracuje, nelze nav t obrat ! do Napov&y do Napov&y POM_KONTR KNT_KOOP HLASKA M4_KOOP W_KOOP OPDEJ_S_S KNT_KAM OW_KAM R_ODDEJ_KAM KNT_MNOZ KNT_MNO_OBQ4 _STAV TKNT_SKLAD Zmena&y =.f. POM_OBR ZMENAP W_KAM NTZADEJ_MEZ MOD_SYS VLOZ_M W_MNOZ W_MNO_OBR W_SKLAD W_UMIST W_DOKLAD OW_STR_OD M4_KOOPP M4_KOOP W_KOOP MNO_PRI OBMNO_STO TMNO_PRE MNO_KOOP 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 set color to w+/n POM_VETA POM_PROM PUV_KOOP TBARVAS BARVAR BARVAZ BARVAU BARVAN BARVAT BARVAH BARVAP OBARVA KOOPP O_PRI OBZMENAV TPOM_KONTR POM_KONEC NOVY_ZV POCETV W_KOOP W_MNOZ W_DAT_PRE W_IDENT W_STR_PR BW_OPER_PR NAPLNV POMOC O_OBR AT_OBR HLAVV MENUV PROCV ZMENYPV PS_RETURN M4_KOOP pNEXIT &barvah - ^PgDn - ^End,Esc &barvap Pohyb obrat da hodnot Konec &barvau &barvas &barvaz &barvar Aktualizace v rozpracovan ch sou &barvaz &barvat Kooperace: Ident : zev koop.v robku: Oper: ke kooperaci: Datum p : &barvau POM_TEXT M_PROM &barvau &barvas 999999999.999 &barvau M_TEXT W_KOOP W_IDENT TM4_KOOP NAZEV_KOOPW_STR_PR W_OPER_PR W_MNOZ W_DAT_PRE &barvau if q>pocet&y q =pocet&y pocet&y =3 @10,13 &vloz w_Koop pict "@!X" @16,25 &vloz w_Mnoz pict "999999999.999" @17,25 &vloz w_Dat_Pre pict "@E" S kooperac kdo pracuje, nelze nav t obrat ! do Proc&y Zmena&y =.t. POM_VETA POM_NEKONTQ1 EV_KOOPQ3 TR_PR OPER_PR PUV_KOOP W_KOOP W_AKT KONTKNT_KOOP HLASKA M4_KOOP DEJ_IDENT KNT_MNOZ W_KOOP M4_KOOP EKONTW_MNOZ W_DAT_PRE W_IDENT W_STR_PR W_OPER_PR DEJ_IDENT filterz colorz U tohoto daje nen da ! do Proc&y POM_PROM POM_ALI POM_ORD NTPOM_VETA POM_FILT MMCOLOR HLASKA DEJ_STAV S kooperac kdo pracuje, nelze nav t obrat ! POM_KONTR KNT_KOOP M_ORD _VETA M_FILT HLASKA M4_KOOP W_KOOP DEJ_IDENT KNT_MNOZ _KOOP m4_KoopV Zmena&y =.f. POM_OBR ZMENAV MOD_SYS NTKOOP IDENT OPER_PR STR_PR DAT_PRE TAUTOR TDAT_AKT W_KOOP W_IDENT W_OPER_PR W_STR_PR BW_MNOZ TW_DAT_PRE MM_AUTOR M4_KOOPP M4_KOOP W_KAM vypln no mno vypln no mno uje mno do objedn vek. POM_DRUOBRW_MNOZ HLASKA NTW_KAM M4_KOOP MNO_OBJ MNO_PRI MNO_STO vypln no mno obratu. obratu je v obratu je v W_MNO_OBR W_KAM HLASKA NTW_MNOZ M4_KOOP MNO_PRI MNO_PRE vypln n sklad. v4_Sklad Sklad neexistuje. Na tento sklad nelze odv t (nen V). v4_Skl_Z Pro zadan sklad nem te opr W_KAM W_SKLAD HLASKA NTV4_SKLAD DRUH_SKL PRIHLAS KOD_OB w_Kod_Ob Chybn d obratu, je povolen pouze O.. JMENO_C WJMENO NTWJMENO_C MOD_C2 W_KOD_OB HLASKA vypln na odv lna. v1_Str lna neexistuje. W_KMD HLASKA C4_KOOP POSTUP DEJ_POSTUPTYP_OPER OPER_KOOP C4_KOOP C4_KOOP MNO_KOOP m4_Organ C4_KOOP ZAVOD Kooperace neexistuje. M4_KOOP W_KOOP HLASKA PUV_KAM W_KAM W_SKLAD UPPOM_SKL W_UMIST POM_UMIST W_MNO_OBR W_MNOZ W_STR_OD POM_STR_OD/ m1_Zas v4_Sklad POM_ZMENVMPOM_STR_ODM4_KOOP UPSTR_OD IDENT POM_SKL M1_ZAS SKL_HLAVNIPOM_UMIST SKL_HL_UM V4_SKLAD DDRUH_SKL W_KAM VMDEJ_KAM m4_Organ C4_KOOP VMICO STR_ODZAVOD UPPOM_ORGAN M4_ORGAN NAZEV_ORG c1_Normy c1_Normy+ c1_Normy c1_Normy C1_NORMY MM1_NORMY DC4_KOOP PPOSTUP TYP_OPER POM_STR_PRPOM_OP_PR POM_STR_ODPOM_OP_OD POM_POCET POM_NASOB C1_NORMY TYP_OPER C4_KOOP OPER_KOOP ROPER STR_PR OPER_PR PRSTR_OD OPER_OD ODNASOB Zmena&y =.t. POM_UZAV_PC4_KOOP _PICO STR_ODC4_DODM ZAVOD DEJ_ORGAN W_IDENT _PM4_KOOP _PIDENT R_ODW_STR_PR STR_PR W_OPER_PR OPER_PR colorz vypln na identifikace. Dej_Dod with .t. s040401a Dodavatel polo c4_DodM c4_DodM+ Neexistuje dodavatel polo c4_DodM c4_DodM c4_DodM c4_DodM do Proc&y Konec Pohyb r dodavatele - Esc - Home,End,PgUp,PgDn, - Enter str(m4_DodM.Prior,3) m4_DodM.Prior zev organizace m4_Organ.Nazev_Org m4_Organ.Nazev_Org Cena/PlMJ str(c4_DodM.Cena_PlMJ,10,2) c4_DodM.Cena_PlMJ c4_DodM.Pozn c4_DodM.Pozn c4_DodM.ICO c4_DodM.ICO c4_DodM.Zavod c4_DodM.Zavod c4_DodM do Proc&y POM_OBR _PMMCOLOR _PC4_KOOP ODIDENT HLASKA POLEX PROCX _PRTOP CLEFT CRIGHT RFREEZE ORDER PRDOL ODPRAVA NADPIS JMENO PSOUC TITLE TITLECOLORPOC0 TR_PR PER_PR O_OBR AT_OBR F0PRG F1PRG F4_JM F4PRG TISKPRG pF7_JM F7PRG F9PRG F9KEY S_OBF9KEY1 rF10_JM F10PRG _ODRAMECEK eRIIS _KOOPNAZEVT KLICO = [QKLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM ENTER TDETAIL if DETPRG MnoPS_LINE c4PS_RETURN PS_ZAZN repl C4_DODM CEM4_DODM CEICO CEZAVOD ifM4_ORGAN tDEJ_DOD MOD_PSV colorz hotov ch sou Identifikace d obratu zka/po ch kus ch kus Mezisklad, um slo dokladu 999999 999999 P_MNOZ _PP_ZMET _PMMCOLOR ODPOM_OBR M4_KOOP W_KOOP W_IDENT _PIDENT W_ZAKAZKA ZAKAZKA W_CPOL RCPOL W_MNO_OBR W_KOD_OB RW_SKLAD W_UMIST ODW_KMD W_DOKLAD W_POPIS_OBKONTR_OPZ nesouhlas s mno m u operace znam o um sob nen stupn Nedostate soba na um znam ch nen stupn zakazka zky nebylo nalezeno v operativn zky nen uvoln znam po zky nen stupn m5_oper zakazka m5_oper zakazka znam operace po zky nen stupn m5_text zakazka m5_text zakazka znam textu po zky nen stupn m5_prip zakazka m5_prip zakazka znam p pravku po zky nen stupn m5_komp zakazka m5_komp zakazka znam komponenty po zky nen stupn c1_obr KNT_SKLAD W_MNOZ _PW_ZMET ODP_MNOZ P_ZMET HLASKA M1_UM _PW_IDENT W_SKLAD W_UMIST W_VYD_TYP IDENT SKLAD UM_SKL RTYP_UM ZASOBA M1_ZAS SKL_HLAVNISKL_HL_UM M5_PLAN ZAKAZKA W_ZAKAZKA W_CPOL LORMNO_OV MNO_PL M5_OPER BCPOL M5_TEXT M5_PRIP M5_KOMP P_KONSIG W_NAKLAD M1_KALK PL_OD TYP_NAKL KOD_OB PLAN_MNOZ SKUT_MNOZ VYDAL_SKL VYD_UM_SKLTYP_UM_V POPIS_OBR STRED_OBR DOKL_CIS IDENT_ZAK VADNE_MNOZNAKLAD OOPW_KOD_OB V4_SKLAD QDRUH_SKL W_POPIS_OBW_KMD W_DOKLAD INDIK pru-list m1_Ident Ident arc-koop a4_Koop a4_KoopP a4_KoopV a4_KoopO pre-arch a4_Koop a4_KoopP a4_KoopV a4_KoopO m4_Koop m4_KoopP m4_KoopV m4_KoopO m4_DodM Ident zakladni\m1_Normy Operace m4_Organ m1_Zas x1_Zas v4_Sklad x4_Sklad v4_Skl_Z x4_Skl_Z v1_Str x1_Str pru-list POM_DRAKCEM1_IDENT PIDENT ODA4_KOOP CEKOOP A4_KOOPP A4_KOOPV PA4_KOOPO M4_KOOP CEM4_KOOPP M4_KOOPV M4_KOOPO M4_DODM ZAKLADNI ROPERACE M4_ORGAN POM_DRUOBRM1_ZAS X1_ZAS V4_SKLAD X4_SKLAD V4_SKL_Z X4_SKL_Z V1_STR LORX1_STR ZAVOD m4_KoopP POM_KOD CEPOM_MNOZ PPOM_SKL ODPOM_UM CEPOM_TYP POM_STR POM_DOKL PKOOP CEMNOZ DAT_OBR SKLAD UMIST TYP_SKL RSTR_OD DOKLAD AUTOR DAT_AKT BRW_KOOP MM_AUTOR colorz deje Objedn Konec MMCOLOR CEPOM_OBR PPOM_VOL ODKOOP_P CEM4_KOOP KOOP_V PKOOP_O colorz c4_KoopP c4_KoopP+ Neexistuj jmy ke kooperaci. c4_KoopP c4_KoopP c4_KoopP c4_KoopP POM_KOOP EPOM_NAZT PPOM_OBR ODMMCOLOR CEC4_KOOPP M4_KOOPP PHLASKA M4_KOOP EPS_LINE S040402B NAZEVT colorz c4_KoopV c4_KoopV+ Neexistuj deje ke kooperaci. c4_KoopV c4_KoopV c4_KoopV c4_KoopV POM_KOOP EPOM_OBR PMMCOLOR ODC4_KOOPV EM4_KOOPV HLASKA PM4_KOOP PS_LINE ES040402C NAZEVT colorz c4_KoopO c4_KoopO+ Neexistuj objedn vky na kooperaci. c4_KoopO c4_KoopO c4_KoopO c4_KoopO POM_KOOP EPOM_OBR PMMCOLOR ODC4_KOOPO EM4_KOOPO HLASKA PM4_KOOP PS_LINE ES040403B NAZEVT JMENO colorz Detail kooperace Kooperace: Dat. za Ident. : zev koop.v robku: Postup : Operace: Oper: Oper: Pl.dokon robku: : Stav kooperace : uzav novan kooperace: Mn. za do objedn vek : Mn. p z kooperace : Mn. p do skladu/v roby: Mn. stornovan : Autor : Aktual. : Dat.akt.: 99999999 99999999 99999999 99999999 99999999 m4_Organ - Esc Konec POM_OBR EMMCOLOR PPOM_KEY ODPOM_TEXT EPOM_ORGAN M4_KOOP ZAVOD EDAT_ZAR IDENT NAZEV_KOOPPOSTUP OPER_KOOP STR_PR OPER_PR STR_OD OPER_OD BRZAKAZKA DAT_DOK NASOB N_KONEC MNO_KOOP RMNO_OBJ MNO_PRI CEMNO_PRE BMNO_STO AUTOR AKTUAL DAT_AKT M4_ORGAN NAZEV_ORG colorz c_Oznac Nebyly ozna znamy. t ozna kooperace? (a/N) ozna ch kooperac c_OznacQ c_Oznac, S kooperac se pracuje , nelze prov MMCOLOR EPOM_OBR ODPOM_POCOZNPS_RETURN HLASKA NTRGPZAZ POCETA EPOCETC PROCENTA C_OZNAC OPM4_KOOP ZNSTAV MNO_KOOP MNO_PRE MNO_STO N_KONEC BRMESS POM_VETA NPOM_PROM NEXIT colorz c_Oznac Nebyly ozna znamy. Archivovat ozna kooperace? (a/N) Archivace ozna ch kooperac c_OznacQ c_Oznac, a4_KoopP a4_KoopV a4_KoopO a4_Koop S kooperac se pracuje , nelze prov MMCOLOR EPOM_OBR ODPOM_POCOZNPS_RETURN HLASKA NTRGPZAZ POCETA EPOCETC PROCENTA POM_KOOP PM4_KOOP ZNKOOP A4_KOOPP M4_KOOPP A4_KOOPV M4_KOOPV RA4_KOOPO M4_KOOPO A4_KOOP NC_OZNAC OCOZNPOM_VETA NPOM_PROM RNEXIT m_Param colorz c4_KoopV c4_KoopV+ Neexistuj deje ke kooperaci. c4_KoopV c4_KoopV c4_KoopV c4_List c4_List c4_List c4_KoopV c4_KoopV c4_List POM_KOOP EPOM_OBR PMMCOLOR ODPOM_FIRMA M_PARAM FIRMA C4_KOOPV NM4_KOOPV EHLASKA M4_KOOP PS_LINE PC4_LIST ZNKOD IDENT SKL_PR UM_PR STR_PR RDAT_PRE MNOZ_L NBEDNY M1_IDENT NZMEN_LIST 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 set color to w+/n POM_VETA EPOM_PROM PBARVAS DBARVAR BARVAZ BARVAU BARVAN NBARVAT BARVAH EBARVAP BARVA ZMENAC NZMENAL POM_KONTR POM_KONEC NOVY_ZL POCETL BPOMOC V_ORG COLOR AN_MNOZ HLAVL MENUL PROCL _SKLPROHLL ZMENYL PS_RETURN M4_KOOP NEXIT &barvau &barvas &barvaz &barvar Komponenty na pr stek &barvan &barvat Ident. Dat.p Bedny POM_TEXT M_PROM &barvau &barvas 99999999.999 99999999.999 M_TEXT _PROM C4_LIST NIDENT SKL_PR EUM_PR STR_PR DAT_PRE PM1_IDENT MNOZ_L BEDNY pocet&y =2 &barvau if q>pocet&y q =pocet&y @ x,60 &vloz c4_List.Mnoz_L pict "99999999.999" @ x,74 &vloz c4_List.Bedny pict "99" Zmena&y =.t. EPOM_NEKONTC4_LIST _LIST W_AKT ZMENAC &barvau do Proc&y do Zmen&y with "get" do Zmen&y with "say" if q=pocet&y and z ZAPIS1 p.KoY@ NAPLN1 OBRATY ZMENYPV .StUC ZMEN_PRI MENUP HLAVP PROCP ZMENP NAPOVP NAPLNP KONTRP ZAPISP ZMEN_VYD MENUV HLAVV PROCV ZMENV NAPLNV NAPOVV KONTRV ZAPISV ZMEN_MAT KNT_KAM KNT_MNOZ KNT_MNO_OB KNT_SKLAD KNT_OBR KNT_KMD KNT_OPER KNT_STAV KNT_MNO_KO KNT_ORGAN KNT_KOOP DEJ_KAM DEJ_S_S DEJ_ORGAN DEJ_POSTUP DEJ_OPER DEJ_DOD DEJ_IDENT NAPOV_DOD ZADEJ_MEZ KONTR_OPZ OTEVRI VLOZ_M FCE_KOOP KOOP_P KOOP_V KOOP_O DET_KOOP UZAV_KOOP ARCH_KOOP PRU_LIST ZMEN_LIST HLAVL m4_K" PROCL ZMENL ZMENYL PROHLL NAPOVL MENUL KONTRL TISK_LIST X:\OBEC\04\ S040401A.FXP X:\OBEC\04\S040401A.PRG