RIIS 5.4
Sledov
Zadejte, kolik % z hodnoty Nh/tis.ks
pro 1. operaci odlitku (formov
t jako v
kon tav
rny.   
Zadejte procento:
999.99
Pro d
lny operace '103 ' a '108 ' se berou procenta
z hodnoty 'koeficient', kter
 se nav
 v pl
novac
ch (navedeme nap
. 49.50).
Vyberte obdob
 Aktu
 obdob
 Minul
 obdob
 Archiv 
cursorz
Zadejte mm/RRRR:   /
set cursor &cCur
999.99
kony tav
Archiv v
kony tav
rny - min. obdob
 Prob
prava dat ... 
c4_pomq
FOR left(kod_ob,1)='O' and          (typ_um_v='E' or typ_um_v='V') and m1_ident.kod_pol = 'O'
m1_kalk
x1_kalk
m1_obr
m1_kalk
x1_kalk
m1_obr_a
obdobi
WHILE rok = nRR and mesic = nMM 
u1_kalk
ident
u1_obr
Chybn
 nastaven
 prom
m1_plan
x1_plan
m1_ident
ident
zakladni\m1_Normy
Operace
SCAN &cPodm
r ceny a 
asu 1.operace ...   
termin<
mod54c1
Funkce
funkce
Term.odv
tran(cObr.termin_ob,'@E')
(cObr.termin_ob )
cObr.ident
cObr.ident
zev polo
m1_ident.nazev
m1_ident.nazev
    Mno
str(cObr.skut_mnoz,12,3)
cObr.skut_mnoz
   Nh celkem
str(cObr.nh_celkem,12,2)
cObr.nh_celkem
cObr.stred_obr
cObr.stred_obr
Nh/1000 Ks
str(cObr.nh_tis,10,2)
cObr.nh_tis
VN/1ks
str(cObr.naklad,12,2)
cObr.naklad
Celkem 
str(cObr.naklad * cObr.skut_mnoz,12,2)
cObr.naklad * cObr.skut_mnoz
 Hmot./1ks
str(m1_plan.vaha_mj,10,3)
m1_plan.vaha_mj
Hmot.celkem
str(m1_plan.vaha_mj * cObr.skut_mnoz,11,3)
m1_plan.vaha_mj * cObr.skut_mnoz
Sklad      
cObr.vydal_skl+'/'+cObr.vyd_um_skl+'/'+cObr.typ_um_v
cObr.vydal_skl
cObr.ident_zak
cObr.ident_zak
Doklad
cObr.dokl_cis
cObr.dokl_cis
cObr.popis_obr
cObr.popis_obr
cObr.jmeno
cObr.jmeno
m1_ident.rada
m1_ident.rada
Koeficient
str(m1_plan.koef,11,4)
m1_plan.koef
RIISQ
ex oCNAZEVT
AZEVT
erNPROC
cendQVOL11
eleRK
eatW_VOL
Obr W_DRUH
DENNRR
c(1NMM
  TCCUR
OB   I
MOD_SYS
AKMESS
0),  C4_POMQ
_MTERMIN
12,CENA
VYDIDENT
  c(HMOTNOST
 VYKON
SKL COBR
TERMIN_OB
IDENT_ZAK
SKUT_MNOZ
VYDAL_SKL
VYD_UM_SKLTYP_UM_V
cPOPIS_OBR
STRED_OBR
DOKL_CIS
;NAKLAD
AD JMENO
11,2NH_TIS
MENNH_CELKEM
CPODM
  nM1_KALK
  X1_KALK
M1_OBR
kemM1_OBR_A
 OBDOBI
dm U1_KALK
ftU1_OBR
)=HLASKA
M1_PLAN
(tX1_PLAN
E'M1_IDENT
_ZAKLADNI
 OPERACE
koPOCET
POCETC
casPL_OD
_dTYP_NAKL
W_NAKLAD
1NNH_TIS
exNSKUTPROC
M1_NORMY
C_POSTUP
wKOEF
PROCENTA
POLEX
e PROCX
 indRTOP
lect CLEFT
se mCRIGHT
ordFREEZE
i aORDER
_obrHOR
seek sDOL
RR,4)+LEVA
MM,2)PRAVA
odm NADPIS
 roZAHL
R andHODN
= nMSOUC
cPodmTITLE
w_drTITLECOLORPOC0
use u1_F1
 order F2
t aliasF3
lect 0
use u1_F7
alias mF9
otheF10
   dF0PRG
a wiF1ON
 F1PRG
 pF4_JM
F4PRG
TISKPRG
F7_JM
planF7PRG
x1_pF9PRG
lectF9KEY
 m1_F9KEY1
derF10_JM
selF10PRG
 zaRAMECEK
_NRIIS
rder NAZEVT
STKLICO
KLNAZ
SPACEBAR
bTR_HL1
@mTR_HL2
r tTR_HL3
@TR_HL4
   TR_HL5
TR_HL6
sayTR_HL7
e, TR_HL8
z hTR_HL9
h/tDET_JM
@m+ENTER
y "pDETAIL
eraDETPRG
ku PS_LINE
)PS_RETURN
PS_ZAZN
 MOD_PSV
colora
set color to &color
ex oCOLOR
rmOBR
orderz
ehled odv
 po dnech 
ty za polo
ty za polo
ky a st
ediska 
ty za v
rob. 
ty za v
ady a st
ediska 
 Konec 
set order to &m_trideni
OBRZ1
ex o_ZAZ
rmVOLBA
erCOBR
cendFILT
eleM_TRIDENI
_VETA
Obr CELKEM
DENHMOT_CEL
1KUS_CEL
 TVYK_CEL
  VZNIKLSOUBM
D_SYS
AKOBRZ2
),  MOD_SYS
_MPREHLED
2,SUMACE
YDC4SPOL
OUBPS_RETURN
 Prob
prava dat ... 
c4_pomq
ex oC4_POMQ
rmCOBR
er_VETA
cendS_MNOZ
eleS_CELKEM
CELKEM
br S_HMOTNOSTHMOT_CEL
1S_VYK
 TVYK_CEL
  W_IDENT
UBIDENT
AKW_TERMIN
 TERMIN_OB
SKUT_MNOZ
NH_CELKEM
M1_KALK
UBPL_OD
TYP_NAKL
 W_UVN
M1_PLAN
VAHA_MJ
STS_UVN
REKAP2
Detail
Deta__il
mod54c1
Datum
tran(c4_pomq.termin,'@E')
c4_pomq.termin
VN celkem
str(C4_pomq.cena,12,2)
c4_pomq.cena
Hmot.celkem
str(C4_pomq.hmotnost,11,3)
c4_pomq.hmotnost
   Nh celkem
str(C4_pomq.vykon,12,2)
c4_pomq.vykon
Celkem:
centuryz
99999999999.99
99999999.999
999999999.99
OBRB2
ex oOBRZ1
rmPOLEX
erPROCX
cendRTOP
eleRBOT
CLEFT
br CRIGHT
OSTFREEZE
1ORDER
 THOR
  DOL
UBLEVA
AKPRAVA
 NADPIS
JMENO
UBSOUC
TITLE
 TITLECOLORPOC0
IS_OBR
ED_OBR
L_CIS
AD F0PRG
11,2F1ON
MENF1PRG
F4_JM
  nF4PRG
  TISKPRG
F7_JM
kemF7PRG
 F9PRG
dm F9KEY
ftF9KEY1
)=F10_JM
F10PRG
(tRAMECEK
E'RIIS
_NAZEVT
 KLICO
koKLNAZ
SPACEBAR
sTR_HL1
_dTR_HL2
TR_HL3
0TR_HL4
1TR_HL5
exTR_HL6
TR_HL7
TR_HL8
_TR_HL9
wDET_JM
ENTER
DETAIL
e DETPRG
indPS_LINE
PS_RETURN
PS_ZAZN
 mCNAZEVT
rdRIISQ
brN_1
ek sN_2
RR,4)+N_3
MM,2)CELKEM
dm HMOT_CEL
oVYK_CEL
ndHELP3
= nMMOD_PSV
Konec
Pohyb
-Enter
,PgUp,PgDn
c4_pq1+
c4_pq1
termin_ob
datez
german
kony tav
rny dne 
set date to &_ddd
mod54c1
Funkce
funkce
Dat.odv.
tran(c4_pq1.termin_ob,'@E')
(c4_pq1.termin_ob )
c4_pq1.ident
c4_pq1.ident
zev polo
m1_ident.nazev
m1_ident.nazev
c4_pq1.stred_obr
c4_pq1.stred_obr
    Mno
str(c4_pq1.skut_mnoz,12,3)
c4_pq1.skut_mnoz
   Nh celkem
str(c4_pq1.nh_celkem,12,2)
c4_pq1.nh_celkem
Nh/1000 Ks
str(c4_pq1.nh_tis,10,2)
c4_pq1.nh_tis
VN/1ks
str(c4_pq1.naklad,12,2)
c4_pq1.naklad
Celkem 
str(c4_pq1.naklad * c4_pq1.skut_mnoz,12,2)
c4_pq1.naklad * c4_pq1.skut_mnoz
Sklad
c4_pq1.vydal_skl+'/'+c4_pq1.vyd_um_skl+'/'+c4_pq1.typ_um_v
c4_pq1.vydal_skl
c4_pq1.ident_zak
c4_pq1.ident_zak
Doklad
c4_pq1.dokl_cis
c4_pq1.dokl_cis
c4_pq1.popis_obr
c4_pq1.popis_obr
OBR_DET
 o_VET
rmCOBR
erC4_POMQ
ndTERMIN
eleC4_PQ1
TERMIN_OB
IDENT
STM1_IDENT
1POLEX
TPROCX
  RTOP
UBRBOT
AKCLEFT
 CRIGHT
FREEZE
ORDER
UBDOL
 PRAVA
OLORNADPIS
JMENO
STHODN
STTITLE
cTITLECOLORPOC0
L_CIS
AD F2
11,2F3
MENF4
  nF7
kemF0PRG
 F1ON
dm F1PRG
ftF4_JM
)=F4PRG
TISKPRG
(tF7_JM
E'F7PRG
_F9PRG
 F9KEY
koF9KEY1
F10_JM
sF10PRG
_dRAMECEK
0NAZEVT
1KLICO
exKLNAZ
SPACEBAR
TR_HL1
_TR_HL2
wTR_HL3
TR_HL4
TR_HL5
e TR_HL6
indTR_HL7
TR_HL8
TR_HL9
 mDET_JM
rdENTER
 aDETAIL
brDETPRG
k sPS_LINE
)+PS_RETURN
PS_ZAZN
m _DDD
oGERMAN
nd_DAT
= nMRIISQ
MOD_PSV
colorz
 Graf: 
ehled 
kony tav
set color to &m_color
m_dgrpop
c_popgr
c_popgr
Prehled odvadeni vyroby za FF
       UVN celkem (Kc)
   SoWA  
 UVN (Kc)
Prehled odvadeni vyroby za FF
       Vykony tavirny Kc
   SoWA  
Vykon(Nh)
dgrpop
m_dgrdat
c_datgr
c_datgr
c_datgr
dgrdat
mm_dgr2d
!&mmgr 1 6306270498 2
OBRGR
 oM_COLOR
rmVOL4
nd_QZAZ
eleM_DGRPOP
C_POPGR
NAZGR
STC4_POMQ
1TERMIN
TPODNADPIS
UBPOPIS_X
AKDRUH
 YMIN
POPIS_N
NAZEV
UBPRVNI
TRETI
 RIISQ
OLORCTVRTY
DRUHY
POPIS_Y
DGRPOP
M_DGRDAT
TC_DATGR
cNOR_Y
PIS_X
;VYKON
D DGRDAT
,2MM_DGR2D
NMMGR
POCET
 oPOCETC
rmPOC
colorz
 oM1COLOR
 Prob
prava dat ... 
ident
et za polo
c4_xx
c4_xx
ident+str
 Za polo
et za polo
ky a st
ediska
c4_xx
c4_xx
et za 
c4_xx
c4_xx
ident
et za 
ady a st
ediska
c4_xx
c4_xx
 oVZNIKLSOUBZAKLSUMA
rPOLEX
ndPROCX
eleRTOP
CLEFT
STCRIGHT
1FREEZE
TORDER
UBDOL
AKLEVA
 PRAVA
NADPIS
JMENO
UBHODN
 TITLE
OLORTITLECOLORPOC0
GRDAT
D F10
,2F0PRG
NF1ON
F1PRG
  nF4_JM
 F4PRG
TISKPRG
emF7_JM
 F7PRG
dm F9PRG
ftF9KEY
)=F9KEY1
F10_JM
(tF10PRG
E'RAMECEK
_RIIS
 NAZEVT
koKLICO
KLNAZ
sSPACEBAR
dTR_HL1
TR_HL2
0TR_HL3
1TR_HL4
exTR_HL5
TR_HL6
TR_HL7
_TR_HL8
wTR_HL9
DET_JM
ENTER
e DETAIL
indDETPRG
PS_LINE
PS_RETURN
PS_ZAZN
rdCNAZEVT
 aC4SPOL
brVOLBA
k sIDENT
)+C4_XX
REKAP34
m STR
oRADA
ndREKAP56
c4Spol
orderz
xc_!q
index on ident + dtos(termin_ob) to xc_!q for &filt additive
c4Spol
set order to &m_trideni
C4SPOL
 oKUSY
LSOUBCENA
rIDENT
ndRADA
eleHMOTNOST
HMOT_MJ
STVYKON
1NH_TIS
TCOBR
UBM_TRIDENI
_VETA
 TERMIN_OB
S_MNOZ
S_CELKEM
BS_KUSY
S_HMOTNOSTCELKEM
LORHMOT_CEL
RKUS_CEL
S_VYK
VYK_CEL
W_IDENT
TW_TERMIN
cC_STRED
STRED_OBR
M1_IDENT
;W_RADA
 NNH_TIS
,2SKUT_MNOZ
NH_CELKEM
M1_KALK
 nPL_OD
 TYP_NAKL
W_UVN
 M1_PLAN
m VAHA_MJ
STHMOT
)=S_UVN
VZNIKLSOUBR
ZobrSum
mod54c1
Identifikace
ident
c4_xx.str
c4_xx.str
zev polo
m1_ident.nazev
m1_ident.nazev
  Mno
str(c4_xx.kusy,10,3)
c4_xx.cena
   Nh celkem
str(c4_xx.vykon,12,2)
c4_xx.vykon
Nh/1000 Ks
str(c4_xx.nh_tis,10,2)
c4_xx.nh_tis
VN celkem
str(c4_xx.cena,12,2)
c4_xx.cena
  Hmot.celkem
str(c4_xx.hmotnost,13,3)
c4_xx.hmotnost
Hmotnost/MJ
str(c4_xx.hmot_mj,11,3)
c4_xx.hmot_mj
OBRZ1
 oPOLEX
SOUBRAMECEK
rTR_HL1
ndTITLE
eleRIIS
RIISQ
STRBOT
1CLEFT
TCRIGHT
FREEZE
UBC4_XX
IDENT
 M1_IDENT
PS_ZAZN
KLICO
ELKEM
BF1ON
MOTNOSTF3
LORF4
T_CEL
TF10_JM
cF10PRG
PROCX
F9KEY
;ZAHL
 JMENO
,2HODN
 nVOLBA
 HELPIK
MOD_PSV
mPS_RETURN
colorz
double
et za organizaci 
 Esc,^End 
kony tav
rny  :                    Nh
Celkem 
VN      :                    K
Celkov
 hmotnost:                    Kg
RIIS 7.5
99,999,999,999.99
99,999,999,999.99
9,999,999,999.999
SCRQ1
 oM_COL
SOUBCENA
rHMOTNOST
dVYKON
eleCELKEM
HMOT_CEL
VYK_CEL
STMOD_WIN
Konec
Pohyb
,PgUp,PgDn
VOLBA
p1_rada
xp1_rada
ZobrSum
mod54c1
c4_xx.rada
c4_xx.rada
p1_rada.nazev
p1_rada.nazev
VN celkem
str(c4_xx.cena,13,2)
c4_xx.cena
   Nh celkem
str(c4_xx.vykon,12,2)
c4_xx.vykon
 Hmot.celkem
str(c4_xx.hmotnost,13,3)
c4_xx.hmotnost
Specifikace 
p1_rada.specif
p1_rada.specif
c4_xx.rada
c4_xx.rada
c4_xx.str
c4_xx.str
p1_rada.nazev
p1_rada.nazev
VN celkem
str(c4_xx.cena,13,2)
c4_xx.cena
   Nh celkem
str(c4_xx.vykon,12,2)
c4_xx.vykon
 Hmot.celkem
str(c4_xx.hmotnost,13,3)
c4_xx.hmotnost
Specifikace 
p1_rada.specif
p1_rada.specif
POLEX
 oRAMECEK
UBTR_HL1
rTITLE
dRIIS
eleRIISQ
STCLEFT
1CRIGHT
TFREEZE
P1_RADA
UBXP1_RADA
C4_XX
 RADA
PS_ZAZN
KLICO
ELKEM
BF1ON
MOTNOSTF3
LORF4
T_CEL
TF10_JM
cF10PRG
PROCX
;JMENO
 HODN
,2SOUC
VOLBA
 nHELPIK
 MOD_PSV
PS_RETURN
MOD54C1
HLASKA
FUNKCE
PREHLED
REKAP2
HELP3
DETA__IL
PROCENTA
SUMACE
ZAKLSUMA
REKAP34
ZOBRSUM
HELPIK
REKAP56
X:\OBEC\05\
MOD54C1.FXP
X:\OBEC\05\MOD54C1.PRG