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

MS Visual FoxPro App | 1998-03-11 | 14KB | 308 lines

OPRAVA1
 dW_POLE
 KONEC
m6_nezpo
m6_odsk
cislo
m6_zam
m_dat
x_dat
m_cis1
x_cis1
m6_nezpo
mod615a
RIIS 6.1
Aktualizace nemoc
 z povol
stnance
mod_proc
mod6_lib
Osobn
slo nebylo nalezeno
mod6_lib
set color to w+/bg
99999
znam
znam
vrat
 Konec
Opravdu zru
it tento z
znam? (A/N)
OBR_C1
 dSVITI_C
 JMENO_C
  WJMENO_C
tRADEK_C
  SLOUPEC_C
TYP_C
   OK_C
   doANSI
M6_NEZPO
 w_polM6_ODSK
  CISLO
 resM6_ZAM
m dM_DAT
tiveX_DAT
    M_CIS1
t mX_CIS1
   K_POLE
PROCX
    ZMENA
POMOC
    CHYBA
atteNOVY_Z
oleZAZNAM
   CISLOL
    PRED
  elsPOTOM
    CISLOP
aznW_PICT_OSCZOBR_ZAM
 MOD_PROC
=W_CHYBA
SCK_OSC
    W_DEL_OSC
MOD6_LIB
zpHLASKA
   HLAV_ZAM
iW_POLE
uBARVAZ
   BARVA
aznaBARVA1
   BARVA2
   PORADI
CISLOU
   CIS_NZP
 AKTUAL
   MM_AUTOR
iAUTOR
 witDAT_AKT
,OPRAVA2
m_autor,OBR
      OBR1
    dPOM
t withT
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
set color to w+/w
&barvau
W_POLE
 dNOVY_Z
 M6_ODSK
  CISLOL
tZAZNAM
  K_POLE
M6_NEZPO
NEZPO
NEZPO
 w_polQ5
 resQ7
m dQ8
tiveQ9
    Q10
t mQ11
   Q12
    Q15
    Q17
atteQ18
oleQ19
   Q20
znaQ21
    Q22
  elsQ23
    CISELNIK
CT_OSCDOL
 POCET
=DOP1
SCDOP2
    POR
L_OSC
COUNT
lZAKAZNIK
pPOMOC
AV_ZAM
   POC
aznaBARVAS
   BARVAR
   BARVAZ
BARVAU
   BARVAN
 BARVAH
   BARVAD
 witBARVA
,BARVA1
itBARVA2
or,PORADI1
  KONEC
   dI
t withX
RAVA2
      Z
      U
 endif
        Q
 poradi
        ZMENY
&barva
&barva1
kladn
daje nemoci z povol
&barva2
slo nemoci z povol
zev NZP
edisko z
Datum zji
Doba expozice v letech
Datum prvn
eveden
slo protokolu o od
Datum aktualizace
WTEXT
 dZAZNAM
kladn
daje od
slo protokolu
slo NZP(PU)
Datum od
Body bolestn
Body ZSU
stky za ZSU
Ostatn
hrady
hrady
hrady
 red.n
hrady
 red.n
hrady
WTEXT
           -
           - ^End,Esc
           - F1
Pohyb
Konec
 help
&barvau
99999
99999999
W_POLE
99999999
99999
&barvau
K_POLE
@  12,26 &vloz w_pole(3)
@  13,26 &vloz w_pole(4) pict '9999'
@  13,68 &vloz w_pole(5) pict '@E'
@  14,26 &vloz w_pole(6) pict '##'
@  14,68 &vloz w_pole(7) pict '@E'
@  15,26 &vloz w_pole(8) pict '99999999'
slo protokolu u
 existuje
&barvau
do proc&y
 PRED
  W_POLE
tPOTOM
  ZAZNAM
M6_ODSK
_ODSK
oHLASKA
NEZPO
 K_POLE
polM6_NEZPO
 CIS_PROTO
AKTUAL
m dMM_AUTOR
eAUTOR
    DAT_AKT
mPORADI
eZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
slo protokolu u
 existuje
cislo?
do proc&y
&barvau
do proc&y
cislo?
do proc&y
&barvau
do proc&y
Konec beze zm
n ? (a/N):
&barvau
KONEC
polZAZNAM
 PROC2
m dLK
AUTOR
ePRED
    POTOM
mM6_ODSK
  HLASKA
eW_POLE
K_UDAJU
  M6_NEZPO
NOVY_Z
 ZMENA
attePOMOC
oleOBR
   CISLOL
znaDAT
   BARVA
 elsBARVAS
   BARVA1
nBARVAR
OSCBARVA2
 BARVAD
=PORADI
SCMOD615A1
 K_POLE
CISLOP
lCISLOU
pPORADI1
  CIS_PROTO
AKTUAL
uMM_AUTOR
 DAT_AKT
naMENU
POCET
ODEZVA
colora
set color to &color
 dCOLOR
 vypln
zev NZP
 vypln
no st
edisko z
 vypln
no datum zji
W_POLE
 dHLASKA
tOPRAVA1
OPRAVA2
PORADI
* --o
PORADI1
------
PROC1
AKTUA
PROC2
OCI Z
ZMEN1
* --v
ZMENY
-----
HLASKA
K_UDAJU
X:\OBEC\06\
MOD615A.FXP
X:\OBEC\06\MOD615A.PRG