MOD68AX
ehled   d r u h 
   m e z d
RIIS 6.7
Algoritmy
mod68bx
mod68bx
mod68a
Zadejte druh mzdy :
m6_dm
m6_typ
a6_mzdy
' '+dm+' '
nazev
nazev
druh_pomer+' '
druh_pomer
'  '+kod_gen+' '
kod_gen
Typ mzdy
'   '+typ_mzdy+'   '
typ_mzdy
zev typu mzdy
m6_typ.text
m6_typ.text
Hr.mzda
'   '+mzda_brut+'   '
mzda_brut
'   '+mzda_prum+'   '
mzda_prum
'  '+kc_srazky+'   '
kc_srazky
'   '+vyplata+'     '
vyplata
'   '+dan_zal+'    '
dan_zal
 saz.1
'    '+dan_sraz_1+'    '
dan_sraz_1
 saz.2
'    '+dan_sraz_2+'    '
dan_sraz_2
 saz.3
'    '+dan_sraz_3+'    '
dan_sraz_3
VZ soc.
'    '+vz_soc+'   '
vz_soc
VZ zdr.
'    '+vz_zdr+'   '
vz_zdr
'    '+prem_zakl+'    '
prem_zakl
kl.odbory
'     '+zakl_osk+'     '
zakl_osk
Kumul.
'  '+kum_dm+'   '
kum_dm
l.mzdy
'   '+dil_mzdy+'    '
dil_mzdy
POLEX
RAMECEK
NAZEVT
#RBOT
CLEFT
CRIGHT
+,FREEZE
F10_JM
F10PRG
 DETAIL
   DET_JM
 a6ENTER
    PROCX
6_dmF9KEY
dm.dM6_DM
 if eofM6_TYP
6_dTYP
h_pomeA6_MZDY
  TYP_MZDY
6ZAHL
JMENO
ndifHODN
if !I
    MOD_PSV
m6_dmalg
m6_alg
m6_talg
MOD_SYS
M6_DMALG
M6_ALG
#M6_TALG
M6_DM
W_AKT
+,OPRAVA
PS_RETURN
RIIS 6.7
imu v
ru nelze prov
t opravy z
znamu
imu t
 nelze prov
t opravy z
znamu
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
&barvad
&barvau
CPODMV
W_AKT
HLASKA
CPODMS
#M6_DM
+,W_NAZEV
NAZEV
W_TUP
W_TYP_MZDYTYP_MZDY
W_KOD_GEN
KOD_GEN
W_DRUH_POMDRUH_POMERW_MZDA_BRUMZDA_BRUT
W_MZDA_PRUMZDA_PRUM
W_KC_SRAZKKC_SRAZKY
W_VYPLATA
VYPLATA
ofW_VZ_SOC
dVZ_SOC
omeW_VZ_ZDR
 VZ_ZDR
6W_DAN_ZAL
DAN_ZAL
ifW_DAN_SR1
DAN_SRAZ_1W_DAN_SR2
DAN_SRAZ_2W_DAN_SR3
DAN_SRAZ_3W_PREM_ZAKPREM_ZAKL
W_ODBORY
eZAKL_OSK
W_KUM_DM
KUM_DM
TW_DIL_MZDYDIL_MZDY
NOVY_Z
W_ZMENA
KLIC_PUV
JMENO_C
WJMENO_C
RADEK_C
SLOUPEC_C
    Q11
     sQ12
 a6_mzQ13
    seQ14
_dm.dmQ15
m.druhQ16
    Q17
eof() Q18
6_dm.dQ19
omer='CISELNIK
 m6_dmDOL
   POCET
  DOP1
 !eofDOP2
     POR
laska COUNT
ruh ZAKAZNIK
 PROCX
 exiY
je v arcRAD
     SL
select POC
^1KONTROLA
BARVAS
BARVAR
BARVAZ
BARVAU
BARVAN
BARVAH
BARVAD
#3BARVA
PORADI1
PORADI2
KONEC
*   PROC1
    M6_DMALG
 PROC2
OMERMOD68A1
  ZMENY
    '
&barva1
&barva2
 Aktualizace druh
 mezd 
ehled druh
 mezd 
&barva1
Druh mzdy
Typ mzdy
Pracovn
Kumulace
Mzdy st
edisek
lensk
 mzdy
  p  o  
  t  y 
 mzda
klad sr
kl.soc.poj.
kl.zdr.poj.
klad odbory
kl. da
kl.da
-saz.1
kl.da
-saz.2
kl.da
-saz.3
W_AKT
BARVA1
BARVAZ
BARVA2
#BARVAD
BARVAR
ID_ORG
&barva1
&barva2
Alg. v
tu   Popis
W_AKT
BARVA1
BARVAZ
BARVA2
#BARVAD
BARVAR
&barvau
&barvas
W_AKT
W_NAZEV
W_TYP_MZDYM6_TYP
W_KOD_GEN
KOD_GEN
+,TEXT
M6_DM
W_DRUH_POMW_TUP
W_KUM_DM
YW_DIL_MZDYW_MZDA_BRUW_MZDA_PRUW_KC_SRAZKW_VYPLATA
W_VZ_SOC
UW_VZ_ZDR
W_PREM_ZAKW_ODBORY
W_DAN_ZAL
W_DAN_SR1
W_DAN_SR2
W_DAN_SR3
&barvau
&barvas
W_AKT
YP_MZDYDRUH_POMERW_DM
W_DRUH_POMALG
M6_ALG
M6_DMALG
MNAZEV
@ 4,12 &vloz w_dm pict '999'    
@ 4,24  &vloz w_nazev
@ 5,12  &vloz w_typ_mzdy pict '999'  
@ 7,17  &vloz w_druh_pom pict '!X'
@ 7,29  &vloz w_tup pict '999'   
@ 7,51  &vloz w_kum_dm pict '!X'   
@ 7,77  &vloz w_dil_mzdy pict '!X'   
@ 9,17 &vloz w_mzda_brut pict '!X' 
@ 9,37 &vloz w_mzda_prum pict '!X' 
@ 9,57 &vloz w_kc_srazky pict '!X' 
@ 9,77 &vloz w_vyplata pict '!X'   
@ 10,17 &vloz w_vz_soc pict '!X' 
@ 10,37 &vloz w_vz_zdr pict '!X' 
@ 10,57 &vloz w_prem_zak pict '!X' 
@ 10,77 &vloz w_odbory pict '!X' 
@ 11,17 &vloz w_dan_zal pict '!X'  
@ 11,37 &vloz w_dan_sr1 pict '!X' 
@ 11,57 &vloz w_dan_sr2 pict '!X' 
@ 11,77 &vloz w_dan_sr3 pict '!X' 
NASTAV_Q
_MZDYA
UH_POMERQ2
RUH_POMW_KOD_GEN
W_MZDA_BRUW_MZDA_PRUW_KC_SRAZKW_VYPLATA
W_VZ_SOC
YW_VZ_ZDR
UW_DAN_ZAL
W_DAN_SR1
W_DAN_SR2
W_DAN_SR3
W_PREM_ZAKW_ODBORY
KW_KUM_DM
W_DIL_MZDYQ4
AN_SR1
AN_SR2
AN_SR3
Z_SOC
omeQ9
Z_ZDR
N_ZAL
ifQ13
N_SR1
SRAZ_1Q15
N_SR2
SRAZ_2Q17
N_SR3
SRAZ_3Q19
EM_ZAKPROC1
W_ZMENA
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
&barvau
&barvau
Druh mzdy nelze zru
it, existuje v arch
it pr
ci beze zm
n? (a/N)
&barvau
KONEC
STAV_Q
_MZDYT
_POMERHOR
UH_POMR
KOD_GEN
DA_BRUJ
MZDA_PRULK
C_SRAZKY
VYPLATA
VOLBA
YPROC1
UK_UDAJU
M6_DM
PORADI1
_ZAKMOD68A1
KM6_DMALG
YW_DRUH_POMPORADI2
PROC2
dA6_MZDY
 DRUH_POMERHLASKA
MERNOVY_Z
ifNAPLN_PROMQ
_POMPOCET
_2K_UDAJU1
W_ZMENA
PLN_PROMPOM
TAV_Q
W_NAZEV
NAZEV
W_TUP
MZDYTUP
_POMERW_TYP_MZDYTYP_MZDY
MW_KOD_GEN
KOD_GEN
RUW_DRUH_POMDRUH_POMERW_MZDA_BRUMZDA_BRUT
W_MZDA_PRUMZDA_PRUM
W_KC_SRAZKKC_SRAZKY
W_VYPLATA
VYPLATA
AKW_VZ_SOC
KVZ_SOC
W_VZ_ZDR
YVZ_ZDR
POMW_DAN_ZAL
DAN_ZAL
W_DAN_SR1
DAN_SRAZ_1W_DAN_SR2
DAN_SRAZ_2W_DAN_SR3
DAN_SRAZ_3W_PREM_ZAKPREM_ZAKL
W_ODBORY
ZAKL_OSK
2W_KUM_DM
KUM_DM
_3W_DIL_MZDYDIL_MZDY
Tento druh mzdy ji
 existuje v arch
vu mezd
Druh mzdy pro tento druh pracovn
ho pom
ru ji
 existuje
DRUH_POMER
c_pom
Pro vedlej
 PP se vyu
 druhy mezd pro hlavn
 PP (H)
R nelze vykazovat za vedlej
innost
 navedena kumulace d
lensk
ch mezd (A,mezera)
Chybn
 hodnota indikace nav
 ve mzd
ch st
edisek (A,mezera)
 naveden z
et (A,mezera)
NOVY_Z
W_DRUH_POMM6_DM
MZDYDM
_POMERDRUH_POMERA6_MZDY
MHLASKA
D_GEN
DRUH_POMXX
OMERJMENO_C
OMC_POM
WJMENO_C
MMOD_C2
MOD_C3
AZKW_ZMENA
M6_TYP
POMTYP_MZDY
KW_KUM_DM
MW_DIL_MZDYW_MZDA_BRUW_MZDA_PRUW_KC_SRAZKW_VYPLATA
W_VZ_SOC
W_VZ_ZDR
1W_PREM_ZAKW_ODBORY
2W_DAN_ZAL
W_DAN_SR1
W_DAN_SR2
W_DAN_SR3
M6_DM
DRUH_POMERW_DRUH_POMM6_DMALG
MNAZEV
OMERW_NAZEV
POMW_TUP
RUTYP_MZDY
MW_TYP_MZDYKOD_GEN
OMW_KOD_GEN
MZDA_BRUT
W_MZDA_BRUMZDA_PRUM
W_MZDA_PRUKC_SRAZKY
W_KC_SRAZKVYPLATA
MW_VYPLATA
VZ_SOC
BRUW_VZ_SOC
UVZ_ZDR
AZKW_VZ_ZDR
DAN_ZAL
W_DAN_ZAL
DAN_SRAZ_1W_DAN_SR1
PREM_ZAKL
W_PREM_ZAKDAN_SRAZ_2W_DAN_SR2
DAN_SRAZ_3W_DAN_SR3
ZAKL_OSK
W_ODBORY
3KUM_DM
ZDYW_KUM_DM
DIL_MZDY
eW_DIL_MZDY
Algoritmus v
tu mus
t naveden
M6_DMALG
W_DRUH_POMTXT
_POMERHLASKA
OMERM6_DM
MOK_C
 Typy mezd 
 Typov
tovac
edpisy 
 Konec 
mod6_lib
mod7_lib
DMALG
ZOBR_TYP
MW_TYP_MZDYMOD6_LIB
MZOBR_DESK
W_TUP
OMERMOD7_LIB
colora
set color to &color
COLOR
            - 
                - ^PgDn
      - F2
            - F10
                - ^Home
      - ^End,Esc
Pohyb
znamu
Bloky
Typy mezd
znamu
Konec
W_KOD_GEN
POCET
P_MZDYQ3
6_LIB
R_DESK
OMERQ6
7_LIB
POMQ8
_MZDY
P_MZDYQ11
OMQ12
D_GEN
_BRUT
DA_BRUQ15
_PRUM
DA_PRUQ17
RAZKY
_SRAZKQ19
MOD68AX
MOD68BX
OPRAVA
PORADI1
PORADI2
PROC1
PROC2
     
ZMEN1
lect 5"
ZMENY
    s
NAPLN_PROM
K_UDAJU
eof() 
K_UDAJU1
VOLBA
HLASKA
NASTAV_Q
X:\OBEC\06\
MOD68A.FXP
X:\OBEC\06\MOD68A.PRG