Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1998-05-18 | 27KB | 657 lines

m3_szdr ident_zdr m3_kozdr ident_zdr m3_zdr ident_zdr v1_str x1_str m_kal datum 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/n . . # Prob et ... dilna ident_zdr c3_dcelk c3_dcelk x3_dcelk c3_dcelk M3_SZDR IDENT_ZDR M3_KOZDR M3_ZDR V1_STR X1_STR M_KAL DATUM BARVAS BARVAR BARVAZ BARVAU BARVAN BARVAH BLANKDATE DATOD DATDO PLANKAPC SKUTKAPC POMPROCC VOLBA OK TYPZOBR ZADEJOBD uMOD_SYS d,NACTIDAT (substr(POCET ,2))C3_DOBD POCETC bnPOPRVE datCISDIL DILNA do hCISPRAC h VYPKAPAC PLAN_KAPACSKUT_KAPACPOMER_PROCPROCENTA CC3_DCELK X3_DCELK .PLANKAP r(SKUTKAP ))NAZDIL NAZEV hybnMOD37EX denni novan kapacity - od: do: novan kapacity - od: @R XX/XXc do: @R XX/XXc RIIS 3.7 Pracov mod37e1 Detail mod37e2 mod37e Zadejte d lnu: ' '+j->dilna j->dilna substr(j->nazev,1,35) j->nazev Rozd ' '+str(round(j->skut_kapac-j->plan_kapac,0),6,0) j->skut_kapac-j->plan_kapac ' '+str(round(j->pomer_proc,0),3,0)+' ' j->pomer_proc Pl.kap. ' '+str(round(j->plan_kapac,0),6,0) j->plan_kapac Sk.kap. ' '+str(round(j->skut_kapac,0),6,0) j->skut_kapac RIIS 3.7 POLEX OBSAHX RAMECEK TYPZOBR NAZEVT TITLE CLEFT CRIGHT FREEZE NKDATE NKAPC F10_JM F10PRG DETAIL DET_JM ENTER uPROCX d,F9KEY .ZAHL bstr(JMENO ,2))HODN bnMOD_PSV novan kapacity RIIS 3.7 Zadejte typ zobrazen Denn denni dd.mm.rr pict '@E' tydenni tt/rr pict '@R XX/XX' mesicni mm/rr pict '@R XX/XX' Typ zobrazen Zadejte obdob : od( Zadejte obdob : do( @ 5,35 get datod &formzobr @ 6,35 get datdo &formzobr denni denni novan kapacity - od: do: novan kapacity - od: @R XX/XXc do: @R XX/XXc VOLBA TYPZOBR TXTZAV FORMZOBR DATOD DATDO KONTOBD NAZEVT c3_dobd x3_dobd dilna c3_dobd c3_dobd C3_DOBD DILNA NAZEV IDENT_ZDR NAZEV_ZDR PLAN_KAPACSKUT_KAPACPOMER_PROCX3_DOBD V1_STR CISDIL NAZDIL NAZEV_STR M3_SZDR CISPRAC M3_ZDR NAZPRAC denni vypln no datum Datum "od" > datum "do" tydenni Chybn vypln obdob Chybn den datumu "od" Chybn den datumu "do" Datum "od" > datum "do" cdatum Rok obdob "od" nen uveden v kalend Rok obdob "do" nen uveden v kalend tyden dnu "od" nejsou pracovn dny ! dnu "do" nejsou pracovn datum mesicni Chybn vypln obdob Chybn c datumu "od" Chybn c datumu "do" Datum "od" > datum "do" cdatum Rok "od" neexistuje v kalend Rok "do" neexistuje v kalend denni . . # . . # vypln no datum Datum "od" > datum "do" tydenni Chybn vypln obdob Chybn den datumu "od" Chybn den datumu "do" Datum "od" > datum "do" tyden dnu "od" nejsou pracovn dny ! dnu "do" nejsou pracovn dny ! datum mesicni Chybn vypln obdob Chybn c datumu "od" Chybn c datumu "do" Datum "od" > datum "do" TYPZOBR DATDO DATOD V_ZDR HLASKA PACM_KAL ACCDATUM ROCTYDEN DATUM c3_den x3_den c3_den c3_tyden x3_tyden tyden c3_tyden c3_mesic x3_mesic cdatum c3_mesic VOLBA POPRVE C3_DEN DILNA IDENT_ZDR OBDOBI PACPLAN_KAPACSKUT_KAPACPOMER_PROCX3_DEN M3_SZDR PLKAPDEN D_KAPA M_KAL DATOD DATAKT DATUM DATDO CISDIL PACCISPRAC SKUTKAPC M3_KOZDR SKUTKAP PLANKAPC CC3_TYDEN CX3_TYDEN TYDEN .CIS_TYDNE CISTYDEN )PLKAPTYD SKKAPTYD SKKAP C3_MESIC CX3_MESIC CDATUM CISMESIC PLKAPMES CSKKAPMES POCET POCETC Zadny zaznam! c3_prac c3_prac x3_prac denni Planovane kapacity - od: do: Planovane kapacity - od: @R XX/XXc do: @R XX/XXc RIIS 3.7 Pracoviste strediska Detail mod37e1a mod37e Zadejte pracoviste Pracoviste ' '+h->ident_zdr h->ident_zdr Nazev pracovisteF h->nazev_zdr h->nazev_zdr Rozdil ' '+str(round(h->skut_kapac-h->plan_kapac,0),6,0) h->skut_kapac-h->plan_kapac Pomer % ' '+str(round(h->pomer_proc,0),3,0)+' ' h->pomer_proc Pl.kap. ' '+str(round(h->plan_kapac,0),6,0) h->plan_kapac Sk.kap. ' '+str(round(h->skut_kapac,0),6,0) h->skut_kapac RIIS 3.7 OBRE1 MOD_SYS ZAZE1 PS_LINE CISDIL PACDILNA APACNAZDIL PACNAZEV PROCC3_DOBD IDENT_ZDR HLASKA C3_DCELK PS_RETURN C3_PRAC X3_PRAC POLEX PROCX PACRTOP CLEFT CRIGHT FREEZE ORDER CJMENO CHODN TITLE .TITLECOLORF1 TYDEN APTYD APTYD MESIC MESIC DETAIL CF1PRG F4_JM APACF4PRG CF7_JM F7PRG .F9KEY r(F10_JM ))F10PRG DET_JM ybnDETPRG CRAMECEK NAZEVT o hRIIS with OBSAHX TYPZOBR D_OD ENTER 3,2)MOD_PSV Zadny zaznam! c3_obd c3_obd denni c3_obd x3_obd denni Planovane kapacity - od: do: Planovane kapacity - od: @R XX/XXc do: @R XX/XXc Dilna RIIS 3.7 denni Prehled kapacit po dnech tydenni Prehled kapacit po tydnech mesicni Prehled kapacit po mesicich mod37g Zadejte obdobi Obdobi i->obdobi denni ' '+tran(i->obdobi,'@E') ' '+tran(i->obdobi,'@R XX/XX') Rozdil ' '+str(round(i->skut_kapac - i->plan_kapac,0),6,0) i->skut_kapac - i->plan_kapac Pomer % ' '+str(round(i->pomer_proc,0),3,0)+' ' i->pomer_proc Planovana kapacita space(15)+str(round(i->plan_kapac,0),6,0) i->plan_kapac Skutecna kapacita space(14)+str(round(i->skut_kapac,0),6,0) i->skut_kapac RIIS 3.7 OBRE2 MOD_SYS ZAZE2 PS_LINE CISDIL PACDILNA APACTXT PACHLASKA ROCC3_DCELK PS_RETURN C3_OBD CISPRAC IDENT_ZDR OBDOBI PLAN_KAPACSKUT_KAPACPLKAPDEN CSKKAPDEN TYPZOBR POMER_PROCX3_OBD PACPOLEX PROCX CRBOT CCLEFT CRIGHT .FREEZE LORORDER )ZAHL JMENO TITLE CTITLECOLORF1 APACF7 .DETAIL r(F1PRG ))F4_JM F4PRG ybnF7_JM CF7PRG F9KEY o hF10_JM th F10PRG DET_JM DETPRG RAMECEK NAZEVT trRIIS 3,2)OBSAHX atD_OD datdoENTER ,1,2MOD_PSV Pracoviste Nazev pracoviste Rozdil Pomer % Pl.kap. Sk.kap. Dilna Zadny zaznam! c3_probd c3_probd x3_probd denni Planovane kapacity - od: do: Planovane kapacity - od: @R XX/XXc do: @R XX/XXc Dilna RIIS 3.7 denni Prehled kapacit po dnech tydenni Prehled kapacit po tydnech mesicni Prehled kapacit po mesicich mod37g mod37e Zadejte obdobi Obdobi i->obdobi denni ' '+tran(i->obdobi,'@E') ' '+tran(i->obdobi,'@R XX/XX') Rozdil ' '+str(round(i->skut_kapac - i->plan_kapac,0),6,0) i->skut_kapac - i->plan_kapac Pomer % ' '+str(round(i->pomer_proc,0),3,0)+' ' i->pomer_proc Planovana kapacita space(15)+str(round(i->plan_kapac,0),6,0) i->plan_kapac Skutecna kapacita space(14)+str(round(i->skut_kapac,0),6,0) i->skut_kapac RIIS 3.7 MOD_SYS CISDIL PACNAZDIL PACPS_LINE ACCISPRAC OCIDENT_ZDR HLASKA C3_PRAC PS_RETURN C3_PROBD DILNA OBDOBI X3_PROBD CPOLEX APACPROCX CRTOP CLEFT PROCCRIGHT PACFREEZE ORDER CJMENO CHODN TITLE .TITLECOLORF1 LECOLORF9 DETAIL CF1PRG F4_JM APACF4PRG CF7_JM F7PRG .F9KEY r(F10_JM ))F10PRG DET_JM ybnDETPRG CRAMECEK NAZEVT o hRIIS th OBSAHX TYPZOBR D_OD ENTER 3,2)MOD_PSV do dgr&graf PS_RETURN m_dgrpop c_dgrpop c_dgrpop m_dgrdat c_dgrdat c_dgrdat Obdobi NhSkut NhPlan Planovane kapacity denni Typ obdobi: od do Typ obdobi: od @R XX/XXc do @R XX/XXc RIIS 3.7 SoWA dgrpop.txt denni @R XX/XXc c_dgrdat dgrdat.txt mm_dgr2d !&mmgr 1 6306270498 M_DGRPOP C_DGRPOP M_DGRDAT C_DGRDAT GRDAT POPIS_X ACPOPIS_Y ACPOPIS_N ACNAZEV OCTYPZOBR DRUHY_R PRVNI_R PRVNI DRUHY TRETI CCTVRTY PACDRUH CYMAX DGRPOP ROCTXT PACPLANKAP PLAN_KAPACSKUTKAP CSKUT_KAPACOBD OBDOBI .NOR_Y PIS_X )DGRDAT MM_DGR2D CZAZG RMOD37EX ZADEJOBD NACTIDAT KONTOBD HLASKA VYPKAPAC PROCENTA MOD37E1 HLASKA MOD37E2 MOD37E1A MOD37G X:\OBEC\03\ MOD37E.FXP X:\OBEC\03\MOD37E.PRG