zv_aktf w_modulf MATERIAL m_param MATERIAL m1_ident material m1_ident soucasti m1_plan x1_plan m4_dodm ident m4_organ m4_txtd ident m4_dodmc ident e h l e d p o l o e k - aktual. dodavatel RIIS 4.1 Funkce funkce Aktual dodavatel Hr.akt akt_zmen s421a hledej1 Identifikace m1_ident.ident m1_ident.ident m1_ident.nazev m1_ident.nazev m1_ident.typ m1_ident.typ Ident.odb ratele substr( m1_ident.ident_odb,1,9) m1_ident.ident_odb m1_ident.ident_odb ' '+m1_ident.kod_pol+' ' m1_ident.kod_pol m1_ident.mj m1_ident.mj PLMJ ' '+ IIF (empty(m1_plan.plan_mj), m1_ident.mj, m1_plan.plan_mj)+' ' IIF (empty(m1_plan.plan_mj), m1_ident.mj, m1_plan.plan_mj) ' '+m1_ident.stav m1_ident.stav m1_ident.rozm_csn m1_ident.rozm_csn Jakost m1_ident.jak_csn m1_ident.jak_csn str(m1_ident.ds,3) m1_ident.ds Postup m1_ident.c_postup m1_ident.c_postup Sek.ident. m1_ident.sek_ident m1_ident.sek_ident space(4)+ m1_ident.rada m1_ident.rada Datum tran (m1_ident.datum,'@E') dtoc (m1_ident.datum ) ZS/KMD ' '+m1_plan.zs_kmd+' ' m1_plan.zs_kmd Hmotnost str(m1_plan.vaha_mj,10,3) m1_plan.vaha_mj MJhmot ' '+m1_plan.mj_vahy m1_plan.mj_vahy ZV_AKT ---W_MODUL --ANSI -----M_PARAM --JEVICECEN POLE4 if tAKTARCHDM AKTPRIODM M1_IDENT MATERIAL uSOUCASTI dKOD_POL enM1_PLAN oX1_PLAN M4_DODM IDENT M4_ORGAN M4_TXTD M4_DODMC POLEX TPROCX CLEFT CRIGHT FREEZE ORDER JMENO TITLE TITLECOLORPOC0 rocedurF6 -------F9 -------F10 ------F0PRG ----F1ON F1PRG alizF4_JM avatF4PRG eriaTISKPRG nF7_JM cenF7PRG jedF9PRG davaF9KEY o zaF9KEY1 prF10_JM m4_F10PRG * sRAMECEK asRIIS cen NAZEVT cenKLICO acenKLNAZ *SPACEBAR oTR_HL1 i sTR_HL2 ce TR_HL3 ateTR_HL4 TR_HL5 etrTR_HL6 avaTR_HL7 --TR_HL8 ---TR_HL9 ---DET_JM ---ENTER ----DETAIL DETPRG ('zPS_LINE U'PS_RETURN PS_ZAZN eID_ORG nasMOD_PSV odOBSAH ---CISPOL --IDENT ----W_AKT --HOR CECEN if tX TARCHDM TPRIODM _IDENT TERIAL UCASTI D_POL _PLAN _PLAN _DODM OBRDOD W_POLE PS_LINE TAKTUAL M1_IDENT 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 &barvas c_dodm+ c_dodm c_dodm ca4dodm ca4dodm ca4dodm c_dodm.dbf ca4dodm.dbf KONEC ---POMOC --P_ZOB ----HOR --DOL CECEN POCET if tBARVA BARVAS BARVAR BARVAZ uBARVAU dBARVAN enBARVANS oBARVAH NOVY_Z ZM_PRIOR M4_DODM CISPOL C_DODM IDENT PRIOR TAKTARCHDM CA4DODM HLAVA MENU1 ZMENY &barvaz Dodavatel polo &barvan Pri I O Z vod Cena/PLMJ M na Pozn WTEXT4 ---CISPOL 9999999.99 seek '&cispol&c_ico&zav' it pr ci beze zm n? (a/N) HODN1 ---Z1 CECEN if tX1 dKONEC enDOL PROC1 ZMEN1 W_AKT TNAP_HOD P_ZOB VOLBA C_DODM ZAVOD CENA_PLMJ POCET K_UDAJU NOVY_Z LORJEVICECEN TC_ICO M4_DODMC IDENT CISPOL rPRIOR * ALL ---POM --ULOZ c_dodm a4_dodm ca4dodm a4_dodm ca4dodm M4_DODM --CISPOL --IDENT ---C_DODM --ICO ZAVOD if tCENA_PLMJ PRIOR AKTARCHDM ZM_PRIOR uCA4DODM enAKTUAL oMM_AUTOR DAT_AKT A4_DODM &barvau @ x,1 &vloz prior pict '99' @ x,4 &vloz ico pict '@!X' @ x,17 &vloz zavod pict '@!X' @ x,21 &vloz cena_plmj pict '9999999.99' @ x,32 &vloz mena pict '@!X' @ x,36 &vloz pozn function '@S26' colorz set color to &Mcolo --P_ZOB ---POCET HODN1 if tPRIOR POCZAZ POMPRIOR uW_POLE T_AKT PROC1 MCOLO MALIAS TMKLIC ZAVOD M4_ORGAN NAZEV_ORG &barvau &barva 9999999.99 colorz set color to &Mcolo set color to &Mcolo colorz set color to &Mcolo BARVA --BARVAZ if tDOL IDENT CISPOL uZAVOD dCENA_PLMJ oPOZN MCOLO MALIAS MKLIC M4_ORGAN NAZEV_ORG - ,PgDn,PgUp - ^PgUp,^PgDn - ^Home - ^End,Esc - F10 - F8 Pohyb Konec Funkce Organizace neexistuje MENA c_dodm.mena M4_ORGAN -C_DODM ---ZAVOD --OK_C if tHLASKA ID_ORG uJMENO_C dWJMENO_C MOD_C2 oRADEK_C SLOUPEC_C MOD_C1 Nebyl vybr n dodavatel ! 9999999.99 colorz set color to &Mcolo set color to &Mcolo c_dodm c_dodm if tZ ENO_C dW_AKT oOBRDOD1 ZAZN1 PEC_C ZAVOD HLASKA KONEC CISPOL IDENT C_ICO C_ZAV C_KOD C_MENA CENA_PLMJ MCOLO MALIAS MKLIC M4_ORGAN NAZEV_ORG M4_DODMC AKT1_NC TMOD_SYS C_DODM 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 seek '&CisPol&c_ico' &barvas c_dodmc+ c_dodmc c_dodmc &barvas c_dodmc.dbf KONEC -POMOC ---DOL --POCET BARVA if tBARVAS BARVAR BARVAZ BARVAU uBARVAN dBARVANS BARVAH oNOVY_Z M4_DODMC C_DODMC IDENT CISPOL C_ICO KOD_CEN C_KOD ZAVOD C_ZAV CENA_PLMJ C_DODM HLAV1 MENU2 ZMENY1 &barvaz Ceny od: F &barvan d Cena/plmj Rozhod. mno . Pozn WTEXT4 -M4_ORGAN -NAZEV_ORG it pr ci beze zm n? (a/N) HODN1 ZEV_ORG if tX1 dKONEC _DODMC PROC2 ZMEN2 W_AKT POCET K_UDAJU1 NOVY_Z C_DODMC IDENT CISPOL KOD_CEN C_KOD C_ICO ZAVOD C_ZAV ULOZ1 seek '&cispol&c_ico&c_zav' c_dodm c_dodm c_dodmc M4_DODMC -IDENT -CISPOL --C_ICO ZAVOD if tC_ZAV C_DODMC C_DODM KOD_CEN uCENA_PLMJ &barvau @ x,1 &vloz kod_cen pict '@!S3' KOD_CEN c_dodmc.kod_cen @ x,5 &vloz cena_plmj pict '9999999.99' @ x,17 &vloz mno_r pict '99999999.999' @ x,31 &vloz pozn function '@S40' -P_ZOB POCET MALIAS f tOK_C JMENO_C WJMENO_C MOD_C2 uRADEK_C DODMC SLOUPEC_C MOD_C1 &barvau &barva 9999999.99 99999999.999 BARVA -BARVAZ C_DODMC DODMC IDENT CISPOL uKOD_CEN CENA_PLMJ MNO_R - ,PgDn,PgUp - ^PgUp,^PgDn - ^Home - ^End,Esc Pohyb Konec Organizace neexistuje M4_ORGAN -C_DODMC ZAVOD --OK_C tHLASKA Dodavatel polo specifikace polo ceny ehled archivu polo ky pro I Archiv polo ech dodavatel Konec do Volba1 do Volba2 do Volba3 do Volba4 do Volba5 do volba7 KONEC DODMC -OBRF --VOL11 tVOLBA JEVICECEN AKTARCHDM VOLBA -OBRF ZOBR_DOD -KONEC VOLBA -OBRF -AKT_OS KONEC VOLBA -OBRF -AKT_NC KONEC VOLBA -OBRF -CARCZ PREHARCH -KONEC VOLBA -OBRF -CARCZ PREHARCH -KONEC VOLBA -OBRF nazev detailn znamy neexistuj set color to &barva w+/bg w+/bg w+/bg Zadejte n zev nebo I O organizace nazev BARVA EHARCH ARCHDM uDMEZ ODSKOK M4_ORGAN NAZEV HLASKA HELP1 STREC SAYRAD1 C_DODM ZAVOD ZMENA VOLBA STZAZ W_CESTINA ehled dodavatel O zev dodavatele set color to &barx -BARX ZAVOD -NAZEV_ORG Konec Pohyb Enter - Esc - Home,End,PgUp,PgDn, - Vyhled r dodavatele colorz Vyhled podle sla rozpisky : zvu rozpisky : sla odb rat. : ident nazev IDENT_ODB ident_odb IDENT_ODB mod_fun Ve Va organizaci tento kl it ! ++.+++++ mod_fun Rozpiska nebyla nalezena sorde Polo ka nen ve v mod_fun MCOLOR -CPODMV -SORDE -M1_IDENT IDENT tKLIC1 KLIC2 KLIC3 IDENT uNAZEV W_CESTINA UPPERCS IDENT_ODB HLASKA MOD_FUN P_IDENT2 c_oznac Funkce nelze pou t, pokud jsou n polo ky ozna eny ke zm mod_fun m_param m1_zas x1_zas m1_kalk x1_kalk m1_kalks x1_kalks m_dat x_dat m_cis1 x_cis1 MATERIAL mod41b_2 m4_organ m4_organ m1_zas m1_zas m1_kalk m1_kalk m1_kalks m1_kalks m_dat m_dat m_cis1 m_cis1 MALIAS -MOBR HLASKA -MOD_FUN MOD_SYS tM_PARAM W_PRUMER POLE4 M1_ZAS uX1_ZAS M1_KALK X1_KALK M1_IDENT IDENT M1_KALKS X1_KALKS M_DAT X_DAT M_CIS1 X_CIS1 PRG_ZAS PRG_PLAN PRG_KALK PRG_POZID PRG_NPOL PRG_IIP VICE_ICO W_MODUL MOD41BD2 MOD41B_2 MOD11BD M4_ORGAN PS_RETURN c_oznac Nebyly ozna eny polo ky k aktualizaci. mod_fun na - Konec - ^End it dodavatele o Z vod Priorita nazev p_ico Organizace o Z vod N ico+' '+zavod+' '+nazev_org hled_organ mod_fun ekejte pros m. Prov m aktualizaci dodavatele. mod_fun ident1 m4_dodm ident< -HLASKA -MOD_FUN -OBR1 P_ICO tP_ZAV P_PRI M4_ORGAN NAZEV N_LMEZ N_HMEZ N_DMEZ N_PROM N_HOD N_POC N_TEXT N_HLAV N_RAD N_NVYH N_VYB ZOBR_NAP ZAVOD NAZEV_ORG M4_DODM M1_IDENT MOD_SYS C_OZNAC ZAZNAM IDENT1 TIDENT PRIOR CENA_PLMJ * PRI2 Nebyl vybr n dodavatel ! 9999999.99 colorz set color to &Mcolo set color to &Mcolo c_dodm c_dodm D_FUN W_AKT OBRDOD1 ZAZN1 ZAVOD HLASKA KONEC CISPOL IDENT C_ICO C_ZAV C_KOD C_MENA CENA_PLMJ MCOLO MALIAS MKLIC M4_ORGAN NAZEV_ORG M4_TXTD AKT1_OS TMOD_SYS C_DODM 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 seek '&CisPol&c_ico' &barvas c_txtd+ c_txtd c_txtd &barvas c_txtd.dbf KONEC -POMOC -POCET BARVA tBARVAS BARVAR BARVAZ BARVAU uBARVAN BARVANS BARVAH NOVY_Z M4_TXTD C_TXTD IDENT CISPOL C_ICO ZAVOD C_ZAV RADEK HLAV3 MENU3 ZMENY3 &barvaz kup.specifikace: F &barvan dek Text WTEXT4 -M4_ORGAN -NAZEV_ORG it pr ci beze zm n? (a/N) HODN1 ZEV_ORG KONEC _TXTD PROC3 ZMEN3 W_AKT POCET NOVY_Z RADEK C_TXTD IDENT CISPOL C_ICO ZAVOD C_ZAV RAD_PLAT ULOZ3 seek '&cispol&c_ico&c_zav' c_txtd M4_TXTD -IDENT -CISPOL -C_ICO ZAVOD tC_ZAV C_TXTD &barvau @ x,8 &vloz text -POCET &barvau &barva BARVA -BARVAZ C_TXTD IDENT CISPOL uRADEK - ,PgDn,PgUp - ^PgUp,^PgDn - ^Home - ^End,Esc Pohyb Konec colorz Nebyl vybr n dodavatel (I O a z vod jsou pr 9999999.99 a4_dodm ident a4_dodm ident znam v archivu nen c4_a+ a4_dodm ident znam v archivu nen c4_a+ Archiv cen v ech polo Archiv cen F pro: Archiv v ech cen polo ky: F RIIS 4.1 s421a Identifikace c4_a.ident c4_a.ident str(c4_a.prior,2) c4_a.prior m1_ident.nazev m1_ident.nazev m1_ident.typ m1_ident.typ Ident.dodavatele substr( m1_ident.ident_odb,1,9) m1_ident.ident_odb m1_ident.ident_odb Sek.ident. m1_ident.sek_ident m1_ident.sek_ident Dodavatel m4_organ.nazev_org m4_organ.nazev_org m1_ident.mj m1_ident.mj m1_plan.zs_kmd m1_plan->zs_kmd ' '+ IIF (empty(m1_plan.plan_mj), m1_ident.mj, m1_plan.plan_mj) IIF (empty(m1_plan.plan_mj), m1_ident.mj, m1_plan.plan_mj) m1_ident.rada m1_ident.rada m1_ident.rozm_csn m1_ident.rozm_csn Jakost m1_ident.jak_csn m1_ident.jak_csn Hmotnost str(m1_plan.vaha_mj,10,3) m1_plan.vaha_mj MJhmot ' '+m1_plan.mj_vahy m1_plan.mj_vahy str(c4_a.prior,2) c4_a.prior Cena/PLMJ str(c4_a.cena_plmj,10,2) c4_a.cena_plmj ' '+c4_a.mena c4_a.mena c4_a.pozn c4_a.pozn Dat.arch. tran(c4_a.dat_akt,'@E') (c4_a.dat_akt ) Archivoval c4_a.autor+' ' c4_a.autor MALIAS -MOBR -CISPOL C_ICO -C_ZAV MCOLO ZAVOD CARCZ HLASKA uIDENT C_POR C_POZN C_CEN CENA_PLMJ C_MENA M4_ORGAN C_NAZ NAZEV_ORG PS_LINE MOD_SYS A4_DODM DAT_AKT POLEX PROCX CLEFT CRIGHT FREEZE ORDER TZAHL JMENO PSOUC * TITLE -TITLECOLORPOC0 alizF3 avatF4 eriaF6 cenF9 jedF10 davaF0PRG o zaF1ON prF1PRG m4_F4_JM * sF4PRG asTISKPRG n F7_JM cenF7PRG acenF9PRG *F9KEY oF9KEY1 i sF10_JM ce F10PRG ateRAMECEK etrNAZEVT avaKLICO --KLNAZ ---SPACEBAR -TR_HL1 ---TR_HL2 ---TR_HL3 TR_HL4 ('zTR_HL5 U'TR_HL6 TR_HL7 TR_HL8 eTR_HL9 nasDET_JM odENTER ykleDETAIL DETPRG PS_RETURN PS_ZAZN M1_IDENT M1_PLAN LORID_ORG MOD_PSV MENA c_dodm.mena Pro toto pole neexistuje pomocn ehled hodnot P_ZOB ZOBR_DOD tMOD_C3 HLASKA S421A DODAVATEL AKTUAL HLAVA t.typ ZMENY = "m1 ZMEN1 zahl(P* PROC1 MENU1 id_o K_UDAJU HLASKA "su59 AKT_NC AKT1_NC HLAV1 jmen ZMENY1 ULOZ1 ZMEN2 odn(idR PROC2 nt.id MENU2 K_UDAJU1 VOLBA (i) = VOLBA1 VOLBA2 VOLBA3 VOLBA4 VOLBA5 VOLBA7 ZOBR_DOD i)='m1 SAYRAD1 HELP1 ahl(i HLEDEJ1 FUNKCE AKT_ZMEN AKT_OS m1_: AKT1_OS HLAV3 )+' ' ZMENY3 ULOZ3 1_pla ZMEN3 , m1_ PROC3 m1_plM MENU3 PREHARCH NAP_HOD X:\OBEC\04\ S421A.FXP X:\OBEC\04\S421A.PRG