m3_zdr
ident_zdr
m3_szdr
ident_zdr
m3_kozdr
ident_zdr
m_cis1
x_cis1
m_dat
x_dat
 e h l e d     p r a c o v i 
RIIS 3.7
Korekce
mod37cd
mod37c
 Zadejte: pracovi
Pracovi
'    '+str.ident_zdr
str.ident_zdr
' '+str.dilna
str.dilna
Skupina
' '+str.skupina
str.skupina
str(str.poct,5)
str.poct
str(str.dny,3)
str.dny
NH sm
'   '+str(str.nh_smeny,5,2)
str.nh_smeny
nnost
'   '+str(str.smennost,5,2)
str.smennost
str(str.plneni,6,3)
str.plneni
Poruchy
' '+str(str.poruchy,6,3)
str.poruchy
Den.kapac.
str(str.d_kapa,10,2)
str.d_kapa
d.kapac.
str(str.t_kapa,10,2)
str.t_kapa
zev pracovi
zdroj.nazev_zdr
zdroj.nazev_zdr
Zkratka
zdroj.Zkr_Zdr+' '
zdroj.Zkr_Zdr
eno(iM3_ZDR
ranIDENT_ZDR
ZDROJ
n(i)M3_SZDR
T_ZDR
M3_KOZDR
T_ZDR
M_CIS1
+stX_CIS1
t,3M_DAT
n(i)X_DAT
POLEX
PROCX
' DnRTOP
eno(iRBOT
 '+stCLEFT
y,1)CRIGHT
i)=FREEZE
ORDER
zahHOR
' NH sDOL
jmenLEVA
'    PRAVA
r.nhNADPIS
,2)ZAHL
n(i)=JMENO
smenHODN
i=i+1SOUC
(i)='PSOUC
TITLE
i)="TITLECOLORPOC0
nnostF0
hodF1
='kr.smF2
zahlF4
' Pln
jmeno(iF7
 '+str(F9
lneni,6F10
hodn(F0PRG
plneF1ON
i=i+F1PRG
(i)=F4_JM
F4PRG
i)="TISKPRG
krF7_JM
y,6,F7PRG
dn(iF9PRG
orucF9KEY
i=i+F9KEY1
i)=F10_JM
kapF10PRG
jmeRAMECEK
  RIIS
tr(krNAZEVT
9,2KLICO
n(i)KLNAZ
kapaSPACEBAR
TR_HL1
=' TR_HL2
 kaTR_HL3
jmTR_HL4
'  TR_HL5
+stTR_HL6
apaTR_HL7
hodTR_HL8
.t_TR_HL9
i=DET_JM
l(iENTER
od'+DETAIL
DETPRG
="'PS_LINE
(kPS_RETURN
PS_ZAZN
odMOD_PSV
c2_k+
znam!
Korekce kapacit na d
  pracovi
RIIS 3.7
ehled korekc
 kapacit 
Detail
 Zadejte: pracovi
lna+od 
       Od
' '+tran(kr.od,'@E')
kr.od
       Do
' '+tran(kr.do,'@E')
kr.od
'   '+str(kr.poct,3)
kr.poct
'   '+str(kr.dny,1)
kr.dny
 NH sm
'    '+str(kr.nh_smeny,5,2)
kr.nh_smeny
nnost
'    '+str(kr.smennost,5,2)
kr.smennost
' '+str(kr.plneni,6,3)
kr.plneni
 Poruchy
'  '+str(kr.poruchy,6,3)
kr.poruchy
 Denn
 kapacita
'      '+str(kr.d_kapa,9,2)
kr.d_kapa
 kapacita
'         '+str(kr.t_kapa,9,2)
kr.t_kapa
' '+substr(kr.duvod,1,50)
kr.duvod
RIIS 3.7
eno(iOBR1
ranMOD_SYS
n(i)PS_LINE
T_ZDR
eIDENT_ZDR
+stDILNA
t,3KOR
n(i)C2_K
' DnKR
eno(iTXT
 '+stHLASKA
,1)PS_RETURN
POLEX
PROCX
zahRTOP
 NH sRBOT
jmenCLEFT
    CRIGHT
.nhFREEZE
,2)ORDER
(i)=ZAHL
smenJMENO
=i+1HODN
(i)='TITLE
TITLECOLORF1
LECOLORF2
nnostF3
hodF4
='kr.smF6
zahlF9
' Pln
meno(iDETAIL
tr(F1PRG
ni,6F4_JM
odn(F4PRG
plneF7_JM
i=i+F7PRG
(i)=F9KEY
F10_JM
)="F10PRG
krDET_JM
,6,DETPRG
n(iRAMECEK
ucNAZEVT
=i+RIIS
i)=OBSAHX
kapENTER
  MOD_PSV
colora
set color to &color
eno(iCOLOR
ranOBR
MOD37C
_ _ %
MOD37CD
HLASKA
_ _ E
X:\OBEC\03\
MOD37C.FXP
X:\OBEC\03\MOD37C.PRG