home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 01 / MOD15B.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1996-05-23  |  17KB  |  272 lines
  1.   .  .  #
  2. m1_zdroj
  3. x1_dilna
  4. x1_zdroj
  5. RIIS 1.5
  6. P r e h l e d   ciselniku pracovist
  7. POLEX
  8. APOC2
  9. OBSAHX
  10. RZAHL
  11. OBSAH
  12. RJMENO
  13. M1_ZDROJ
  14. X1_DILNA
  15. X1_ZDROJ
  16. NADPIS
  17. PRAVA
  18. NAZEVT
  19. PROHL
  20. pocet=poc&u
  21. zahlavi&u=zahlavi&u+zahl(i)
  22. veta&u=veta&u+jmeno(i)
  23. zahlavi&u=zahlavi&u+chr(179)
  24. veta&u=veta&u+"+chr(179)+"
  25. mez=len(veta&u)+1
  26. i=poc&a
  27. zahlavi&u=zahlavi&u+' '
  28. veta&u=veta&u+"+' '+"
  29. +' '+
  30. Zadny zaznam
  31. @ r+nadpis,leva say pol&cp
  32. @ r+nadpis,leva say pol&cp
  33. @ r+nadpis,leva say pol&cp
  34. @hor,leva say pol&cp
  35.  Aktualizace ciselniku 
  36. Dilna
  37. Prac.
  38. Nazev pracoviste
  39. Poc.stroju
  40. Specifikace
  41. zahlavi=zahlavi&y
  42. veta=veta&y
  43. zahlavi=zahlavi&y
  44. veta=veta&y
  45. ZAHLAVI1
  46. ZAHLAVI2
  47. ZAHLAVI3
  48. AZAHLAVI4
  49. ZAHLAVI5
  50. ZAHLAVIT
  51. ZAHLT1
  52. VETA1
  53. VETA2
  54. VETA3
  55. VETA4
  56. RVETA5
  57. VETAT1
  58. RPOCI
  59. _ZDROJ
  60. POCET
  61. POLEX
  62. FZAHL
  63. JMENO
  64. ZAHLAVI
  65. FPROHL
  66. KRAMECEK
  67. HLAVI
  68. FFPOL1
  69. SPOL2
  70. FFPOL3
  71. FPOL4
  72. KPOL7
  73. _KOOPPOL8
  74. KPOL10
  75. POL11
  76. POL12
  77. POL13
  78. POL14
  79. POL15
  80. RPOL16
  81. IPRAVKY
  82. PREHLED
  83. PPODMV
  84. PODMS
  85. NADPIS
  86. PRAVA
  87. VYBER
  88. TRIDENI
  89. MODTESTT
  90. KDILNA
  91. KIDENT_ZDR
  92. NAZEV_ZDR
  93. POC_STR
  94. SPECIF
  95. KTYP_ZDR
  96. EWVOLBA
  97.  Pocet zaznamu: FF
  98. Vyber
  99. Trideni
  100. Volba polozek
  101. Zmena
  102. Pohyb
  103. Konec
  104. - <Enter>
  105. ,PgUp,PgDn
  106. - Esc,^End
  107. NAZEVT
  108. NADPIS
  109. PRAVA
  110. NADPIS
  111. PRAVA
  112. ZAHLAVI
  113. @ p+nadpis,leva say  &veta
  114. @ p+nadpis,cara+1 say &a
  115. pol&cp=&veta
  116. PREHLEDV
  117. HLAVI
  118. PRAVA
  119. RUSCHOVA
  120. @ p+nadpis,leva say &veta
  121. pol&cp=&veta
  122. EHLEDV
  123. APRAVA
  124. USCHOVA
  125. p_kody
  126. p_name
  127. Epson LX-810
  128. SOUBOR
  129. P_KODY
  130. P_NAME
  131. W_TISKARNASTRANA
  132. RNARAD
  133. TISK_HL
  134. TISK_S
  135. P_SETUP
  136. P_KODY
  137. P_COMP_OFFP_SUBON
  138. NARIIS
  139. RNAZACP
  140. PODNIK
  141. P_SUBOFF
  142. P_LETRQUALP_BOLDON
  143. NAZEVT
  144. P_DRAFT
  145. RPOCS
  146. ZAHLAVIT
  147. LZAHLAVI
  148. P_COMPRESSZAHLT1
  149. @cr,s say &vetat
  150. MP_OFFY
  151. SUBON
  152. NAPOCS
  153. RNAVETAT
  154. VETAT1
  155. P_KODY
  156. UALP_8LPI
  157. ZAHLAVIT
  158. P_COMP_OFFL
  159. STRANA
  160. LP_SUBON
  161. P_SUBOFF
  162.    a 
  163. .and.
  164. nebo 
  165. konec
  166. Vyber
  167.   .  .  #
  168. --------------------
  169. nebrat
  170. @s,v get &prom
  171. @s,v say &prom
  172. dtoc(dat)
  173. STOP - delku podminky jiz nelze zvetsovat !
  174.  Ukoncit 
  175.  Zrusit 
  176. set filter to &podmv
  177.  K zadane podmince nebyl nalezen zadny zaznam .
  178. LOGIC
  179. _OFFOPERAND
  180. ERAND
  181. NAXOPER
  182. OBSAHX
  183. UALDAT
  184. HLAVIT
  185. POLEX
  186. _OFFZAHL
  187. VYBER
  188. LPODMV
  189. OBSAH
  190. RESSRELACE
  191. USCHOVA
  192. OBRAZ12B
  193. dalsi
  194. konec
  195. Volba polozek
  196. --------------------
  197. ..........
  198. +' '+
  199. .................
  200. ZAHLAVI
  201. ERAND
  202. NALOGIC
  203. XOPER
  204. UALPOLEX
  205. VYBER
  206. ZAHLAVI1
  207. FVETA1
  208. JMENO
  209. dalsi
  210. konec
  211. Trideni
  212. --------------------
  213. nebrat
  214. ......
  215. .................
  216.  STOP - delku klice jiz nelze zvetsovat ! 
  217.  Ukoncit 
  218.  Zrusit 
  219. sort to c1_tr on &podms
  220. c1_tr
  221. LOGIC
  222. NAXOPER
  223. POLEX
  224. UALVYBER
  225. PODMS
  226. OBSAH
  227. FHODN
  228. LSTOP
  229. C1_TR
  230. PROHL
  231. RESST
  232. Dilna
  233. str(dilna,5)
  234. nula pict '99999'
  235. dilna
  236. Prac.
  237. str(ident_zdr,5)
  238. nula pict '@z 99999'
  239. ident_zdr
  240. Nazev pracovisteF
  241. nazev_zdr
  242. obs pict '@s25 ' +repl('!',45) 
  243. nazev_zdr
  244. Stroju
  245. str(poc_str,6)
  246. nula pict '@z 999'
  247. poc_str
  248. str(typ_zdr,3)
  249. nula pict '@z 999'
  250. typ_zdr
  251. SpecifikaceF
  252. specif
  253. obs pict '@s25'
  254. specif
  255. JMENO
  256. FFOBSAH
  257. NAHODN
  258. NAMOD15B
  259. PROHL
  260. RAMECEK
  261. ZAHLAVI
  262. PREHLED
  263. PREHLEDV
  264. TISK_HL
  265. TISK_S
  266. VYBER
  267. VOLBA
  268. TRIDENI
  269. L:\OBEC\01\
  270. MOD15B.FXP
  271. L:\OBEC\01\MOD15B.PRG
  272.