home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD63B.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-08-31
|
10KB
|
244 lines
-----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