sta_mes
Statistika spot
eby - m
sta_obr
Statistika obrat
 za rok F
P_DRUH
horW_PRGSTA
aW_NAZ
, naPRE_IDE
atW_ROKA
eGET_ROK
p1_rada
xp1_rada
m1_obr
ident
m1_obr_a
ident
m1_zas
x1_zas
m1_kalk
x1_kalk
m1_ident
ident
material
Zadejte 
slo polo
Statist.
RIIS 4.8
mod48c
Identifikace
ident
ident
Ident.odb
ratele
m1_ident.ident_odb
m1_ident.ident_odb
zev polo
m1_ident.nazev
m1_ident.nazev
' '+m1_ident.kod_pol+' '
m1_ident.kod_pol
m1_ident.typ
m1_ident.typ
m1_ident.rada
m1_ident.rada
m1_ident.mj
m1_ident.mj
P1_RADA
orXP1_RADA
aM1_OBR
 naIDENT
atM1_OBR_A
eM1_ZAS
 sX1_ZAS
M1_KALK
itX1_KALK
coM1_IDENT
pID_ORG
0,fMATERIAL
,POLEX
9,f1PROCX
te fRTOP
f1on,RBOT
 f4_jCLEFT
g, tCRIGHT
7_jFREEZE
prORDER
9prgHOR
ey, f9DOL
 f10_jLEVA
pPRAVA
rameNADPIS
s, ZAHL
, kliJMENO
az, HODN
prSOUC
tr_hlPSOUC
l2,tTITLE
tr_hTITLECOLORPOC0
6,tr_F0
 tr_hl8F1
priF2
 det_jmF3
er,detaF4
etprg, F6
ine, psF7
urn, psF9
f1  F10
f2F0PRG
 = .tF1PRG
  = F4_JM
    F4PRG
7   TISKPRG
9 F7_JM
fF7PRG
 'ZaF9PRG
sloF9KEY
y :'F9KEY1
F10_JM
F10PRG
RAMECEK
edRIIS
NAZEVT
---KLICO
----KLNAZ
----SPACEBAR
-TR_HL1
 stTR_HL2
 spTR_HL3
 --TR_HL4
---TR_HL5
---TR_HL6
---TR_HL7
---TR_HL8
eteTR_HL9
DET_JM
tabENTER
o caDETAIL
se DETPRG
 'mPS_LINE
 wPS_RETURN
PS_ZAZN
  W_PRGSTA
 W_NAZ
eMOD_PSV
c_oznac
Nebyl ozna
znam.
 statistika 
 Podle polo
ek             
 Podle st
edisek a polo
IDENT
ZASOBA
ZASOBA_C
c_sta
c_str
c_str
c_oznac,
&w_nazpro = 0
m1_obr
m1_obr_a
c_sta.F
replace &w_nazpol with &w_nazpro
m1_obr
m1_obr_a
c_str
HLASKA
orW_SCR
aW_MOD
 naW_OREC
atW_MESA
eW_ROKA
 sW_ROKM
W_NPOL
itW_NMES
coW_ZPOL
pW_TAB
0,fW_POS
,W_MES
,f1W_ROK
e fC_STA
on,IDENT
f4_jSTR
g, tC_STR
7_jC_OZNAC
prZ_MAX
rgM1_IDENT
9M1_ZAS
jM1_KALK
pW_RAD
meW_PROC
s, W_POC
 kliPRUBEH
z, W_IDENT
prW_ZASOBM
lZASOBA
2,tW_ZASOBC
RW_NAZPRO
_SPOTREBA
8ZASOBA_C
iW_NAZPOL
mSPO_STR
aPRE_STA
 PS_RETURN
select &w_dbf
&w_dbf..ident == w_ident
if (&w_dbf..rok = w_rokm) .or.  (&w_dbf..rok = w_roka .and. &w_dbf..mesic <= w_mesa)
w_nazev   = str(&w_dbf..rok, 4) + padl(&w_dbf..mesic, 2, '0')
&w_nazpro = &w_nazpro + &w_dbf..skut_mnoz
&w_nazpro = &w_nazpro + (&w_dbf..skut_mnoz * &w_dbf..naklad)
W_DBF
orW_IDENT
aKOD_OB
 naW_NAZPRO
tW_NAZEV
select &w_dbf
&w_dbf..ident == w_ident
if (&w_dbf..rok = w_rokm) .or.  (&w_dbf..rok = w_roka .and. &w_dbf..mesic <= w_mesa)
w_str     = &w_dbf..stred_obr
w_nazev   = str(&w_dbf..rok, 4) + padl(&w_dbf..mesic, 2, '0')
c_str.m
c_str.c
replace &w_nazplm with &w_nazplm +  &w_dbf..skut_mnoz,  &w_nazplc with &w_nazplc + (&w_dbf..skut_mnoz * &w_dbf..naklad)
select &w_dbf
W_DBF
orW_IDENT
aKOD_OB
 naC_STR
tW_STR
eIDENT
sZASOBA
W_ZASOBM
tZASOBA_C
oW_ZASOBC
0,fW_NAZPLM
,W_NAZEV
f1W_NAZPLC
Zadejte ident:
Zadejte st
edisko a ident:
|...|...........
fun_str
RIIS 4.8
mod48h
C_STA
orIDENT
aM1_IDENT
aM1_KALK
tM1_ZAS
ePOLEX
sPROCX
tRBOT
oCLEFT
pCRIGHT
0,fFREEZE
,ORDER
f1HOR
n,LEVA
f4_jPRAVA
g, tNADPIS
7_jZAHL
prJMENO
rgHODN
9SOUC
jPSOUC
pTITLE
meTITLECOLORPOC0
 kliF0
z, F1
ASOBM
2,tF4
ASOBC
AZPRO
TREBA
iF0PRG
mF1ON
aF1PRG
 F4_JM
F4PRG
, psTISKPRG
  F7_JM
f2F7PRG
F9PRG
= .tF9KEY
  = F9KEY1
   F10_JM
   F10PRG
9 RAMECEK
fRIIS
 'ZaNAZEVT
sloKLICO
y :'KLNAZ
SPACEBAR
TR_HL1
TR_HL2
edTR_HL3
TR_HL4
---TR_HL5
---TR_HL6
---TR_HL7
-TR_HL8
 stTR_HL9
 spDET_JM
 --ENTER
---DETAIL
---DETPRG
---PS_LINE
--PS_RETURN
PS_ZAZN
tabF8
o caW_MOD
se W_NAZ
'mW_NPOL
 wPRE_MSPO
MOD_PSV
Hodnot.K
pre_cspo
 v MJ
Ident       
ident
ident
Ident odb
ratele    
m1_ident.ident_odb
m1_ident.ident_odb
zev                    
m1_ident.nazev
m1_ident.nazev
Typ            
m1_ident.typ
m1_ident.typ
m1_ident.rada
m1_ident.rada
m1_ident.mj
m1_ident.mj
m1_zas.skl_hlavni
m1_zas.skl_hlavni
     Cena
      
str(m1_kalk.uvn,9,2)
m1_kalk.uvn
      Z
str(zasoba,12,3)
zasoba
,12,3)
F10_JM
orF10PRG
aTITLE
aTR_HL1
eW_MOD
sZAHL
JMENO
tHODN
oID_ORG
pSOUC
0,fW_POS
,W_NPOL
f1W_NAZPOL
fW_TAB
n,W_ZPOL
4_jPS_RETURN
st.MJ
pre_mspo
Hodnoty v K
Ident       
ident
ident
Ident odb
ratele    
m1_ident.ident_odb
m1_ident.ident_odb
zev                    
m1_ident.nazev
m1_ident.nazev
Typ            
m1_ident.typ
m1_ident.typ
m1_ident.rada
m1_ident.rada
m1_ident.mj
m1_ident.mj
m1_zas.skl_hlavni
m1_zas.skl_hlavni
     Cena
      
str(m1_kalk.uvn,9,2)
m1_kalk.uvn
      Z
str(zasoba_c,12,2)
zasoba_c
,12,2)
F10_JM
orF10PRG
aTITLE
aTR_HL1
eW_MOD
sZAHL
JMENO
tHODN
oID_ORG
pSOUC
0,fW_POS
,W_NPOL
f1W_NAZPOL
fW_TAB
n,W_ZPOL
4_jPS_RETURN
 Podle st
edisek 
 Celkem          
W_SCRFUN
rW_MODSUM
aSUM_STR
Nenalezen 
znam.
 - sou
ty podle st
edisek
et ... 
c_strsum
c_strsum
 - sou
et celkem
et ... 
c_strcel
c_strcel
Zadejte st
edisko:
sum_str with 2
RIIS 4.8
mod48h
W_SUM
rHLASKA
aW_SCRSTR
aW_SELSTR
tW_RECSTR
eW_NAZSUM
sMESS
C_STRSUM
oW_SCRCEL
pW_SELCEL
fW_RECCEL
,C_STRCEL
1POLEX
fPROCX
n,RTOP
4_jRBOT
CLEFT
7_jCRIGHT
prFREEZE
rgORDER
pLEVA
mePRAVA
OLORNADPIS
kliZAHL
z, JMENO
prHODN
lSOUC
2,tPSOUC
hTITLE
RTITLECOLORPOC0
, psF7
f2F10
F0PRG
= .tF1ON
  = F1PRG
   F4_JM
   F4PRG
9 TISKPRG
fF7_JM
 'ZaF7PRG
sloF9PRG
y :'F9KEY
F9KEY1
F10_JM
F10PRG
edRAMECEK
---NAZEVT
---KLICO
---KLNAZ
-SPACEBAR
tTR_HL1
 spTR_HL2
 --TR_HL3
---TR_HL4
---TR_HL5
---TR_HL6
--TR_HL7
TR_HL8
TR_HL9
tabDET_JM
 caENTER
se DETAIL
'mDETPRG
 wPS_LINE
PS_RETURN
PS_ZAZN
eW_NAZ
nW_NPOL
 doPRE_CSTR
 MOD_PSV
Hodnot.K
pre_cstr
 v MJ
,12,3)
F10_JM
rF10PRG
aTITLE
aW_NAZSUM
tTR_HL1
sW_SUM
tJMENO
oHODN
pW_POS
fW_NPOL
,W_NAZPOL
1W_TAB
fW_ZPOL
n,SOUC
jPS_RETURN
Hodnoty v K
,12,2)
TITLE
rW_NAZSUM
aTR_HL1
tW_SUM
eZAHL
sJMENO
tW_POS
oW_NPOL
pW_NAZPOL
fW_TAB
,W_ZPOL
1SOUC
fPS_RETURN
set color to w+/bg
set color to w+/w
set color to n/w
set color to w+/w
set color to w+/rb
set color to w+/bg
&z_barini
&z_baremp
&z_bar1
&z_bar2
&z_barini
Z_MAX
rZ_AKT
aZ_RAD
aZ_PROC
tZ_TXT
eZ_BARINI
sZ_BAREMP
Z_CHAR
tZ_BAR1
oZ_BAR2
pZ_SKUTXT
fZ_SLPTXT
,Z_POCAKT
1Z_STPROC
fZ_TXPROC
Z_SLPROC
jZ_STRING
RIIS 4.8
Zadejte rok:
W_SCRROK
rW_ROKA
c_oznac
Nebyl ozna
znam.
IDENT
ZASOBA_M
ZASOBA_C
c_sta
ident
c_oznac,
&w_nazpro = 0
m1_obr
m1_obr_a
c_sta.F
replace &w_nazpol with &w_nazpro
HLASKA
rW_SCR
aW_ROKA
aW_MESA
tW_OREC
eW_NPOL
sW_NMES
W_TAB
tW_POS
oW_MES
pC_STA
fIDENT
,RADA
1C_OZNAC
fZ_MAX
M1_IDENT
jM1_ZAS
M1_KALK
jW_RAD
prW_PROC
rgW_POC
9PRUBEH
jW_IDENT
pW_ZASOB
eZASOBA
LORW_RADA
kliW_CENA
prW_NAZPRO
lOBRATY
2,tZASOBA_M
hZASOBA_C
RW_NAZPOL
RPRE_OBR
8PS_RETURN
select &w_dbf
&w_dbf..ident == w_ident
if (&w_dbf..rok = w_roka .and. &w_dbf..mesic <= w_mesa)
w_nazev   = padl(&w_dbf..mesic, 2, '0')
&w_nazpro = &w_nazpro + &w_dbf..skut_mnoz
&w_nazpro = &w_nazpro + (&w_dbf..skut_mnoz * &w_dbf..naklad)
w_nazev   = padl(&w_dbf..mesic, 2, '0')
&w_nazpro = &w_nazpro + &w_dbf..skut_mnoz
&w_nazpro = &w_nazpro + (&w_dbf..skut_mnoz * &w_dbf..naklad)
W_DBF
rW_IDENT
aKOD_OB
aW_NAZPRO
tW_NAZEV
ident
Zadejte ident:
pre_rad
RIIS 4.8
mod48h
C_STA
rIDENT
aM1_IDENT
aM1_KALK
tM1_ZAS
ePOLEX
sPROCX
tRBOT
oCLEFT
pCRIGHT
fFREEZE
,ORDER
jPRAVA
NADPIS
jZAHL
prJMENO
rgHODN
9SOUC
jPSOUC
pTITLE
eTITLECOLORPOC0
kliF0
AZPRO
2,tF4
OBA_M
OBA_C
AZPOL
ETURN
F0PRG
mF1ON
aF1PRG
 F4_JM
F4PRG
, psTISKPRG
  F7_JM
f2F7PRG
F9PRG
= .tF9KEY
  = F9KEY1
   F10_JM
   F10PRG
9 RAMECEK
fRIIS
 'ZaNAZEVT
sloKLICO
y :'KLNAZ
SPACEBAR
TR_HL1
TR_HL2
edTR_HL3
TR_HL4
---TR_HL5
---TR_HL6
---TR_HL7
-TR_HL8
tTR_HL9
 spDET_JM
 --ENTER
---DETAIL
---DETPRG
---PS_LINE
--PS_RETURN
PS_ZAZN
tabF8
 caW_NAZ
e W_NPOL
'mPRE_MOBR
wMOD_PSV
Hodnot.K
pre_cobr
 v MJ
Ident       
ident
ident
zev                    
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
     Cena
      
str(m1_kalk.uvn,9,2)
m1_kalk.uvn
      Z
str(zasoba_m,12,3)
zasoba_m
,12,3)
,12,3)
F10_JM
rF10PRG
aTITLE
aTR_HL1
eZAHL
sJMENO
tID_ORG
oSOUC
pW_POS
fW_NPOL
,W_NAZPOL
1W_TAB
fPS_RETURN
st.MJ
pre_mobr
Hodnota v K
Ident       
ident
ident
zev                    
m1_ident.nazev
m1_ident.nazev
m1_ident.mj
m1_ident.mj
     Cena
      
str(m1_kalk.uvn,9,2)
m1_kalk.uvn
      Z
str(zasoba_c,12,2)
zasoba_c
,12,2)
,12,2)
F10_JM
rF10PRG
aTITLE
aTR_HL1
eZAHL
sJMENO
tID_ORG
oSOUC
pW_POS
fW_NPOL
,W_NAZPOL
1W_TAB
fPS_RETURN
et ... 
c_stasum
c_stasum
Zadejte 
RIIS 4.8
mod48h
ident
W_SCRRAD
rW_RECSTA
aMESS
aRADA
tC_STASUM
eP1_RADA
sPOLEX
PROCX
tRTOP
oRBOT
pCLEFT
fCRIGHT
,FREEZE
1ORDER
ETURN
jLEVA
PRAVA
jNADPIS
prZAHL
rgJMENO
9HODN
jSOUC
pPSOUC
eTITLE
OLORTITLECOLORPOC0
AZPRO
2,tF3
OBA_M
OBA_C
AZPOL
ETURN
mF0PRG
aF1ON
 F1PRG
F4_JM
, psF4PRG
  TISKPRG
f2F7_JM
F7PRG
= .tF9PRG
  = F9KEY
   F9KEY1
   F10_JM
9 F10PRG
fRAMECEK
ZaRIIS
sloNAZEVT
 :'KLICO
KLNAZ
SPACEBAR
TR_HL1
edTR_HL2
TR_HL3
---TR_HL4
---TR_HL5
---TR_HL6
-TR_HL7
tTR_HL8
 spTR_HL9
 --DET_JM
---ENTER
---DETAIL
---DETPRG
--PS_LINE
PS_RETURN
PS_ZAZN
 caF8
e W_NAZ
'mW_NPOL
wPRE_MRAD
MOD_PSV
C_STA
 IDENT
Hodnot.K
pre_crad
 v MJ - sou
ty za 
zev                
p1_rada.nazev
nazev
      Z
str(zasoba_m,12,3)
zasoba_m
,12,3)
,12,3)
F10_JM
rF10PRG
aTITLE
aTR_HL1
eZAHL
sJMENO
tSOUC
oW_POS
pW_NPOL
fW_NAZPOL
,W_TAB
1PS_RETURN
st.MJ
pre_mrad
Hodnota v K
 - sou
ty za 
zev                
p1_rada.nazev
nazev
      Z
str(zasoba_c,12,2)
zasoba_c
,12,2)
,12,2)
F10_JM
rF10PRG
aTITLE
aTR_HL1
eZAHL
sJMENO
tSOUC
oW_POS
pW_NPOL
fW_NAZPOL
,W_TAB
1PS_RETURN
MOD48H
PRE_IDE
STA_MES
SPOTREBA
SPO_STR
PRE_STA
PRE_MSPO
PRE_CSPO
FUN_STR
SUM_STR
PRE_MSTR
PRE_CSTR
PRUBEH
GET_ROK
STA_OBR
OBRATY
PRE_OBR
idesN
PRE_MOBR
PRE_COBR
PRE_RAD
(i))_
PRE_MRAD
PRE_CRAD
X:\OBEC\04\
MOD48H.FXP
X:\OBEC\04\MOD48H.PRG