select a.*, b.trida, b.nazev from m7_modp a, m7_mmaj b into dbf c7_mmaj where a.incis = b.incis and &w_pdm and right(str(year(obdobi), 4), 2) = right(W_obdN, 2) and month(obdobi) = val(left(W_obdN, 2))
select a.*, b.trida, b.nazev from m7_modp a, a7_mmaj b into dbf c_mmaj where a.incis = b.incis and &w_pdm and right(str(year(obdobi), 4), 2) = right(W_obdN, 2) and month(obdobi) = val(left(W_obdN, 2)) and a.incis not in (select incis from c7_mmaj)
c_mmaj
select a.* from m7_modp a into dbf c6_mmaj where &w_pdm and right(str(year(obdobi), 4), 2) = right(W_obdN, 2) and month(obdobi) = val(left(W_obdN, 2)) and a.incis not in (select incis from c7_mmaj)
c6_mmaj
*************************
Invent.
incis
incis
' '+kod+' '
' '+str_n
str_n
' '+trida+' '
trida
str_s
str_s
str(poriz+cporiz,12,2)
poriz+cporiz
st.vy
str(cporiz,12,2)
cporiz
Po
str(poriz,12,2)
poriz
str(oprav+coprav,12,2)
oprav+coprav
na opr
str(coprav,12,2)
coprav
Opr
str(oprav,12,2)
oprav
stat.-p
str((poriz+cporiz)-(oprav+coprav),12,2)
(poriz+cporiz)-(oprav+coprav)
Z
statek
str(zusta,12,2)
zusta
Odpis
str(odpis,12,2)
odpis
Skut.odpis
str(coprav,12,2)
coprav
Rekonstrukce
str(cporiz,12,2)
cporiz
Prodej
str(cporiz,12,2)
cporiz
Odpo
str(coprav,12,2)
coprav
Sk.o.
' '+skuod+' '
skuod
% odp.
' '+str(prood,5,2)
prood
D.odp.
str(delod,4)+' '
delod
nazev
nazev
Obdob
dtoc(obdobi)
obdobi
GERMAN
W_OBDN
tW_OBDS
4M_PARAM
W_IDORG
ID_ORG
M7_UCTO
PLAT_OBDOB_PDA
BRITISH
lANSI
PDA
HLASKA
sMOD_SYS
_POLEX
PROCX
fRBOT
CLEFT
CRIGHT
LORFREEZE
ORDER
LEVA
fPRAVA
oNADPIS
JMENO
SOUC
TITLE
tTITLECOLORPOC0
staF10
F0PRG
F1ON
F1PRG
F4_JM
mF4PRG
d,mTISKPRG
oF7_JM
aj.F7PRG
F9PRG
F9KEY
F9KEY1
datF10_JM
,daF10PRG
,m7RAMECEK
riRIIS
j.uNAZEVT
KLICO
KLNAZ
SPACEBAR
mTR_HL1
TR_HL2
trTR_HL3
5),TR_HL4
'TR_HL5
TR_HL6
TR_HL7
TR_HL8
TR_HL9
DET_JM
', ENTER
DETAIL
DETPRG
PS_LINE
tePS_RETURN
PS_ZAZN
endiF8
P_KOD
MESS
uoM7_MMAJ
29INCIS
orizM7_MODP
orW_PDM
C7_MMAJ
C_MMAJ
nsC6_MMAJ
m7TRIDA
alueNAZEV
maj.I
_mmMOD_PSV
za st
edisko a t
za st
edisko
za t
du a st
edisko
za t
celkem
za st
ed.(EUTIT)
Konec
Konec
KONEC
tNAB_OBR
4W_IDORG
VOLBA
SUMACE
SOUC_X
SUMA_EUTIT
soubor !
ty za st
ediska a t
Zadejte st
edisko a t
|...|
ty za st
ediska
Zadejte st
edisko:
ty za t
dy a st
ediska
Zadejte t
du a st
edisko:
||...
ty za t
Zadejte t
RIIS 7.7
trida
str_s
Detail
Detail
Funkce
Funkce
prava dat ...
pomoc
pomoc
c_mmaj
pomoc
pomoc
c_mmaj
pomoc
pomoc
c_mmaj
pomoc
pomoc
c_mmaj
copy to pomoc for &filt
pomoc
c_mmaj
copy to pomoc for &filt
pomoc
c_mmaj
copy to pomoc for &filt
pomoc
c_mmaj
copy to pomoc for &filt
pomoc
c_mmaj
str_s+' '
str_s
' '+trida+' '
trida
' '+trida+' '
trida
str_s+' '
str_s
' '+trida+' '
trida
Po
str(poriz,12,2)
poriz
Opr
str(oprav,12,2)
oprav
Z
statek
str(zusta,12,2)
zusta
Odpis
str(odpis,12,2)
odpis
Rekonstrukce
Prodej
str(cporiz,12,2)
cporiz
Odpo
str(coprav,12,2)
coprav
Skut.odpis
str(coprav,12,2)
coprav
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
9999999999.99
Celkem:
9999999999.99
9999999999.99
9999999999.99
9999999999.99
tHLASKA
4XNAZEV
NAZEVT
POLEX
PROCX
RTOP
EUTITCLEFT
lCRIGHT
FREEZE
lORDER
DOL
sPRAVA
_NADPIS
JMENO
fHODN
TITLE
LORTITLECOLORPOC0
F0PRG
tF1ON
COLORF1PRG
mF4_JM
,mF4PRG
rTISKPRG
F7_JM
F7PRG
F9PRG
jF9KEY
7_F9KEY1
staF10_JM
F10PRG
RAMECEK
RIIS
KLICO
mKLNAZ
d,mSPACEBAR
oTR_HL1
aj.TR_HL2
TR_HL3
TR_HL4
TR_HL5
datTR_HL6
,daTR_HL7
,m7TR_HL8
riTR_HL9
j.uDET_JM
ENTER
DETAIL
DETPRG
mPS_LINE
PS_RETURN
PS_ZAZN
),TRI
ORP_KOD
O01
MESS
FILT
', POMOC
STR_S
TRIDA
PORIZ
teOPRAV
ZUSTA
ODPIS
endiCPORIZ
COPRAV
C_MMAJ
uoSTR
29Q_POR
rizQ_OPR
orQ_ZUST
Q_ODPIS
C_PORIZ
nsC_OPRAV
alueHELP
maj.M
_mmMOD_PSV
C7_MMAJ
Vyhled
Konec
- Esc
colorz
double
Celkov
Celkov
ty - v
Esc,^End
: K
vky : K
statek : K
Odpis : K
Rekonstrukce: K
Prodej : K
et : K
Skut.odpis : K
sum all poriz, oprav, zusta, odpis, cporiz, coprav to sum_1, sum_2, sum_3, sum_4, sum_5, sum_6 for &filt
RIIS 7.5
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
999,999,999,999.99
SCRQ1
MOD_SYS
tFILT
4AREC
M_COL
MOD_WIN
P_KOD
PORIZ
OPRAV
UTITZUSTA
lODPIS
CPORIZ
lCOPRAV
SUM_1
SUM_2
SUM_3
sSUM_4
_SUM_5
SUM_6
british
german
RIIS 7.8
m7_ucto
FFFF$m
RIIS 7.5
british
Zadejte obdob
pro v
r (MM/RRRR):
XX/XXXX
vypln
te obdob
, pros
Funkce
fun_so
souc_z
S o u h r n m a j e t k u
S o u h r n m a j e t k u z a :
RIIS 7.8
prava dat ...
m7_mmaj
incis
m7_modp
incis
m7_modp
m7_mmaj
c7_mmaj
m7_modp
a7_mmaj
c7_mmaj
c_mmaj
c_mmaj
m7_modp
c7_mmaj
c6_mmaj
c6_mmaj
*************************
Invent.
incis
incis
' '+kod+' '
' '+trida+' '
trida
str_s
str_s
Po
str(poriz,12,2)
poriz
Opr
str(oprav,12,2)
oprav
Z
statek
str(zusta,12,2)
zusta
Odpis
str(odpis,12,2)
odpis
Skut.odpis
str(iif(kod='O'.or.kod='D',coprav,0),12,2)
iif(kod='O'.or.kod='D',coprav,0)
Rekonstrukce
str(iif(kod='R',cporiz,0),12,2)
iif(kod='R',cporiz,0)
Prodej
str(iif(kod='U',cporiz,0),12,2)
iif(kod='U',coprav,0)
Odpo
str(iif(kod='E'.or.kod='F',coprav,0),12,2)
iif(kod='E'.or.kod='F',coprav,0)
Sk.o.
' '+skuod+' '
skuod
% odp.
' '+str(prood,5,2)
prood
D.odp.
str(delod,4)+' '
delod
iif(kod='S',' '+str_n,' ')
iif(kod='S',str_n,' ')
nazev
nazev
Dat_akt
tran(datum,'@E')
(datum )
Zapsal
zapsal
zapsal
BRITISH
GERMAN
tW_OBDN
4W_OBDS
M7_UCTO
PLAT_OBDOB_PDA
ITANSI
lHLASKA
MOD_SYS
POLEX
PROCX
sRTOP
_RBOT
CLEFT
CRIGHT
fFREEZE
ORDER
LORDOL
ECOLORLEVA
PRAVA
RNADPIS
ZAHL
fJMENO
oHODN
TITLE
TITLECOLORPOC0
COLORF2
jF0PRG
7_F1ON
staF1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
mF7PRG
d,mF9PRG
oF9KEY
aj.F9KEY1
F10_JM
F10PRG
RAMECEK
atRIIS
,daNAZEVT
,m7KLICO
riKLNAZ
j.uSPACEBAR
TR_HL1
TR_HL2
TR_HL3
mTR_HL4
TR_HL5
TR_HL6
),TR_HL7
ORTR_HL8
TR_HL9
DET_JM
ENTER
DETAIL
DETPRG
', PS_LINE
PS_RETURN
PS_ZAZN
M7_MMAJ
diINCIS
M7_MODP
29TRIDA
rizNAZEV
orC7_MMAJ
OBDOBI
A7_MMAJ
nsC_MMAJ
m7C6_MMAJ
j.MOD_PSV
colorz
double
Celkov
Celkov
ty - v
Esc,^End
: K
vky : K
statek : K
Odpis : K
Skut.odpis
et.: K
Skut.odpis da
. : K
Rekonstrukce : K
Prodej : K
: K
et da
: K
sum all poriz, oprav, zusta, odpis, iif(kod='O', coprav, 0), iif(kod='D', coprav, 0), iif(kod='R', cporiz, 0), iif(kod='U', cporiz, 0), iif(kod='F', coprav, 0), iif(kod='E', coprav, 0) to sum_1, sum_2, sum_3, sum_4, sum_5, sum_6, sum_7, sum_8, sum_9, sum_10 for &filt