Chip 1999 June

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 05 / MOD57C.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1998-05-18 | 15KB | 459 lines

m_param m5_kapsd dilna m5_kapso dilna m_kal datum m5_kaps dilna M_PARAM ?W_KAP_TYP KP_TYP SLW_KAP_OD KKP_OD W_KAP_DO KP_DO M5_KAPSD DILNA gM5_KAPSO M_KAL DATUM M5_KAPS HLASKA MOD57CX Kapacitn bilance pracovi @R XX/XXc @R XX/XXc RIIS 5.6 V.Zak. mod57c1b Detail prac_obd mod57c Zadejte pracovi ident_zdr ident_zdr Pracov. ' '+ident_zdr ident_zdr zev pracovi nazev_zdr nazev_zdr str(round(plan_kapac-skut_kapac,0),6,0) plan_kapac-skut_kapac ' '+str(round(pomer_proc,0),4,0) pomer_proc Pl.kap. ' '+str(round(plan_kapac,0),6,0) plan_kapac .kap. ' '+str(round(skut_kapac,0),6,0) skut_kapac RIIS 5.6 POLEX RAMECEK ?NAZEVT W_KAP_TYP W_KAP_OD KW_KAP_DO TITLE gCLEFT CRIGHT FREEZE d_F10_JM F10PRG DETAIL pacDET_JM ENTER ='skPROCX F9KEY *ZAHL colorJMENO @ HODN 'RII @ MOD_PSV 'SOBSAH pracov c5_obd+ c5_obd RIIS 5.6 tydenni ehled kapacit po t dnech mesicni ehled kapacit po m mod57g mod57c Zadejte obdob Obdob ' '+tran(obdobi,'@R XX/XX') obdobi Rozd ' '+str(round(plan_kapac - skut_kapac,0),6,0) plan_kapac - skut_kapac Pom ' '+str(round(pomer_proc,0),4,0)+' ' pomer_proc Pl novan kapacita space(15)+str(round(plan_kapac,0),6,0) plan_kapac adovan kapacita space(14)+str(round(skut_kapac,0),6,0) skut_kapac RIIS 5.6 OBRB1A ?MOD_SYS ZAZB1A PS_LINE KM5_KAPSO PRACOV M5_KAPS IDENT_ZDR C5_OBD gOBDOBI POLEX PROCX CLEFT CRIGHT FREEZE ORDER JMENO d_HODN TITLE TITLECOLORF1 ='skF3 colorF7 'RIF10 @ DETAIL 'SF1PRG doF4_JM rF4PRG zahlF7_JM hodnF7PRG sF9KEY 5_kaF10_JM estF10PRG en DET_JM b1aDETPRG urnRAMECEK NAZEVT ***RIIS *****W_KAP_TYP MOD_PSV **PS_RETURN c5_zp x5_zp c5_zp x5_zp m1_ident ident m5_oper zakazka m5_kapo dilna Prob et ... c5_zp OBRB1B ?MOD_SYS ZAZB1B P_POLE KPRACCIS IDENT_ZDR M5_KAPSO DILCIS ACCIS gDILNA OBDOBI POCOBD C5_ZP ZAKAZKA TYP_POL NAZEV KAPAC X5_ZP d_M1_IDENT IDENT M5_OPER ORM5_KAPO OBRAZ POCET *POCETC orKAPAVYP VYPKAPAC IMNO_KV PROCENTA SZOBRAZ tydenni tyden mesicni cdatum W_KAP_TYP M_KAL ?TYDEN CISTYDEN P_POLE ACCIS DATAKT DATUM KAPAVYP CIS_TYDNE M5_KAPO TER_OD TER_DO KAPACITA CDATUM CISMESIC Pracovi zev pracovi Rozd Pom Pl.kap. .kap. c5_zc c5_zc x5_zc c5_zc Kapacity VZ - od:F @R XX/XXc do: @R XX/XXc Pracovi RIIS 5.6 ehled kapacit v ch zak mod57c Zadejte v ' '+c5_zc.zakazka c5_zc.zakazka c5_zc.cpol c5_zc.cpol ka c5_zc.typ_pol c5_zc.typ_pol zev polo c5_zc.nazev c5_zc.nazev et kus str(c5_zc.kusy,12,3) c5_zc.kusy Kapacita str(c5_zc.kapac,9,2) c5_zc.kapac RIIS 5.6 P_TYP DILCIS ?DILNAZ PS_LINE C5_ZP KC5_ZC KAPAC X5_ZC VYRZAK ZAKAZKA W_CPOL ST_TYP_POLTYP_POL ST_NAZEV NAZEV ST_KUSY KAPVZ POLEX LPROCX d_RTOP CLEFT ORCRIGHT FREEZE skORDER *JMENO orHODN TITLE ITITLECOLORF1 CENTA zahlF6 hodnF7 5_kaF10 estDETAIL en F1PRG b1aF4_JM urnF4PRG F7_JM ***F7PRG ****F9KEY F10_JM F10PRG **DET_JM DETPRG durRAMECEK NAZEVT ---RIIS -----W_KAP_OD -W_KAP_DO -PRACCIS REHMOD_PSV CIP_POLE VISC5_SP DISEZAZB1B BDOOBRB1B ---PS_RETURN POCET POCETC Kapacitn bilance - @R XX/XXc @R XX/XXc RIIS 5.6 tydenni ehled kapacit po t dnech mesicni ehled kapacit po m mod57g mod57c Zadejte obdob Obdob ' '+tran(obdobi,'@R XX/XX') f.obdobi Rozd ' '+str(round(f.plan_kapac - f.skut_kapac,0),6,0) f.plan_kapac - f.skut_kapac Pom ' '+str(round(f.pomer_proc,0),4,0)+' ' f.pomer_proc Pl novan kapacita space(15)+str(round(f.plan_kapac,0),6,0) f.plan_kapac adovan kapacita space(14)+str(round(f.skut_kapac,0),6,0) f.skut_kapac RIIS 5.6 Kapacitn bilance - @R XX/XXc @R XX/XXc OBRB2 ?MOD_SYS ZAZB2 PS_LINE KDILCIS DILNA OBDOBI M5_KAPSO PRACCIS IDENT_ZDR PLAN_KAPACSKUT_KAPACPLANKAPD POZKAPD POMER_PROCPOLEX CPROCX d_RTOP CLEFT ORCRIGHT FREEZE skORDER *JMENO orHODN TITLE ITITLECOLORF1 CENTA zahlF6 hodnF7 5_kaF10 estDETAIL en F1PRG b1aF4_JM urnF4PRG F7_JM ***F7PRG ****F9KEY F10_JM F10PRG **DET_JM DETPRG durRAMECEK NAZEVT ---RIIS -----W_KAP_TYP W_KAP_OD -W_KAP_DO MOD_PSV CIM5_KAPSD PS_RETURN do dgr&graf ?GRAF PS_RETURN m_dgrpop c_dgrpop c_dgrpop m_dgrdat c_dgrdat c_dgrdat Obdobi NhPozad NhPlan Kapacitni bilance Typ obdobi: ( @R XX/XXc @R XX/XXc ) RIIS 5.6 SoWA dgrpop.txt c_dgrdat dgrdat.txt mm_dgr2d !&mmgr 1 6306270498 M_DGRPOP C_DGRPOP ?M_DGRDAT C_DGRDAT GRPOP KPOPIS_X POPIS_Y POPIS_N NAZEV DRUHY_R W_KAP_TYP W_KAP_OD W_KAP_DO PRVNI_R PRVNI APACDRUHY ACTRETI CTVRTY _PROCYMAX CYMIN d_DGRPOP PLANKAP ORPLAN_KAPACPOZKAP skSKUT_KAPACOBD *OBDOBI orNOR_Y PIS_X IDGRDAT RMM_DGR2D SMMGR doPTH rZAZG lMOD57CX HLASKA PRAC_OBD MOD57C1B VYPKAPAC ZOBRAZ PROCENTA MOD57C2 da[% MOD57G = ter_ X:\OBEC\05\ MOD57C.FXP X:\OBEC\05\MOD57C.PRG