Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/03/MOD37B.FXP

MS Visual FoxPro App | 1999-02-19 | 23KB | 500 lines

m3_Zdr
Ident_Zdr
m3_SZdr
Ident_Zdr
m3_KoZdr
Ident_Zdr
v1_Str
x1_Str
m_Kal
Datum
m_Cis1
x_Cis1
m_Dat
x_Dat
c3_SZdr
c3_SZdr
c3_Zdr
c3_Zdr
W_AKT
POM_ODL
W_PRAC
W_DIL
M3_ZDR
IDENT_ZDR
M3_SZDR
M3_KOZDR
V1_STR
X1_STR
M_KAL
DATUM
M_CIS1
X_CIS1
M_DAT
X_DAT
C3_SZDR
C3_ZDR
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+/w
set color to w/n
Aktualizace kapacit pracovi
RIIS 3.7
&barvau
@!XXXXXX
@!XXXXXX
&barvau
@!XXXX
@!XXXX
c3_SZdr
c3_SZdr
c3_KoZdr
c3_KoZdr+
c3_KoZdr
  pracovi
it pracovi
 Konec
POM_OBRT
BARVAS
BARVAR
BARVAZ
BARVAU
BARVAN
BARVAT
BARVAH
BARVA
ZMENA1
ZMENA2
NOVY_Z1
NOVY_Z2
POM_KONTR
POM_KONEC
POCET1
POCET2
POM_TXT1
POM_DELEJ
W_PRAC
W_DIL
POMOC
M3_ZDR
ZOBR_PRAC
NAZEV_ZDR
V1_STR
ZOBR_DILNYC3_SZDR
M3_SZDR
IDENT_ZDR
DILNA
NH_SMENY
SMENNOST
PLNENI
PORUCHY
C3_KOZDR
M3_KOZDR
HLAV1
HLAV2
PROC2
M_ORPROC1
ZMENY
POM_NAB
diW_AKT
&barvau
&barvas
&barvaz
&barvar
&barvaz
&barvat
Skupina
NH sm
nnost
Poruchy
 kapacita
 kapacita
M_OBRT
POM_TXT1
&barvau
&barvas
&barvaz
&barvar
 Korekce kapacit
&barvan
Od
Do
NH sm
nnost
Poruchy
&barvau
POM_TEXT
M_TXT1
&barvau
&barvas
99.99
99.99
99.999
99.999
999999.99
999999.99
&barvau
M_TEXT
SKUPINA
NH_SMENY
SMENNOST
PLNENI
PORUCHY
D_KAPA
T_KAPA
&barvau
@ 4,12 &vloz c3_SZdr.Skupina pict "@!X"
@ 4,33 &vloz c3_SZdr.PocT    pict "999"
@ 4,52 &vloz c3_SZdr.Dny    pict "9"
@ 5,13 &vloz c3_SZdr.NH_Smeny pict "99.99"
@ 5,31 &vloz c3_SZdr.Smennost  pict "99.99"
@ 5,47 &vloz c3_SZdr.Plneni  pict "99.999"
@ 5,65 &vloz c3_SZdr.Poruchy  pict "99.999"
 Skupina nen
 navedena !
999999.99
999999.99
Zmena&y =.t.
POCET1
SMENY
NNOST
W_AKT
C3_SZDR
SKUPINA
M3_ZDR
IDENT_ZDR
W_PRAC
TYP_ZDR
HLASKA
NH_SMENY
SMENNOST
PORUCHY
D_KAPA
PLNENI
T_KAPA
&barvau
&barvas
99.99
99.99
99.999
99.999
C3_KOZDR
KOZDR
NH_SMENY
SMENNOST
PLNENI
PORUCHY
DUVOD
&barvau
@x,2 &vloz  c3_KoZdr.Od pict "@E"
@x,13 &vloz c3_KoZdr.Do pict "@E"
@x,25 &vloz c3_KoZdr.PocT pict "999"
@x,34 &vloz c3_KoZdr.Dny pict "9"
@x,40 &vloz c3_KoZdr.NH_Smeny pict "99.99"
@x,52 &vloz c3_KoZdr.Smennost pict "99.99"
@x,60 &vloz c3_KoZdr.Plneni pict "99.999"
@x,70 &vloz c3_KoZdr.Poruchy pict "99.999"
@x+1,2 &vloz c3_KoZdr.Duvod pict "@!X"
m_kal
 Od nen
 pracovn
 den
m_kal
 Do nen
 pracovn
 den
Zmena&y =.t.
POCET2
KOZDR
KOZDR
SMENY
W_AKT
C3_KOZDR
_KOZDR
NH_SMENY
SMENNOST
PORUCHY
HLASKA
D_KAPA
PLNENI
T_KAPA
colorz
double
, <Enter>
^End,Esc
Pohyb       -
Blok dol
Konec       -
POM_TEXT
MMCOLOR
MOD_WIN
colorz
double
ny korekc
, <Enter>
^PgUp,^PgDn
^Home
^End,Esc
Pohyb       -
dek  -
dek  -
Blok nahoru -
Konec       -
POM_TEXT
MMCOLOR
MOD_WIN
W_AKT
colora
MMCOLOR
&barvau
do Proc&y
do Zmen&y with "get"
do Zmen&y with "say"
do Zmen&y with "say"
&barvau
do Zmen&y with "say"
do Menu&y
do Napov&y
c3_KoZdr
novy_Z&y=.t.
novy_Z&y=.f.
novy_Z&y=.f.
if q<pocet&y
q=pocet&y
if q=pocet&y and z<reccount()
novy_Z&y=.f.
if q<pocet&y and i#55
novy_Z&y=.f.
q=pocet&y
novy_Z&y=.t.
novy_Z&y=.t.
c3_KoZdr
novy_Z&y=.t.
Zmena&y = .t.
novy_Z&y=.f.
novy_Z&y=.f.
if not w_Akt or not Zmena&y
it pr
ci beze zm
n? (a/N)
POM_OBRZ
POM_VETA
COLOR
COLOR
KOZDR
POM_KONEC
W_AKT
KOZDR
POMOC
POM_OBRT
KONTROLA
POM_KONTR
ZAPIS
M_KONEC
C3_SZDR
HLAV1
PROC1
C3_KOZDR
IDENT_ZDR
DILNA
W_PRAC
W_DIL
HLAV2
PROC2
KONTR
colorz
pom_Prom
m3_Zdr.Ident_Zdr
ehled pracovi
Prac.   N
zev
Ident_Zdr+'  '+Nazev_Zdr
Pracovni
Mod_Fun
POM_PROM
POM_ALI
POM_ORD
POM_VETA
MMCOLOR
N_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
M3_ZDR
ZOBR_NAP
MOD_FUN
W_PRAC
IDENT_ZDR
DEJ_STAV
colorz
pom_Prom
v1_Str.NStr
ehled d
l.  N
zev
NStr+'  '+Nazev_Str
Mod_Fun
POM_PROM
POM_ALI
POM_ORD
POM_VETA
MMCOLOR
N_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
V1_STR
ZOBR_NAP
MOD_FUN
W_DIL
DEJ_STAV
POM_ALI
POM_ORD
POM_VETA
MMCOLOR
colorz
if novy_Z&y and not Zmena&y
ekryt
 term
POM_NASEL
POM_PROM
POM_ALI
POM_ORD
POM_VETA
MMCOLOR
POM_Z
POM_T
POM_X
W_AKT
POM_KONTR
M_KONTR
C3_KOZDR
BR_NAP
POM_DODAT
KOZDR
POM_ODDAT
KOZDR
HLASKA
_SZDR
DEJ_STAV
if not w_Akt or not Zmena&y
m3_SZdr
c3_KoZdr
Zmena&y = .f.
POM_OBR
POM_KONEC
M_ALI
C3_SZDR
M3_SZDR
NOVY_Z1
W_PRAC
W_DIL
C3_KOZDR
KOZDR
KOZDR
M3_KOZDR
IDENT_ZDR
DILNA
colorz
 Opravdu zru
it pracovi
 ? ?(a/N):
MMCOLOR
POM_OBR
POM_ZRUS
M3_SZDR
W_PRAC
W_DIL
M3_KOZDR
IDENT_ZDR
DILNA
POM_DELEJ
colorz
pom_Prom
pom_Pom.Ident_Zdr
ehled skupin
Skup.   N
zev
Ident_Zdr+'  '+Nazev_Zdr
Skupina
pom_Pom
pom_Pom
Ident_Zdr
Mod_Fun
Zmena&y=.t.
pom_Pom
U tohoto
daje nen
POM_PROM
POM_ALI
POM_ORD
POM_VETA
MMCOLOR
COLOR
KOZDR
N_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
N_PROM
N_HOD
N_POC
N_TEXT
N_HLAV
N_RAD
N_NVYH
M3_ZDR
POM_POM
TYP_ZDR
IDENT_ZDR
ZOBR_NAP
MOD_FUN
C3_SZDR
SKUPINA
M_PROM
HLASKA
DEJ_STAV
HLAV1
HLAV2
PROC1
 get
ZMEN1
 "@!XW
PROC2
ZMEN2
rsor
MENU1
MENU2
ursor^)
HLASKA
ZMENY
dkey(
ZOBR_PRAC
ZOBR_DILNY
DEJ_STAV
KONTROLA
ZAPIS
 v1_S
seek w
NAPOV1
X:\OBEC\03\
MOD37B.FXP
X:\OBEC\03\MOD37B.PRG