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