home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD79.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-08  |  25KB  |  559 lines
  1. z_obrf
  2. z_klicf
  3. go top
  4. mod79
  5. Archiv
  6. Archiv
  7. oprava
  8.        Platn
  9.  kurzovn
  10. stek       
  11. RIIS 7.9
  12. m_param
  13. m_cis1
  14. x_cis1
  15. m_dat
  16. x_dat
  17. m4_organ
  18. m7_meny
  19. m7_tup
  20. skupina
  21. m7_desk
  22. skupina
  23. m7_ucet
  24. m7_kurz
  25. aktual
  26. MENA      
  27. &z_klic
  28. ' ' + m7_kurz.mena
  29. m7_kurz.mena
  30. Dev.-n
  31. str(m7_kurz.nakup,10,3)
  32. m7_kurz.nakup
  33. Dev.-prodej
  34. ' '+str(m7_kurz.prodej,10,3)
  35. m7_kurz.prodej
  36. Val.-st
  37. str(m7_kurz.stred,10,3)
  38. m7_kurz.stred
  39.   Mno
  40. str(m7_kurz.mnoz,7)
  41. m7_kurz.mnoz
  42. tran(m7_kurz.dat_od,'@E')
  43. (m7_kurz.dat_od   )
  44. m7_kurz.ico
  45. m7_kurz.ico
  46. m7_kurz.zavod
  47. m7_kurz.zavod
  48. Organizace
  49. substr(m4_organ.nazev_org,1,25)
  50. substr(m4_organ.nazev_org,1,25)
  51. zev m
  52. substr(m_cis1.text,1,19)
  53. substr(m_cis1.text,1,20)
  54. Autor
  55. m7_kurz.autor
  56. m7_kurz.autor
  57. Aktualiz.
  58. m7_kurz.aktual
  59. m7_kurz.aktual
  60. Datum
  61. tran(m7_kurz.datum,'@E')
  62. (m7_kurz.datum   )
  63. POLEX
  64. PROCX
  65. CLEFT
  66. CRIGHT
  67. FREEZE
  68. ORDER
  69. JMENO
  70. TITLE
  71. TITLECOLORSPACEBAR
  72. DETAIL
  73. F1PRG
  74. F4_JM
  75. F4PRG
  76. F7_JM
  77. F7PRG
  78. F9KEY
  79. RF10_JM
  80. F10PRG
  81. DET_JM
  82. m oDETPRG
  83. urnRAMECEK
  84. **RIIS
  85. *****TR_HL
  86. ****KONEC
  87. ****W_POLE
  88. ********POCET1
  89. rocPOCET2
  90. radZ_OBR
  91.  colZ_KLIC
  92. leaMHOD
  93. lor tF5
  94. @ 6F8
  95. o 9,79
  96. ENTER
  97. sayNAZEVT
  98. izNADPIS
  99. tovLEVA
  100. adny PRAVA
  101. coloHOR
  102. w+/bg
  103. 2 say M_PARAM
  104. PAR_POLE
  105. 2POLE7
  106. UP -M_CIS1
  107. X_CIS1
  108. M_DAT
  109.  sayX_DAT
  110.  kurM4_ORGAN
  111. setM7_MENY
  112.  nMENA
  113. rM7_TUP
  114. ***SKUPINA
  115. **M7_DESK
  116. **M7_UCET
  117. **UCET
  118. *****M7_KURZ
  119. **AKTUAL
  120. ure mNOVY_Z
  121. t cZAVOD
  122. /nMOD_PSV
  123. RIIS 7.9
  124. set color to b/w
  125. set color to bg/n
  126. set color to w+/bg
  127. set color to b/bg,w+/rb
  128. set color to w+/b
  129. set color to w/n
  130. &barvau
  131. W_POLE
  132. ZMENA_K
  133. JMENO_C
  134. WJMENO_C
  135. RADEK_C
  136. SLOUPEC_C
  137. LECOLORQ6
  138. CEBAR
  139. CISELNIK
  140. POCET1
  141. %DOP2
  142. COUNT
  143. ZAKAZNIK
  144. POMOC
  145. KONTROLA
  146. BARVAS
  147. RBARVAR
  148. BARVAZ
  149. BARVAU
  150. m oBARVAN
  151. urnBARVAH
  152. **BARVA
  153. ****MENU
  154. ***XX
  155. ****PORADI
  156. ***KONEC
  157. ****I
  158.  colU
  159. lor tA
  160. @ 6ZMENY
  161. PS_RETURN
  162.  Aktualizace kurzovn
  163. stku 
  164. na     :
  165. zev :
  166. Platnost :
  167. Devizy
  168. Devizy
  169. Valuty
  170. Prodej
  171. Autor  :
  172. Aktual :
  173. Datum  :
  174.             - 
  175.                 - ^PgDn
  176.              F10
  177.                 - ^Home
  178.       - ^End,Esc
  179. Pohyb
  180. Valut.pok. -
  181. Konec - 
  182. PAR_POLE
  183. MENA      F
  184. 9999999
  185. 999999.999
  186. 999999.999
  187. 999999.999
  188. W_POLE
  189. M_CIS1
  190. M7_KURZ
  191. M4_ORGAN
  192. NAZEV_ORG
  193. @ 12,13 &vloz w_pole(1) picture '@!'              
  194. w_pole(1)
  195. if vloz='say'.and. mhod#&mnaz
  196. MENA      F
  197. MENA      
  198. w_pole(1)
  199. @ 13,13 &vloz w_pole(7) picture '9999999'     
  200. @ 14,13 &vloz w_pole(5) pict '@E'               
  201. w_pole(5)
  202.  Nelze nav
  203. st kurz do budoucnosti 
  204. mod_fun
  205. if mhod#&mnaz
  206. @ 17,8 &vloz w_pole(2) picture '999999.999'     
  207. w_pole(2)
  208. if vloz='say'.and. mhod#&mnaz
  209. @ 17,26 &vloz w_pole(3) picture '999999.999'     
  210. w_pole(3)
  211. if vloz='say'.and. mhod#&mnaz
  212. @ 17,43 &vloz w_pole(4) picture '999999.999'     
  213. w_pole(4)
  214. if vloz='say'.and. mhod#&mnaz
  215. @ 19,13 &vloz w_pole(8)                         
  216. @ 19,28 &vloz w_pole(9)                         
  217. ORGAN
  218. W_POLE
  219. M_CIS1
  220. JMENO_C
  221. WJMENO_C
  222. TYP_C
  223. COLORMOD_C2
  224. RADEK_C
  225. SLOUPEC_C
  226. MOD_C1
  227. M7_KURZ
  228. HLASKA
  229. MOD_FUN
  230. ZMENA_K
  231. ID_ORG
  232. PROC1
  233. M4_ORGAN
  234. oZOBR_ORG
  235. nNAZEV_ORG
  236. do proc&y
  237. do zmen&y with 'get'
  238. do zmen&y with 'say'
  239. &barvau
  240. Nelze zru
  241. it v pokladn
  242.  je hotovost nebo pohyb
  243. case i=35.or.i=291.or.(i=271).and.(z=recc().and.q=pocet&y) and y='1'
  244. do k_udaju&y              
  245. if q<pocet&y 
  246. it pr
  247. ci beze zm
  248. n? (A/N)
  249. do k_udaju&y
  250. do k_udaju&y
  251. KONEC
  252. NOVY_Z
  253. ORGAN
  254. POCET1
  255. POCET2
  256. COLORA
  257. PEC_C
  258. PAR_POLE
  259. PMENA
  260. OPRAVA2
  261. M7_KURZ
  262. RMENU
  263. oM7_MENY
  264. nZASOBA
  265. PRIJ_M
  266. **VYD_M
  267. DAT_DO
  268. **AKTUAL
  269. ***MM_AUTOR
  270. *DATUM
  271. rocMNOZ
  272. radW_POLE
  273. colSTAV
  274. PROC1
  275. HLASKA
  276. r tOK_C
  277. @ 6AUTOR
  278. DAT_OD
  279. izPOM
  280. MENA      F
  281. Nespr
  282. Nezad
  283. n datum platnosti
  284. Tato m
  285. na a I
  286.  existuje
  287. Nevypln
  288. n kurz - N
  289. Nevypln
  290. n kurz - Prodej
  291. Nevypln
  292. n kurz - St
  293. archiv
  294. Na den F
  295.  existuj
  296.  kurzy:
  297. epsat je ? (A/N): 
  298. aktual
  299. m7_meny
  300. M_CIS1
  301. W_POLE
  302. M7_KURZ
  303. HLASKA
  304. NOVY_Z
  305. ZMENA_K
  306. ARCHIV
  307. NAKUP
  308. PRODEJ
  309. LORSTRED
  310. DAT_OD
  311. DAT_DO
  312. AUTOR
  313. MM_AUTOR
  314. AKTUAL
  315. M7_MENY
  316. %MENA
  317. DAT_AKT
  318. DRUH_MC
  319. colora
  320. set color to &Mcolor
  321. MCOLOR
  322. nazev
  323. p_org
  324.  Organizace 
  325. O       Z
  326. vod    N
  327. ico+'  '+zavod+'    '+nazev_org
  328. hled_organ
  329. mod_fun
  330. NAZEV
  331. P_ORG
  332. N_LMEZ
  333. N_HMEZ
  334. N_DMEZ
  335. N_PROM
  336. N_HOD
  337. N_POC
  338. N_TEXT
  339. N_HLAV
  340. N_RAD
  341. N_NVYH
  342. N_VYB
  343. ZOBR_NAP
  344. RMOD_FUN
  345. W_POLE
  346. ZAVOD
  347. M4_ORGAN
  348. M7_KURZ
  349. c7_kurz
  350. archiv
  351. c7_kurz+
  352. c7_kurz
  353. znam!
  354. aktual
  355. mod79
  356. Archiv
  357. Archiv
  358. oprava
  359. Archiv kurzovn
  360. RIIS 7.1.
  361. ehled archivu m
  362. MENA      
  363. ' ' + c7_kurz.mena
  364. c7_kurz.mena
  365. Dev.-n
  366. str(c7_kurz.nakup,10,3)
  367. c7_kurz.nakup
  368. Dev.-prodej
  369. ' '+str(c7_kurz.prodej,10,3)
  370. c7_kurz.prodej
  371. Val.-st
  372. str(c7_kurz.stred,10,3)
  373. c7_kurz.stred
  374.   Mno
  375. str(c7_kurz.mnoz,7)
  376. c7_kurz.mnoz
  377. tran(c7_kurz.dat_od,'@E')
  378. (c7_kurz.dat_od   )
  379. zavod
  380. zavod
  381. Organizace
  382. substr(m4_organ.nazev_org,1,25)
  383. substr(m4_organ.nazev_org,1,25)
  384. zev m
  385. substr(m_cis1.text,1,19)
  386. substr(m_cis1.text,1,20)
  387. Autor
  388. c7_kurz.autor
  389. c7_kurz.autor
  390. Aktualiz.
  391. c7_kurz.aktual
  392. c7_kurz.aktual
  393. Datum
  394. tran(c7_kurz.datum,'@E')
  395. (c7_kurz.datum   )
  396. aktual
  397. PS_LINE
  398. ZAVOD
  399. C7_KURZ
  400. M7_KURZ
  401. ARCHIV
  402. HLASKA
  403. AKTUAL
  404. PS_RETURN
  405. DAT_OD
  406. POLEX
  407. PROCX
  408. CLEFT
  409. CRIGHT
  410. %FREEZE
  411. ORDER
  412. JMENO
  413. TITLE
  414. TITLECOLORF1
  415. **F10
  416. DETAIL
  417. **F1PRG
  418. ***F4_JM
  419. *F4PRG
  420. rocF7_JM
  421. radF7PRG
  422. colF9KEY
  423. F10_JM
  424. leaF10PRG
  425. DET_JM
  426. r tDETPRG
  427. @ 6RAMECEK
  428. NAZEVT
  429. izTISKPRG
  430. coloENTER
  431. M_CIS1
  432. y M4_ORGAN
  433. 2MENUP
  434. UP -MOD_PSV
  435. Konec
  436. - Esc,^End
  437. RIIS 7.9
  438. &barvau
  439. M7_MENY
  440. PMENA
  441. W_POLE
  442. POCET2
  443. KONEC
  444. POMOC
  445. ZMENA_K
  446. KONTROLA
  447. MENU2
  448. PORADI2
  449. ZMENY
  450. OLORPS_RETURN
  451.  Aktualizace valutov
  452.  pokladny 
  453. Valutov
  454. TUP - kurz.rozd
  455. l aktivn
  456. TUP - kurz.rozd
  457. l pasivn
  458.             - 
  459.       - ^End,Esc
  460. Pohyb
  461. Konec - 
  462. W_POLE
  463. @ 7,16 &vloz w_pole(19) 
  464. @ 8,28 &vloz w_pole(20) 
  465. @ 8,62 &vloz w_pole(21) 
  466. M7_TUP
  467. W_POLE
  468. DET_TUP
  469. M7_KURZ
  470. kl_pomi
  471. ehled 
  472. et    N
  473. zev                       
  474. ucet+'  '+nazev
  475. mod_fun
  476. M7_UCET
  477. W_POLE
  478. KL_POMI
  479. SOUB_OT
  480. N_LMEZ
  481. N_PMEZ
  482. N_HMEZ
  483. N_DMEZ
  484. N_PROM
  485. N_HOD
  486. N_POC
  487. N_TEXT
  488. N_HLAV
  489. N_RAD
  490. N_NVYH
  491. ZOBR_NAP
  492. MOD_FUN
  493. %M7_MENY
  494. c7_tup
  495. c7_tup+
  496. c7_tup
  497. c7_tup
  498. kl_pomi
  499. det_tup
  500. ehled TUP 
  501.     N
  502. zev                       
  503. ty   MD    DAL 
  504. det_tup+'  '+m7_desk.nazev+' '+ucet_1+' '+ucet_2
  505. mod_fun
  506. KL_POMI
  507. SOUB_OT
  508. C7_TUP
  509. M7_TUP
  510. SKUPINA
  511. DET_TUP
  512. M7_DESK
  513. POC_TUP
  514. P_KLIC
  515. N_LMEZ
  516. N_PMEZ
  517. N_HMEZ
  518. N_DMEZ
  519. N_PROM
  520. N_HOD
  521. N_POC
  522. N_TEXT
  523. N_HLAV
  524. N_RAD
  525. N_NVYH
  526. ZOBR_NAP
  527. %MOD_FUN
  528. _POMI
  529. W_POLE
  530. M7_KURZ
  531. MOD79
  532. OPRAVA
  533. PORADI
  534.    aK
  535. PROC1
  536. ZMEN1
  537. et re
  538. ZMENY
  539. skupi
  540. K_UDAJU1
  541. HLASKA
  542. endib9
  543. ZOBR_ORG
  544. ARCHIV
  545. MENUP
  546. OPRAVA2
  547. PORADI2
  548. MENU2
  549.    n_
  550. PROC2
  551.   n_h
  552. ZMEN2
  553. n_dme6P
  554. K_UDAJU2
  555. DET_TUP
  556. W:\07\
  557. MOD79.FXP
  558. W:\07\MOD79.PRG
  559.