home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
05
/
MOD57B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-05-18
|
18KB
|
578 lines
m_param
m5_kapsd
dilna
m5_kaps
dilna
m5_kapso
dilna
m_kal
datum
M_PARAM
W_KAP_TYP
KP_TYP
W_KAP_OD
KP_OD
W_KAP_DO
KP_DO
M5_KAPSD
DILNA
M5_KAPS
M5_KAPSO
esicM_KAL
+subDATUM
ole(HLASKA
subMOD35BX
Kapacitn
bilance d
len -
@R XX/XXc
@R XX/XXc
RIIS 5.6
Pracov
mod57b1
Detail
mod57b2
mod57b
Zadejte d
lnu:
' '+dilna
dilna
substr(nazev,1,35)
nazev
Rozd
' '+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
W_KAP_DO
TITLE
CLEFT
CRIGHT
FREEZE
sicF1
+subF2
ole(F3
subF4
k cismeF9
datF10
= datF10_JM
apaF10PRG
DETAIL
e sDET_JM
os(ENTER
1,6BPROCX
F9KEY
JMENO
MOD_PSV
;3OBSAH
c5_sp
c5_sp
xc5_sp
Kapacitn
billance -
@R XX/XXc
@R XX/XXc
RIIS 5.6
Pracovi
ediska
V.Zak.
mod57b1b
Detail
mod57b1a
mod57b
Zadejte pracovi
Pracovi
' '+e.ident_zdr
e.ident_zdr
zev pracovi
e.nazev_zdr
e.nazev_zdr
Rozd
' '+str(round(e.plan_kapac-e.skut_kapac,0),6,0)
e.plan_kapac-e.skut_kapac
' '+str(round(e.pomer_proc,0),4,0)+' '
e.pomer_proc
Pl.kap.
' '+str(round(e.plan_kapac,0),6,0)
e.plan_kapac
.kap.
' '+str(round(e.skut_kapac,0),6,0)
e.skut_kapac
RIIS 5.6
Kapacitn
bilance -
@R XX/XXc
@R XX/XXc
OBRB1
MOD_SYS
ZAZB1
PS_LINE
DILCIS
DILNA
DILNAZ
NAZEV
M5_KAPS
C5_SP
IDENT_ZDR
XC5_SP
sicPOLEX
+subPROCX
ole(RTOP
subRBOT
e(CLEFT
CRIGHT
smeFREEZE
datORDER
datZAHL
apaJMENO
HODN
e sTITLE
os(TITLECOLORF1
;3F10
DETAIL
F1PRG
* F4_JM
F4PRG
F7_JM
enu F7PRG
ion F9KEY
F10_JM
*F10PRG
DET_JM
DETPRG
RAMECEK
NAZEVT
RIIS
OBSAHX
**W_KAP_TYP
W_KAP_OD
*W_KAP_DO
*ENTER
****MOD_PSV
T M5_KAPSD
PS_RETURN
Pracovi
zev pracovi
Rozd
Pom
Pl.kap.
.kap.
c5_op
c5_op
x5_op
adovan
kapacity
Pracovi
RIIS 5.6
tydenni
ehled kapacit po t
dnech
mesicni
ehled kapacit po m
mod57g
mod57b
Zadejte obdob
Obdob
' '+tran(f.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
OBRB1A
MOD_SYS
ZAZB1A
DILCIS
DILNAZ
PS_LINE
PRACCIS
IDENT_ZDR
M5_KAPSO
C5_OP
DILNA
sicOBDOBI
X5_OP
ole(POLEX
subPROCX
e(RTOP
RBOT
smeCLEFT
datCRIGHT
datFREEZE
apaORDER
ZAHL
e sJMENO
os(HODN
COLORTITLE
TITLECOLORF1
F9
F10
* DETAIL
F1PRG
F4_JM
enu F4PRG
ion F7_JM
F7PRG
*F9KEY
F10_JM
F10PRG
DET_JM
DETPRG
RAMECEK
NAZEVT
**RIIS
OBSAHX
*W_KAP_TYP
ENTER
****MOD_PSV
T W_KAP_OD
W_KAP_DO
C5_SP
ATICPS_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
PRACCIS
IDENT_ZDR
M5_KAPSO
DILCIS
ACCIS
DILNA
OBDOBI
POCOBD
sicC5_ZP
ZAKAZKA
e(CPOL
ubTYP_POL
e(NAZEV
KUSY
smeKAPAC
datX5_ZP
atM1_IDENT
aIDENT
M5_OPER
sM5_KAPO
(OBRAZ
POCET
OLORPOCETC
KAPAVYP
VYPKAPAC
MNO_KV
PROCENTA
3ZOBRAZ
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
sicKAPACITA
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
mod57b
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
C5_ZC
KAPAC
X5_ZC
VYRZAK
ZAKAZKA
W_CPOL
ST_TYP_POLTYP_POL
ST_NAZEV
NAZEV
bST_KUSY
(KUSY
KAPVZ
smePOLEX
LPROCX
atRTOP
aRBOT
CLEFT
sCRIGHT
(FREEZE
ORORDER
OLORJMENO
TITLE
TITLECOLORF1
CENTA
F3
F4
* F6
F7
F9
enu F10
ion DETAIL
F1PRG
*F4_JM
F4PRG
F7_JM
F7PRG
F9KEY
F10_JM
F10PRG
**DET_JM
DETPRG
*RAMECEK
NAZEVT
****W_KAP_OD
W_KAP_DO
PRACCIS
TICMOD_PSV
P_POLE
0grC5_SP
_MSYZAZB1B
OMPOBRB1B
COLPS_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
mod57b
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
DILCIS
DILNA
OBDOBI
M5_KAPSO
PRACCIS
IDENT_ZDR
PLAN_KAPACSKUT_KAPACPLANKAPD
(POZKAPD
POMER_PROCPOLEX
CPROCX
atRTOP
aRBOT
CLEFT
sCRIGHT
(FREEZE
ORORDER
OLORJMENO
TITLE
TITLECOLORF1
CENTA
F3
F4
* F6
F7
F9
enu F10
ion DETAIL
F1PRG
*F4_JM
F4PRG
F7_JM
F7PRG
F9KEY
F10_JM
F10PRG
**DET_JM
DETPRG
*RAMECEK
NAZEVT
****W_KAP_TYP
W_KAP_OD
W_KAP_DO
MOD_PSV
M5_KAPSD
PS_RETURN
do dgr&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
POPIS_X
POPIS_Y
POPIS_N
NAZEV
DRUHY_R
W_KAP_TYP
W_KAP_OD
W_KAP_DO
PRVNI_R
PRVNI
APACDRUHY
ACTRETI
(CTVRTY
DRUH
_PROCYMAX
CYMIN
atDGRPOP
PLANKAP
sPLAN_KAPACPOZKAP
ORSKUT_KAPACOBD
OLOROBDOBI
NOR_Y
PIS_X
DGRDAT
RMM_DGR2D
3MMGR
PTH
ZAZG
MOD35BX
HLASKA
-e.sc
MOD57B1
MOD57B1A
MOD57B1B
VYPKAPAC
ZOBRAZ
PROCENTA
MOD57B2
MOD57G
zahl(i
X:\OBEC\05\
MOD57B.FXP
X:\OBEC\05\MOD57B.PRG