Hromadn
ny kusovn
ch vazeb
ehled kusovn
ch vazeb
RIIS 1.1
h_zmena
Detail
zobr_det
mod11c
Zadejte: rozpisku,pozici,
slo zm.z
|...........|..|..
m1_kusov
pozice
m1_kusov
pozice
m1_kusov
pozice
c1_kusov
 Prob
r z celkov
ho po
tu FF
 vazeb ... 
m1_ident
kod_pol
m1_ident
c1_xx
c1_kusov
c1_kusov
ehled kusovn
ch vazeb z
kaz. rozpisek
m1_ident
ident
Rozpiska    
ident.ident
ident.ident
Komponenta  
ident.c_vykresu
ident.c_vykresu
ident.poz
ident.poz
m1_ident.nazev
m1_ident.nazev
Ext.identif.
m1_ident.ident_odb
m1_ident.ident_odb
ident.op_v
ident.op_v
ident.d1op
ident.d1op
  Spot
str (ident.spotreba,10,5)
ident.spotreba
tran(ident.datum_od,'@E')
(ident.datum_od  )
tran(ident.datum_do,'@E')
(ident.datum_do  )
Akt.dat. 
tran(ident.datum_akt,'@E')
(ident.datum_akt )
'    '+str(ident.c_zm_zriz,3)
ident.c_zm_zriz
Zm.zru
'    '+str(ident.c_zm_zrus,3)
ident.c_zm_zrus
Ks del.
' '+str(ident.kusy_de,6)
ident.kusy_de
ident.rozmer
ident.rozmer
Posun
'  '+str(ident.posunuti,3)
ident.posunuti
ident.druh+'   '
ident.druh
Aktualiz. 
ident.aktual
ident.aktual
Autor     
ident.autor
ident.autor
Sek.identif.
m1_ident.sek_ident
m1_ident.sek_ident
space(4)+m1_ident.rada
m1_ident.rada
.postupu
subs(m1_ident.c_postup,1,9)
m1_ident.c_postup
m1_ident.typ
m1_ident.typ
m1_ident.mj
m1_ident.mj
' '+m1_ident.kod_pol+' '
m1_ident.kod_pol
m1_ident.jak_csn
m1_ident.jak_csn
m1_ident.rozm_csn
m1_ident.rozm_csn
str(m1_ident.ds,3)
m1_ident.ds
   SKP
m1_ident->skp
m1_ident->skp
' '+m1_ident->stav
m1_ident->stav
     PHZME
reenPOLEX
*RAMECEK
doNAZEVT
*RIIS
 reRTOP
screeRBOT
 obrFCLEFT
ndcaCRIGHT
FREEZE
tore scF2
 from oF3
set colF4
o &_colF6
return
*******F9
*******F10
****F10_JM
***F10PRG
***DETAIL
***DET_JM
EDUENTER
PROCX
or tF9KEY
F9KEY1
leaM1_KUSOV
7POZICE
to IDENT
doubDATUM_DO
lC1_KUSOV
MRECC
say MESS
da M1_IDENT
oKOD_POL
@C1_XX
 MARRAY
 C_VYKRESU
2JMENO
    HODN
   -I
MOD_PSV
r OBSAH
konec
na polo
  .  .  #
......
@s,v get &prom
@s,v say &prom
.................
 with 
c_vykresu
seek &prom 
, druh with '
ABCFPS
STOP - d
lku podm
nky ji
 nelze zv
ovat !
 Ukon
Potvr
replace datum_akt with date(),&podm
cmasterorder
RIIS 1.1
     JMENO
reenOBSAH
*HODN
doPODM
*POLEX
 rePOLE8
creeLOGIC
obrFS
ndcaXOPER
ore scDAT
from oI
set colR
o &_colXVYBER
***PROM
*****L
***M1_IDENT
*KOD_POL
*IDENT
***STOP
EDUZMEN
MOD_SYS
 tCPODMV
CPODMS
leaCPODMVU
7CMASTERORDPS_RETURN
Komponenta  
c_vykresu
obs pict 'XXXXXXXXXXXX'
c_vykresu
obs pict '999'
obs pict 'XXXX'
  Spot
str(spotreba,10,5)
nula pict '99999.99999'
spotreba
Ks del.
' '+str(kusy_de,6)
nula pict '999999'
kusy_de
rozmer
obs pict '9999999999999'
rozmer
Posun
'  '+str(posunuti,3)
nula pict '999'
posunuti
     ZAHL
reenJMENO
*OBSAH
doHODN
colorz
     M1COLOR
kres:F
 Detail komponenty 
 Pozn
mky komponenty 
 Konec 
DETKOM
   PS_LINE
enDETKOMW
*KOMPW
doC_VYKRESU
 reZOBR_DETA
TEXTPOZ
colorz
kladn
daje 
daje struktury 
 Detail komponenty 
Aktualiz. :
Autor     :               DS :
zev     :
Postup    :               KP :
Sek.ident.:               MJ :
Ext.ident.:
SKP       :
SN   :
Typ       :
ada :               St.:
seek &Malias..c_vykresu
mod_fun
 detail komponenty 
set color to &_color
Aktualizoval :
Autor        :
Platnost od  :           do :
ny zru
Pozice       :
Op.vstupu    :
lna oper.  :
eba     :
r       :
Kusy d
seek &Malias..ident
d komp.    :
Objem        :
prava     :
as.posun    :
seek &Malias..c_vykresu
seek &Malias..ident
99.99
9999.9999
seek &Malias..c_vykresu 
set color to &_color
   _COLOR
enPS_LINE
*WTEXT
doC_VYKRESU
MALIAS
 reM1_IDENT
FHLASKA
dcaMOD_FUN
AKTUAL
cDATUM
oAUTOR
IDENT
lNAZEV
C_POSTUP
*KOD_POL
*SEK_IDENT
IDENT
*IDENT_ODB
*JAK_CSN
UROZM_CSN
tRADA
aDATUM_AKT
DATUM_OD
DDATUM_DO
C_ZM_ZRUS
C_ZM_ZRIZ
say OP_V
da D1OP
oSPOTREBA
@ROZMER
 KUSY_DE
 KOD_KOMP
PROC_POD
2OBJEM
    PU
   -POSUNUTI
                 - F10
               - ^End,Esc
Pozn. komponenty
Konec
m1_pozst
m1_pozst
ident
c1_pozst+
c1_pozst
 Pozn
mky komponenty F
dek  Pozn
str(rad_tx,3) + '    ' + Text_tx
mod_fun
Nebyly nalezeny 
 pozn
mky komponenty.
ZAVRI
   ALIAS
enM1_POZST
*IDENT
oC_VYKRESU
 reC1_POZST
POZICE
N_LMEZ
N_PMEZ
N_HMEZ
N_DMEZ
cN_PROM
oN_HOD
lN_CCUR
lN_POC
N_TEXT
*N_HLAV
N_RAD
N_VYB
*N_RIIS
N_TOP
*ZOBR_NAP
UMOD_FUN
HLASKA
tMOD11C
,65 %
H_ZMENA
POLE8
menu g
      [!
ZOBR_DET
ZOBR_DETA
MENU1F
TEXTPOZ
endE2
X:\OBEC\01\
MOD11C.FXP
X:\OBEC\01\MOD11C.PRG