home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S778.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-15
|
38KB
|
1,039 lines
m_param
m_param
RIIS 7.8
FFFF$m^
Prob
prava dat ...
sum_mnu
Zadejte invent.
|...........
tsk_maj
detail
Detail
incis = w_incis .and.
e t n
o d p i s y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_od
o v
o d p i s y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_od
s t k y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
b y t k y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
e t n
o d p o
t y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_ef
o v
o d p o
t y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_ef
R e k o n s t r u k c e majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_r
P r o d e j majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_u
e v o d y majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
right(str(year(obdobi)), 4) = w_obdn .and. kod = p_kod
incis tag incis
s778_s
l e n
majetku za :
right(str(year(obdobi)), 4) = w_obdn .and. (kod = "W" .or. kod = "X")
right(str(year(obdobi)), 4) = w_obdn .and. (kod = "W" .or. kod = "X")
dtos(obdobi) tag obdobi
s778_wx
S o u h r n pohyb
majetku za :
right(str(year(obdobi)), 4) = w_obdn
right(str(year(obdobi)), 4) = w_obdn
incis tag incis
s778_vse
RIIS 7.8
a7_mmaj
incis
m7_mmaj
incis
c7_smaj
c7_smaj
PRIZNAK
m7_modp
incis
cmaj_pom
c7_smaj
set filter to &w_pdm1
soubor !
Invent.
cmaj_pom.incis
cmaj_pom.incis
cmaj_pom.priznak
cmaj_pom.priznak
cmaj_pom.nazev
cmaj_pom.nazev
cmaj_pom.str
cmaj_pom.str
' '+cmaj_pom.trida+' '
cmaj_pom.trida
Odp.skup.
' '+cmaj_pom.o_sk+' '
cmaj_pom.o_sk
Pol.skup.
' '+cmaj_pom.pol+' '
cmaj_pom.pol
W_ZAV
M_PARAM
tW_UPLNY
4POLE7
OBW_OBDN
W_OBDS
OBW_RET
DATUM
ITMOD_SYS
lMESS
POLEX
lPROCX
RTOP
RBOT
CLEFT
sCRIGHT
_FREEZE
ORDER
PRAVA
OLORNADPIS
LORZAHL
JMENO
RHODN
SOUC
fPSOUC
oTITLE
TITLECOLORPOC0
ECOLORF1
OLORF4
F0PRG
F1ON
jF1PRG
7_F4_JM
staF4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
mF9KEY
mF9KEY1
oF10_JM
aj.F10PRG
RAMECEK
RIIS
NAZEVT
atKLICO
,daKLNAZ
,m7SPACEBAR
iTR_HL1
j.uTR_HL2
TR_HL3
TR_HL4
TR_HL5
mTR_HL6
TR_HL7
TR_HL8
ORTR_HL9
ORDET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
P_KOD
teW_PDM
W_PDM1
diW_PDM2
W_PDM3
W_POLEX
uoW_FREEZ
29W_PRN
rizA7_MMAJ
orINCIS
M7_MMAJ
C7_SMAJ
nsW_DIM
m7FIELD_NAMEFIELD_TYPEFIELD_LEN
FIELD_DEC
M7_MODP
CMAJ_POM
W_VETA
mMAJ_POH
raMAJ_OST
.zHLASKA
MOD_PSV
RIIS 7.7
Zadejte obdob
pro z
(RRRR):
te obdob
, pros
W_OBDN
W_RET
tHLASKA
Majetek "F
" nem
pohyby.
Prob
prava dat ...
Invent.
Pohyby polo
RIIS 7.8
index on &w_pdm3
RIIS 7.8
PRIZNAK
HLASKA
tINCIS
4W1_ZAZ
W1_OBR
OBMOD_SYS
OBW_INCIS
W_LINE
ITPS_LINE
lW_NAZT
NAZEVT
lW_NAZDET
CMAJ_POM
NAZEV
POLEX
sPROCX
_RTOP
CLEFT
fCRIGHT
FREEZE
ORDER
OLORHOR
LORDOL
LEVA
RPRAVA
NADPIS
fZAHL
oJMENO
COLORSOUC
PSOUC
OLORTITLE
TITLECOLORPOC0
OLORF0
7_F10
staF0PRG
F1PRG
F4_JM
F4PRG
mTISKPRG
mF7_JM
oF7PRG
aj.F9PRG
F9KEY
F9KEY1
F10_JM
atF10PRG
,daRAMECEK
m7RIIS
iKLICO
j.uKLNAZ
SPACEBAR
TR_HL1
TR_HL2
mTR_HL3
TR_HL4
TR_HL5
ORTR_HL6
ORTR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_RETURN
PS_ZAZN
DET_DATA
RW_PDM
diW_PDM2
CODP_POM
W_POLEX
oW_FREEZ
29POLE
rizMOD_PSV
Obdob
dtoc(codp_pom.obdobi)
codp_pom.obdobi
' '+codp_pom.str_s
codp_pom.str_s
' '+codp_pom.str_n
codp_pom.str_n
Po
str(codp_pom.poriz,12,2)
codp_pom.poriz
Opr
str(codp_pom.oprav,12,2)
codp_pom.oprav
Z
statek
str(codp_pom.zusta,12,2)
codp_pom.zusta
Odpis
str(codp_pom.odpis,12,2)
codp_pom.odpis
Rekonstrukce
str(codp_pom.cporiz,12,2)
codp_pom.cporiz
Prodej
str(codp_pom.cporiz,12,2)
codp_pom.cporiz
Odpo
str(codp_pom.coprav,12,2)
codp_pom.coprav
Skut.odpis
str(codp_pom.coprav,12,2)
codp_pom.coprav
Sk.o.
' '+codp_pom.skuod+' '
codp_pom.skuod
% odp.
' '+str(codp_pom.prood,5,2)
codp_pom.prood
D.odp.
str(codp_pom.delod,4)+' '
codp_pom.delod
Obdob
dtoc(codp_pom.obdobi)
codp_pom.obdobi
' '+codp_pom.kod+' '
codp_pom.kod
codp_pom.str_s
codp_pom.str_s
str(codp_pom.poriz+codp_pom.cporiz,12,2)
codp_pom.poriz+codp_pom.cporiz
st.vy
str(codp_pom.cporiz,12,2)
codp_pom.cporiz
z.-nov.
str(codp_pom.poriz,12,2)
codp_pom.poriz
str(codp_pom.oprav+codp_pom.coprav,12,2)
codp_pom.oprav+codp_pom.coprav
na opr
str(codp_pom.coprav,12,2)
codp_pom.coprav
v.-nov.
str(codp_pom.oprav,12,2)
codp_pom.oprav
stat.-p
str((codp_pom.poriz+codp_pom.cporiz)-(codp_pom.oprav+codp_pom.coprav),12,2)
(codp_pom.poriz+codp_pom.cporiz)-(codp_pom.oprav+codp_pom.coprav)
stat.-nov.
str(codp_pom.zusta,12,2)
codp_pom.zusta
Odpis
str(codp_pom.odpis,12,2)
codp_pom.odpis
Sk.o.
' '+codp_pom.skuod+' '
codp_pom.skuod
% odp.
' '+str(codp_pom.prood,5,2)
codp_pom.prood
D.odp.
str(codp_pom.delod,4)
codp_pom.delod
Obdob
dtoc(codp_pom.obdobi)
codp_pom.obdobi
' '+codp_pom.kod+' '
codp_pom.kod
codp_pom.str_s
codp_pom.str_s
Po
str(codp_pom.poriz,12,2)
codp_pom.poriz
Opr
str(codp_pom.oprav,12,2)
codp_pom.oprav
Z
statek
str(codp_pom.zusta,12,2)
codp_pom.zusta
n.Odpis
str(codp_pom.odpis,12,2)
codp_pom.odpis
Skut.odpis
str(iif(codp_pom.kod='O'.or.codp_pom.kod='D',codp_pom.coprav,0),12,2)
iif(codp_pom.kod='O'.or.codp_pom.kod='D',codp_pom.coprav,0)
Rekonstrukce
str(iif(codp_pom.kod='R',codp_pom.cporiz,0),12,2)
iif(codp_pom.kod='R',codp_pom.cporiz,0)
Prodej
str(iif(codp_pom.kod='U',codp_pom.cporiz,0),12,2)
iif(codp_pom.kod='U',codp_pom.cporiz,0)
Odpo
str(iif(codp_pom.kod='E'.or.codp_pom.kod='F',codp_pom.coprav,0),12,2)
iif(codp_pom.kod='E'.or.codp_pom.kod='F',codp_pom.coprav,0)
Sk.o.
' '+codp_pom.skuod+' '
codp_pom.skuod
% odp.
' '+str(codp_pom.prood,5,2)
codp_pom.prood
D.odp.
str(codp_pom.delod,4)+' '
codp_pom.delod
iif(codp_pom.kod='S',' '+codp_pom.str_n+' ',' ')
iif(codp_pom.kod='S',codp_pom.str_n,' ')
Dat_akt
tran(codp_pom.datum,'@E')
(codp_pom.datum )
Zapsal
codp_pom.zapsal
codp_pom.zapsal
JMENO
tHODN
4SOUC
P_KOD
copy to codp_pom for &wp_pdm1 &wp_pdm2
codp_pom
WP_PDM1
WP_PDM2
tM7_MODP
4CODP_POM
RIIS 7.8
FFFF$m^
Prob
prava dat ...
souc_skup
Zadejte da
ovou skupinu a proc.odpisu:
|.|....
ehled dle da
skupiny a procenta odpisu
Odpis da
dle skupin
o v
o d p i s y majetku dle skupin za:
RIIS 7.8
a7_mmaj
incis
m7_mmaj
incis
c7_smaj
c7_smaj
m7_modp
incis
c7_sodp
c7_sodp
c7_smaj
NAZEV
TRIDA
codp_pom
c7_sodp
codp_pom
m7_mmaj
a7_mmaj
*************************
.skup
codp_pom.skuod+' '
codp_pom.skuod
% odp
' '+substr(str(codp_pom.prood,5,2),2,1)+' '
codp_pom.prood
Invent.
codp_pom.incis
codp_pom.incis
Obdob
dtoc(codp_pom.obdobi)
codp_pom.obdobi
Po
str(codp_pom.poriz,12,2)
codp_pom.poriz
Opr
str(codp_pom.oprav,12,2)
codp_pom.oprav
Z
statek
str(codp_pom.zusta,12,2)
codp_pom.zusta
n.Odpis
str(codp_pom.odpis,12,2)
codp_pom.odpis
Skut.odpis
str(codp_pom.coprav,12,2)
codp_pom.coprav
' '+codp_pom.trida+' '
codp_pom.trida
D.odp.
str(codp_pom.delod,4)+' '
codp_pom.delod
zev majetku
codp_pom.nazev
codp_pom.nazev
W_OBDN
tW_OBDS
4W_RET
DATUM
OBMOD_SYS
OBPOLEX
PROCX
ITRTOP
lRBOT
CLEFT
lCRIGHT
FREEZE
ORDER
_LEVA
PRAVA
NADPIS
fZAHL
JMENO
HODN
OLORSOUC
LORPSOUC
TITLE
RTITLECOLORPOC0
COLORF3
OLORF6
LECOLORF9
OLORF10
mF0PRG
,mF1ON
rF1PRG
F4_JM
F4PRG
TISKPRG
jF7_JM
7_F7PRG
staF9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
mRAMECEK
mRIIS
oNAZEVT
aj.KLICO
KLNAZ
SPACEBAR
TR_HL1
atTR_HL2
,daTR_HL3
m7TR_HL4
iTR_HL5
j.uTR_HL6
TR_HL7
TR_HL8
TR_HL9
mDET_JM
ENTER
DETAIL
ORDETPRG
ORPS_LINE
PS_RETURN
PS_ZAZN
F8
A7_MMAJ
INCIS
M7_MMAJ
C7_SMAJ
M7_MODP
teC7_SODP
FIELD_NAMECODP_POM
EOBDOBI
KOD
P_KOD
oW_VETA
29W_NAZEV
izNAZEV
orW_TRIDA
TRIDA
SKUOD
sPROOD
m7SKU
NAMEI
YPEMOD_PSV
Za da
skupiny a proc.odpisu
Za da
skupiny
Konec
W1_ZAZ
KONEC
tW1_OBR
4VOLBA
SUMA_V
soubor !
prava dat ...
Odpis da
dle skupin
ty za da
skupiny a proc.odpisu
Zadejte da
ovou skupinu a procenta odpisu:
|.|....
ty za da
skupiny
Zadejte da
ovou skupinu:
RIIS 7.7
Detail
Detail
Funkce
Funkce
pomoc
pomoc
csum_pom
pomoc
pomoc
csum_pom
copy to pomoc for &filt
pomoc
csum_pom
copy to pomoc for &filt
pomoc
csum_pom
D.sku
csum_pom.skuod+' '
csum_pom.skuod
% odp
' '+substr(str(csum_pom.prood,5,2),2,1)+' '
csum_pom.prood
Po
str(csum_pom.poriz,12,2)
csum_pom.poriz
Opr
str(csum_pom.oprav,12,2)
csum_pom.oprav
Z
statek
str(csum_pom.zusta,12,2)
csum_pom.zusta
n.Odpis
str(csum_pom.odpis,12,2)
csum_pom.odpis
Skut.odpis
str(csum_pom.coprav,12,2)
csum_pom.coprav
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
Cel.:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
W2_ZAZ
tHLASKA
4W2_OBR
OBPOLEX
PROCX
OBRTOP
ITCLEFT
lCRIGHT
FREEZE
lORDER
sPRAVA
_NADPIS
JMENO
fHODN
PSOUC
OLORTITLE
LORTITLECOLORPOC0
LECOLORF1
COLORF6
OLORF9
ECOLORF0PRG
OLORF1ON
mF1PRG
,mF4_JM
rF4PRG
TISKPRG
F7_JM
F7PRG
jF9PRG
7_F9KEY
staF9KEY1
F10_JM
F10PRG
RAMECEK
RIIS
mNAZEVT
mKLICO
oKLNAZ
aj.SPACEBAR
TR_HL1
TR_HL2
TR_HL3
atTR_HL4
,daTR_HL5
m7TR_HL6
iTR_HL7
j.uTR_HL8
TR_HL9
DET_JM
ENTER
mDETAIL
DETPRG
PS_LINE
ORPS_RETURN
PS_ZAZN
FILT
POMOC
SKUOD
PROOD
PORIZ
OPRAV
ZUSTA
teODPIS
COPRAV
AMECSUM_POM
UPORIZ
Q_POR
oQ_OPR
29Q_ZUST
izQ_ODPIS
orQ_COPRAV
HELP1
m7MOD_PSV
ECODP_POM
Vyhled
Konec
- Esc
Tisk detailn
ch odpis
Tisk detailn
ch odpis
Tisk p
ehledu
Konec
mod_psv
WT_ZAZ
WT1_OBR
tP_KOD
4W_TISK
TSK_DET
OBTISK
MOD_PSV
Tisk sestavy
Prohl
sestavy
Konec
Prob
prava tisku ...
cpom_tsk
cpom_tsk
m7_mpar
incis
mod_lib
mod_lib
Prob
tisk ...
Prob
tisk do souboru ...
set device to file &m_txt
set printer to &m_txt1
- (^)
ipky,(^)Home,(^)End,PgUp,PgDn
- Esc
Pohyb
Konec
Prohl
sestavy saldokonta
modi comm &m_txt1 noedit window w
WT2_OBR
tFILT
4FILT1
FILT2
OBCAST_C
ZAP_CEL_C
CAST_OBD
ITM_TXT
lM_TXT1
OB101
lVOL5
MESS
W_PORIZ
W_OPRAV
sW_ZUSTA
_CPOM_TSK
DET_DATA
W_PDM2
fCODP_POM
INCIS
P_SETUP
ORP_RESET
ORP_6LPI
LORP_8LPI
RP_10CPI
ORP_12CPI
fP_16CPI
oP_20CPI
P_BOLDON
RP_BOLDOFF
P_ULINEON
P_ULINEOFFP_ITALON
RP_ITALOFF
P_SUPERON
P_SUPEROFFP_SUBON
rP_SUBOFF
P_DBST_ON
P_DBST_OFFP_LETRQUALP_DRAFT
7_P_COMP_OFFP_WIDT_ON
P_WIDT_OFFP_HEIG_ON
P_HEIG_OFFP_NEWPAGE
M7_MPAR
mP_KODY
oMOD_LIB
j.W_TISK
NASTAV_PRNCMAJ_POM
cmaj_pom
cmaj_pom
M7_MODP
PREDCH
tINV_CIS
4INCIS
M7_MMAJ
OBW_VETA
W_DIM
A7_MMAJ
CMAJ_POM
cmaj_pom
cmaj_pom
W_VETA
W_DIM
tM7_MMAJ
4INV_CIS
INCIS
OBCMAJ_POM
W_FND
W_PORIZ
C_PORIZ
tW_OPRAV
4C_OPRAV
W_ZUSTA
OBC_ZUSTA
Za st
ediska
Za st
ediska a t
Za t
dy
Za t
dy a st
ediska
Celkem
Konec
W_SCRMNU
W_OREC
tW_SEQ
4W_MNUSUM
SUM_PRO
BSUM_VYP
SUM_CEL
CMAJ_POM
Prob
prava dat ...
c_vsepoh
incis
cmaj_pom,
C_VSEPOH
tINCIS
TRIDA
BPORIZ
OPRAV
ZUSTA
ODPIS
TPOHYB
lM7_MODP
CMAJ_POM
lOBDOBI
W_OBDN
M7_MMAJ
W_STR
sW_TRIDA
_A7_MMAJ
P_KOD
fCOPRAV
ty za st
ediska
str+trida
ty za st
ediska a t
trida
ty za t
trida+str
ty za t
dy a st
ediska
index on &w_klic tag klic
total on &w_klic to c_pohyby
c_pohyby
index on &w_klic tag klic
sum_cel
RIIS 5.9
c_pohyby.str
c_pohyby.str
c_pohyby.trida
c_pohyby.trida
c_pohyby.str
c_pohyby.str
Po
str(c_pohyby.poriz,13,2)
c_pohyby.poriz
Opr
str(c_pohyby.oprav,13,2)
c_pohyby.oprav
Z
statek
str(c_pohyby.zusta,13,2)
c_pohyby.zusta
Pl
n.Odpis
str(c_pohyby.odpis,13,2)
c_pohyby.odpis
Skut.odpis
str(c_pohyby.pohyb,13,2)
c_pohyby.pohyb
W_NAZEV
NAZEVT
tW_MNUSUM
4W_KLIC
W_FREEZ
BW_TITLE
SUM_VYP
C_POHYBY
W_SCRMNU
TPOLEX
lPROCX
lRBOT
CLEFT
CRIGHT
FREEZE
sORDER
fPRAVA
NADPIS
ZAHL
ORJMENO
ORHODN
LORSOUC
RPSOUC
ORTITLE
fTITLECOLORPOC0
OLDON
OLDOFF
LINEON
LINEOFFF4
TALON
TALOFF
UPERON
UPEROFFF10
rF0PRG
F1PRG
_OFFF4_JM
QUALF4PRG
7_TISKPRG
FFF7_JM
F7PRG
_OFFF9PRG
F9KEY
_OFFF9KEY1
F10_JM
mF10PRG
oRAMECEK
j.RIIS
KLICO
PRNKLNAZ
SPACEBAR
tTR_HL1
aTR_HL2
m7TR_HL3
iTR_HL4
j.uTR_HL5
TR_HL6
TR_HL7
TR_HL8
mTR_HL9
DET_JM
ENTER
ORDETAIL
DETPRG
PS_LINE
ORPS_RETURN
PS_ZAZN
MOD_PSV
colorz
double
et celkem
Esc,^End
Opr
statek:
n.Odpis:
Skut.odpis:
9 999 999 999.99
9 999 999 999.99
9 999 999 999.99
9 999 999 999.99
9 999 999 999.99
W_SCRCEL
W_RECCEL
tW_COLCEL
4W_DOLRAD
PORIZ
BOPRAV
ZUSTA
ODPIS
POHYB
TW_SPORIZ
lW_SOPRAV
W_SZUSTA
lW_SODPIS
W_SPOHYB
MOD_WIN
DATUM
DETAIL
DET_DATA
S778V
SOUC_SKUP
SUMA_V
HELP1
TSK_MAJ
TSK_DET
MAJ_POH
MAJ_OST
SUMA_RPT
SUM_MNU
SUM_VYP
SUM_PRO
SUM_CEL
P:\IN\SK\O\07\
S778.FXP
P:\IN\SK\O\07\S778.PRG