home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD616B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-01-18
|
5KB
|
110 lines
m_param
m6_zam
m6_prnes
cis_nes
RIIS 6.1
Nemocnost, o
rodiny
Zadejte osobn
Zadejte
slo neschopenky
mod616b
druh_pomer
druh_pomer
.neschop.
cis_nesch+' '
cis_nesch
Doklad
' '+str(cis_dokl,4)
cis_dokl
.neschop.
cis_nesch+' '
cis_nesch
Doklad
' '+str(cis_dokl,4)
cis_dokl
druh_pomer
druh_pomer
m6_zam.prijmeni
m6_zam.prijmeni
m6_zam.jmeno
m6_zam.jmeno
Titul
m6_zam.titul
m6_zam.titul
m6_zam.ucetni
m6_zam.ucetni
Druh DNP
' '+druh_dnp+' '
druh_dnp
Od
tran(dat_zah,'@E')
dat_zah
Do
' '+tran(dat_ukon,'@E')
dat_ukon
Kal.dny
' '+str(kalen_dny,4)
kalen_dny
Prac.dny
' '+str(prac_dny,4)
prac_dny
Plac. OD
tran(dat_pl_od,'@E')
dat_pl_od
Plac. DO
tran(dat_pl_do,'@E')
dat_pl_do
' '+cis_diag+' '
cis_diag
Diagn
diagnoza
diagnoza
Vyst.nesch.
tran(dat_vyst,'@E')+' '
dat_vyst
' '+cis_lekar+' '
cis_lekar
lekar
lekar
Denn
str(denni_vz,9,2)
denni_vz
Hod.odp.
' '+str(hod_odp,5,2)
hod_odp
Autor
autor
autor
Aktual.
aktual
aktual
Dat. akt.
tran(dat_akt,'@E')
dat_akt
s_dokM_PARAM
P609
(i)='POLE6
op.'M6_ZAM
no(OSC
"cis_nM6_PRNES
CIS_NES
i)ID_ORG
schPRIOR
i = POLEX
zahRTOP
oklaRBOT
jmenCLEFT
"' CRIGHT
s_dFREEZE
RAMECEK
NAZEVT
F9KEY
PROCX
JMENO
MOD_PSV
MOD616B
X:\OBEC\06\
MOD616B.FXP
X:\OBEC\06\MOD616B.PRG