home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD75A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-22  |  31KB  |  703 lines
  1. ehled skupin typov
  2. tovac
  3. edpis
  4. RIIS 7.1
  5. Skupina(3)
  6. det_tup
  7. Detail
  8. mod75a
  9. Skupina
  10. skupina+'    '
  11. skupina
  12. zev skupiny
  13. nazev
  14. nazev
  15. v.gener.
  16. dav_gen+'         '
  17. dav_gen
  18. NV gener.
  19. nv_gen+'        '
  20. nv_gen
  21. NACTI_DATAM7_USKUP
  22.  RAMECEK
  23. NAZEVT
  24.   eRIIS
  25.      NADPIS
  26.    PRAVA
  27. posuHOR
  28. oru   DOL
  29. case (POLEX
  30. i=26F1
  31. nd z>1 F2
  32. y='2'
  33.   do k_F4
  34. u with F5
  35.  if konF7
  36.     F8
  37.  if x>hF9
  38.        F9KEY
  39. ENTER
  40.    eDETAIL
  41.    DET_JM
  42. PROCX
  43.     ZAHL
  44.    JMENO
  45. ndifHODN
  46.     I
  47.     MOD_PSV
  48. OBSAH
  49. c7_desk+
  50. c7_desk
  51. RIIS 7.1
  52. Detaily TUP
  53. Detail(3)
  54. mod75a
  55. zmen_tup
  56. Detail
  57. det_tup+'   '
  58. det_tup
  59. nazev
  60. nazev
  61. denik+'  '
  62. denik
  63. kc+' '
  64. Str(poc_rad,2)+'    '
  65. poc_rad
  66. str(dph,4,1)
  67. vz+' '
  68. vz+' '
  69. Autor
  70. autor
  71. autor
  72. Aktual.
  73. aktual
  74. aktual
  75. Dat.akt.
  76. tran(dat_akt,'@E')
  77. dat_akt
  78. RIIS 7.1
  79. KONEC
  80. DATAZAZN
  81.   ePS_LINE
  82.   MOD_SYS
  83. M7_DESK
  84.   M7_USKUP
  85. uSKUPINA
  86.   C7_DESK
  87.  (DET_TUP
  88. 6HLASKA
  89. 1 ZMEN_TUP
  90. POLEX
  91. _PROCX
  92. ith RTOP
  93.  RBOT
  94. f konCLEFT
  95.     CRIGHT
  96. x>hFREEZE
  97.    ORDER
  98.    eJMENO
  99.    HODN
  100. TITLE
  101.     TITLECOLORCINDEXLISTF1
  102.     F2
  103.     F3
  104. SUN F7
  105. VO  - nF9
  106.    F10
  107. inlistDETAIL
  108. ,15F1PRG
  109. nd yF4_JM
  110.     F4PRG
  111. ocetF7_JM
  112. <recF7PRG
  113.   F9KEY
  114. do kF10_JM
  115. ithF10PRG
  116. DET_JM
  117.  ifDETPRG
  118. RAMECEK
  119.   NAZEVT
  120.    RIIS
  121.  x=x+TISKPRG
  122.   PS_RETURN
  123. NADPIS
  124.   LEVA
  125.     PRAVA
  126.  if HOR
  127.     DOL
  128.       F5
  129.     F8
  130.       aENTER
  131.     I
  132.  q=MOD_PSV
  133.   OBSAH
  134. ZMENA1
  135. ATAZMENA2
  136. C7_DESK
  137.  eM7_DESK
  138.   SKUPINA
  139. M7_USKUP
  140. uNOVY_Z
  141.  W_SKUPINA
  142. W_DET_TUP
  143. DET_TUP
  144. 1 MOD75B
  145. PS_RETURN
  146. set color to b/w
  147. set color to bg/n
  148. set color to w+/w
  149. set color to w+/bg
  150. set color to b/bg,w+/rb
  151. set color to w+/b
  152. set color to w/n
  153. Typov
  154. tovac
  155. edpisy
  156. RIIS 7.2
  157. &barvau
  158. c7_tup
  159. c7_tup+
  160. c7_tup
  161. _DESK
  162. _DESK
  163. USKUP
  164. KUPINA
  165. ET_TUP
  166. RETURN
  167. f konPOC_ZAZ
  168.   ZOBR_ZAZ
  169. hRADEK
  170. INDIK
  171.    eP_ZOB
  172.    HOR
  173.     POCET
  174. OLORY
  175. NDEXLISTMHOD
  176.     MNAZ
  177.     POMOC
  178. KONTROLA
  179.  BARVAS
  180. UN BARVAR
  181. - nBARVAT
  182.    BARVAZ
  183. istBARVAU
  184. ,15BARVAN
  185. d yBARVAH
  186.    JMENO_C
  187. etWJMENO_C
  188. cRADEK_C
  189.   SLOUPEC_C
  190. P_CIS
  191. ithW_UCET
  192. M7_DENIK
  193. fC7_DESK
  194. DENIK
  195.   W_NAZ_DET
  196. NAZEV
  197. x=x+W_TEXT_DENTEXT
  198. W_DENIK
  199.   W_POCRAD
  200.  POC_RAD
  201. f W_KC
  202.     KC
  203.       W_DPH
  204.     DPH
  205.      aW_VZ
  206.     VZ
  207.  q=M7_TUP
  208.   SKUPINA
  209. DET_TUP
  210. eC7_TUP
  211.    HLAV1
  212.   MENU1
  213. <pocPROC1
  214.  i#5HLAV2
  215.     R
  216.    PROC2
  217.  KONEC
  218.     ZMENY
  219. VLPS_RETURN
  220. &barvau
  221. &barvas
  222. &barvaz
  223. &barvar
  224.  Skupina: 
  225. &barvaz
  226. &barvat
  227. Detail:
  228. Kalk.
  229. &barvau
  230. ATAW_SKUPINA
  231. M7_USKUP
  232. NAZEV
  233. &barvas
  234. &barvau
  235. &barvar
  236. &barvaz
  237. &barvat
  238. &barvan
  239. Koeficient
  240. Podm.
  241. &barvat
  242. &barvaz
  243. &barvau
  244. &barvau
  245. &barvas
  246. &barvau
  247. ATAM7_DENIK
  248. W_DENIK
  249. W_TEXT_DENTEXT
  250.   C7_DESK
  251. W_DET_TUP
  252. W_NAZ_DET
  253. W_DPH
  254. _DENW_KC
  255. W_POCRAD
  256. &barvas
  257. &barvau
  258. 9999.9999
  259. &barvat
  260. &barvaz
  261. C7_TUP
  262. TEXT_DENP
  263. _DESK
  264. T_TUP
  265. RAD_TUP
  266. _DENTU_1
  267. UCET_1
  268.  STR_1
  269. UCET_2
  270.  STR_2
  271.  konU_HOD
  272.   KOEF
  273. hPODM_TUP
  274. det_tup
  275. @ 4,11 &vloz w_det_tup pict '@!X'
  276. Detail skupiny ji
  277.  existuje
  278. Detail skupiny nen
  279.  vypln
  280. nazev
  281. @ 4,15  &vloz w_naz_det pict '@X'
  282. @ 4,57 &vloz w_dph pict '99.9'
  283. @ 4,77 &vloz w_kc
  284. denik
  285. @ 5,11  &vloz w_denik pict '@!'
  286. @ 5,61 &vloz w_vz pict '!X'
  287. ATAP_ZOB
  288. POCET1
  289. DENQ1
  290.   POM
  291. T_TUP
  292. DET_TUP
  293. W_DET_TUP
  294. HLASKA
  295.  PROC1
  296.  konZMENA1
  297. @ x,5  &vloz zu
  298. @ x,10 &vloz tu_1 pict '@!'
  299. ucet_1
  300. @ x,14 &vloz ucet_1
  301. @ x,22 &vloz ts_1 pict '@!'
  302. str_1
  303. @ x,26 &vloz str_1
  304. @ x,33 &vloz tu_2 pict '@!'
  305. ucet_2
  306. @ x,37 &vloz ucet_2
  307. @ x,45 &vloz ts_2 pict '@!'
  308. str_2
  309. @ x,49 &vloz str_2
  310. u_hod
  311. @ x,57 &vloz u_hod pict '@!'
  312. @ x,62 &vloz koef pict '9999.9999'
  313. podm_tup
  314. @ x,73 &vloz podm_tup pict '@!X'
  315. ATAP_ZOB
  316. POCET2
  317.  konZMENA2
  318. &barvau
  319. do proc&y
  320. do zmen&y with 'get'
  321. do zmen&y with 'say'
  322. mod7_lib
  323. mod7_lib
  324. &barvau
  325. c7_tup
  326. c7_tup+
  327. c7_tup
  328. it pr
  329. ci beze zm
  330. n? (a/N)
  331. &barvau
  332. KONEC
  333. POCET1
  334. DENQ2
  335. POCET2
  336.  konA
  337.    eU
  338.     J
  339. OLOROBR1
  340. XLISTLK
  341.     K_HLAVA
  342.   KONTROLA
  343.  C7_TUP
  344. UN SKUPINA
  345.  nC7_DESK
  346.   DET_TUP
  347. stRAD_TUP
  348. d yHLAV1
  349.    PROC1
  350. etHLAV2
  351. cPROC2
  352.   MENU2
  353. NAP_HOD
  354. thP_ZOB
  355. W_DOKLAD
  356. fW_DEN
  357. W_DENIK
  358.   ZOBR_DENIKMOD7_LIB
  359. +ZMENA1
  360. ENZOBR_UCET
  361. W_UCET
  362.   UCET_1
  363.  ZMENA2
  364. f UCET_2
  365.    K_RADKU
  366.   W_SKUPINA
  367. W_DET_TUP
  368.     II
  369.  q=NOVY_Z
  370. M7_DESK
  371. M7_USKUP
  372. eAUTOR
  373.   MM_AUTOR
  374.  AKTUAL
  375. pocDAT_AKT
  376.     W_NAZ_DET
  377. NAZEV
  378.  W_TEXT_DENDENIK
  379. VLW_POCRAD
  380. POC_RAD
  381. seW_KC
  382. or i=KC
  383.  and y=W_DPH
  384.     DPH
  385. 1 and W_VZ
  386.      M7_TUP
  387. adPOM
  388.  vypln
  389. n detail
  390. m7_denik,
  391. Neexistuje den
  392. KC        
  393. w_kc 
  394. Povolen
  395. znam TUPu je P-platn
  396. , I-informativn
  397. KONTROLA
  398. AW_DET_TUP
  399. HLASKA
  400. M7_DENIK
  401. W_DENIK
  402. C7_DESK
  403. JMENO_C
  404. WJMENO_C
  405. TYP_C
  406.  MOD_C2
  407. konRADEK_C
  408.   SLOUPEC_C
  409. MOD_C1
  410.    eQ6
  411. ZU        
  412. c7_tup.zu
  413. TU        
  414. tu       
  415. Zadan
  416. et 1 neexistuje
  417. TS        
  418. ts       
  419. TU        
  420. tu       
  421. Zadan
  422. et 2 neexistuje
  423. TS        
  424. ts       
  425. U_HOD     
  426. c7_tup.u_hod
  427. Pozor nulov
  428.  koeficient
  429. PODM_TUP  
  430. c7_tup.podm_tup
  431. KONTROLA
  432. AJMENO_C
  433. WJMENO_C
  434. TYP_C
  435. DENOK_C
  436.   MOD_C2
  437. DENIK
  438. RADEK_C
  439. SLOUPEC_C
  440. MOD_C1
  441. ENO_C
  442. ENO_C
  443. W_UCET
  444.   UCET_1
  445. M7_UCET
  446. HLASKA
  447.   eQ3
  448.    C7_TUP
  449.    TS_1
  450. OLORQ4
  451.     Q6
  452. UCET_2
  453. U_HOD
  454.  nQ10
  455. stQ11
  456. 15PODM_TUP
  457. c7_tup
  458. NTROLA
  459. AZMENA1
  460. SKUPINA
  461. W_SKUPINA
  462. DET_TUP
  463.   W_DET_TUP
  464. M7_TUP
  465. C7_DESK
  466. C7_TUP
  467. M7_DESK
  468. DENIK
  469. W_DENIK
  470. NAZEV
  471. W_NAZ_DET
  472.  W_KC
  473.   W_DPH
  474.  W_VZ
  475. AKTUAL
  476.   eMM_AUTOR
  477.  DAT_AKT
  478. ZMENA2
  479. LORRAD_TUP
  480.     POC_RAD
  481. c7_desk
  482. c7_tup
  483. m7_desk
  484. m7_tup
  485. c7_vse
  486. NACTI_DATAKLIC
  487. M7_USKUP
  488. SKUPINA
  489.   C7_DESK
  490. C7_TUP
  491. M7_DESK
  492. M7_TUP
  493. C7_VSE
  494. DET_TUP
  495. SKUPINA_A
  496. DET_TUP_A
  497. PREH_VSE
  498. mod75a
  499. RIIS 7.1.
  500. ehled Typov
  501. tovac
  502. edpis
  503. RIIS 7.1
  504. c7_vse.skupina_a+'   '
  505. c7_vse.skupina_a
  506. Detail
  507. c7_vse.det_tup_a+'   '
  508. c7_vse.det_tup_a
  509. c7_vse.nazev
  510. c7_vse.nazev
  511. c7_vse.denik+'  '
  512. c7_vse.denik
  513. c7_vse.zu
  514. c7_vse.zu
  515. c7_vse.tu_1
  516. c7_vse.tu_1
  517. c7_vse.ucet_1
  518. c7_vse.ucet_1
  519. c7_vse.ts_1
  520. c7_vse.ts_1
  521. Str 1
  522. c7_vse.str_1
  523. c7_vse.str_1
  524. c7_vse.tu_2
  525. c7_vse.tu_2
  526. c7_vse.ucet_2
  527. c7_vse.ucet_2
  528. c7_vse.ts_2
  529. c7_vse.ts_2
  530. Str 1
  531. c7_vse.str_2
  532. c7_vse.str_2
  533. U.hod
  534. c7_vse.u_hod
  535. c7_vse.u_hod
  536. Koef.
  537. str(c7_vse.koef,9,4)
  538. c7_vse.koef
  539. Podm.
  540. c7_vse.podm_tup+'   '
  541. c7_vse.podm_tup
  542. POLEX
  543. DATAPROCX
  544. CLEFT
  545.   CRIGHT
  546. FREEZE
  547. ORDER
  548. JMENO
  549. TITLE
  550. TITLECOLORCINDEXLISTF1
  551. H_VSE
  552.   eDETAIL
  553.  F1PRG
  554. F4_JM
  555. F4PRG
  556. LORF7_JM
  557. F7PRG
  558.     F9KEY
  559. F10_JM
  560. F10PRG
  561.  DET_JM
  562. DETPRG
  563.  nRAMECEK
  564. NAZEVT
  565. stRIIS
  566. 15TISKPRG
  567. yPS_RETURN
  568. tPOC0
  569. NADPIS
  570. thLEVA
  571. PRAVA
  572.   SOUC
  573. ENIKI
  574. +MOD_PSV
  575. ENOBSAH
  576. M7_USKUP
  577. m7_uskup
  578. skupina
  579. m7_desk
  580. skupina
  581. m7_tup
  582. skupina
  583. m7_ucet
  584. m_cis1
  585. x_cis1
  586. m_dat
  587. x_dat
  588. m7_denik
  589. denik
  590. v1_str
  591. x1_str
  592. m_param
  593. M7_USKUP
  594. ASKUPINA
  595. M7_DESK
  596. M7_TUP
  597. M7_UCET
  598.   UCET
  599. M_CIS1
  600. X_CIS1
  601. M_DAT
  602. X_DAT
  603. M7_DENIK
  604. DENIK
  605. V1_STR
  606. LORX1_STR
  607. ISTM_PARAM
  608. PAR_POLE
  609.  POLE7
  610. Pohyb
  611. it TUP
  612. Bloky
  613. Konec
  614. <Enter>
  615. - ^Home
  616. - F10
  617. - ^PgDn
  618. - Esc,^End
  619.       - 
  620. ,PgDn,PgUp
  621.          - F8
  622.              - ^PgDn
  623.              - ^Home
  624.           - ^End,Esc
  625.        - F10
  626. Pohyb
  627. idat 
  628. Konec
  629. Funkce
  630. KC        
  631. denik
  632. mod7_lib
  633. Povolen
  634. znam TUPu je P-platn
  635. , I-informativn
  636. ZU        
  637. c7_tup.zu
  638. TU        
  639. ucet_1
  640. mod7_lib
  641. &barvau
  642. TS        
  643. TU        
  644. ucet_2
  645. mod7_lib
  646. &barvau
  647. TS        
  648. u_hod
  649. U_HOD     
  650. c7_tup.u_hod
  651. podm_tup
  652. PODM_TUP  
  653. c7_tup.podm_tup
  654. Pro toto pole neexistuje pomocn
  655. ehled hodnot
  656. P_ZOB
  657. AMOD_C3
  658. ZMENA1
  659. W_DOKLAD
  660. W_DEN
  661.   W_DENIK
  662. ZOBR_DENIKMOD7_LIB
  663. PROC1
  664. HLASKA
  665. ZMENA2
  666. LORTU_1
  667. ISTW_UCET
  668. UCET_1
  669.  ZOBR_UCET
  670.   eTS_1
  671.  TU_2
  672. UCET_2
  673. DET_TUP
  674. ZMEN_TUP
  675. MOD75B
  676. =263L
  677. HLAV1
  678. ' and
  679. HLAV2
  680.   do 
  681. PROC1
  682. th ko
  683. PROC2
  684.     iw
  685. ZMEN1
  686. ZMEN2
  687. ZMENY
  688.    h,
  689. K_HLAVA
  690. K_RADKU
  691. MOD75D
  692. PREH_VSE
  693. NACTI_DATA
  694. HLASKA
  695. MENU1
  696. ) and
  697. MENU2
  698. NAP_HOD
  699. radlf
  700. W:\07\
  701. MOD75A.FXP
  702. W:\07\MOD75A.PRG
  703.