home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / S718A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-06  |  19KB  |  424 lines
  1. m7_ucto
  2. s718a
  3. et(6)
  4. s718a1
  5. s718a3
  6. Texty
  7. ehled  
  8.  e t n 
  9.   o s n o v y
  10. RIIS 7.5
  11. r7_ucet
  12. m_param
  13. r7_pozuc
  14. r7_stav
  15. r7_sstav
  16. m7_ucet
  17. m_param
  18. m7_pozuc
  19. m7_stav
  20. m7_sstav
  21. nazev
  22. nazev
  23. '   '+uzav
  24. '     '+prevod
  25. prevod
  26. Text (1.
  27. substr(m7_pozuc.text_tx,1,19)
  28. m7_pozuc.text_tx
  29. ucet2+'  '
  30. ucet2
  31. zev extern
  32. nazev2
  33. nazev2
  34. etW_ROK
  35. etW_ROK_VYB
  36. M7_UCTO
  37.  q =POLEX
  38.    eFREEZE
  39.    F1
  40. st_zaz
  41. endif  F3
  42. case F4
  43.    @ F5
  44.  &vloz F6
  45. zev picF7
  46. casF8
  47.    F9
  48. 72 &vloF10
  49. PROCX
  50. F9KEY
  51. 15 &W_AKT
  52. nazeENTER
  53.  '@XDETAIL
  54. q=qDET_JM
  55. 6,1F10PRG
  56. w_uF10_JM
  57.  '@RAMECEK
  58.  qNAZEVT
  59. @ 6RIIS
  60. loz wNADPIS
  61. picLEVA
  62. caPRAVA
  63.   HOR
  64. 59 &vlDOL
  65. bil piR7_UCET
  66. eUCET
  67. if M7_UCET
  68. ' POC_Z
  69. atedM_PARAM
  70. enPAR_POLE
  71. dPOLE7
  72. retuR7_POZUC
  73. *M7_POZUC
  74. *R7_STAV
  75. **M7_STAV
  76. **R7_SSTAV
  77. *M7_SSTAV
  78. *ZAHL
  79. dJMENO
  80. MOD_PSV
  81. &bOBSAH
  82. endiB
  83. etZAZN
  84. etOPRAVA
  85. PS_RETURN
  86. etZMEN_UCET
  87. set color to b/w
  88. set color to bg/n
  89. set color to w+/bg
  90. set color to b/bg,w+/rb
  91. set color to w+/b
  92. set color to w+/w
  93. set color to w/n
  94. A k t u a l i z a c e   
  95.    osnovy
  96. RIIS 7.5
  97. c7_pozuc
  98. c7_pozuc+
  99. c7_pozuc
  100. N_UCET
  101. RETURN
  102.  q =Q
  103.    eZMENA1
  104.    ZMENA2
  105. KONTROLA
  106.  KONEC
  107. ase HOR
  108.    @ DOL
  109. &vloz POCET
  110.  picBARVA
  111. casRADEK_C
  112.   SLOUPEC_C
  113. POMOC
  114. 15 &RAD
  115. nazeSL
  116.  '@XPOC
  117. q=qBARVAS
  118. 6,1BARVAR
  119. w_uBARVAZ
  120.  '@BARVAU
  121.  qBARVAN
  122. @ 6BARVAT
  123. z wBARVAH
  124. picM7_UCET
  125. caROK
  126.   W_ROK
  127.  &vlNOVY_ZH
  128. piW_UCET
  129. eUCET
  130. if W_NAZEV
  131. ' NAZEV
  132. atedW_UCET2
  133. enUCET2
  134. dW_NAZEV2
  135. uNAZEV2
  136. *W_UZAV
  137. *UZAV
  138. **W_PREVOD
  139. *PREVOD
  140. *W_BIL
  141. dM7_POZUC
  142. C7_POZUC
  143.  RAD_TX
  144. NOVY_Z
  145. &bPOCET1
  146. diPOCET2
  147.  clHLAV1
  148. 20,7PROC1
  149. ='1'HLAV2
  150. arvaMENU1
  151. _POZUC
  152. @ 8,0PROC2
  153. ZMENY
  154. or tPS_RETURN
  155. &barvau
  156. &barvas
  157. &barvaz
  158. &barvar
  159. &barvaz
  160. &barvat
  161. Ext. n
  162. sob uzav
  163. evod do nov
  164. ho obdob
  165. Bilance
  166. &barvau
  167. &barvau
  168. &barvas
  169. &barvau
  170. etW_UCET
  171. W_NAZEV
  172. W_UCET2
  173. W_NAZEV2
  174. =W_UZAV
  175.   eW_PREVOD
  176.  W_BIL
  177. @ 4,7 &vloz w_ucet  pict '@!X'
  178. et ji
  179.  osnov
  180.  existuje
  181. @ 4,26 &vloz w_nazev pict '@X'
  182. @ 4,72 &vloz w_ucet2
  183. @ 5,15 &vloz w_nazev2 pict '@X'
  184. @ 6,19 &vloz w_uzav pict '@!X'
  185. @ 6,47 &vloz w_prevod pict '@!X'
  186. @ 6,59 &vloz w_bil pict '@!X'
  187. etNOVY_ZH
  188. POCET1
  189. AZEV2
  190.   eQ4
  191. REVOD
  192. TROLA
  193. ase Q
  194.  @ M7_UCET
  195. z ST_ZAZ
  196. icW_UCET
  197. casHLASKA
  198.   ZMENA1
  199. &barvas
  200. &barvau
  201. &barvar
  202. &barvaz
  203. &barvat
  204. &barvau
  205. etHOR
  206. &barvas
  207. &barvau
  208. =TEXT_TX
  209. REVOD
  210. &barvau
  211. @ x,2  &vloz text_tx pict '@X'
  212. POCET2
  213. ZMENA2
  214. do proc&y
  215. do zmen&y with 'get'
  216. do zmen&y with 'say'
  217. Nelze zru
  218. it, existuje stav
  219. m7_sstav
  220. c7_pozuc
  221. c7_pozuc+
  222. c7_pozuc
  223. it pr
  224. ci beze zm
  225. n? (a/N)
  226. XT_TX
  227.  eKONEC
  228. ase J
  229.  @ LK
  230. z POMOC
  231. icOBR
  232.   KONTROLA
  233. ZAPIS
  234. C7_POZUC
  235. _POZUC
  236. &HLAV1
  237. nazePROC1
  238.  '@XHLAV2
  239. q=qPROC2
  240. 6,1MENU2
  241. w_uPOCET2
  242.  '@ZMENA2
  243. qUCET
  244. 6M7_UCET
  245.  wROK
  246. picW_ROK
  247. caNOVY_Z
  248.   ZMENA1
  249. lNOVY_ZH
  250. piW_UCET
  251. eW_UZAV
  252. if UZAV
  253. ' W_NAZEV
  254. edNAZEV
  255. enW_UCET2
  256. dUCET2
  257. uW_NAZEV2
  258. *NAZEV2
  259. *W_PREVOD
  260. *PREVOD
  261. *W_BIL
  262. *M7_STAV
  263. dP_S_R
  264.  DAL_1
  265. &bDAL_2
  266. diMD_3
  267.  clDAL_3
  268. 20,7MD_4
  269. ='1'DAL_4
  270. arvaMD_5
  271.   DAL_5
  272. eMD_6
  273. @ 8,0DAL_6
  274. or tDAL_7
  275. DAL_8
  276. o obrDAL_9
  277. men_MD_10
  278. estoDAL_10
  279. n fMD_11
  280. *DAL_11
  281. *MD_12
  282. ****DAL_12
  283. ***HLASKA
  284. **M7_SSTAV
  285. *M7_POZUC
  286. rPOCET1
  287.   Prob
  288.  definice 
  289. tu ...  
  290. c7_pozuc
  291. ZAPIS
  292. etMOD_SYS
  293. ZMENA1
  294. M7_UCET
  295. =UCET
  296.  eW_UCET
  297.  M7_POZUC
  298. C7_POZUC
  299.  UZAV
  300. @ W_UZAV
  301. z NAZEV
  302. icW_NAZEV
  303. asPREVOD
  304.   W_PREVOD
  305. W_BIL
  306. UCET2
  307. &W_UCET2
  308. zeNAZEV2
  309. '@XW_NAZEV2
  310. qZMENA2
  311. 6,1MESS
  312. w_uRAD_TX
  313.  vypln
  314. na identifikace 
  315. et ji
  316.  existuje
  317. KONTROLA
  318. D_SYS
  319. W_UCET
  320. HLASKA
  321. _UCET
  322.  eNOVY_ZH
  323.  M7_UCET
  324. ST_ZAZ
  325.       - 
  326.                  - ^PgDn
  327.       - F2
  328.                  - ^Home
  329.       - ^End,Esc
  330. Pohyb
  331. znamu
  332. Bloky
  333. znamu
  334. Konec
  335.       - 
  336.                  - ^PgDn
  337.                  - ^Home
  338.       - ^End,Esc
  339. Pohyb
  340. znamu
  341. znamu
  342. Konec
  343. colora
  344. set color to &color
  345. tCOLOR
  346. colora
  347. set color to &color
  348. tCOLOR
  349.  text k tomuto 
  350. tu neexistuje
  351. c7_pozuc+
  352. c7_pozuc
  353. tM7_POZUC
  354. M7_UCET
  355. HLASKA
  356. =C7_POZUC
  357. ePS_LINE
  358.  ZOBRAZ_TXT
  359. ehled  dopl
  360. ch text
  361. ehled dopl
  362. ch text
  363. s718a
  364. Zadejte: Osob. 
  365. text_tx
  366. text_tx
  367. POLEX
  368. tPROCX
  369. CLEFT
  370. =CRIGHT
  371. eFREEZE
  372.  ORDER
  373. _TXTZAHL
  374.  JMENO
  375.  HODN
  376. @ TITLE
  377. z TITLECOLORPS_LINE
  378. REVOD
  379. '@XF10
  380. qDETAIL
  381. 6,1F1PRG
  382. w_uF4_JM
  383. @F4PRG
  384. qF7_JM
  385. 6F7PRG
  386.  wF9KEY
  387. picF10_JM
  388. caF10PRG
  389.   DET_JM
  390. lDETPRG
  391. piRAMECEK
  392. eNAZEVT
  393. if RIIS
  394. ' M7_UCET
  395. edUCET
  396. dMOD_PSV
  397. uPS_RETURN
  398. S718A1
  399. OPRAVA
  400. ZMEN_UCET
  401. HLAV1
  402. PROC1
  403. \07\5
  404. ZMEN1
  405. HLAV2
  406. PROC2
  407. ZMEN2
  408. ZMENY
  409.   && 4
  410. ZAPIS
  411. 4 = .
  412. KONTROLA
  413. MENU1
  414. f5 = 
  415. MENU2
  416. .t.  G7
  417. HLASKA
  418. f7 = .
  419. S718A3
  420. ZOBRAZ_TXT
  421. W:\07\
  422. S718A.FXP
  423. W:\07\S718A.PRG
  424.