home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD62O5.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1997-03-03
|
12KB
|
317 lines
MOD62O5X
M z d y z a m
s t n a n c
RIIS 4.2
mod62o5
Zadejte
slo zam
stnance :
Detail
xxxxxxx
Detail
zobr_zam
m6_dm
m6_typ
m6_zam
m6_odm
m6_zam
m6_odm
c6_odm
typ_mzdy
typ_mzdy
prijmeni
prijmeni
jmeno
jmeno
Nhod
str(tb+ta/60,7,2)
tb+ta/60
Hodiny
str(hodiny,7,2)
hodiny
%PVN
iif(hodiny>0,str((tb+ta/60)*100/hodiny,7,2),space(7))
tb+ta/60
str(castka,10,2)
castka
Pr.dny
str(pr_dny,8,2)
pr_dny
Kal.dny
str(ka_dny,8,2)
ka_dny
zev typu mzdy
m6_typ.text
m6_typ.text
POLEX
FREEZE
***LEVA
*****PRAVA
****HOR
******DOL
******RAMECEK
**NAZEVT
eduRIIS
uj_tiNADPIS
ageOBSAHX
agePROCX
_pcoF1
_pwF2
set=0
ngth =6F6
pspacinF7
_pejecF9KEY
**F10
******F10_JM
***F10PRG
***DETAIL
***DET_JM
***ENTER
TISKPRG
e ARCHPRG
paM6_DM
txtDM
lor = sM6_TYP
'coTYP
set M6_ZAM
w+OSC
12,(7M6_ODM
t)-PRIJMENI
JMENO
9+lTYP_MZDY
/HODINY
(79PR_DNY
)-4KA_DNY
6,(TB
xt)TA
ublKUSY
(79CASTKA
))/C6_ODM
sHODN
r toI
reMOD_PSV
OBSAH
m6_odm
c6_odm_p
mod62o5
Odveden
mzdy : F
Odveden
mzdy : F
alg+' '
Kusy
str(kusy,12,3)
Nhod
str(tb+ta*kusy/60,7,2)
tb+ta*kusy/60
Hodiny
str(hodiny,7,2)
hodiny
%PVN
iif(hodiny>0,str((tb+ta*kusy/60)*100/hodiny,7,2),space(7))
tb+ta*kusy/60
str(castka,10,2)
castka
' '+trida
trida
' '+stupen
stupen
Tac
str(ta,11,4)
Postup
postup
postup
operace
operace
str_op
str_op
Prac.
pracov
pracov
Datum
tran(datum,'@E')
datum
Autor
jmeno
jmeno
zev druhu mzdy
m6_dm.nazev
m6_dm.nazev
PS_LINE
**W_OSC
****C6_ODM
***OSC
******W_TYP
****TYP_MZDY
*M6_ODM
eduC6_ODM_P
iSTR_ZAM
ageM6_DM
_pcoPOLEX
_pwPROCX
_pRTOP
th =6CLEFT
acinCRIGHT
jecFREEZE
ORDER
**ZAHL
*****JMENO
***HODN
***SOUC
***TITLE
***TITLECOLORNAZEVT
txtF3
lor = sF4
'coF6
set F7
w+F9
12,(7F10
t)-DETAIL
F1PRG
9+lF4_JM
/F4PRG
(79F7_JM
)-4F7PRG
6,(F9KEY
xt)F10_JM
ublF10PRG
(79DET_JM
))/DETPRG
RAMECEK
sRIIS
toKLICO
rePS_ZAZN
PS_RETURN
OBSAHX
PRIJMENI
MOD_PSV
Tisk p
ehledu podklad
pro mzdy
- " -, aktu
stnanec
Tisk p
ehledu
Konec
mod_psv
Prob
tisk ...
p_kody
p_name
Epson LX-810
m_param
mod62t1
mod62t1
W_TISK
**TISK
***MOD_PSV
**ZAZT
*****NULUJ_TISKNASTAV_PRNI
eduMESS
iP_KODY
eP_NAME
ageW_TISKARNABOLD_ON
NAP_BOLDON
pBOLD_OFF
P_BOLDOFF
DBST_ON
inP_DBST_ON
DBST_OFF
P_DBST_OFFNLQ_ON
***P_LETRQUALNLQ_OFF
**P_DRAFT
**SUB_OFF
**P_SUBOFF
RSUPER_ON
P_SUPERON
SUPER_OFF
P_SUPEROFFHUSTE_ON
oP_10CPI
t P_COMPRESSHUSTE_OFF
P_COMP_OFFHELITE_ON
P_12CPI
+lHELITE_OFFPICA_ON
FFELITE_ON
4MALE
,(P_SUBON
t)PRESET
ublP_RESET
79P_SETUP
)/M_PARAM
W_PODNIK
sFIRMA
toM6_ODM
reMOD62T1
C6_ODM
PS_RETURN
w_tiskarnaf
Nastaven
parametru tisku
ESC - Konec ^END - Tisk
W_POM
KONEC
D_PSV
**POCET
****Q
LUJ_TISKW_TISKARNAPORADI
eduPROC1
iZMENY
Posledn
et kopi
okraj
na str
Odstr
ed tiskem,2-po tisku,3-oboj
BEFORE
AFTER
W_TISKARNA
@ 8,57 &vloz _pbpage pict '9999'
@ 9,57 &vloz _pepage pict '9999'
@ 10,57 &vloz _pcopies pict '9999'
@ 11,59 &vloz _ploffset pict '99'
@ 12,59 &vloz _plength pict '99'
BEFORE
AFTER
@ 13,60 &vloz w_pom pict '9'
BEFORE
AFTER
@ 15,31 &vloz w_tiskarna
mod_hes
KARNAQ
**W_POM
***P_KODY
**W_TISKARNAM_SCR
TISKZOBR_POLQSMOD_HES
KONEC
ARNAI
**DOL
SKARNAT
TISKHOR
_POLQSU
TISKARNAZ
agePROC1
ARNAOBR1
NAZMEN1
D_OFF
POCET
colora
set color to &color
ARNACOLOR
**MOD62O5X
ZOBR_ZAM
TISK_PRG
NASTAV_PRN
PORADI
7 O
,31 &v
PROC1
ZMEN1
z='sa"!
ZMENY
selecc%
NULUJ_TISK
iskarn
L:\OBEC\06\
MOD62O5.FXP
L:\OBEC\06\MOD62O5.PRG