-----MOD63BX
 l o h y   na mzdu - obdob
RIIS 6.3
Rekap.
rek_zal
Detail
det_akt
mod63b
hledej1 in mod612d
m_param
m6_zaloh
m6_mzd
m6_zam
m6_zam.prijmeni+'  '
m6_zam.prijmeni
m6_zam.jmeno+'  '
m6_zam.jmeno
edisko
m6_zam.str+'      '
m6_zam.str
' '+str(zaloha,5,0)+'  '
zaloha
'    '+priznak+'   '
priznak
' '+iif(tisk,'A',' ')+'  '
Aktual.
trans(dat_akt,'@E')
dat_akt
POLEX
----RAMECEK
--NAZEVT
oreW_MM_C
,q2W_RR_C
5,qRIIS
re 0 RTOP
elnikRBOT
ol,poCLEFT
1,doCRIGHT
ounFREEZE
pomoc=.F2
y='1'  F3
    && F4
ceni blF6
rad=0 F7
     &&F9
ek ciseF10
sl=0F10_JM
   F10PRG
ec DETAIL
DET_JM
   ENTER
pocePROCX
F9PRG
a = M_PARAM
**W_ROK
****PAM_ROK
**W_MESIC
s=PAM_MESIC
M6_ZALOH
      M6_MZD
ardM6_ZAM
ar=ZAHL
 JMENO
'   HODN
    I
a raMOD_PSV
taOBSAH
barv1
OPRAVA
---M6_ZALOH
eM6_ZAM
,q2W_POLE
Nelze aktualizovat, ji
 prob
hl tisk podklad
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
---OBRAZ
-NOVY_Z
eW_POLE
,q2M6_ZALOH
qDAT_AKT
 TISK
elnikTXT
ol,poHLASKA
,doZMENA
ounJMENO_C
WJMENO_C
.RADEK_C
  SLOUPEC_C
ni blQ1
rad=0 Q2
     &&Q3
ek ciseQ4
sl=0Q5
   Q6
ec CISELNIK
   DOL
pocePOCET
a = DOP2
**POR
****COUNT
**ZAKAZNIK
=POMOC
_ZALOH
      SL
ardPOC
ar=KONTROLA
 BARVAS
   BARVAR
   BARVAZ
 raBARVAU
taBARVAN
arvBARVAH
colBARVA
+/bgKS
   MENU
enoPORADI
au=KONEC
lor I
bg,w+/X
        R
eny udZ
barvanU
et colorT
 w+/b'  Q
        A
 nadpisyZMENY
sobnPS_RETURN
 Aktualizace z
lohy 
Osobn
Datum aktualizace
            - 
            - F10
                - ^PgDn
                - ^Home
      - ^End,Esc
Pohyb
stnanci
znamu
znamu
Konec - 
&barvau
99999
DAT_AKT
--W_POLE
-W_PICT_OSCM6_ZAM
,q2PRIJMENI
qJMENO
 TITUL
lnikM6_ZALOH
@ 12,40 &vloz w_pole(1) picture w_pict_osc           
Osobn
slo je povinn
stnanec nen
 zalo
stnanec nem
 zalo
eny mzdov
daje 
99999
@ 15,52 &vloz w_pole(2) picture '99999'       
&barvau
-W_POLE
,q2LK
JMENI
 HLASKA
oM6_ZAM
oM6_MZD
ounZALOHA
PRIJMENI
.JMENO
  TITUL
M6_ZALOH
lDAT_AKT
 ZMENA
  &&L
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
mod_proc
it pr
ci beze zm
n? (a/N)
KONEC
,q2DOL
JMENI
.OBRZ
  MOD_SYS
W_OSC
lW_POLE
 ZOBR_ZAM
&MOD_PROC
eM6_ZALOH
0PROC1
 NOVY_Z
ec DAT_AKT
PRIZNAK
oceK_UDAJU
a = C
**POCET
****ZMENA
**POM
Osobn
slo je povinn
stnanec nen
 zalo
stnanec nem
 uvedeny mzdov
daje 
loha mus
t nenulov
--W_POLE
OSCHLASKA
qM6_ZAM
 M6_MZD
nikM6_ZALOH
colora
set color to &color
--COLOR
lohy celkem : 
999 999 999
-ZALOHA
OSCW_ZALOHA
2MOD63BX
DET_AKT
OPRAVA
PORADI
PROC1
ZMEN1
ZMENY
K_UDAJU
HLASKA
REK_ZAL
X:\OBEC\06\
MOD63B.FXP
X:\OBEC\06\MOD63B.PRG