home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_HES.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-04-15  |  42KB  |  779 lines
  1. m_param
  2. M_PARAM
  3. {W_PODNIK
  4. 0FIRMA
  5. 1050ANSI
  6. MY_HESLO
  7. HESLO
  8. 1SPRAVCE
  9. data\m_volh.mem2
  10. m_volh.mem
  11. data\volh.idx2
  12. volh.idx
  13. m_heslo
  14. m_heslo
  15. sjmeno=sjmeno+chr(hesj&y(poc)/i)
  16. sheslo=sheslo+chr(hesh&y(poc)/i)
  17. replace uziv with sjmeno,heslo with sheslo,pr with hesp&y
  18. ehled u
  19. ivatel
  20.  syst
  21. mu RIIS
  22. RIIS 3.1
  23. Funkce
  24. funkce
  25. Aktual
  26. aktual
  27. mod_hes
  28.  Zadejte k
  29. ivatele : 
  30. v4_skl_z
  31. x4_skl_z
  32. p_prist
  33. xp_prist
  34. v1_str_z
  35. jmeno
  36. p_kody
  37. p_name
  38. m_tfr
  39. t_fronta
  40. ivatel
  41. ' '+uziv
  42. ' '+jmeno
  43. jmeno
  44. '  '+str(pr,1)
  45.   Pozn
  46. '  '+poznamka
  47. poznamka
  48.  tisk
  49. tiskarna
  50. tiskarna
  51. Fronta
  52. t_fronta
  53. t_fronta
  54. Dat.akt.
  55. tran(dat_akt,'@E')
  56. dat_akt
  57. Aktual
  58. aktual
  59. aktual
  60. Autor
  61. autor
  62. autor
  63. release hesj&y,hesh&y
  64. dime hesj&y (9)
  65. dime hesh&y (5)
  66. hesj&y(poc)=asc(subs(uziv,poc,1))*i
  67. hesh&y(ii)=asc(subs(heslo,poc,1))*i
  68. hesp&y=pr
  69. data\m_volh.mem2
  70. save to &f_adr\data\m_volh.mem all like hes*
  71. save to &f_adr\data\volh.idx all like hes*
  72. M_VOLH
  73. 0VOLH
  74. 1050IDX
  75. M_HESLO
  76. 05HESPOC
  77. 10504
  78. SJMENO
  79. 10SHESLO
  80. 050HESLO
  81. POLEX
  82. RAMECEK
  83. 1NAZEVT
  84. 105RIIS
  85. 10504RTOP
  86. CLEFT
  87. 10CRIGHT
  88. 050FREEZE
  89. 105F4
  90. 10505F6
  91. 10505
  92. 10F10
  93. 1050F10_JM
  94. F10PRG
  95. DETAIL
  96. 1DET_JM
  97. ENTER
  98. PROCX
  99. F9KEY
  100. OV+PANSI
  101. V4_SKL_Z
  102. X4_SKL_Z
  103. P_PRIST
  104. XP_PRIST
  105. V1_STR_Z
  106. JMENO
  107. P_KODY
  108. @ P_NAME
  109.  ' M_TFR
  110. ko-eT_FRONTA
  111. nZAHL
  112. MOD_PSV
  113. 4 OBSAH
  114. OPRAVA
  115. {PS_RETURN
  116. W_POLE
  117. RIIS 0.0
  118. set color to b/w
  119. set color to bg/n
  120. set color to w+/bg
  121. set color to b/bg,w+/rb
  122. set color to w+/b
  123. set color to w/n
  124. &barvau
  125. {W_POLE
  126. JMENO_C
  127. 50WJMENO_C
  128. RADEK_C
  129. SLOUPEC_C
  130. P_ZOB
  131. 05OK_C
  132. 3CISELNIK
  133. 10POCET
  134. 050DOP1
  135. 1COUNT
  136. 105ZAKAZNIK
  137. 4POMOC
  138. 050POC
  139. KONTROLA
  140. BARVAS
  141. 1BARVAR
  142. 105BARVAZ
  143. 505BARVAU
  144. BARVAN
  145. BARVAH
  146. 10BARVA
  147. 1050ZMENA
  148. M_HESLO
  149. NOVY_Z
  150. 1MENU
  151. PORADI
  152. KONEC
  153. OV+PX
  154. PRIST
  155. _PRIST
  156. _STR_Z
  157. ZMENY
  158. &barva
  159.  Aktualizace seznamu u
  160. ivatel
  161. ivatel
  162. Heslo
  163. Priorita
  164.  tisk
  165. Tiskov
  166.  fronta
  167. Autor
  168. Aktual
  169. Dat.akt.
  170. W_POLE
  171. @ 11,38 &vloz w_pole(1) picture '@!X'  
  172. @ 13,26 &vloz w_pole(2) picture '@X'  
  173. @ 13,48 &vloz w_pole(4) picture '9'      
  174. @ 14,26 &vloz w_pole(3) picture '@X'     
  175. @ 15,26  &vloz w_pole(5) picture '@S45'  
  176. tiskarna
  177. @ 16,38  &vloz w_pole(6)                 
  178. t_fronta
  179. @ 17,38  &vloz w_pole(7) pict '@!X'      
  180. {P_ZOB
  181. ENO_C
  182. 50ZMENA
  183. W_POLE
  184. MM_AUTOR
  185. PROC1
  186. do proc&y
  187. do zmen&y with 'get'
  188. do zmen&y with 'say'
  189.  Tisk
  190.  Tiskov
  191.  fronty 
  192.  Konec 
  193. mod_lib
  194. mod_lib
  195. &barvau
  196. m6_skupo.dbf2
  197. m6_skupo
  198. it pr
  199. ci beze zm
  200. n? (a/N)
  201. KONEC
  202. ENO_C
  203. SELNIK
  204. 050NAP_HOD
  205. P_ZOB
  206. 1VOLBA
  207. 105W_TISKARNAW_POLE
  208. ZOBR_PRN
  209. MOD_LIB
  210. NAZMENA
  211. RNAW_FRONTA
  212. AZOBR_TFR
  213. ABARVA
  214. ARNABARVAU
  215. 105NOVY_Z
  216. 505V4_SKL_Z
  217. M_HESLO
  218. 10P_PRIST
  219. 50V1_STR_Z
  220. M6_SKUPO
  221. 1PROC1
  222. KONTROLA
  223. ZAPIS
  224. PAUTOR
  225. MM_AUTOR
  226. AKTUAL
  227. DAT_AKT
  228. POCET
  229. ivatel ji
  230.  existuje
  231. rna neexistuje
  232. Tiskov
  233.  fronta neexistuje
  234. KONTROLA
  235. W_POLE
  236. 50HLASKA
  237. P_KODY
  238. 05M_HESLO
  239. 3M_TFR
  240. ZAPIS
  241. {M_HESLO
  242. W_POLE
  243. 50ZMENA
  244. colora
  245. set color to &color
  246. {COLOR
  247.  pro funkce 
  248.  Omezen
  249.  pro sklady 
  250.  Omezen
  251.  pro st
  252. ediska 
  253.  Omezen
  254.  pro v
  255. platn
  256.  skupiny 
  257.  Omezen
  258.  pro mzdov
  259.  Omezen
  260.  pro pokladny 
  261.  Sledov
  262.  aktivity 
  263.  Konec 
  264. do zobr with 'pristup1'
  265. do zobr with 'pristup2'
  266. do zobr with 'pristup3'
  267. do zobr with 'pristup4'
  268. do zobr with 'pristup6'
  269. do zobr with 'pristup5'
  270. do zobr with 'aktivita'
  271. deactivate popup volba
  272. m6_skup.dbf2
  273. m6_skupo.dbf2
  274. m6_mu.dbf2
  275. m6_muo.dbf2
  276. m7_pokl.dbf2
  277. m7_poklo.dbf2
  278. W_UZIV
  279. {UZIV
  280. 50PS_LINE
  281. VOLBA
  282. pristup1
  283. pristup2
  284. pristup3
  285. pristup4
  286. pristup5
  287. pristup6
  288. aktivita
  289. Nespr
  290.  nastaven
  291.  pomocn
  292. ehledu
  293. W_ZOBR
  294. {O_ZOBR
  295. VOLBA
  296. 50PRISTUP1
  297. PRISTUP2
  298. PRISTUP3
  299. PRISTUP4
  300. 5PRISTUP5
  301. 3PRISTUP6
  302. AKTIVITA
  303. HLASKA
  304. p_fce
  305.  detailn
  306. znamy neexistuj
  307. set color to &barva
  308. w+/bg
  309. w+/bg
  310. w+/bg
  311. w+/bg
  312. w+/bg
  313. Vyhled
  314. Zadejte n
  315. zev funkce
  316. Kopie opr
  317.  od jin
  318. ivatele
  319. Zadejte jm
  320. ivatele:
  321. ivatel zadan
  322. ho jm
  323. na neexistuje
  324. c_prist+
  325. c_prist
  326. c_prist
  327. {HMEZ
  328. 50LMEZ
  329. W_UZIV
  330. 5P_FCE
  331. 3CISLO
  332. P_PRIST
  333. HLASKA
  334. 10M_HESLO
  335. HESLO
  336. HELP6
  337. 105STREC
  338. ARNABARVA
  339. SAYRAD6
  340. NATISK_OPR
  341. AUZIV
  342. AFUNKCE
  343. ARNAKLIC
  344. 505NAZEV_FCE
  345. MOD_SYS
  346. 10C_PRIST
  347. 50ALL
  348.  Definov
  349. stupu - u
  350. ivatel F
  351. zev funkce
  352. {DMEZ
  353. 50M_HESLO
  354. set color to &barx
  355. p_prist,
  356.        
  357. {BARX
  358. NAZEV_FCE
  359. Konec
  360. Vyhled
  361. Kopie
  362. -Enter
  363. Konec
  364. Vyhled
  365. -Enter
  366. v4_sklad
  367. x4_sklad
  368.  detailn
  369. znamy neexistuj
  370. set color to &barva
  371. w+/bg
  372. w+/bg
  373. w+/bg
  374. w+/bg
  375. w+/bg
  376. Vyhled
  377. Zadejte 
  378. slo skladu
  379. {HMEZ
  380. W_UZIV
  381. 5V4_SKLAD
  382. 3X4_SKLAD
  383. SKLAD
  384. V4_SKL_Z
  385. 0HLASKA
  386. 0M_HESLO
  387. PS_LINE
  388. 1RAM7
  389. 105HELP7
  390. ARNARAD
  391. STREC
  392. BARVA
  393. NASAYRAD7
  394. AUZIV
  395. _SKLAD
  396. AKLIC
  397.  Omezen
  398.  pro sklady 
  399. Sklad
  400. zev skladu
  401. {DMEZ
  402. set color to &barx
  403. v4_skl_z,
  404.        
  405. {BARX
  406. SKLAD
  407. NAZEV
  408. v1_str
  409. x1_str
  410.  detailn
  411. znamy neexistuj
  412. set color to &barva
  413. w+/bg
  414. w+/bg
  415. w+/bg
  416. w+/bg
  417. w+/bg
  418. Vyhled
  419. Zadejte 
  420. slo st
  421. ediska
  422. {HMEZ
  423. W_UZIV
  424. 5V1_STR
  425. 3X1_STR
  426. V1_STR_Z
  427. 0HLASKA
  428. 0M_HESLO
  429. PS_LINE
  430. 1RAM8
  431. 105HELP7
  432. ARNARAD
  433. STREC
  434. BARVA
  435. NASAYRAD8
  436. AUZIV
  437. ASTREDISKO
  438. 05KLIC
  439.  Omezen
  440.  pro st
  441. ediska 
  442. edisko
  443. zev st
  444. ediska
  445. {DMEZ
  446. set color to &barx
  447. v1_str_z,
  448.        
  449. {BARX
  450. NAZEV_STR
  451. m6_skup
  452. skup_vypl
  453. m6_skupo
  454.  detailn
  455. znamy neexistuj
  456. set color to &barva
  457. w+/bg
  458. w+/bg
  459. w+/bg
  460. w+/bg
  461. w+/bg
  462. Vyhled
  463. Zadejte 
  464. slo v
  465. platn
  466.  skupiny
  467. {HMEZ
  468. M6_SKUP
  469. SKUP_VYPL
  470. M6_SKUPO
  471. 3UZIV
  472. W_UZIV
  473. 0HLASKA
  474. M_HESLO
  475. PS_LINE
  476. 1RAM9
  477. 105HELP7
  478. ARNARAD
  479. STREC
  480. BARVA
  481. NASAYRAD9
  482. _SKUP
  483.  Omezen
  484.  pro v
  485. platn
  486.  skupiny 
  487. Skupina
  488. zev skupiny
  489. {DMEZ
  490. set color to &barx
  491. m6_skupo,
  492.        
  493. {BARX
  494. SKUP_VYPL
  495. NAZEV
  496. m6_mu
  497. ucetni
  498. m6_muo
  499.  detailn
  500. znamy neexistuj
  501. set color to &barva
  502. w+/bg
  503. w+/bg
  504. w+/bg
  505. w+/bg
  506. w+/bg
  507. Vyhled
  508. Zadejte 
  509. slo mzdov
  510. {HMEZ
  511. M6_MU
  512. UCETNI
  513. M6_MUO
  514. 3UZIV
  515. W_UZIV
  516. 0HLASKA
  517. M_HESLO
  518. PS_LINE
  519. 1RAM11
  520. 105HELP7
  521. ARNARAD
  522. STREC
  523. BARVA
  524. NASAYRAD11
  525.  Omezen
  526.  pro mzdov
  527. {DMEZ
  528. set color to &barx
  529. m6_muo,
  530.        
  531. {BARX
  532. UCETNI
  533. POZNAMKA
  534. m7_pokl
  535. ident_pok
  536. m7_poklo
  537.  detailn
  538. znamy neexistuj
  539. set color to &barva
  540. w+/bg
  541. w+/bg
  542. w+/bg
  543. w+/bg
  544. w+/bg
  545. Vyhled
  546. Zadejte 
  547. slo pokladny
  548. {HMEZ
  549. M7_POKL
  550. IDENT_POK
  551. M7_POKLO
  552. 3UZIV
  553. W_UZIV
  554. 0HLASKA
  555. M_HESLO
  556. PS_LINE
  557. 1RAM10
  558. 105HELP7
  559. ARNARAD
  560. STREC
  561. BARVA
  562. NASAYRAD10
  563. _POKL
  564.  Omezen
  565.  pro pokladny 
  566. Pokl.
  567. zev pokladny
  568. {DMEZ
  569. set color to &barx
  570. m7_poklo,
  571.        
  572. {BARX
  573. IDENT_POK
  574. RIIS 1.1
  575.  detailn
  576. znamy neexistuj
  577. w+/bg
  578. w+/bg
  579. w+/bg
  580.  Vyhled
  581. Zadejte n
  582. zev tisk
  583. ENT_POK
  584. 3M_SCR
  585. 0STREC
  586. BARVA
  587. HLASKA
  588. RAM6QS
  589. 1HELP6QS
  590. 05SAYR6QS
  591. NAW_POLE
  592. P_NAME
  593. W_TISKARNAXX
  594. ASKLAD
  595. ehled tisk
  596. {BARX
  597. P_NAME
  598. Konec
  599. Pohyb
  600. Enter
  601. -Home,End,
  602. -Vyhled
  603.          - 
  604.                 - ^PgDn
  605.        - F10
  606.          - F8
  607.                 - ^Home
  608.       - ^End,Esc
  609. Pohyb
  610. znamu
  611. Funkce
  612. znamu
  613. Konec
  614. FFFZ^D
  615. m_akce.dbf2
  616. Soubor aktivit u
  617. ivatel
  618.  neexistuje
  619. p_fce.cdx2
  620. Zkondenzujte soubor P_FCE, sch
  621.  index
  622. m_akce
  623. m_akce
  624. c_akce+
  625. c_akce
  626. p_fce
  627. p_fce
  628. cislo
  629. ehled aktivity u
  630. ivatel
  631. ivatel 
  632. RIIS 0.1
  633. mod_hes
  634.  Datum  
  635. tran(datum,'@E')
  636. datum
  637. Popis akce
  638. iif(akce='ZAC' or akce='KON',repl('-',45),p_fce.nazev_fce)
  639. p_fce.nazev_fce
  640. sledek
  641. select &st_sel
  642. ST_SEL
  643. {ZAV_FCE
  644. ZAV_AKCE
  645. HLASKA
  646. M_AKCE
  647. M_HESLO
  648. C_AKCE
  649. 3DATUM
  650. 0P_FCE
  651. CISLO
  652. POLEX
  653. 1PROCX
  654. 05RTOP
  655. NARBOT
  656. CLEFT
  657. CRIGHT
  658. RNAFREEZE
  659. AORDER
  660. AZAHL
  661. JMENO
  662. 05TITLE
  663. 5TITLECOLORF1
  664. DETAIL
  665. F1PRG
  666. PF4_JM
  667. F4PRG
  668. F7_JM
  669. F7PRG
  670. F9KEY
  671. F10_JM
  672. F10PRG
  673. DET_JM
  674. @ DETPRG
  675.  ' RAMECEK
  676. -eNAZEVT
  677. nRIIS
  678. TISKPRG
  679. PS_RETURN
  680. PS_LINE
  681. NADPIS
  682. PRAVA
  683. y ' MOD_PSV
  684. mod_lib
  685. p_prist,
  686. mod_lib
  687.  Prob
  688.  tisk  ... 
  689. mod_lib
  690. mod_hes
  691. mod_hes
  692. P_SETUP
  693. {P_RESET
  694. P_6LPI
  695. P_8LPI
  696. P_10CPI
  697. P_12CPI
  698. P_16CPI
  699. P_20CPI
  700. 3P_BOLDON
  701. P_BOLDOFF
  702. P_ULINEON
  703. P_ULINEOFFP_ITALON
  704. P_ITALOFF
  705. P_SUPERON
  706. P_SUPEROFFP_SUBON
  707. NAP_SUBOFF
  708. P_DBST_ON
  709. P_DBST_OFFP_LETRQUALP_DRAFT
  710. AP_COMP_OFFP_WIDT_ON
  711. P_WIDT_OFFP_HEIG_ON
  712. P_HEIG_OFFP_NEWPAGE
  713. P_KODY
  714. 10MOD_LIB
  715. 50ZAZT
  716. P_FCE
  717. W_TISK
  718. 1NASTAV_PRNOBRT
  719. NASTAV_REPMOD_HES
  720. colora
  721. set color to &color
  722. {COLOR
  723. tiskarna
  724. mod_lib
  725. &barvau
  726. t_fronta
  727. mod_lib
  728. &barvau
  729. Pro toto pole neexistuje pomocn
  730. ehled hodnot
  731. P_ZOB
  732. {W_TISKARNAW_POLE
  733. ZOBR_PRN
  734. MOD_LIB
  735. NAZMENA
  736. TISKARNAA
  737. 20CPI
  738. 3W_FRONTA
  739. ZOBR_TFR
  740. AHLASKA
  741. RNASPRAVCE
  742. AKTUAL
  743. OPRAVA
  744. PORADI
  745. PROC1
  746. ZMEN1
  747. ZMENY
  748. KONTROLA
  749. ZAPIS
  750. HLASKA
  751. FUNKCE
  752. PRISTUP1
  753. SAYRAD6
  754. HELP6
  755. HELP7
  756. PRISTUP2
  757. SAYRAD7
  758. PRISTUP3
  759. SAYRAD8
  760. PRISTUP4
  761. 44,N\
  762. SAYRAD9
  763. PRISTUP6
  764. RAM11
  765. SAYRAD11
  766. PRISTUP5
  767. RAM10
  768. SAYRAD10
  769. ZOBR_POLQS
  770. RAM6QS
  771. SAYR6QS
  772. HELP6QS
  773. AKTIVITA
  774. TISK_OPR
  775. NAP_HOD
  776. P:\IN\SK\O\
  777. MOD_HES.FXP
  778. P:\IN\SK\O\MOD_HES.PRG
  779.