home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S772.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-15
|
43KB
|
873 lines
RIIS 7.8
Aktualizace odpis
german
Prob
aktualizace (2) ...
Prob
aktualizace (1) ...
m7_ucto
m7_mpls
m7_modp
s_modp
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
m7_mpls
Prob
aktualizace (2) ...
m7_modp
s_modp
m7_mpls
GERMAN
M7_UCTO
DAT_PLA
FPLAN_HIM
LM7_MPLS
TP_ROK
OBDOBI
STR_N
SSTR_S
COPRAV
M7_MODP
S_MODP
sPOCET
MPOCETC
_KONST
LOROBDR
S_ODPIS
SUM_COPRAVLEDEN
UCETNI
RUNOR
fBREZEN
RDUBEN
AKVETEN
RCERVEN
CERVENEC
MSRPEN
RIJEN
LISTOPAD
APROSINEC
FDANOVE
RIIS 7.8
Aktualizace pl
novan
ch odpis
german
m7_ucto
Zadejte datum ukon
nov. odpis
V
et je
.
Esc - p
Opravdu prov
et odpis
? (a/n):
ekejte pros
m.
Prob
et pl
novan
ch odpis
...
mod_fun
do chyba with error()
m7_cmaj
incis
Se souborem odpis
se pracuje, nelze po
do moderror with sys(16),error(),lineno(1)
!copy
\data\m7_mmaj.dbf
\data\m7_cmaj.dbf > nul
&prik
!copy
\data\m7_mmaj.cdx
\data\m7_cmaj.cdx > nul
&prik
m7_cmaj
incis
Se souborem odpis
se pracuje, nelze po
do moderror with sys(16),error(),lineno(1)
m7_codp
obdobi
Se souborem odpis
se pracuje, nelze po
do moderror with sys(16),error(),lineno(1)
m7_mpla
do moderror with sys(16),error(),lineno(1)
Se souborem odpis
se pracuje, nelze po
m7_mdta
Aktualizace obdob
... FF
m7_codp
/ / #
m7_codp
/ / #
m7_codp
s_modp
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_mpla
m7_codp
s_modp
m7_mpla
GERMAN
M7_UCTO
DAT_HIM
DATUM_HIM
LP_PLAT_HIMPLAT_HIM
TP_ROK_HIM
ROK_HIM
DAT_HIM2
D_KONEC
KONEC
_MODP
sTXT1
MBLIK
HLASKA
MOD_FUN
MEXIT
LORM7_CMAJ
INCIS
F_ADR
PRAVM7_CODP
OBDOBI
RM7_MPLA
RNAZEV
AOSK_STR
RSKUOD
MSTR_OSK
UZUSTA
ZUSTA
AM7_MDTA
AVS_MDTA
NW_POLE
P_DEL
POCET
RPOCETC
NA_KONST
AKLIC_O
ESSPOC
SSDATZA
FPROK
ZCENA
S_ZAO
UODPIS
USKUOD
RNUPROOD
TRIDA
ORMM_AUTOR
aODPIS
IMPROOD
STR_N
STR_S
S_MODP
ETURN
S_ODPIS
SUM_ODPIS
LEDEN
ORUCETNI
BREZEN
DUBEN
KVETEN
CERVEN
CERVENEC
SRPEN
teZARI
RIJEN
MELISTOPAD
EPROSINEC
DANOVE
mod_psv
MOD_PSV
Celkov
soupis
Po st
edisc
Konec
mod_psv
german
m7_mpar
m7_mpar
incis
NAB_OBR
VOLBA
MOD_PSV
GERMAN
LM7_MPAR
IMINCIS
TM7_MMAJ
MODTESTT
german
set color to b/w
set color to bg/n
set color to w+/w
set color to b/bg,w+/rb
set color to w+/b
set color to w/n
&barvau
m7_mcen
incis
c7_mcen+
c7_mcen
c7_mcen
P_ZINCIS
BARVAS
BARVAR
BARVAZ
BARVAU
LBARVAN
IMBARVAH
TBARVA
KONEC
POCET
D_FUN
_CMAJ
PRAVDOL
ROBR_KAL
fGERMAN
RMENU2
APORADI2
ROK_K
MM7_MCEN
INCIS
C7_MCEN
ACEN_CELK
PROC2
AVZMENY2
NM7_MMAJ
-
- ^PgDn
- ^Home
- ^End,Esc
Pohyb
Konec -
&barvau
&barvau
ZINCIS
DOKLAD
LDATUM
IMCENA
TUCET
&barvau
Skladba po
izovac
ceny
izovac
cena : F
et : F
&barvan
TextF
Doklad
Datum
Pozn.
&barvau
W_POLE
@ x,1 &vloz text
@ x,27 &vloz doklad
@ x,40 &vloz datum pict'@E'
@ x,51 &vloz cena
999999999.99
@ x,64 &vloz ucet
@ x,71 &vloz pozn
CEN_CELK
_CELK
999999999.99
mod_fun
999999999.99
CEN_CELK
KONEC
IMDOL
_CELK
PROC2
ZMEN2
sMM_VER
MMM_LK
ROZHODNI
MOD_FUN
KONTROLA2
ZAP_CEN
NTROLA2
POCET
PRAVCENA
ZMENA
RINCIS
fP_ZINCIS
m7_mcen
M7_MCEN
P_ZINCIS
INCIS
C7_MCEN
Nelze spustit p
et, se souborem se pracuje !
do moderror with sys(16),error(),lineno(1)
HLASKA
MEXIT
MODERROR
prava dat ...
m7_mpls
ty proveden
ch odpis
majetku
m7_mpla
ty pl
novan
ch odpis
majetku
RIIS 7.8
Zadejte rok, t
., st
|...|.|...
det_rt
' '+tr+' '
Leden
str(leden,12,2)
leden
str(unor,12,2)
B
str(brezen,12,2)
brezen
Duben
str(duben,12,2)
duben
Kv
str(kveten,12,2)
kveten
erven
str(cerven,12,2)
cerven
ervenec
str(cervenec,12,2)
cervenec
Srpen
str(srpen,12,2)
srpen
Z
str(zari,12,2)
str(rijen,12,2)
rijen
Listopad
str(listopad,12,2)
listopad
Prosinec
str(prosinec,12,2)
prosinec
Celk.
.odpis
str(ucetni,13,2)
ucetni
odpis
str(danove,12,2)
danove
POLEX
PROCX
LCLEFT
IMCRIGHT
TFREEZE
ORDER
PRAVA
NADPIS
JMENO
sHODN
MSOUC
TITLE
TITLECOLORPOC0
TROLA2
PRAVF4
INCIS
AF0PRG
F1PRG
MF4_JM
F4PRG
TISKPRG
F7_JM
AF7PRG
F9PRG
AVF9KEY
NF9KEY1
F10_JM
F10PRG
RRAMECEK
NARIIS
ANAZEVT
KLICO
ESSKLNAZ
SSSPACEBAR
FTR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
RNTR_HL7
TR_HL8
ORTR_HL9
aDET_JM
IMENTER
iDETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
DRUHO
M7_MPLS
M7_MPLA
MOD_PSV
ORN
prava dat ...
m7_cmaj
incis
m7_codp
obdobi
novan
odpisy
RIIS 7.8
Obdob
tran(m7_codp.obdobi,'@E')
(m7_codp.obdobi)
Inven.
' '+m7_cmaj.incis
m7_cmaj.incis
m7_codp.kod
m7_codp.kod
' '+m7_cmaj.trida+' '
m7_cmaj.trida
Po
str(m7_codp.poriz,12,2)
m7_codp.poriz
Opr
str(m7_codp.oprav,12,2)
m7_codp.oprav
Z
statek
str(m7_codp.zusta,12,2)
m7_codp.zusta
Odpis
str(m7_codp.odpis,12,2)
m7_codp.odpis
Sk.o.
' '+m7_codp.skuod+' '
m7_codp.skuod
Pr.o.
str(m7_codp.prood,5,2)
m7_codp.prood
m7_cmaj.nazev
m7_cmaj.nazev
' '+str(m7_codp.delod,4)+' '
m7_codp.delod
m7_codp.str_s
m7_codp.str_s
POLEX
PROCX
LCLEFT
IMCRIGHT
TFREEZE
ORDER
PRAVA
NADPIS
JMENO
sHODN
MSOUC
TITLE
TITLECOLORPOC0
TROLA2
PRAVF4
INCIS
AF0PRG
F1PRG
MF4_JM
F4PRG
TISKPRG
F7_JM
AF7PRG
F9PRG
AVF9KEY
NF9KEY1
F10_JM
F10PRG
RRAMECEK
NARIIS
ANAZEVT
KLICO
ESSKLNAZ
SSSPACEBAR
FTR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
RNTR_HL7
TR_HL8
ORTR_HL9
aDET_JM
IMENTER
iDETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
M7_CMAJ
INCIS
M7_CODP
OBDOBI
MOD_PSV
prava dat ...
m7_mpla
ty majetku celkem
RIIS 7.8
' '+m7_mpla.rok
m7_mpla.rok
' '+m7_mpla.tr+' '
m7_mpla.tr
' '+m7_mpla.str
m7_mpla.str
str(m7_mpla.ucetni,14,2)
m7_mpla.ucetni
Da
str(m7_mpla.danove,14,2)
m7_mpla.danove
POLEX
PROCX
LCLEFT
IMCRIGHT
TFREEZE
ORDER
PRAVA
NADPIS
JMENO
sHODN
MSOUC
TITLE
TITLECOLORPOC0
TROLA2
PRAVF4
INCIS
AF0PRG
F1PRG
MF4_JM
F4PRG
TISKPRG
F7_JM
AF7PRG
F9PRG
AVF9KEY
NF9KEY1
F10_JM
F10PRG
RRAMECEK
NARIIS
ANAZEVT
KLICO
ESSKLNAZ
SSSPACEBAR
FTR_HL1
TR_HL2
TR_HL3
TR_HL4
TR_HL5
TR_HL6
RNTR_HL7
TR_HL8
ORTR_HL9
aDET_JM
IMENTER
iDETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
M7_MPLA
MOD_PSV
m7_mmaj
incis
Nebyly nalezeny
znamy.
odeps_sum
Odepsanost investi
ho majetku
RIIS 7
Invent.
incis
ltrim(incis)+space(12-len(ltrim(incis)))
nazev
nazev
%odep.
str(uoprav/uporiz*100,7,2)
uoprav/uporiz*100
%odep.D
str(oprav/poriz*100,7,2)
oprav/poriz*100
iz.hodn.
str(uporiz,12,2)
uporiz
Opr
str(uoprav,12,2)
uoprav
Opr
vky D
str(oprav,12,2)
oprav
' '+trida
trida
obor_skut
obor_skut
Odp.sk.
' '+o_sk+' '
Pol.sk.
' '+pol+' '
Dat.po
' '+transform(datpor,'@E')+' '
datza
Odp.sk.
' '+uskuod+' '
uskuod
%odp.
str(uprood,6,2)
uprood
Odp.sk.D
' '+skuod+' '
skuod
%odp.D
' '+prood+' '
prood
Dat.za
' '+transform(datza,'@E')+' '
datza
M7_MMAJ
INCIS
HLASKA
POLEX
PROCX
LRTOP
IMRBOT
TCLEFT
CRIGHT
FREEZE
ORDER
LEVA
PRAVA
NADPIS
sZAHL
MJMENO
COLORPSOUC
TITLE
TITLECOLORPOC0
PRAVF1
INCIS
MF0PRG
F1PRG
F4_JM
AF4PRG
TISKPRG
AVF7_JM
NF7PRG
F9PRG
F9KEY
RF9KEY1
NAF10_JM
AF10PRG
RAMECEK
SSRIIS
SSNAZEVT
FKLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TR_HL3
RNTR_HL4
TR_HL5
ORTR_HL6
aTR_HL7
IMTR_HL8
iTR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
ORMOD_PSV
colorz
sum all uporiz, uoprav, oprav to w_uporiz, w_uoprav, w_oprav for &w_filt
double
Celkov
Esc,^End
iz.hodn.: K
: K
vky D : K
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
W_SCR
W_OREC
W_COLOR
W_FILT
UPORIZ
LUOPRAV
IMOPRAV
TW_UPORIZ
W_UOPRAV
W_OPRAV
MOD_WIN
prava dat ...
c_det
c_det
ty proveden
ch odpis
majetku
ty pl
novan
ch odpis
majetku
RIIS 7.8
Zadejte rok, t
., st
|...|.
' '+tr+' '
Leden
str(leden,12,2)
leden
str(unor,12,2)
B
str(brezen,12,2)
brezen
Duben
str(duben,12,2)
duben
Kv
str(kveten,12,2)
kveten
erven
str(cerven,12,2)
cerven
ervenec
str(cervenec,12,2)
cervenec
Srpen
str(srpen,12,2)
srpen
Z
str(zari,12,2)
str(rijen,12,2)
rijen
Listopad
str(listopad,12,2)
listopad
Prosinec
str(prosinec,12,2)
prosinec
Celk.
.odpis
str(ucetni,13,2)
ucetni
odpis
str(danove,12,2)
danove
W_OREC
W_SCRDET
C_DET
IMPOLEX
TPROCX
CLEFT
CRIGHT
FREEZE
ORDER
sLEVA
MPRAVA
NADPIS
COLORJMENO
COLORPSOUC
TITLE
PRAVTITLECOLORPOC0
INCIS
F0PRG
AF1ON
F1PRG
AVF4_JM
NF4PRG
TISKPRG
F7_JM
RF7PRG
NAF9PRG
AF9KEY
F9KEY1
SSF10_JM
SSF10PRG
FRAMECEK
NAZEVT
KLICO
KLNAZ
SPACEBAR
NTR_HL1
TR_HL2
ORTR_HL3
aTR_HL4
IMTR_HL5
iTR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
ORDRUHO
MOD_PSV
M7_MPLS
M7_MPLA
S772O
TIS_SEZN
TISK_SEZ
SKLAD_CENY
MENU2
PROC2
PORADI2
ZMEN2
KONTROLA2
ZMENY2
ZAP_CEN
CHYBA
SUMAODPISU
PLANODPIS
SOUCMAJCEL
ODEPS
ODEPS_SUM
DET_RT
P:\IN\SK\O\07\
S772.FXP
P:\IN\SK\O\07\S772.PRG