Chip 1999 June/Chip_1999-06_cd.bin/tema/SoWa/OBEC.EXE/06/MOD68I.FXP

MS Visual FoxPro App | 1997-01-24 | 11KB | 284 lines

KONEC
****MOD68IX
ehledy
prehl
mod68i
mod68id
ehled  mzdov
RIIS 6.8
m6_zam
v1_str
x1_str
p_prist
xp_prist
m6_mu
ucetni
' '+ucetni+'    '
ucetni
poznamka
poznamka
Dat.akt.
tran(dat_akt,'@E')
dat_akt
Autor
autor
autor
Aktual
aktual
aktual
POLEX
****FREEZE
a=RTOP
* -RBOT
-----CLEFT
----CRIGHT
---F1
-------F2
-------F3
ect m6_F5
barva=bF6
* --F7
-------F8
-------F9
-------F10
------F10_JM
---F10PRG
menPROCX
rva=ENTER
dDETAIL
DET_JM
RAMECEK
olNAZEVT
r=hoNADPIS
 1 LEVA
PRAVA
f noHOR
   q1DOL
  q2=2M6_ZAM
et=OSC
  V1_STR
  qX1_STR
pocP_PRIST
ifXP_PRIST
M6_MU
UCETNI
* *JMENO
****HODN
****I
****MOD_PSV
P_PRIST
**PRIHLAS
a=MOD_SYS
 -M6_MU
----NOVY_Z
---OPRAVA
---PS_RETURN
W_POLE
RIIS 6.8
imu v
ru nelze prov
t opravy z
imu t
 nelze prov
t opravy z
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
CPODMV
**CPODMS
a=ANSI
 -W_POLE
---JMENO_C
--WJMENO_C
-RADEK_C
SLOUPEC_C
ect m6_Q2
barva=bQ3
* --Q4
-------Q5
-------Q6
-------Q7
------Q8
---Q9
menQ10
rva=Q11
olQ15
r=hoQ17
 1 Q18
f noQ20
   q1Q21
  q2=2Q22
et=Q23
  CISELNIK
pocDOL
ifPOCET
* *COUNT
****ZAKAZNIK
*POMOC
****Y
D_PSV
**RAD
****SL
*******POC
cedureKONTROLA
bBARVAS
t cBARVAR
w/bBARVAZ
15 BARVAU
 19BARVAN
 coBARVAH
g/nBARVA
15 tKS
@ M6_MU
ay 'MENU
zacPORADI
ch KONEC
color X
w+/bg
7 say Z
,17 say T
15,17 toA
@ 1NOVY_Z
 'AZMENY
znam`
&barva
 Aktualizace mzdov
Autor z
znamu
Aktualizoval
Datum aktualizace
W_POLE
@ 13,32 &vloz w_pole(1) picture '@!X'
@ 14,32 &vloz w_pole(2) picture '@X'
 -W_POLE
ENO_C
ENO_C
-MM_AUTOR
do proc&y
do zmen&y with 'get'
do zmen&y with 'say'
it pr
ci beze zm
n? (a/N)
KONEC
---DOL
ct m6_J
barva=bNOVY_Z
 --W_POLE
---PROC1
----Q1
-------Q2
------POCET
menK_UDAJU
a=OK_C
dAUTOR
MM_AUTOR
AKTUAL
olDAT_AKT
=hoPOM
t vypln
 existuje
**W_POLE
a=HLASKA
colora
set color to &color
**COLOR
a=OBR
      -
                 - ^PgDn
                 - ^Home
      - ^End,Esc
Pohyb
Konec
colorz
 Seznam zam
stnanc
 Seznam st
edisek
 Konec
set color to
**MCOLOR
a=ZOBR_ZZ
 -VOLBA
---BARVA
c6_zam
c6_zam
znam neexistuje
ehled  z a m
 s t n a n c
RIIS 6.2
mod68i
Zadejte: Osob.
prijmeni
prijmeni
jmeno
jmeno
Titul
titul
titul
evid_stav
evid_stav
M6_ZAM
**C6_ZAM
a=UCETNI
 -M6_MU
---OSC
--HLASKA
-PS_LINE
POLEX
PROCX
t m6_RBOT
rva=bCLEFT
 --CRIGHT
---FREEZE
---ORDER
----ZAHL
-----JMENO
---HODN
menTITLE
a=TITLECOLORF1
AUTOR
=hoF7
 1 F9
f noDETAIL
 q1F1PRG
q2=2F4_JM
et=F4PRG
  F7_JM
qF7PRG
pocF9KEY
ifF10_JM
F10PRG
DET_JM
DETPRG
* *RAMECEK
**NAZEVT
*RIIS
****I
**MOD_PSV
**PS_RETURN
MOD68IX
MOD68ID
OPRAVA
'@E'$
PORADI
PROC1
*****
ZMEN1
*****
ZMENY
*****
K_UDAJU
HLASKA
aramet-
PREHL
o cas
ZOBR_ZZ
S:\SKUH\
MOD68I.FXP
S:\SKUH\MOD68I.PRG