home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
06
/
MOD66E.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1998-06-29
|
9KB
|
254 lines
m_param
Rok :
Chybn
roku
a6_mzdy
m6_zam
a6_zam
m6_dm
c6_mzdy
Prob
r dat ...
w_kc = kc&wm
replace kc&wm with w_kc+a6_mzdy.castka, soucet with soucet+a6_mzdy.castka
mzda zam
stnanc
, rok F
RIIS 6.3
hledej1 in mod612d
proc_graf
mod66e
iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
iif(eof('m6_zam'),a6_zam.prijmeni,m6_zam.prijmeni)
iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
iif(eof('m6_zam'),a6_zam.jmeno,m6_zam.jmeno)
Pr
righ(tran(soucet/poc_mes,'@Z'),11)
soucet/poc_mes
Sou
righ(tran(soucet,'@Z'),11)
soucet
Leden
righ(tran(kc1,'@Z'),11)
righ(tran(kc2,'@Z'),11)
B
righ(tran(kc3,'@Z'),11)
Duben
righ(tran(kc4,'@Z'),11)
Kv
righ(tran(kc5,'@Z'),11)
erven
righ(tran(kc6,'@Z'),11)
ervenec
righ(tran(kc7,'@Z'),11)
Srpen
righ(tran(kc8,'@Z'),11)
Z
righ(tran(kc9,'@Z'),11)
righ(tran(kc10,'@Z'),11)
Listopad
righ(tran(kc11,'@Z'),11)
Prosinec
righ(tran(kc12,'@Z'),11)
M_PARAM
,mW_PODNIK
oFIRMA
n(i)W_ROK
of('HLASKA
,a6W_RR_N
no,W_MM_N
menPOC_MES
=A6_MZDY
l(OSC
PrM6_ZAM
menA6_ZAM
gh(M6_DM
ucetDM
_mes,'@C6_MZDY
)="souKC2
oc_mesKC3
i = iKC4
ahl(i)KC5
Sou
jmeno(KC7
igh(trKC8
ucet,'KC9
)="soKC11
iKC12
zahSOUCET
PRUMER
_MZDY
igPOCET
kc1,POCETC
TYP_MZDY
MESIC
)=PROCENTA
POLEX
RAMECEK
tuNAZEVT
ndiRIIS
f w_RTOP
RBOT
o hlaCLEFT
h 'CCRIGHT
nFREEZE
dif
rok = wF7
n and wF9
F9PRG
s = F10
n - 1
F10_JM
pF10PRG
12PROCX
ZAHL
useJMENO
y orHODN
useMOD_PSV
rdOBSAH
asy st
edisek
Tisk p
ehledu
Konec
mod_psv
mod_lib
mod_lib
Prob
tisk ...
mod_lib
mod66d
mod66d
,mW_TISK
oTISK
(i)MOD_PSV
('P_SETUP
a6P_RESET
o,P_6LPI
menP_8LPI
=P_10CPI
l(P_12CPI
PrP_16CPI
enP_20CPI
h(P_BOLDON
tP_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
sP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
o(P_SUBOFF
rP_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
iP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
MOD_LIB
INDIK
NASTAV_PRNZAZT
OBRT
tuNASTAV_REPMOD66D
POCET
,mPOCETC
colorz
datez
german
m_dgrpop
c_PopGr
c_PopGr
Vyvoj hrube mzdy F
Mesic
RIIS 6.6
SoWA
Castka
dgrpop
m_dgrdat
c_DatGr
c_DatGr
c_DatGr
Leden
c_DatGr
c_DatGr
Brezen
c_DatGr
Duben
c_DatGr
Kveten
c_DatGr
Cerven
c_DatGr
Cervenec
c_DatGr
Srpen
c_DatGr
c_DatGr
Rijen
c_DatGr
Listopad
c_DatGr
Prosinec
dgrdat
mm_dgr2d
!&mmgr 1 6306270498 2
set color to &m_color
set date to &M_dat
ST_ZAZK
,mOBRGR
oM_COLOR
i)M_DAT
('GERMAN
a6M_DGRPOP
,C_POPGR
enWTEXT3
=W_ROK
l(PODNADPIS
enPOPIS_X
h(DRUH
tYMIN
POPIS_N
FFNAZEV
sPRVNI
TRETI
CTVRTY
OFFDRUHY
o(POPIS_Y
DGRPOP
M_DGRDAT
FC_DATGR
ALC6_MZDY
FFKC2
DT_ON
DT_OFFKC4
IG_ON
IG_OFFKC6
WPAGE
V_PRNKC11
KC12
tuSKC2
V_REPSKC3
w_SKC4
SKC5
o hlaSKC6
h 'CSKC7
nSKC8
SKC9
SKC10
SKC11
eSKC12
iNOR_Y
= wY
PIS_X
wDGRDAT
MM_DGR2D
MMGR
pTISK_SEZ
PROCENTA
PROC_GRAF
X:\OBEC\06\
MOD66E.FXP
X:\OBEC\06\MOD66E.PRG