home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / MOD11A6.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1996-05-23  |  14KB  |  191 lines
  1. mod11a6
  2. datum_do >= date() .or. datum_od<= date().and.dtoc(datum_do) = '  .  .  '
  3. copy to c_kv&ciss while ident=cislop for druh='V'
  4. copy to c_km&ciss while ident=cislop for druh='M'
  5. use c_km&ciss excl
  6. use c_kv&ciss exclusive
  7.   .  .  
  8. mod11a
  9. MOD11A6
  10. M1_KUSOV
  11. CISLOP
  12. W_DAT
  13. MM_LK
  14. OUPEC_C
  15. KUSOV
  16. PROC2
  17. RMM_POM
  18. ZMENY
  19. DATUM_DO
  20. DATUM_OD
  21. KONEC
  22. MOD11A
  23.  Material 
  24.  Historie struktury 
  25.  Historie struktury 
  26.  Material 
  27. C.vykresu
  28. Spotreba
  29. Nazev soucasti/materialu
  30. Datum
  31. D11A6
  32. WTEXT
  33. UROVEN
  34. set color to &barva
  35. BARVA
  36. C_VYKRESU
  37. SPOTREBA
  38. DATUM_AKT
  39. M1_IDENT
  40. YKRESU
  41. NAZEV
  42. @x,2 &vloz c_vykresu
  43. @x,15 &vloz poz pict '999'
  44. @x,19 &vloz op_v pict '@9'
  45. @x,23 &vloz d1op pict '@9'
  46. @x,28 &vloz mj pict '@!'
  47. @x,32 &vloz spotreba
  48. @x,43 &vloz nazev pict '@!'
  49. POCET
  50. M1_IDENT
  51. C_VYKRESU
  52. VYKRESU
  53. ZMENAS
  54. VYKRESU
  55. IDENT
  56. DATUM
  57. UROVEN
  58. ZMENAV
  59. SPOTREBA
  60. NAZEV
  61. DATUM_AKT
  62. ZMENA
  63. PROC1
  64. ZMEN1
  65.  HELP 
  66.            - sipky,<Enter>
  67.            - F2
  68.            - ^End,Esc
  69.            - F1
  70.            - F10
  71. Pohyb     
  72. Presun    
  73. Konec    
  74. Zrus help
  75. Funkce
  76.  HELP 
  77.            - sipky,<Enter>
  78.            - F2,F3
  79.            - ^PgUp,^PgDn
  80.            - ^Home
  81.            - ^End,Esc
  82.            - F1
  83.            - F10
  84. Pohyb
  85. Presun
  86. Vloz radek
  87. Zrus radek
  88. Konec   
  89. Zrus help
  90. Detail
  91. W_AKT
  92. MENUP
  93. _IDENT
  94. VYKRESU
  95.  HELP 
  96.            - sipky,<Enter>
  97.            - F2
  98.            - ^End,Esc
  99.            - F1
  100.            - F10
  101. Pohyb     
  102. Presun    
  103. Konec    
  104. Zrus help
  105. Funkce
  106.  HELP 
  107.            - sipky,<Enter>
  108.            - F2,F3
  109.            - ^End,Esc
  110.            - F1
  111.            - F10
  112. Pohyb
  113. Presun
  114. Konec   
  115. Zrus help
  116. Detail
  117. do proc&y
  118. do zmen&y
  119. if .not.w_akt.or..not.(&w_dat)
  120. do zmen&y
  121. do proc&y
  122. use c_kv&ciss exclusive
  123. use c_km&ciss excl
  124. mod11a6
  125. save to c_dat&ciss
  126.   .  .  
  127. FFFZ^D
  128. restore from c_dat&ciss addi
  129. case (i=33.or.i=289).and.w_akt.and.(&w_dat)
  130. case (i=34.or.i=290).and.y>'0'.and.y<'3'.and.w_akt.and.(&w_dat)
  131. case (i=35.or.i=291).and.y>'0'.and.y<'3'.and.w_akt.and.(&w_dat)
  132. do proc&y
  133. _IDENT
  134. VYKRESU
  135. KONEC
  136. VYKRESU
  137. MM_LK
  138. POMOC
  139. OBR62
  140. CISLOP
  141. IDENT
  142. CISLOV
  143. C_VYKRESU
  144. PROCX
  145. W_AKT
  146. DATUM_DO
  147. DETAIL
  148. MOD11A1
  149. KMENU
  150. POCET
  151. ZMENA
  152. K_UDAJU
  153. use c_kv&ciss exclusive
  154. use  c_km&ciss excl
  155. append from c_kv&ciss for .not.(c_vykresu=space(10))
  156. append from c_km&ciss for .not.(c_vykresu=space(10))
  157. ZMENA
  158. IDENT
  159. ROZP_VYS
  160. M1_KUSOV
  161. KOD_POL   
  162. m1_ident->kod_pol
  163. MJ        
  164. m1_ident->mj
  165. W_AKT
  166. JMENO_C
  167. WJMENO_C
  168. TYP_C
  169. MOD_C2
  170. RADEK_C
  171. SLOUPEC_C
  172. MOD_C1
  173. VYKRESU
  174. colora
  175. set color to &color
  176. MENO_C
  177. COLOR
  178. OBR6A
  179. KUSOV
  180. PROC1
  181. ZMEN1
  182. PROC2
  183. ZMEN2
  184. MENUP
  185. ZMENY
  186. K_UDAJU
  187. HLASKA
  188. L:\OBEC\01\
  189. MOD11A6.FXP
  190. L:\OBEC\01\MOD11A6.PRG
  191.