OPRAVA1
mod616a
m6_prnes
m6_kal
datum
m6_zam
m_dat
x_dat
m_cis1
x_cis1
m6_prum
m6_mzd
m6_sazby
m6_kal_h
m6_fzar
m6_evid
RIIS 6.1
Aktualizace nemoci, O
R zam
stnance:
mod_proc
mod6_lib
Osobn
slo neexistuje
DRUH_POMER
w_druh_pom
DRUH_POMERF
Druh pracovn
ho pom
ru neexistuje
stnanec nem
 navedeny mzdov
daje pro tento pracovn
mod6_lib
set color to w+/bg
mod6_lib
znam 
znam 
vrat 
 Konec 
Opravdu zru
it tento z
znam? (a/N)
mod6_lib
mod6_lib
mod614a
ZMENA
**PROCX
****OBR_C1
***SVITI_C
**JMENO_C
**WJMENO_C
eRADEK_C
*SLOUPEC_C
TYP_C
if iOK_C
'SKUHANSI
rada_M6_PRNES
   raM6_KAL
 .fDATUM
*M6_ZAM
la M_DAT
storX_DAT
q1,qM_CIS1
q5,X_CIS1
,q9M6_PRUM
q1M6_MZD
 0 M6_SAZBY
kM6_KAL_H
oM6_FZAR
doM6_EVID
unPRED
POTOM
'' tCHYBA
_dokNOVY_Z
_vyW_OSC
at_zW_PICT_OSCZOBR_ZAM
 MOD_PROC
,W_CHYBA
SCK_OSC
h_dnW_DEL_OSC
MOD6_LIB
_HLASKA
kaW_DRUH_POMDRUH_POMERMOD_C2
MMOD_C3
  HLAV_ZAM
MMENU
wBARVAZ
, ;BARVA
autoBARVA1
ualBARVA2
aktPORADI
_vzW_CIS_NES
OPRAVA2
niGEN_KALZ
_W_ZAC_MES
D6_LIB
zmena,OBR1
unctioNAPLN
S_POLE
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
&barva
&barvau
EXISTUJE
*ID_ORG
***RADA_NES
*KONTROLA
ENO_C
UPEC_C
if iQ6
'SKUHQ7
rada_Q8
PRNES
   raQ10
 .fQ11
la CISELNIK
q1,qDOL
q5,POCET
,q9DOP1
q1DOP2
 0 POR
kCOUNT
oZAKAZNIK
oW_CIS_DOKLW_DAT_VYSTW_DAT_ZAH
W_DAT_UKONW_CIS_DIAGW_DIAGNOZAW_DRUH_DNPW_CIS_LEK
W_LEKAR
,W_KA_DNY
CW_PR_DNY
nW_DENNI_VZW_PLACENO
W_HOD_ODP
W_ZP_VZ
OMW_R_ZMENA
W_AUTOR
MW_AKTUAL
 W_DAT_AKT
W_TEXT_VZ
NAPLN
, ;K_DENNI_VZK_ZP_VZ
alZMENA
aktP_ZOB
_vzPOMOC
RAVA2
niRAD
AC_MES
fBARVAS
na,BARVAR
BARVAZ
tioBARVAU
BARVAN
BARVAH
';BARVAD
oc=M6_PRNES
 BARVA
&BARVA1
i bBARVA2
d=0PORADI
  &KONEC
 cisI
        R
loupecZ
lniku
c=0     T
  && pocQ
zaznamu
********ZMENY
****z
&barva1
kladn
daje nemoci (O
&barva2
slo neschopenky
slo dokladu
Datum vystaven
Druh nemoci
slo diagn
Diagn
slo l
1. den odpracov
no hodin
Rozh. obdob
Kalend
Pracovn
Aktual.
WTEXT
*PRIOR
99999999
99.99
Kvart
 vzniku PN 
Kvart
l vzniku PN               
c vzniku PN                 
it pravd
podobn
 denn
 VZ   
 vypo
 denn
 VZ     
ve stanoven
 denn
                                
9999.99
Datum neexistuje v kalend
i, zkontrolujte kalend
W_CIS_NES
W_CIS_DOKLW_DAT_VYSTW_DAT_ZAH
W_DAT_UKONW_DRUH_DNPW_CIS_DIAGW_DIAGNOZAW_CIS_LEK
W_LEKAR
UHW_HOD_ODP
VYPOC_PRUMK_DENNI_VZK_ZP_VZ
.fW_R_ZMENA
W_PLACENO
W_DENNI_VZW_ZP_VZ
VZW_TEXT_VZ
PRIOR
W_KA_DNY
W_PR_DNY
 M6_KAL
DATUM
PERIODA
ONHLASKA
LM6_PRNES
TW_DAT_AKT
&barvau
w_cis_nes
@ 10,20 &vloz w_cis_nes pict '99999999'
slo neschopenky je povinn
@  12,18 &vloz w_dat_vyst pict '@E'
@  12,40 &vloz w_dat_zah pict '@E'
@  12,68 &vloz w_dat_ukon pict '@E'
w_druh_dnp
@  13,18 &vloz w_druh_dnp pict '99'
@  14,18 &vloz w_cis_diag pict '####'
@  14,40 &vloz w_diagnoza
@  15,18 &vloz w_cis_lek pict '##'
@  15,40 &vloz w_lekar
@  16,40 &vloz w_hod_odp pict '99.99'
w_denni_vz
@  17,18 &vloz w_denni_vz pict '9999.99'
P_ZOB
DOKLNASTAV_Q
DAT_ZAH
AT_UKONRADA_NES
PEXISTUJE
GCIS_RADY
AW_CIS_NES
HLASKA
HOD_ODP
M6_PRNES
ZW_OSC
.fW_DRUH_POMNAPLN
NOVY_Z
_VZPROC1
EXT_VZ
W_DAT_ZAH
W_DAT_VYSTQ3
R_DNY
PRNES
AT_AKT
T_UKONQ11
S_DIAGW_R_ZMENA
W_ZP_VZ
NPW_DAT_AKT
W_AKTUAL
,MM_AUTOR
CZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
 Neschopenky 
 Konec 
mod6_lib
mod6_lib
&barvau
mod614a
Opravdu zru
it tento z
znam? (a/N)
it pr
ci beze zm
n? (a/N)
&barvau
do proc&y
do proc&y
KONEC
DOKLA
STAV_Q
DAT_ZAH
T_UKONT
CIS_NES
HOD_ODP
ZNAP_HOD
.fP_ZOB
_POMOBR
VOLBA
_VZW_CISLO
ZW_CIS_NES
ZOBR_NESCHW_OSC
VYSTMOD6_LIB
 ZMENA
PRIOR
ZOBR_PRUM
W_DRUH_POMBARVA
TBARVAU
T_UKONPOCET
DIAGPROCX
NPKONTROLA
ZAPIS
W_ZAPIS
ZAPIS
KLMOD_SYS
TM6_PRNES
W_OSC
NW_DRUH_POMW_CIS_NES
ADRUH_POMERCIS_NESCH
AUTOR
MM_AUTOR
MAKTUAL
ZDAT_AKT
fDAT_VYST
W_DAT_VYSTDAT_ZAH
VZW_DAT_ZAH
DAT_UKON
W_DAT_UKONCIS_DIAG
TW_CIS_DIAGDIAGNOZA
W_DIAGNOZADRUH_DNP
W_DRUH_DNPCIS_LEKAR
W_CIS_LEK
LEKAR
UKONW_LEKAR
AGKALEN_DNY
W_KA_DNY
PPRAC_DNY
W_PR_DNY
,DENNI_VZ
CW_DENNI_VZPLACENO
VZW_PLACENO
HOD_ODP
W_HOD_ODP
ZP_VZ
W_ZP_VZ
MR_ZMENA
 W_R_ZMENA
M6_PRUM
W_MM_N
POMW_Q
NNI_VZROK
UH_POMW_RR_N
aktKVARTAL
vzPRUM_DEN
DATUM_D
VZAUTOR_D
_R_ZMENA_D
colora
set color to &color
COLOR
KLOBR
 vypln
no datum vystaven
 vypln
no datum zah
DRUH_DNP  
w_druh_dnp
KONTROLA
W_DAT_VYSTHLASKA
NW_DAT_ZAH
JMENO_C
WJMENO_C
AMOD_C2
MEROK_C
MOD_C3
ZMENA
M6_PRNES
TW_OSC
TW_DRUH_POMW_CIS_NES
W_CIS_DOKLCIS_DOKL
W_DAT_VYSTDAT_VYST
RW_DAT_ZAH
DAT_ZAH
W_DAT_UKONDAT_UKON
ZW_CIS_DIAGCIS_DIAG
W_DIAGNOZADIAGNOZA
ZW_DRUH_DNPDRUH_DNP
W_CIS_LEK
CIS_LEKAR
W_LEKAR
AGLEKAR
W_KA_DNY
AKALEN_DNY
W_PR_DNY
PPRAC_DNY
W_DENNI_VZDENNI_VZ
NW_PLACENO
PLACENO
W_HOD_ODP
HOD_ODP
W_ZP_VZ
,ZP_VZ
CW_R_ZMENA
R_ZMENA
VZW_AUTOR
AUTOR
W_AKTUAL
AKTUAL
W_DAT_AKT
DAT_AKT
      - 
mod614a
       - ^Home
       - F10
      - ^End,Esc
Pohyb
mod614a
Funkce
Konec
PROCX
K_DENNI_VZK_ZP_VZ
TW_DAT_ZAH
M6_ZAM
POMDAT_NAST
M6_PRUM
VZW_OSC
W_DRUH_POMM6_MZD
RQ_NEM
_POMR_NEM
Q_NAST
R_NAST
KVARTAL
ZAPRUM_DEN
ZM6_PRNES
w_druh_dnp
DRUH_DNP
w_druh_dnp
w_cis_nes
mod6_lib
w_denni_vz
mod6_lib
Pro toto pole neexistuje pomocn
ehled hodnot
P_ZOB
I_VZMOD_C3
TZMENA
W_CISLO
OMW_CIS_NES
ZOBR_NESCHW_OSC
MOD6_LIB
MPRIOR
ZOBR_PRUM
W_DRUH_POMHLASKA
I_VZQ2
IS_NES
R_NESCHQ7
6_LIB
_PRUM
PRIOR
_POMPOCET
FFFZ^D
ordera
cis_nes<
Zadejte 
ady doklad
ada doklad
 neexistuje, nave
te cel
set order to &st_order    
select &st_sel
W_CIS_NES
W_RADEK
TW_SLOUPEC
ST_SEL
OMST_ORD
ST_ZAZ
SCHM6_PRNES
ST_ORDER
MW_DELKA
CELY_DOKL
CIS_NES
MHLASKA
DEL_DOKL
CIS_NESCH
POM_DOKL
OPRAVA1
OPRAVA2
PORADI
PROC1
ZMEN1
od_c2I
ZMENY
 if o
ZAPIS
    d-
HLASKA
mod_.2
KONTROLA
NAPLN
, 1, B5
VYPOC_PRUM
NAP_HOD
NASTAV_Q
CIS_RADY
W:\06\
MOD616A.FXP
W:\06\MOD616A.PRG