home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_PS.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1996-05-23  |  31KB  |  399 lines
  1. mod_ps
  2. mod_ps
  3. set procedure to &selfproc
  4. colora
  5.   .  .  #
  6. tiskprgf
  7. archprgf
  8. archiv
  9. FFFZ^D
  10. pocet=poc&u
  11. FoxProFl
  12. +chr(179)+
  13. mez&u=len(veta(uu))+1
  14. i=poc&a
  15. +' '+
  16. +chr(179)+
  17. mez&u=len(veta(uu))+1
  18. i=poc&a
  19. +' '+
  20. Zadny zaznam
  21. FoxProFl
  22. set procedure to &procx
  23. delete file &ps1_dbf
  24. delete file &ps2_dbf
  25. set procedure to &tiskproc
  26. do &tiskprg
  27. set procedure to &selfproc
  28. FoxProFl
  29. do &enter
  30. select &sel
  31.  Pocet zaznamu: FF
  32. save to c_z&ciss all like zahl
  33. restore from c_z&ciss additive
  34. delete file &soubor
  35. Pri vyberu a trideni vyhledavani nelze provadet.
  36.  Vyhledavani 
  37. Zadejte hodnotu klice:
  38. XXXXXXXXXXXXXXXXXXXXXXXX
  39. mod_ps
  40. FoxProFl
  41. do &f10prg
  42. select &sel
  43.  Pocet zaznamu: FF
  44. mez=mez&y
  45. mez=mez&y
  46. FoxProFl
  47. set procedure to &procx
  48. delete file &ps1_dbf
  49. delete file &ps2_dbf
  50. MOD_PS
  51. SELFPROC
  52. EOLDCOLOR
  53. CURSEL
  54. ZAHLC
  55. POLEX
  56. TISKPROC
  57. PROCX
  58. TISKPRG
  59. EARCHPROC
  60. ARCHPRG
  61. PS1_DBF
  62. ORCISS
  63. PS2_DBF
  64. ZAHLAVI
  65. KLICU
  66. FMEZ1
  67. POCET
  68. JMENO
  69. ZAHLAVIX
  70. NVETAX
  71. PROHL
  72. 1POCZ
  73. RAMECEK
  74. HLAVI
  75. R_R2P
  76. TROL1
  77. PREHLED
  78. Y_POL
  79. tPODMV
  80. SSPODMS
  81. DNADPIS
  82. EPRAVA
  83. PREP_1
  84. EPREP_16
  85. PEVYBER
  86. TRIDENI
  87. FTISK
  88. MODTESTT
  89. DETAIL
  90. T_ZAZ
  91. LKA_TXT
  92. M_EXIT
  93. M_MAZANI
  94. kENTER
  95. cVOLBA
  96. NASOUBOR
  97. ctARCHIV
  98.  m_KLIC
  99. dbF10PRG
  100.  Nacteni konfigurace 
  101.  Ulozeni konfigurace 
  102.  Konec 
  103. m_sest
  104. xc_sest
  105.  Ulozeni parametru 
  106. Poznamka:
  107. m_sest
  108. x_sest
  109. FoxProFl
  110. m_sest
  111. select &sel
  112. M_SEST
  113. POZNAMKA
  114. EXC_SEST
  115. PROGRAM
  116. PROCX
  117. P_ENTER
  118. M_POZN
  119. X_SEST
  120. PODMV_T
  121. PODMS_T
  122. VETA_T
  123. EZAHLAVI_T
  124. PODMV
  125. PODMS
  126. VETAX
  127. ORZAHLAVIX
  128.  Pocet zaznamu: FF
  129. Vyber
  130. Trideni
  131. Polozky
  132. Archiv
  133. Vyhledani
  134. Detail
  135. XXXXXX
  136. Konec
  137. - F10
  138. - <Enter>
  139. - Esc,^End
  140. RAMECEK
  141. NAZEVT
  142. ERIIS
  143. NADPIS
  144. PRAVA
  145. LAVI_T
  146. ORF10
  147. DETAIL
  148. DET_JM
  149. NADPIS
  150. PRAVA
  151. EZAHLAVIX
  152. FoxProFl
  153. prom = &vetax
  154. @ p+nadpis,cara+1 say &a
  155. pol(cp)=&vetax
  156. PREHLEDV
  157. HLAVIX
  158. PRAVA
  159. EVETAX
  160. NADPIS
  161. ORPROM
  162. FoxProFl
  163. prom = &vetax
  164. pol(cp)=&vetax
  165. EHLEDV
  166. ELEVA
  167. PRAVA
  168. VETAX
  169. NADPIS
  170. FoxProFl
  171. pol(1) = &vetax
  172. VETAX
  173. FoxProFl
  174. pol(cpp) = &vetax
  175. EVETAX
  176. chr(27)+'P'
  177. chr(27)+'M'
  178. chr(27)+'P'+chr(15)
  179. chr(27)+'M'+chr(15)
  180. chr(27)+'P'
  181. chr(27)+'M'
  182. chr(27)+'P'+chr(15)
  183. chr(27)+'M'+chr(15)
  184. ZAHLAVIT
  185. EZAHLT1
  186. ZAHLAVIX
  187. POLEX
  188. PISMO
  189. STRANA
  190. TISK_HL
  191. ETISK_S
  192. @rad+4,0 say &pismo
  193. PODNIK
  194. NAZEVT
  195. ZAHLAVIT
  196. ZAHLAVIX
  197. ZAHLT1
  198. @cr,1 say &pismo
  199. @cr,pcol() say &jmenot +' '
  200. prom = &vetax
  201. POLEX
  202. JMENOT
  203. JMENO
  204. ZAHLAVIT
  205. LAVIT
  206. ESTRANA
  207.    a 
  208. .and.
  209. nebo 
  210. konec
  211. Vyber
  212.   .  .  #
  213. nebrat
  214. PICTFF
  215. @s,v get &prom picture &pictx
  216. @s,v get &prom
  217. @s,v say &prom
  218. STOP - delku podminky jiz nelze zvetsovat !
  219.  Ukoncit 
  220.  Zrusit 
  221. select &sel
  222. select &sel
  223. copy fields &klicf to &ps1_dbf
  224. use &ps1_dbf
  225. set rela to &klicr into &sel
  226. index on &podms to &ps1_dbf
  227. select &sel
  228. copy fields &klicf to &ps1_dbf for &podmv
  229. use &ps1_dbf
  230.  K zadane podmince nebyl nalezen zadny zaznam.
  231. select &sel
  232. set rela to &klicr into &sel
  233. index on &podms to &ps1_dbf
  234. POLEX
  235. EZAHLC
  236. LOGIC
  237. OPERAND
  238. ERAND
  239. XOPER
  240. OBSAHX
  241. VYBER
  242. VYB_POL
  243. PODMV
  244. OROBSAH
  245. RELACE
  246. APICTX
  247. FMOD_SYS
  248. PODMS
  249. dalsi
  250. konec
  251. Volba polozek
  252. ..........
  253. +' '+
  254. .................
  255. POLEX
  256. EZAHLC
  257. VETAX
  258. ZAHLAVIX
  259. ERAND
  260. LOGIC
  261. XOPER
  262. VYBER
  263. VYB_POL
  264. EZAHLAVI
  265. JMENO
  266.    a 
  267. .and.
  268. nebo 
  269. konec
  270. Volba klice
  271.   .  .  #
  272. nebrat
  273. PICTFF
  274. @s,v get &prom picture &pictx
  275. @s,v get &prom
  276. @s,v say &prom
  277. dtoc(dat)
  278. STOP - delku podminky jiz nelze zvetsovat !
  279.  Ukoncit 
  280.  Zrusit 
  281. locate for &podmhl
  282.  K zadane podmince nebyl nalezen zadny zaznam .
  283. sele &sel
  284. POLEX
  285. EZAHLC
  286. LOGIC
  287. OPERAND
  288. ERAND
  289. XOPER
  290. OBSAHX
  291. VYBER
  292. VYB_POL
  293. PODMHL
  294. ROBSAH
  295. RELACE
  296. APICTX
  297. dalsi
  298. konec
  299. Trideni
  300. nebrat
  301. ......
  302. .................
  303.  STOP - delku klice jiz nelze zvetsovat ! 
  304.  Ukoncit 
  305.  Zrusit 
  306. select &sel
  307. select &sel
  308. copy fields &klicf to &ps1_dbf
  309. use &ps1_dbf
  310. set relation to &klicr into &sel
  311. index on &podms to &ps1_dbf
  312. index on &podms to &ps1_dbf
  313. POLEX
  314. EZAHLC
  315. LOGIC
  316. XOPER
  317. VYBER
  318. VYB_POL
  319. PODMS
  320. OBSAH
  321. EPROM
  322. NPOS1
  323. NPOS2
  324. MOD_SYS
  325. PODMV
  326. PS1_DBF
  327. select &sel
  328. select &sel
  329. copy fields &klicf to &ps1_dbf
  330. use &ps1_dbf
  331. set rela to &klicr into &sel
  332. index on &podms to &ps1_dbf
  333. select &sel
  334. copy fields &klicf to &ps1_dbf for &podmv
  335. use &ps1_dbf
  336.  K zadane podmince nebyl nalezen zadny zaznam.
  337. select &sel
  338. set rela to &klicr into &sel
  339. index on &podms to &ps1_dbf
  340. MOD_SYS
  341. PODMV
  342. PODMS
  343. EST_I
  344. POLEX
  345. VYBER
  346. Zadna archivni konfigurace neexistuje
  347. select &sel
  348. set color to &barva
  349. w+/bg
  350. select &sel
  351. select &sel
  352. w+/bg
  353. w+/bg
  354. EHMEZ
  355. POCZ_ARC
  356. HELP1
  357. STREC
  358. EBARVA
  359. SAYRAD
  360. M_MAZANI
  361. RVETAX
  362. PODMV
  363. PODMV_T
  364. PODMS
  365. APODMS_T
  366. VETA_T
  367. FZAHLAVIX
  368. ZAHLAVI_T
  369. TV_IDX
  370. FPOCZ
  371. Poznamka
  372. set color to &barx
  373. POZNAMKA
  374. Konec
  375. Vyber konfigurace
  376. - Esc
  377. - <Enter>
  378. ARCHIV
  379. RAMECEK
  380. ZAHLAVI
  381. PREHLED
  382. PREHLEDV
  383. PREP_1
  384. PREP_16
  385. TISK_HL
  386. TISK_S
  387. VYBER
  388. VOLBA
  389. VYHLED
  390. TRIDENI
  391. TV_IDX
  392. VYB_POL
  393. P_ENTER
  394. SAYRAD
  395. HELP1
  396. L:\OBEC\
  397. MOD_PS.FXP
  398. L:\OBEC\MOD_PS.PRG
  399.