seMOD57GX
m5_oper
zakazka
m_kal
datum
mod51a2
tyden
nt&ci = cis_tydne
c_kap
 Prob
r dat ...           
Kapacitn
 propo
et na d
lnu, obdob
RIIS 5.6
Detail
proc_det
mod57g
 Zadejte pracovi
 Skluzy
iif(skluzy=0,sp7,str(skluzy,7,1))
skluzy
iif(t0=0,sp7,str(t0,7,1))
iif(t1=0,sp7,str(t1,7,1))
iif(t2=0,sp7,str(t2,7,1))
iif(t3=0,sp7,str(t3,7,1))
iif(t4+t5+t6+t7=0,sp7,str(t4+t5+t6+t7,7,1))
t4+t5+t6+t7
iif(t8+t9+t10+t11=0,sp7,str(t8+t9+t10+t11,7,1))
t8+t9+t10+t11
iif(t12+t13+t14+t15=0,sp7,str(t12+t13+t14+t15,7,1))
t12+t13+t14+t15
iif(vyhled=0,sp7,str(vyhled,7,1))
vyhled
W_OBD1
seW_OBD2
o W_CHYBA
12ZADEJ_OBD
M5_OPER
 1ZAKAZKA
,3M_KAL
,6 sDATUM
(TT-RRNT1
@ 13,2NT2
6 say NT4
    doNT5
-RR) 'NT6
4,28 sNT7
setNT8
r to bNT9
le .tNT11
@ 13,NT12
 w_tyNT13
ict 'NT14
  @ 1NT15
et w_W_DAT2
t 'W_AKT_TT
@STAN_D2
t MOD51A2
iTYDEN
,29 geCIS_TYDNE
'9999'
TYDNE
C_KAP
   setPRACOV
offSKLUZY
reaT0
()=12 oT1
adkey()T2
     T3
   T5
  if w_T6
<1990 oT7
rok2<19T8
      dT9
aska wiT10
 rok'T12
   looT13
 endifT14
if w_tT15
<1 or VYHLED
>53PORADI
_OPER
thPOCET
 zaPOCETC
en'TT_ZAH
looPROCENTA
iNMIN
 W_NHOD
2POLEX
dRAMECEK
  NAZEVT
askRIIS
ChyTITLE
 RTOP
   RBOT
  CLEFT
 CRIGHT
  iFREEZE
*10F1
tyden1 F2
rok2*10F3
tyden2
    do F6
ka withF7
 zaF9
 obdob
DETAIL
 doDET_JM
  lENTER
  enPROCX
F9KEY
KLICO
wZAHL
rightJMENO
rok1HODN
w_rSOUC
ht(sSP7
k2,4MOD_PSV
seOBR
m_param
 Obdob
 od: (TT-RR) 
        do: (TT-RR) 
Chybn
 zadan
Chybn
 zadan
Chybn
 zadan
Chybn
 zadan
 obdob
 od nebo do
W_OBD1
seW_OBD2
o W_CHYBA
12M_PARAM
W_TYDEN1
1KP_OD
,3W_ROK1
6 sW_TYDEN2
KP_DO
T-RRW_ROK2
3,2HLASKA
 W_R2
 doW_T1
) 'W_T2
colora
set color to &color
seCOLOR
o OBR
POCET
sePOCETC
o POC
ch zak
 Operace v
ch zak
 Konec 
mod5_lib
mod5_lib
OBR_DET
seVOL
o ZOBR_ZAKZ
C_KAP
1W_OBD1
,3W_OBD2
6 sMOD5_LIB
ZOBR_OPERZMOD57GX
HLASKA
ZADEJ_OBD
HLASKA
 t0 m
PROCENTA
PROC_DET
X:\OBEC\05\
MOD57G.FXP
X:\OBEC\05\MOD57G.PRG