home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD63A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-02-02
|
11KB
|
279 lines
nadpID_ORG
nasTVOR_SPOR
MOD63AX
l o h y na mzdu - obdob
RIIS 6.3
hledej1 in mod612d
Rekap.
rek_zal in mod63b
Detail
det_akt
mod63a
generov
loh ...
m_param
m6_zaloh
m6_mzd
m6_zam
m6_spor
m6_srazu
cis_spuc
m6_srazk
m6_spor
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
nadpRAMECEK
asNAZEVT
W_MM_C
W_RR_C
et RIIS
to w/RTOP
RBOT
&& baCLEFT
CRIGHT
***FREEZE
***F1
******
va=barvF3
* -----F4
-------F6
-------F7
-------F9
-------F9PRG
----F10
barF10_JM
F10PRG
---DETAIL
---DET_JM
---ENTER
----PROCX
----OBR
doMESS
barvM_PARAM
dW_ROK
kPAM_ROK
hW_MESIC
=1PAM_MESIC
M6_ZALOH
e 1 toM6_MZD
aM6_ZAM
t=2M6_SPOR
&bM6_SRAZU
dCIS_SPUC
gM6_SRAZK
tTVOR_SPOR
ZALOHA
ID_ORG
rn=EVID_STAV
DAT_VYST
W_KON_MES
DAT_NAST
*W_ZAC_MES
DR_SRAZ
*POZAST_SR
DAT_ZAH
adDAT_UKON
ZP_PLATS
CASTKA
clTRANS
18,5UCET_K
VAR_K
8 doKONS_K
10,SPEC_K
AkTEXT
ace zUCET
eVAR_S
KONS_S
2SPEC_S
sIDENT_SRAZTISK
sDAT_AKT
a'PRIZNAK
sZAHL
aJMENO
ace'HODN
****MOD_PSV
**OBSAH
****1
OPRAVA
adpM6_ZALOH
M6_ZAM
W_POLE
colora
set color to &color
adpCOLOR
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
adpOBRAZ
sNOVY_Z
W_POLE
M6_ZALOH
DAT_AKT
/TISK
HLASKA
baZMENA
JMENO_C
**WJMENO_C
*RADEK_C
SLOUPEC_C
-----Q1
-------Q2
-------Q3
-------Q4
-------Q5
----Q6
barQ7
CISELNIK
---DOL
---POCET
----DOP1
----DOP2
doPOR
barvCOUNT
dZAKAZNIK
kPOMOC
MESIC
=1RAD
MESIC
ZALOH
e 1 toKONTROLA
aBARVAS
t=2BARVAR
&bBARVAZ
dBARVAU
gBARVAN
tBARVAH
BARVA
rn=MENU
PORADI
KONEC
ZAC_MES
ST_SR
T_ZAH
T_UKON
_PLATS
clZMENY
18,5PS_RETURN
Aktualizace z
lohy
Osobn
Datum aktualizace
-
- F10
- ^PgDn
- ^Home
- ^End,Esc
Pohyb
stnanci
znamu
znamu
Konec -
&barvau
99999
DAT_AKT
dpW_POLE
sW_PICT_OSCM6_ZAM
PRIJMENI
JMENO
/TITUL
M6_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
sW_POLE
JMENI
/HLASKA
aM6_ZAM
M6_MZD
**ZALOHA
*PRIJMENI
JMENO
TITUL
----M6_ZALOH
-DAT_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
JMENI
MOD_SYS
--W_OSC
-W_POLE
-ZOBR_ZAM
-MOD_PROC
-M6_ZALOH
-PROC1
rNOVY_Z
DAT_AKT
-PRIZNAK
---K_UDAJU
--OK_C
----C
doPOCET
barvZMENA
Osobn
slo je povinn
stnanec nen
zalo
stnanec nem
uvedeny mzdov
daje
loha mus
t nenulov
dpW_POLE
OSCHLASKA
M6_ZAM
/M6_MZD
M6_ZALOH
colora
set color to &color
dpCOLOR
OSCMOD63AX
DET_AKT
OPRAVA
PORADI
PROC1
ZMEN1
ZMENY
K_UDAJU
HLASKA
X:\OBEC\06\
MOD63A.FXP
X:\OBEC\06\MOD63A.PRG