ek ceMOD68CX
ehled typ
 mezd
RIIS 6.7
Funkce
prg_fun
mod68c
Zadejte 
slo typu mzdy : 
m6_typ
m6_typz
m6_typt
hodnota
m6_typm
m6_mlt
cislo
' '+typ_mzdy
typ_mzdy
Text typu mzdy
'  '+kod_gen+' '
kod_gen
poznamka
poznamka
' '+alg1+' '
' '+alg2+' '
' '+alg3+' '
' '+alg4+' '
' '+alg5+' '
' '+alg6+' '
POLEX
k ceOBSAHX
ecRAMECEK
  NAZEVT
   RIIS
     RTOP
     RBOT
obrazCLEFT
vickCRIGHT
t='FREEZE
le='P
 mezd'
p  = 6
t  =24
ft = 1
ght=78
ze= 0 F10_JM
   F10PRG
ocePROCX
nychF9KEY
u vlM6_TYP
aulTYP
*M6_TYPZ
urM6_TYPT
i:HODNOTA
. M6_TYPM
  M6_MLT
apoCISLO
t./.ZAHL
= .JMENO
    HODN
&  vI
 (.tMOD_PSV
ehled z
 do mezd 
ehled z
 do mzdov
ch list
 Konec 
k ceVOL
ecZOBR_TYPZ
ZOBR_TYPM
c6_typz+
c6_typz
et nebyl nalezen
ehled z
 do mezd
mod68c
'  '+str(cislo,2)+' '
cislo
hodnota+'  '
hodnota
m6_typt.text
m6_typt.text
k cePS_LINE
ecM6_TYPZ
M6_TYP
TYP_MZDY
 C6_TYPZ
  CISLO
vickHODNOTA
='M6_TYPT
HLASKA
ePOLEX
tPROCX
CLEFT
CRIGHT
FREEZE
 0 ORDER
   ZAHL
oceJMENO
nychHODN
u vlTITLE
aulTITLECOLORF1
apoF7
t./.F9
= .F10
    DETAIL
  vF1PRG
 (.tF4_JM
3 F4PRG
    F7_JM
  &&F7PRG
ni  F9KEY
F10_JM
   F10PRG
   DET_JM
olaDETPRG
iskRAMECEK
.)NAZEVT
t. RIIS
     TISKPRG
lbPS_RETURN
  MOD_PSV
c6_typm+
c6_typm
et nebyl nalezen
ehled z
 do mzdov
ho listu
mod68c
cislo+' '
cislo
str(m6_mlt.radek,4)
m6_mlt.radek
m6_mlt.text
m6_mlt.text
Hodn.
m6_mlt.hodnota
m6_mlt.hodnota
k cePS_LINE
ecM6_TYPM
M6_TYP
TYP_MZDY
 C6_TYPM
  CISLO
vickM6_MLT
='HLASKA
POLEX
ePROCX
tRTOP
CLEFT
CRIGHT
FREEZE
ORDER
 0 ZAHL
   JMENO
oceHODN
nychTITLE
u vlTITLECOLORF1
LECOLORF2
apoF9
t./.F10
= .DETAIL
   F1PRG
  vF4_JM
 (.tF4PRG
3 F7_JM
    F7PRG
  &&F9KEY
ni  F10_JM
F10PRG
   DET_JM
   DETPRG
olaRAMECEK
skNAZEVT
.)RIIS
t. TISKPRG
  PS_RETURN
MOD_PSV
colorz
set color to &Mcolor
k ceMCOLOR
ecMOBR
MOD68CX
PRG_FUN
ZOBR_TYPZ
ZOBR_TYPM
HLASKA
L:\OBEC\06\
MOD68C.FXP
L:\OBEC\06\MOD68C.PRG