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

MS Visual FoxPro App | 1998-12-08 | 18KB | 471 lines

british
m6_zpz
m6_zam
m6_srazk
m6_zp
Aktualizace zdravotn
ch poji
RIIS 6.1
hledej1 in mod612d
Disketa
tvor_disk
zmena_zp
mod612g
m6_zam.prijmeni
m6_zam.prijmeni
m6_zam.jmeno
m6_zam.jmeno
Ke dni
tran(dat_zmen,'@E')
dat_zmen
' '+kod_zp+' '
kod_zp
zev zdrav. poji
m6_zp.nazev_zp
m6_zp.nazev_zp
left(rodne_cis,6)+'/'+right(rodne_cis,4)
rodne_cis
pohlavi
pohlavi
Rok nar.
'    '+str(rok_nar,4)
rok_nar
Dat.akt.
tran(dat_akt,'@E')
dat_akt
Autor
autor
autor
Aktual.
aktual
aktual
BRITISH
 dM6_ZPZ
casOSC
ist(i,M6_ZAM
,25M6_SRAZK
 M6_ZP
 q<pZP
 and i#ICO
 POLEX
  RAMECEK
NAZEVT
OSURIIS
O, naRTOP
   caRBOT
ist(iCLEFT
4,26CRIGHT
  iFREEZE
d iF1
      F2
 endif
   *KONF6
EZE ZMEF7
e i=12 F9PRG
if !zmF10_JM
   F10PRG
necDETAIL
   DET_JM
ENTER
   sPROCX
een ZAHL
     JMENO
  seI
 to MOD_PSV
M6_ZPZ
 dNOVY_Z
casOPRAVA
(i,PS_RETURN
W_POLE
imu v
ru nelze prov
t opravy z
imu t
 nelze prov
t opravy z
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
&barvau
CPODMV
 dCPODMS
casANSI
(i,OBRAZ
W_OSC
 q<pW_ROD_CIS
RODNE_CIS
W_ICO
  ICO
W_KOD_ZP
UKOD_ZP
 naW_DAT_ZMENDAT_ZMEN
iW_POHLAVI
POHLAVI
 iW_ROK_NAR
ROK_NAR
  ZMENA_ZP
 P_ZOB
JMENO_C
ONWJMENO_C
ERADEK_C
  SLOUPEC_C
 CISELNIK
   DOL
necPOCET
   DOP1
   sPOR
een COUNT
    ZAKAZNIK
POMOC
  seY
 to RAD
      @POC
2 cleaKONTROLA
BARVAS
  @BARVAR
o 1BARVAZ
bleBARVAU
   BARVAN
sayBARVAH
t pBARVA
ze zKS
N)'MENU
   PORADI
getKONEC
ct 'I
      X
set cursR
    Z
      seT
ursor ofQ
        A
t color NOVY_Z
w+/Q1
       Q2
 readkeQ3
12 or rQ4
ey()=26Q5
       Q6
restoreQ7
  ZMENY
else~
&barva
 zdravotn
 poji
Zdravotn
 poji
na ke dni
Pohlav
Rok narozen
&barvau
@R XXXXXX/XXXX
W_OSC
 dM6_ZAM
casPRIJMENI
,JMENO
W_ROD_CIS
M6_ZPZ
q<pW_ICO
M6_ZP
NAZEV_ZP
 W_KOD_ZP
W_DAT_ZMENW_POHLAVI
W_ROK_NAR
&barvau
w_osc
@ 13,25 &vloz w_osc pict w_pict_osc
@ 14,25 &vloz w_rod_cis pict '@R XXXXXX/XXXX'
w_ico
@ 15,25 &vloz w_ico pict '@!X'
w_kod_zp
@ 17,25 &vloz w_kod_zp pict '!'
@ 17,55 &vloz w_dat_zmen pict '@E'
@ 18,25 &vloz w_pohlavi pict '!'
@ 18,55 &vloz w_rok_nar pict '9999'
 dP_ZOB
IJMENI
M6_ZAM
W_OSC
q<pW_ROD_CIS
RODNE_CIS
M6_ZPZ
AT_ZMENQ4
_ZMEN
OHLAVI
AKTUAL
 iMM_AUTOR
DAT_AKT
  ZMENA_ZP
 PROC1
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
IJMENI
q<pHOR
D_CIS
E_CIS
AT_ZMENLK
NAP_HOD
P_ZOB
iVOLBA
NOVY_Z
 iW_OSC
  W_ROD_CIS
RODNE_CIS
W_ICO
ONICO
EW_KOD_ZP
 KOD_ZP
W_DAT_ZMENDAT_ZMEN
mW_POHLAVI
POHLAVI
ecW_ROK_NAR
ROK_NAR
PROC1
   sQ1
een Q2
    Q3
AZNIK
  seQ5
 to Q6
POCET
   @Q
2 cleaK_UDAJU
  @AUTOR
MM_AUTOR
eAKTUAL
   DAT_AKT
K_NAR
ze zZMENA_ZP
 vypln
no osobn
stnanec neexistuje, chybn
 osobn
m6_zp,
Zdravotn
 poji
ovna neexistuje
KOD_ZP
w_kod_zp
Datum zm
ny mus
t vypln
 dW_OSC
casHLASKA
q<pM6_ZAM
M6_ZPZ
M6_ZP
 W_ICO
MENJMENO_C
WJMENO_C
MOD_C2
iMOD_C3
ZMENA_ZP
W_DAT_ZMENQ5
ehled zam
stnanc
 Zdravotn
 poji
ovny
 Konec
mod_proc
mod_proc
&barvau
 dVOLBA
casST_OSC
,W_OSC
ZOBR_ZAM
MOD_PROC
pM6_ZAM
W_ROD_CIS
RODNE_CIS
M6_ZPZ
ZMENA_ZP
NST_ICO
W_ICO
ZOBR_ZP
iPROC1
colora
set color to &color
 dCOLOR
casOBR
            -
            - F10
                - ^PgDn
                - ^Home
      - ^End,Esc
Pohyb
Funkce
znamu
znamu
Konec
Zadejte :
Datum od-do
Zdravotn
 poji
Disketov
 mechanika
Zdravotn
 poji
ovna neexistuje
mod_proc
Chybn
 zadan
 disketov
 mechanika, povoleno A,B
!&pth\test_d a:
!&pth\test_d b:
ERROR
Disketa nebyla vlo
   Prob
 tvorba souboru ...
c6_zpz
c6_zpz
enos dat do zdravotn
 poji
ovny, F
RIIS 6.2
prenos
mod612g
Dat.zm
left(datum,2)+'/'+substr(datum,3,2)+'/'+right(datum,2)+' '
datum
kod_zp+'  '
kod_zp
prijmeni
prijmeni
jmeno
jmeno
left(rodne_cis,6)+'/'+right(rodne_cis,4)
rodne_cis
Rok nar.
'    '+rnar
pohl+'  '
 dW_OD
casW_DO
,W_ICO
W_DISK
M6_ZP
pHLASKA
ZOBR_ZP
MOD_PROC
NTEST
MOD_SYS
iC6_ZPZ
KOD_ZP
iRODNE_CIS
PRIJMENI
NJMENO
DATUM
ONPOHL
EM6_ZPZ
 ST_ZAZ
DAT_ZMEN
mM6_ZAM
ecW_D
W_DATUM
ROK_NAR
 sW_RNAR
en W_POHL
  POHLAVI
POLEX
PROCX
 to RTOP
   @CLEFT
cleaCRIGHT
FREEZE
  @ORDER
eHODN
   TITLE
yTITLECOLORPS_LINE
NA_ZP
   F3
ct 'F6
      F7
et cursF9
    F10
DETAIL
 seF1PRG
r ofF4_JM
    F4PRG
lor F7_JM
w+/F7PRG
    F9KEY
adkeF10_JM
r rF10PRG
=26DET_JM
   DETPRG
oreRAMECEK
  NAZEVT
lseRIIS
     I
perMOD_PSV
A'PS_RETURN
   Prob
pis na disketu ...
m_param
copy all to &w_soub sdf
!copy &w_soub &sach > nul
ST_ZAZ
 dPRENOS
casMESS
,M_PARAM
W_SOUB
pC6_ZPZ
colora
set color to &col
CMESS
 dCOL
w_osc
mod_proc
w_ico
mod_proc
w_kod_zp
KOD_ZP
w_kod_zp
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
 dST_OSC
casW_OSC
,ZOBR_ZAM
MOD_PROC
M6_ZAM
pW_ROD_CIS
RODNE_CIS
M6_ZPZ
ZMENA_ZP
ST_ICO
NW_ICO
ZOBR_ZP
MOD_C3
iHLASKA
MOD612G
ZMENA_ZP
OPRAVA
PORADI
PROC1
_d,3,
ZMEN1
rok_n
ZMENY
  w_rs
K_UDAJU
VOLBA

HLASKA
TVOR_DISK
PRENOS
insert
NAP_HOD
K:\RIIS\OBEC\06\
MOD612G.FXP
K:\RIIS\OBEC\06\MOD612G.PRG