home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S713C.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-01-05
|
10KB
|
306 lines
mod_lib
m_param
r7_stav
r7_ucet
r7_ucet
r7_stav
zmeny
n a s t a v
Funkce
Funkce
s713c
RIIS 7.1
. stav roku
str(p_s_r,16,2)
p_s_r
statek roku
str(k_s_r,16,2)
k_s_r
Rozd
str(k_s_r-p_s_r,16,2)
(k_s_r-p_s_r)
Procento
iif( (p_s_r=0 and k_s_r # 0), '**********', str(procento,10,2) )
procento
nazev
nazev
P_SETUP
0,P_RESET
dnP_6LPI
c_tP_8LPI
od_P_10CPI
seP_12CPI
ahP_16CPI
dnP_20CPI
meP_BOLDON
P_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
*P_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
--P_SUBOFF
-P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
ihP_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
P_KODY
robMOD_LIB
acM_PARAM
W_PODNIK
nPODNIK
=reR7_STAV
toUCET
ct suR7_UCET
y.NAZEV
aP_S_R
m(K_S_R
_rROZDIL
r,PROCENTO
aW_ROK_VYB
ZMENY
VYPOCET
ozHLASKA
0NAZEVT
asPOLEX
FREEZE
menF1
to dbf F2
et grouF3
soucetF6
scaF9
do casF10
casF10_JM
0 aF10PRG
F9KEY
vyRAMECEK
(PROCX
_s_rOBRZ
r )*(KLICF
KLICR
_s_rKLICV
k_s_RIIS
NADPIS
t =LEVA
s_r-pPRAVA
_s_rHOR
case pZAHL
JMENO
vypHODN
0.00I
erwiMOD_PSV
OBSAH
Rekapitulace t
ty za syntetick
Konec
VOL11
0,OBR10
c_tS713C2
od_S713C3
sePS_RETURN
kumulace dat ...
zmeny
soucet
RIIS 7.1
n a s t a v
tisk_rek
s713c
Rekapitulace
iif(trida='C','Celkem ','T
da '+trida)
Po
. stav roku
str(p_s_r,17,2)
p_s_r
Z
statek roku
str(k_s_r,17,2)
k_s_r
Rozd
str(rozdil,17,2)
rozdil
Procento
iif((p_s_r=0 and k_s_r#0), '**********', str(proc_tr,10,2) )
proc_tr
0,MOD_SYS
dnMESS
c_tZAZN
od_ZMENY
seUCET
TRIDA
dnP_S_R
meK_S_R
ROZDIL
PROC_TR
SOUCET
OFFVYPOCET
*HLASKA
PS_RETURN
OFF_B
UBOFF
BST_ON
POLEX
FFPROCX
QUALRTOP
ihRBOT
P_OFFCLEFT
CRIGHT
OFFFREEZE
ORDER
_OFFZAHL
JMENO
robHODN
acTITLE
TITLECOLORF1
=reF2
ct suF4
_rF10
r,DETAIL
eF1PRG
aF4_JM
F4PRG
F7_JM
ozF7PRG
0F9KEY
asF10_JM
F10PRG
menDET_JM
bf DETPRG
rouRAMECEK
seNAZEVT
cetRIIS
scaTISKPRG
asCARA
casPOC0
0 aF5
vyOBRZ
(KLICF
_s_rKLICR
)*(KLICV
NADPIS
s_rLEVA
k_s_PRAVA
HOR
t =DOL
s_r-pI
s_rMOD_PSV
OBSAH
kumulace dat ...
zmeny
soucet
tisk_srek
s713c
RIIS 7.1
n a s t a v
Rekapitulace syntetick
iif(su3='C','Celkem ','SU '+su3)
Po
. stav roku
str(p_s_r,17,2)
p_s_r
Z
statek roku
str(k_s_r,17,2)
k_s_r
Rozd
str(rozdil,17,2)
rozdil
Procento
iif( (p_s_r=0 and k_s_r#0), '**********', str(proc_tr,10,2) )
proc_tr
MOD_SYS
0,MESS
dnANSI
c_tZAZN
od_ZMENY
seUCET
dnP_S_R
meK_S_R
ROZDIL
PROC_TR
SOUCET
OFFVYPOCET
*HLASKA
PS_RETURN
OFF_B
UBOFF
BST_ON
POLEX
FFPROCX
QUALRTOP
ihRBOT
P_OFFCLEFT
CRIGHT
OFFFREEZE
ORDER
_OFFZAHL
JMENO
robHODN
acTITLE
TITLECOLORF1
=reF2
ct suF4
_rF10
r,DETAIL
eF1PRG
aF4_JM
F4PRG
F7_JM
ozF7PRG
0F9KEY
asF10_JM
F10PRG
menDET_JM
bf DETPRG
rouRAMECEK
seNAZEVT
cetRIIS
scaTISKPRG
asCARA
casPOC0
0 aF5
vyOBRZ
(KLICF
_s_rKLICR
)*(KLICV
NADPIS
_rLEVA
k_s_PRAVA
HOR
t =DOL
s_r-pI
s_rMOD_PSV
OBSAH
mod_lib
Prob
tisk ...
s713c1
0,W_TISK
dnNASTAV_PRNMOD_LIB
d_OBRT
seMESS
S713C1
mod_lib
Prob
tisk ...
s713c2
0,W_TISK
dnNASTAV_PRNMOD_LIB
d_OBRT
seMESS
S713C2
COLORz
0,HCOLOR
dnHOBR
V_PRNFUNKCE
S713C2
----#
S713C3
TISK_REK
TISK_SREK
HLASKA
W:\07\
S713C.FXP
W:\07\S713C.PRG