mod11a6
datum_do >= date() .or. datum_od<= date().and.dtoc(datum_do) = '  .  .  '
copy to c_kv&ciss while ident=cislop for druh='V'
copy to c_km&ciss while ident=cislop for druh='M'
use c_km&ciss excl
use c_kv&ciss exclusive
  .  .  
mod11a
MOD11A6
M1_KUSOV
CISLOP
W_DAT
MM_LK
OUPEC_C
KUSOV
PROC2
RMM_POM
ZMENY
DATUM_DO
DATUM_OD
KONEC
MOD11A
 Material 
 Historie struktury 
 Historie struktury 
 Material 
C.vykresu
Spotreba
Nazev soucasti/materialu
Datum
D11A6
WTEXT
UROVEN
set color to &barva
BARVA
C_VYKRESU
SPOTREBA
DATUM_AKT
M1_IDENT
YKRESU
NAZEV
@x,2 &vloz c_vykresu
@x,15 &vloz poz pict '999'
@x,19 &vloz op_v pict '@9'
@x,23 &vloz d1op pict '@9'
@x,28 &vloz mj pict '@!'
@x,32 &vloz spotreba
@x,43 &vloz nazev pict '@!'
POCET
M1_IDENT
C_VYKRESU
VYKRESU
ZMENAS
VYKRESU
IDENT
DATUM
UROVEN
ZMENAV
SPOTREBA
NAZEV
DATUM_AKT
ZMENA
PROC1
ZMEN1
 HELP 
           - sipky,<Enter>
           - F2
           - ^End,Esc
           - F1
           - F10
Pohyb     
Presun    
Konec    
Zrus help
Funkce
 HELP 
           - sipky,<Enter>
           - F2,F3
           - ^PgUp,^PgDn
           - ^Home
           - ^End,Esc
           - F1
           - F10
Pohyb
Presun
Vloz radek
Zrus radek
Konec   
Zrus help
Detail
W_AKT
MENUP
_IDENT
VYKRESU
 HELP 
           - sipky,<Enter>
           - F2
           - ^End,Esc
           - F1
           - F10
Pohyb     
Presun    
Konec    
Zrus help
Funkce
 HELP 
           - sipky,<Enter>
           - F2,F3
           - ^End,Esc
           - F1
           - F10
Pohyb
Presun
Konec   
Zrus help
Detail
do proc&y
do zmen&y
if .not.w_akt.or..not.(&w_dat)
do zmen&y
do proc&y
use c_kv&ciss exclusive
use c_km&ciss excl
mod11a6
save to c_dat&ciss
  .  .  
FFFZ^D
restore from c_dat&ciss addi
case (i=33.or.i=289).and.w_akt.and.(&w_dat)
case (i=34.or.i=290).and.y>'0'.and.y<'3'.and.w_akt.and.(&w_dat)
case (i=35.or.i=291).and.y>'0'.and.y<'3'.and.w_akt.and.(&w_dat)
do proc&y
_IDENT
VYKRESU
KONEC
VYKRESU
MM_LK
POMOC
OBR62
CISLOP
IDENT
CISLOV
C_VYKRESU
PROCX
W_AKT
DATUM_DO
DETAIL
MOD11A1
KMENU
POCET
ZMENA
K_UDAJU
use c_kv&ciss exclusive
use  c_km&ciss excl
append from c_kv&ciss for .not.(c_vykresu=space(10))
append from c_km&ciss for .not.(c_vykresu=space(10))
ZMENA
IDENT
ROZP_VYS
M1_KUSOV
KOD_POL   
m1_ident->kod_pol
MJ        
m1_ident->mj
W_AKT
JMENO_C
WJMENO_C
TYP_C
MOD_C2
RADEK_C
SLOUPEC_C
MOD_C1
VYKRESU
colora
set color to &color
MENO_C
COLOR
OBR6A
KUSOV
PROC1
ZMEN1
PROC2
ZMEN2
MENUP
ZMENY
K_UDAJU
HLASKA
L:\OBEC\01\
MOD11A6.FXP
L:\OBEC\01\MOD11A6.PRG