m_param m1_ident material m4_dodb ident m1_plan x1_plan m4_dodm ident1 m4_organ m4_dodmc ident m4_dodb Nebyl vybr mod_fun ehled blokovan ch dodavatel materi Uvoln uvolneni Uvoln d o d a v a t e l m a t e r i RIIS 4.7 Identifikace polo zobr_cen s4207b Identifikace dodb.ident dodb.ident str(m4_dodm.prior,2) m4_dodm.prior m1_ident.nazev m1_ident.nazev Blokace ' '+m4_dodm.blokace+' ' m4_dodm.blokace dodb.ico dodb.ico dodb.zavod dodb.zavod Dodavatel m4_organ.nazev_org m4_organ.nazev_org Dat.blok tran(dodb.dat_blok,'@E') dodb.dat_blok vod blokace dodb.duv_blok dodb.duv_blok Zablokoval dodb.aut_blok+' ' dodb.aut_blok m1_ident.typ m1_ident.typ Ident.dodavatele substr( m1_ident.ident_odb,1,9) m1_ident.ident_odb m1_ident.ident_odb m1_plan.zs_kmd m1_plan.zs_kmd Sek.ident. m1_ident.sek_ident m1_ident.sek_ident m1_ident.mj m1_ident.mj ' '+ 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) Cena/PLMJ str(m4_dodm.cena_plmj,10,2) m4_dodm.cena_plmj ' '+m4_dodm.mena m4_dodm.mena m4_dodm.pozn m4_dodm.pozn 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 M_PARAM JEVICECEN POLE4 y toM1_IDENT wMATERIAL dM4_DODB = IDENT M1_PLAN doX1_PLAN _M4_DODM avIDENT1 M4_ORGAN tru toM4_DODMC seDAT_UVOL eZAVOD mc eTXT oHLASKA n tMOD_FUN f POLEX PROCX t inRTOP dodmcRBOT t, icCLEFT d, kCRIGHT cenFREEZE pozORDER vZAHL (dodbJMENO dodHODN dodbSOUC , '*ZPSOUC TITLE m.ceTITLECOLORPOC0 pozn)F0 cur = 0F2 lmez=10F3 pmez=78F4 hmez=5 mez=20 rom='' od ='' c ='' F0PRG = ' F1ON kF1PRG ltriF4_JM + 'F4PRG O:' TISKPRG (F7_JM n_hlF7PRG d CF9PRG j RoF9KEY . F9KEY1 F10_JM "koF10PRG ' 'RAMECEK enRIIS , 10,NAZEVT r (KLICO 2,3)KLNAZ ' 'SPACEBAR nTR_HL1 TR_HL2 r_nTR_HL3 d_fTR_HL4 e iTR_HL5 TR_HL6 (soTR_HL7 retTR_HL8 ***TR_HL9 ***DET_JM ***ENTER ****DETAIL cedDETPRG nenPS_LINE sePS_RETURN PS_ZAZN t=AKT PODNIK dnMOD_PSV c4_dodmc+ c4_dodmc c4_dodmc c4_dodmc Ceny polo pro I d Cena/plmj Rozhod.mno . Pozn kod_cen + ' ' + str (cena_plmj, 10, 2) + str (mno_r,12,3) + ' ' + pozn mod_fun SOUB_OT CECEN y toIDENT w_ICO dM4_ORGAN doZAVOD _M4_DODMC vC4_DODMC KOD_CEN tru toCENA_PLMJ seM4_DODM eN_CCUR N_LMEZ oN_PMEZ n tN_HMEZ f N_DMEZ N_PROM inN_HOD odmcN_POC , icN_TEXT , kN_HLAV cenN_RAD pozN_VYB vZOBR_NAP bMOD_FUN c_oznac Nebyly vybr ny (vysv ceny) daje pro uvoln pom_blok pom_blok c_oznac.dbf return to &mm_zpet HLASKA ZAZNAM toPOM_BLOK wC_OZNAC dDUVOD NTRGPZAZ doDODB _PS_RETURN v o d u v o l n - Esc, Zaps - ^End it pr ci beze zm n? (A/N) W_TEXT toM_ZMENA wKONEC dOB01 PS_RETURN ZAPIS POM_BLOK M4_DODM IDENT wZAVOD dBLOKACE AKTUAL MM_AUTOR DAT_AKT _M4_DODB DAT_UVOL DUV_UVOL cW_TEXT toAUT_UVOL eS4207B lok"% ZOBR_CEN UVOLNENI DUVOD _iden ZAPIS dn(i) X:\OBEC\04\ S4207B.FXP X:\OBEC\04\S4207B.PRG