home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD74A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-02-04  |  79KB  |  1,615 lines
  1. mod74a
  2. &barvas
  3. RIIS 7.4
  4. ehled celkov
  5. ho stavu VP 
  6. Konec
  7. Pohyb
  8. - Esc
  9. &barvat
  10. VP     :
  11. Stav  :
  12. zev :
  13. ed. :
  14. V.obor :
  15. S.obor :
  16. Dat.zad.:
  17. Dat.poh.:
  18. Dat.kon.:
  19. Ks.zad.:
  20. Ks.odv.:
  21. VR : 
  22. SR : 
  23. OPM: 
  24. OPN: 
  25.    Po
  26. .stav
  27.       N
  28.    Odv
  29.    Kon.stav
  30. h cel.
  31. d.cel.88888
  32.   Pl.kalk/1ks
  33.   Pl.kalk/ks zad.
  34.   Pl.kalk/ks odv.
  35.   Pl.kalk/ks m
  36. 9999999999.99
  37. 9999999999.99
  38. 9999999999.99
  39. 9999999999.99
  40. 9999999999.99
  41. 9999999999.99
  42. 9999999999.99
  43. 9999999999.99
  44. 9999999999.99
  45. 9999999999.99
  46. 9999999999.99
  47. 9999999999.99
  48. 9999999999.99
  49. 9999999999.99
  50. 9999999999.99
  51. 9999999999.99
  52. 9999999999.99
  53. 9999999999.99
  54. 9999999999.99
  55. 9999999999.99
  56. MOD74A
  57. ---W_POLE
  58. ---P_VP
  59. -----VP
  60. -------OBR
  61. ------MOD_SYS
  62. dure D_R
  63. ok_c = MAT
  64.    *--KOOP
  65. seek MZDA
  66.    ifVR
  67. und()
  68.   txt='OPM
  69. neexisZR
  70. . '    OR
  71.  &&(F8)SRNV
  72.     dKC
  73. ka wiNAB_C
  74. in mNAB_M
  75.    ODV_C
  76.   ODV_M
  77.  M7_RENE
  78. rnPAR_POLE
  79.  M7_PLKAL
  80. M1_KALK
  81. oIDENT
  82. d.PL_OD
  83. TYP_NAKL
  84. =M1_IDENT
  85. :_NAZ
  86. ,NAZEV
  87. STAV_VP
  88.   STRED
  89. ska V_OBOR
  90.  inS_OBOR
  91.  DAT_ZAD
  92. DAT_PP
  93. DAT_KON
  94. tuKS_ZAD
  95.  enKS_ODV
  96.   *KS_ODV_M
  97. kc$'123'N2
  98.     txtX
  99. volenoPN
  100.  matePKS
  101.  2 - kMATER
  102. 3PRIP
  103. KUSY_D
  104. lKUSOV
  105. set color to b/bg
  106. set color to bg/n
  107. set color to w+/bg
  108. set color to b/bg,w+/rb
  109. set color to w+/b
  110. set color to w/n
  111. german
  112. ---P_STR
  113. ---BARVAS
  114. ---BARVAR
  115. ---BARVAZ
  116. ---BARVAU
  117. BARVAN
  118. re BARVAH
  119. BARVA1
  120.  = BARVA2
  121. *--GERMAN
  122. ek KONEC
  123.   ifP_DOK
  124. P_OBR
  125. xt='P_KC
  126. P_SUM
  127. exisP_DAT
  128.     OBR_NOVE
  129. &barva1
  130. ---Q2
  131. ---Q3
  132. ---Q4
  133. ---Q5
  134. ---Q6
  135. re Q8
  136.  = Q10
  137. *--Q11
  138. ek Q12
  139.   ifQ13
  140. xt='Q15
  141. POCET
  142. exisPORADIO
  143.   MENUO
  144. )KONEC
  145.    dI
  146. ka wiZ
  147. in mU
  148. _RENE
  149. R_POLE
  150.  OK_C
  151. ZMENYO
  152.         ^PgDn
  153.         ^End,Esc
  154. Konec -
  155. german
  156. &barva1
  157. 99999999.99
  158. GERMAN
  159. ---P_VP
  160. ---P_OBR
  161. ---P_KC
  162. ---P_DOK
  163. ---P_SUM
  164. P_STR
  165. re P_DAT
  166. &barva2
  167. &barva1
  168.  Aktualizace obratu 
  169. kaz  Druh  
  170. KC     
  171.   Doklad       
  172.          
  173. stka        
  174. Str.   
  175.   Dat.poh. 
  176. &barva2
  177. @ 14,3 &vloz p_vp pict 'XXXXXXXXXX'
  178. kaz neexistuje. 
  179. mod_fun
  180. @ 14,17  &vloz p_obr pict '!X'
  181.  Povoleno: N - n
  182. h, O - odv
  183. mod_fun
  184. @ 14,22 &vloz p_kc
  185.  Povoleno : 1 - materi
  186. l, 2 - kooperace, 3 - mzdy 
  187. mod_fun
  188. @ 14,26 &vloz p_dok 
  189. mod_fun
  190. Nutno vyplnit 
  191. slo dokladu
  192. slo dokladu je vyhrazeno pro jin
  193. mod_fun
  194. @ 14,42 &vloz p_sum pict '99999999.99'
  195. stka nen
  196.  vypln
  197. mod_fun
  198. @ 14,57 &vloz p_str pict '9999'
  199. @ 14,65 &vloz p_dat pict '@E'
  200. ---KONT
  201. ---LK
  202. ---Q1
  203. P_KON
  204. re P_VP
  205.  = HLASKA
  206. *--MOD_FUN
  207. k ZME
  208.   ifQ2
  209. P_OBR
  210. xt='Q3
  211. exisQ4
  212.   P_DOK
  213. )PK_DOK
  214.  dPK_KC
  215. a wiPK_VP
  216. in mOBRNV
  217.    VP
  218.   M7_RENE
  219. rnP2_KON
  220.  P_SUM
  221. oP_STR
  222. OZAPIS
  223.  Obrat byl zaps
  224. mod_fun
  225. P_KON
  226. ---P2_KON
  227. ---ZME
  228. ---LK
  229. ---KONEC
  230. *--HOR
  231.   ifR
  232. xt='J
  233. PROCO
  234. exisZMENO
  235.   NAPOVEDA
  236.  dPOCET
  237. a wiK_UDAJUO
  238. mOK_C
  239.    OZAPIS
  240.   TXT
  241.  HLASKA2
  242.  P_SUM
  243. oROZHODNI
  244. .MOD_FUN
  245. kaz neexistuje. 
  246. mod_fun
  247.  Povoleno: N - n
  248. h, O - odv
  249. mod_fun
  250.  Povoleno : 1 - materi
  251. l, 2 - kooperace, 3 - mzdy 
  252. mod_fun
  253. mod_fun
  254. Nutno vyplnit 
  255. slo dokladu
  256. slo dokladu je vyhrazeno pro jin
  257. mod_fun
  258. stka nen
  259.  vypln
  260. mod_fun
  261. edisko neexistuje - nelze vypo
  262. tat re
  263. mod_fun
  264. ---P_VP
  265. ---TXT
  266. ---HLASKA
  267. ---MOD_FUN
  268. re Q1
  269. P_OBR
  270.  = Q2
  271. --P_KC
  272. ifP_DOK
  273. ='PK_DOK
  274. PK_KC
  275. exisPK_VP
  276.   OBRNV
  277.  dM7_RENE
  278. wiP_SUM
  279.   V1_STR
  280.   P_STR
  281. p_str
  282. ehled st
  283. edisek 
  284. ed.     N
  285. zev                              Typ
  286. nstr+'  '+nazev_str+'  '+ozn_cinn
  287. edisko
  288. mod_fun
  289.  U tohoto 
  290. daje nen
  291. mod_fun
  292. ---Q6
  293. ---P_STR
  294. ---N_LMEZ
  295. ---N_PMEZ
  296. --N_HMEZ
  297. N_DMEZ
  298. re N_PROM
  299. N_HOD
  300.  = N_POC
  301. --N_TEXT
  302. k N_HLAV
  303. ifN_RAD
  304. N_NVYH
  305. ='V1_STR
  306. ZOBR_NAP
  307. sMOD_FUN
  308.   W_POLE
  309. )NSTR
  310.  dOZN_CINN
  311. mM7_MDKP
  312.   TXT
  313.   HLASKA
  314. edisko neexistuje - nelze vypo
  315. tat re
  316. mod_fun
  317. 99999999.99
  318. m7_obrnv
  319. m7_srnv
  320. m7_srnv
  321. m7_obrnv
  322. m7_srnv
  323. m7_srnv
  324. P_ZAP
  325. ---_PSTR
  326. ---P_STR
  327. ---V1_STR
  328. ---TXT
  329. --HLASKA
  330. MOD_FUN
  331.  = Q6
  332. --M7_RENE
  333. if_PENIZ
  334. ='P_SUM
  335.   REZIE_VYR
  336.  dREZIE_SPR
  337.   P_KC
  338. rnREZIE_ODB
  339. REZIE_ZAS
  340. oP_OBR
  341. .P_DOK
  342. P_DAT
  343. =ZAPOBD
  344. :SRNV
  345. ,NAB_C
  346. NAB_M
  347.   ODV_C
  348. ka ODV_M
  349.  inOBRNV
  350.  D_OBR
  351. mod_fun
  352.  Nelze ru
  353. mod_fun
  354.  Lze ru
  355. it pouze aktu
  356.  obdob
  357. 456789
  358. mod_fun
  359.  Lze ru
  360. it pouze KC - 1,2,3 
  361. mod_fun
  362. slo dokladu 
  363. Chcete zru
  364. it obrat 
  365. mod_fun
  366.   .  .  #
  367. ---HLASKA
  368. ---MOD_FUN
  369. --OBDOBI
  370. ---ZAPOBD
  371. CIS_DOKL
  372.  = ROZHODNI
  373. -OBRNV
  374. k C7_OBRNV
  375. fD_OBR
  376. 'NAB_C
  377. CASTKA
  378. sNAB_M
  379.   ODV_C
  380. ODV_M
  381.  dPZAZ
  382. PZ_VP
  383. mPZ_D_OBR
  384.  PZ_CIS_DOKPS_RETURN
  385. NEXIT
  386. M7_RENE
  387. P_VP1
  388. DAT_PP
  389. oKS_ODV
  390. .KS_ODV_M
  391. edisko neexistuje - nelze vypo
  392. tat re
  393. mod_fun
  394. c7_stroz
  395. C7_OBRNV
  396. OBRNV
  397. -GENER
  398. --_PSTR
  399. ---STR
  400. --V1_STR
  401.  HLASKA
  402. MOD_FUN
  403. ZHODNI
  404. OBRNV
  405. OBRNV
  406. _PENIZ
  407. '_OPM
  408. C7_STROZ
  409. sCASTKA
  410.   OPM
  411.  dREZIE_VYR
  412. mREZIE_SPR
  413. S_DOKOPN
  414. REZIE_ODB
  415. REZIE_ZAS
  416. P_CIS_DOKLCIS_DOKL
  417. P_DAT_POH
  418. DAT_POH
  419. :P_D_OBR
  420. ,D_OBR
  421.   P_VP
  422. ka MNOZ
  423. SKUPINA
  424.  OBDOBI
  425. ZAPOBD
  426. OBRNV
  427. _ODV_M
  428. $'123'Z
  429.     txtPROC
  430. oleno
  431. c7_obrnv
  432. vp_kc
  433. c7_obrnv
  434. C7_OBRNV
  435. -OBRNV
  436. -VP_KC
  437. --P_VP
  438. ---VP
  439. --C7_STROZ
  440.  D_OBR
  441. = SRNV
  442. -NAB_C
  443.  CASTKA
  444. fNAB_M
  445. ODV_C
  446. 'ODV_M
  447. M7_RENE
  448. sKS_ODV
  449.   MNOZ
  450. KS_ODV_M
  451. dDAT_PP
  452. mod_fun
  453. Nutno vyplnit 
  454. slo dokladu
  455. KC        
  456. c7_obrnv->kc 
  457. stka nen
  458.  vypln
  459. mod_fun
  460. edisko neexistuje 
  461. _OBRNV
  462. -KONTROLA
  463. -CIS_DOKL
  464. -HLASKA
  465. ---MOD_FUN
  466. _STROZ
  467.  JMENO_C
  468. WJMENO_C
  469.  TYP_C
  470. -OK_C
  471.  MOD_C2
  472. RADEK_C
  473. SLOUPEC_C
  474. MOD_C1
  475. C7_OBRNV
  476. dCASTKA
  477. _PSTR
  478. _DOKSTR
  479. V1_STR
  480. vrat 
  481.  Konec 
  482. c7_obrnv
  483. c7_obrnv+
  484. c7_obrnv
  485. &barvau
  486. KONEC
  487. -VYSKOC
  488. -VOL11
  489. -OBR1
  490. D_FUN
  491. --C7_OBRNV
  492. OBRNV
  493.  P_VP
  494. OBRNV
  495.  DAT_POH
  496. -GENER
  497.  VOLBA
  498. OUPEC_C
  499. _OBRNV
  500. mPROC
  501. ,PgDn,PgUp
  502.  - ^PgUp,^PgDn
  503.  - ^Home
  504.  - ^End,Esc
  505. Pohyb
  506. Konec
  507. &barvau
  508. &barvau
  509. c7_stroz
  510. replace castka with castka+ &mnaz1 - mhod1
  511. replace mnoz with mnoz+ &mnaz1 - mhod1
  512. C7_STROZ
  513. -C7_OBRNV
  514. -D_OBR
  515. -CIS_DOKL
  516. OBRNV
  517. OBRNV
  518. OBRNV
  519. german
  520. set color to b/w
  521. set color to bg/n
  522. set color to w+/w
  523. set color to w+/bg
  524. set color to b/bg,w+/rb
  525. set color to w+/b
  526. set color to w/n
  527. VP(10),Druh obratu(1)
  528. mod74a
  529. StavVP
  530. soucet
  531. Obraty nedokon
  532. Obraty nedokon
  533. roby - min.obd.
  534. Obraty nedokon
  535. roby - archiv
  536. mod74a
  537. RIIS 7.4
  538. obrnv.vp
  539. obrnv.vp
  540. obrnv.d_obr+' '
  541. obrnv.d_obr
  542. obrnv.kc+' '
  543. obrnv.kc
  544. Doklad
  545. obrnv.cis_dokl
  546. obrnv.cis_dokl
  547. Dat.poh.
  548. tran(obrnv.dat_poh,'@E')
  549. (obrnv.dat_poh   )
  550.         
  551. str(obrnv.castka,15,2)
  552. obrnv.castka
  553. obrnv.obdobi
  554. obrnv.obdobi
  555. obrnv.str
  556. obrnv.str
  557. GERMAN
  558. -PS_RETURN
  559. POLEX
  560. -PROCX
  561. -RTOP
  562. -RBOT
  563. CLEFT
  564.  CRIGHT
  565. FREEZE
  566.  ORDER
  567. -ZAHL
  568.  JMENO
  569. fHODN
  570. TITLE
  571. 'TITLECOLORF1
  572. UPEC_C
  573. OBRNV
  574. DOKDETAIL
  575. F1PRG
  576. F4_JM
  577. F4PRG
  578. F7_JM
  579. F7PRG
  580. DOKLF9KEY
  581. F10_JM
  582. F10PRG
  583. :DET_JM
  584. ,DETPRG
  585. RAMECEK
  586.   NAZEVT
  587. ka RIIS
  588. KLICO
  589.  ANSI
  590. OTEVRI_DATOBRNV
  591. uBARVAS
  592. nBARVAR
  593.   *BARVAT
  594.  BARVAZ
  595. 23'BARVAU
  596. txtBARVAN
  597. enoBARVAH
  598. ateCARA
  599.  - kPOC0
  600. lENTER
  601. tAKCE
  602. fNADPIS
  603.   iPS_ZAZN
  604.   LEVA
  605.    PRAVA
  606.   HOR
  607.   SOUC
  608. ok=sI
  609.  MOD_PSV
  610. laOBSAH
  611. german
  612. vp_kc
  613. c7_obrnv+
  614. c7_obrnv
  615. set color to b/w
  616. set color to bg/n
  617. set color to w+/w
  618. set color to w+/bg
  619. set color to b/bg,w+/rb
  620. set color to w+/b
  621. set color to w/n
  622. Doklad(10)
  623. mod74a2 
  624. soucet
  625.  Obraty nedokon
  626. roby na VP 
  627. mod74a
  628. d_obr+' '
  629. d_obr
  630. kc+' '
  631. Doklad
  632. cis_dokl
  633. cis_dokl
  634. Dat.poh.
  635. tran(dat_poh,'@E')
  636. (dat_poh   )
  637.         
  638. str(castka,15,2)
  639. castka
  640. Obdob
  641. '  '+obdobi
  642. obdobi
  643. RIIS 7.4
  644. GERMAN
  645. -PS_RETURN
  646. POLEX
  647. -PROCX
  648. -RTOP
  649. -RBOT
  650. CLEFT
  651.  CRIGHT
  652. FREEZE
  653.  ORDER
  654. -ZAHL
  655.  JMENO
  656. fHODN
  657. TITLE
  658. 'TITLECOLORF1
  659. UPEC_C
  660. OBRNV
  661. DOKDETAIL
  662. F1PRG
  663. F4_JM
  664. F4PRG
  665. F7_JM
  666. F7PRG
  667. DOKLF9KEY
  668. F10_JM
  669. F10PRG
  670. :DET_JM
  671. ,DETPRG
  672. RAMECEK
  673.   NAZEVT
  674. ka RIIS
  675. KLICO
  676.  ANSI
  677. OBRNV
  678. _DATVP_KC
  679. uP_VP1
  680. nC7_OBRNV
  681.  CIS_DOKL
  682. txtDOKL
  683. enoBARVAS
  684. ateBARVAR
  685. - kBARVAT
  686. 3BARVAZ
  687. BARVAU
  688. lBARVAN
  689. tBARVAH
  690. fCARA
  691.   iPOC0
  692.    F8
  693.   ENTER
  694. PS_ZAZN
  695.   SOUC
  696.  MOD_PSV
  697. laOBSAH
  698. h 'NM7_RENE
  699. KONEC
  700. RETURN
  701. -OPRAVA
  702. -PS_RETURN
  703. W_POLE
  704. set color to b/w
  705. set color to bg/n
  706. set color to w+/bg
  707. set color to b/bg,w+/rb
  708. set color to w+/b
  709. set color to w/n
  710. &barvau
  711. -W_POLE
  712. NOVY_Z
  713. -JMENO_C
  714. -WJMENO_C
  715. RADEK_C
  716. SLOUPEC_C
  717. LECOLORQ8
  718. UPEC_C
  719.   Q10
  720. CISELNIK
  721. DOKPOCET
  722. COUNT
  723. ZAKAZNIK
  724. LPOMOC
  725. KONTROLA
  726.  BARVAS
  727. ka BARVAR
  728. BARVAZ
  729.  BARVAU
  730. BARVAN
  731. DATBARVAH
  732. uBARVA
  733. nM7_RENE
  734. *MENU1
  735.  PORADI
  736. 'KONEC
  737. fZMENY1
  738.   iM_MAZANI
  739. &barva
  740.  Aktualizace VP 
  741. ed.  :
  742. Ident.  :
  743. V.obor  :
  744. S.obor  :
  745. Stav    :
  746. Dat.zad.:
  747. Dat.poh.:
  748. Dat.kon.:
  749. Ks.zad. :
  750. Ks.odv. :
  751.             - 
  752.               - ^PgDn
  753.               - ^Home
  754.       - ^End,Esc
  755. Pohyb
  756.  VP   
  757. Konec - 
  758. 99999999.999
  759. 99999999.999
  760. 99999999.999
  761. W_POLE
  762. @ 8,62 &vloz w_pole( 1) pict '9999999999'  
  763. Vp  mus
  764. t vypln
  765. @ 9,62  &vloz w_pole( 2)  pict '9999' 
  766. edisko neexistuje 
  767. @10,62  &vloz w_pole( 3)              
  768. @11,62  &vloz w_pole( 4)             
  769. @12,62  &vloz w_pole( 5)             
  770. @13,62  &vloz w_pole( 6) pict '!X'   
  771. @14,62  &vloz w_pole( 7)  pict '@E' 
  772.   .  .  #
  773. Datum zad
  774.  VP mus
  775. t vypln
  776. @16,62  &vloz w_pole( 9) pict '@E'           
  777. @17,62  &vloz w_pole(10)  pict '99999999.999'  
  778. Kusy zad
  779.  pro VP mus
  780.  byt vypln
  781. -W_POLE
  782. HLASKA
  783. PEC_C
  784. V1_STR
  785. -M7_RENE
  786. LECOLORQ7
  787. UPEC_C
  788. do proc&y
  789. do zmen&y with 'get'
  790. do zmen&y with 'say'
  791.   .  .  #
  792. Nelze zru
  793. it - existuj
  794.  obraty
  795. it beze zm
  796. n? (a/N)
  797. W_POLE
  798. -POCET
  799. PEC_C
  800.  KONEC
  801. LECOLORDOL
  802. PEC_C
  803.   HOR
  804. MM_VER
  805. DOKMM_LK
  806. NOVY_Z
  807. DAT_PP
  808. HLASKA
  809. M7_PLKAL
  810. LM7_RENE
  811. PROC1
  812. ,K_UDAJU
  813. ka STAV_VP
  814. DAT_ZAD
  815. Vp  mus
  816. t vypln
  817. STAV_VP   
  818. w_pole(6) 
  819.   .  .  #
  820. Datum zad
  821.  VP mus
  822. t vypln
  823. Kusy zad
  824.  pro VP mus
  825. t vypln
  826. -OK_C
  827. W_POLE
  828. -HLASKA
  829. PEC_C
  830. JMENO_C
  831.  WJMENO_C
  832. -TYP_C
  833.  MOD_C2
  834. fRADEK_C
  835. SLOUPEC_C
  836. MOD_C1
  837. LORQ6
  838. PEC_C
  839. german
  840. set color to b/w
  841. set color to bg/n
  842. set color to w+/w
  843. set color to w+/bg
  844. set color to b/bg,w+/rb
  845. set color to w+/b
  846. set color to w/n
  847. mod74a
  848. StavVP
  849. Funkce
  850. Akt_fun
  851. Regleta nedokon
  852. roby - aktualizace pohybu
  853. mod74a
  854. StavVP
  855. Funkce
  856. akt2_fun
  857. Regleta nedokon
  858. roby - aktualizace VP
  859. mod74a
  860. StavVP
  861. Uzav/Otev
  862. Ukonceni
  863. Regleta nedokon
  864. roby - uzav
  865. mod74a
  866. RIIS 7.4
  867. m7_rene.vp
  868. m7_rene.vp
  869. m7_rene.stav_vp
  870. m7_rene.stav_vp
  871. m7_rene.stred
  872. m7_rene.stred
  873. Identifikace
  874. m7_rene.ident
  875. m7_rene.ident
  876. V.obor
  877. m7_rene.v_obor
  878. m7_rene.v_obor
  879. S.obor
  880. m7_rene.s_obor
  881. m7_rene.s_obor
  882. Dat.zad.
  883. tran(m7_rene.dat_zad,'@E')
  884. (m7_rene.dat_zad   )
  885. Dat.kon.
  886. tran(m7_rene.dat_kon,'@E')
  887. (m7_rene.dat_kon   )
  888. Dat.poh.
  889. tran(m7_rene.dat_pp,'@E')
  890. (m7_rene.dat_pp   )
  891.      Ks.zad.
  892. str(m7_rene.ks_zad,12,2)
  893. m7_rene.ks_zad
  894.      Ks.odv.
  895. str(m7_rene.ks_odv,12,2)
  896. m7_rene.ks_odv
  897.      Ks.m
  898. str(m7_rene.ks_odv_m,12,2)
  899. m7_rene.ks_odv_m
  900. PPCIS
  901. -KONEC
  902. ZAPOBD
  903. -GERMAN
  904. -PS_RETURN
  905. POLEX
  906. PROCX
  907.  CLEFT
  908. -CRIGHT
  909.  FREEZE
  910. fORDER
  911. JMENO
  912. LORHODN
  913. TITLE
  914.   TITLECOLORF1
  915. DOKF7
  916. DETAIL
  917. F1PRG
  918. F4_JM
  919. LF4PRG
  920. F7_JM
  921. F7PRG
  922. :F9KEY
  923. ,F10_JM
  924. F10PRG
  925.  DET_JM
  926. ka DETPRG
  927. RAMECEK
  928.  NAZEVT
  929. DATKLICO
  930. uANSI
  931. nOTEVRI_DATM7_RENE
  932.  BARVAS
  933. 'BARVAR
  934. txtBARVAT
  935. enoBARVAZ
  936. ateBARVAU
  937. - kBARVAN
  938. 3BARVAH
  939. lPOC0
  940.   iENTER
  941.  NADPIS
  942.    LEVA
  943.   PRAVA
  944.   DOL
  945.  MOD_PSV
  946. laOBSAH
  947. kaz   Identifikace    Po
  948. et kus
  949.     Doklad odv
  950.  KS zad. :
  951.  KS odv. :
  952.  KS m
  953. kaz neexistuje.
  954. mod_fun
  955. Identifikace v
  956. robku nen
  957.  vypln
  958. na - nelze odv
  959. mod_fun
  960.  vypln
  961. et kus
  962. mod_fun
  963. mod_fun
  964.  bylo zaps
  965. -P_KUSY
  966. -P_IDENT
  967. IDENT
  968. P_DOKL
  969. MENUO
  970. fHLASKA
  971. MOD_FUN
  972. KS_ZAD
  973. ORKS_ODV
  974. KS_ODV_M
  975.  PAR_POLE
  976. dROZHODNI
  977. ZAP_ODVADEHLASKA2
  978. DEM7_RENE
  979. kaz neexistuje.
  980. mod_fun
  981. Identifikace v
  982. robku nen
  983.  vypln
  984. na - nelze odv
  985. mod_fun
  986.  vypln
  987. et kus
  988. mod_fun
  989. -P_VP
  990. -HLASKA
  991. -MOD_FUN
  992. P_IDENT
  993. IDENT
  994.  PAR_POLE
  995. -P_KUSY
  996. obrnv
  997. robek nem
  998.  platnou kalkulaci - nelze odv
  999. obrnv
  1000. PAR_POLE
  1001. -M7_PLKAL
  1002. PLKAL
  1003. -P_PENIZ
  1004. -P_PKS
  1005. MATER
  1006. P_KUSY
  1007.  PRIP
  1008. -KUSY_D
  1009.  KUSOV
  1010. PLKAL
  1011. PLKAL
  1012. PLKAL
  1013. PLKAL
  1014. RP_VP
  1015. dP_DOKL
  1016. ZAPOBD
  1017. DESRNV
  1018. DEODV_C
  1019. OKODV_M
  1020. M1_KALK
  1021. P_IDENT
  1022. PL_OD
  1023. TYP_NAKL
  1024. IDENT
  1025. HLASKA
  1026. M7_RENE
  1027. :OBR1
  1028. ,KS_ODV
  1029. KS_ODV_M
  1030.  DAT_PP
  1031.   .  .  #
  1032. STAV_VP
  1033. -DAT_KON
  1034. PS_RETURN
  1035. german
  1036. set color to b/w
  1037. set color to bg/n
  1038. set color to w+/w
  1039. set color to w+/bg
  1040. set color to b/bg,w+/rb
  1041. set color to w+/b
  1042. set color to w/n
  1043.        
  1044. ekejte, pros
  1045. m, ... 
  1046. znam o VP
  1047.  Str:
  1048.  Zad:
  1049.  Typ:
  1050. D.zad:F
  1051.  D.poh:
  1052.  D.kon:
  1053.  Odv:
  1054. CELKEA
  1055. CELKEM
  1056. CELKEM
  1057. CELKEM
  1058. CELKEM
  1059. CELKEM
  1060. mod74a
  1061. StavVP
  1062. Obraty
  1063. Obraty
  1064. vyb_r
  1065. mod74a
  1066. Regleta nedokon
  1067. roby 
  1068. RIIS 7.4
  1069. c_r.vpp
  1070. c_r.vpp
  1071. c_r.dr
  1072. c_r.dr
  1073.     Materi
  1074. l   Kooperace        Mzdy   V
  1075. c_r.pol1
  1076. c_r.pol1
  1077.  Ost.p
  1078. .mzdy Ost.p
  1079. kl                  Celkem
  1080. c_r.pol2
  1081. c_r.pol2
  1082. GERMAN
  1083. -BARVAS
  1084. BARVAR
  1085. BARVAT
  1086. -BARVAZ
  1087. BARVAU
  1088. BARVAN
  1089. BARVAH
  1090. fPOL1
  1091. RKALC
  1092.  OTEVRI_DATSRNV
  1093. d_VPOM
  1094. DEPOZ
  1095. NAB_C
  1096. NAB_M
  1097. ODV_C
  1098. ODV_M
  1099. M7_RENE
  1100. L_NAZ
  1101. M1_IDENT
  1102. :IDENT
  1103. ,NAZEV
  1104.  STAV_VP
  1105. STRED
  1106.  KS_ZAD
  1107. DAT_ZAD
  1108. ATDAT_PP
  1109. uDAT_KON
  1110. nKS_ODV
  1111. ATOBR4
  1112.  POLEX
  1113. 'PROCX
  1114. txtRTOP
  1115. enoRBOT
  1116. ateCLEFT
  1117. - kCRIGHT
  1118. 3FREEZE
  1119. ORDER
  1120. lZAHL
  1121. tJMENO
  1122. fHODN
  1123.   iTITLE
  1124.  TITLECOLORF1
  1125. k=sF6
  1126. h 'NF10
  1127. iDETAIL
  1128. okF1PRG
  1129. n moF4_JM
  1130.     F4PRG
  1131.    F7_JM
  1132.   F7PRG
  1133. F9KEY
  1134.  F10_JM
  1135. dokF10PRG
  1136.    DET_JM
  1137.  =pDETPRG
  1138.    RAMECEK
  1139. vpNAZEVT
  1140. selRIIS
  1141. PODNIK
  1142. t oCARA
  1143.  vp POC0
  1144.  seek pF8
  1145. +pk_dokENTER
  1146.  if F9PRG
  1147.   OBRZ
  1148. t=AKCE
  1149. o dokM7_UCTO
  1150. yhPLAT_NV
  1151. o HL_OBD
  1152. ROK_NV
  1153. doZAPOBD
  1154. itNADPIS
  1155. moLEVA
  1156.    PRAVA
  1157.      iDOL
  1158.       I
  1159. MOD_PSV
  1160. ifOBSAH
  1161. c7_obrnv
  1162. m7_obrnv
  1163. a7_obrnv
  1164. a7_obrnv
  1165. m7_obrnv
  1166. m7_obrnv
  1167. a7_obrnv
  1168. c7_obrnv
  1169. c7_obrnv+
  1170. c7_obrnv
  1171. znam!
  1172. mod74a
  1173. ehled F
  1174. RIIS 7.4
  1175. c7_obrnv.d_obr+' '
  1176. c7_obrnv.d_obr
  1177. c7_obrnv.kc+' '
  1178. c7_obrnv.kc
  1179. Doklad 
  1180. c7_obrnv.cis_dokl
  1181. c7_obrnv.cis_dokl
  1182.          
  1183. str(c7_obrnv.castka,15,2)
  1184. c7_obrnv.castka
  1185.     Mno
  1186. str(c7_obrnv.mnoz,12,2)
  1187. c7_obrnv.mnoz
  1188. c7_obrnv.str
  1189. c7_obrnv.str
  1190. c7_obrnv.obdobi
  1191. c7_obrnv.obdobi
  1192. Dat.poh.
  1193. tran(c7_obrnv.dat_poh,'@E')
  1194. (c7_obrnv.dat_poh   )
  1195. RIIS 7.4
  1196. m7_obrnv
  1197. a7_obrnv
  1198. &barvas
  1199. RIIS 7.4
  1200. ehled celkov
  1201. ho stavu VP
  1202. Konec
  1203. - Esc
  1204. &barvat
  1205. Stav:
  1206. V.obor:
  1207. S.obor:
  1208. Dat.zad:F
  1209. Dat.poh:
  1210. Dat.kon:
  1211. Ks.zad:F
  1212. Ks.odv:
  1213. Mat: 
  1214. Koop:
  1215. Mzda:
  1216. VR:  
  1217. SR:  
  1218. ZR:  
  1219. OR:  
  1220. OPM: 
  1221. OPN: 
  1222. &barvas
  1223.        Po
  1224. .stav
  1225.           N
  1226.        Odv
  1227.        Kon.stav888
  1228. -MOD_SYS
  1229. PS_LINE
  1230. C7_OBRNV
  1231.  M7_OBRNV
  1232. -A7_OBRNV
  1233.  OBRNV
  1234. fOBRATY
  1235. HLASKA
  1236. PS_RETURN
  1237. OBDOBI
  1238. DATKC
  1239. dPOLEX
  1240. PROCX
  1241. DERTOP
  1242. DERBOT
  1243. OKCLEFT
  1244. CRIGHT
  1245. FREEZE
  1246. ORDER
  1247. JMENO
  1248. LHODN
  1249. TITLE
  1250. TITLECOLORF1
  1251. ATDETAIL
  1252. uF1PRG
  1253. nF4_JM
  1254. ATF4PRG
  1255.  F7_JM
  1256. 'F7PRG
  1257. txtF9KEY
  1258. enoF10_JM
  1259. ateF10PRG
  1260. - kDET_JM
  1261. 3DETPRG
  1262. RAMECEK
  1263. lNAZEVT
  1264. tRIIS
  1265. fPODNIK
  1266.   iCARA
  1267. COLORF5
  1268. ENTER
  1269.   OBRZ
  1270. =sD_OBR
  1271. laMOD_PSV
  1272. 'NOBSAH
  1273. iP_VP
  1274. okOBR
  1275. n moD_R
  1276.    MAT
  1277.   KOOP
  1278. dokSR
  1279.    ZR
  1280.  =pOR
  1281.    OPM
  1282. vpOPN
  1283. selSRNV
  1284. t oNAB_C
  1285.  vp NAB_M
  1286.  ODV_C
  1287. ek pODV_M
  1288. _dokM7_RENE
  1289. f M1_IDENT
  1290.  IDENT
  1291. =_NAZ
  1292. o dokNAZEV
  1293. yhSTAV_VP
  1294. o STRED
  1295. V_OBOR
  1296. doS_OBOR
  1297. itDAT_ZAD
  1298. moDAT_PP
  1299.    DAT_KON
  1300. KS_ZAD
  1301.   iKS_ODV
  1302.    KS_ODV_M
  1303. COLORa
  1304.  Vyhled
  1305.  Zadejte 
  1306. slo VP:
  1307.  Ukon
  1308. eno bez zad
  1309.  hodnoty ! 
  1310. set color to &_col
  1311.  VP neexistuje ! 
  1312. RIIS 7.4
  1313. set color to &_col
  1314. -_COL
  1315. CISLO
  1316. -HLASKA
  1317. PS_RETURN
  1318. m7_ucto
  1319. m_param
  1320. m7_rene
  1321. u7_srnv
  1322. m7_srnv
  1323. u7_obrnv
  1324. m7_obrnv
  1325. a7_obrnv
  1326. MEZOPRAVNA
  1327. predpis
  1328. m1_ident
  1329. ident
  1330. m7_plkal
  1331. m1_ident
  1332. ident
  1333. m1_kalk
  1334. x1_kalk
  1335. v1_str
  1336. x1_str
  1337. m_dat
  1338. x_dat
  1339. m_cis1
  1340. x_cis1
  1341. M7_UCTO
  1342. -ZAPOBD
  1343. PLAT_NV
  1344. ROK_NV
  1345. -M_PARAM
  1346. PAR_POLE
  1347. POLE7
  1348. M7_RENE
  1349.  AKCE
  1350. -U7_SRNV
  1351.  SRNV
  1352. fM7_SRNV
  1353. U7_OBRNV
  1354. OBRNV
  1355. RM7_OBRNV
  1356. A7_OBRNV
  1357. PODNIK
  1358. dPREDPIS
  1359. M1_IDENT
  1360. EIDENT
  1361. EM7_PLKAL
  1362. KM1_KALK
  1363. X1_KALK
  1364. V1_STR
  1365. X1_STR
  1366. M_DAT
  1367. X_DAT
  1368. LM_CIS1
  1369. X_CIS1
  1370. set color to b/w
  1371. set color to bg/n
  1372. set color to w+/bg
  1373. set color to b/bg,w+/rb
  1374. set color to w+/b
  1375. set color to w/n
  1376. &barvaz
  1377. &barvaz
  1378. &barvau
  1379. -ANSI
  1380. W_POLE3
  1381. NOVY_Z
  1382. -KONEC
  1383. POMOC
  1384. BARVAS
  1385. BARVAR
  1386.  BARVAZ
  1387. -BARVAU
  1388.  BARVAN
  1389. fBARVAH
  1390. OBRNV
  1391. OBRNV
  1392. OBRNV
  1393. EDPIS
  1394. _IDENT
  1395. EM7_PLKAL
  1396. KM7_RENE
  1397. DAT_AKT
  1398. KUSY_D
  1399. POLE3
  1400. RAMECEK
  1401. COLORPRAVA
  1402.  MHOD
  1403. POCET
  1404. ATZMENYK
  1405.  kalkulace 
  1406. &barvaz
  1407. Dat.aktual. :
  1408. Material    :
  1409. Kooperace   :
  1410. Nak.pripr.  :
  1411. Nak.kusove  :
  1412. Kusy davky  :
  1413. Vyr.rezie   :
  1414. Spr.rezie   :
  1415. Zasob.rezie :
  1416. Odbyt.rezie :
  1417. OPM         :
  1418. OPN         :
  1419. UVN         :
  1420. WTEXT3
  1421. 99999999.99
  1422. 99999999.99
  1423. 9999999.9999
  1424. 9999999.9999
  1425. 9999999
  1426. 99999999.99
  1427. 99999999.99
  1428. 99999999.99
  1429. 99999999.99
  1430. 99999999.99
  1431. 99999999.99
  1432. 99999999.99
  1433. POLE3
  1434. W_POLE3
  1435. -VYP_UVN
  1436. @ 12,x+2 &vloz w_pole3(2) pict '99999999.99'    
  1437. @ 13,x+2 &vloz w_pole3(3) pict '99999999.99'   
  1438. @ 14,x+1 &vloz w_pole3(4) pict '9999999.9999'    
  1439. @ 15,x+1 &vloz w_pole3(5) pict '9999999.9999'    
  1440. @ 16,x+6 &vloz w_pole3(6) pict '9999999'    
  1441. 99999999.99
  1442. 99999999.99
  1443. 99999999.99
  1444. 99999999.99
  1445. 99999999.99
  1446. 99999999.99
  1447. 99999999.99
  1448. POCET
  1449. W_POLE3
  1450.  VYP_UVN
  1451. it pr
  1452. ci beze zm
  1453. n? (a/N)
  1454. KONEC
  1455. PROCK
  1456. -ZMENK
  1457. POCET
  1458. P_UVN
  1459. -POMOC
  1460. fMENU2
  1461. NOVY_Z
  1462. RM7_RENE
  1463. OBRNV
  1464. K_UDAJU1
  1465. TOK_C
  1466. dW_POLE3
  1467. &barvah
  1468.              - 
  1469.              - ^End,Esc
  1470.              - F1
  1471.  Zmeny kalkulace 
  1472. Pohyb
  1473. Konec
  1474. Zrus help
  1475. &barvau
  1476. W_MZDA
  1477. -W_OPM
  1478. W_OPN
  1479. -W_VR
  1480. W_UVN
  1481. V1_STR
  1482.  M7_RENE
  1483. -STRED
  1484.  W_POLE3
  1485. REZIE_SPR
  1486. REZIE_VYR
  1487. REZIE_ZAS
  1488. REZIE_ODB
  1489. M7_PLKAL
  1490. U vyr. soucasti musi byt kusy davky vetsi nez 0.
  1491. Vypoctene uplne vlastni naklady jsou nulove!
  1492. -W_POLE3
  1493. HLASKA
  1494.  obrat
  1495.  obrat
  1496.  Obr. neexist. VP 
  1497.  Konec 
  1498.  Esc - konec 
  1499. Zadej VP: 
  1500. kaz neexistuje 
  1501. KONEC
  1502. -VOL11
  1503. -P_VP1
  1504. M7_RENE
  1505. MOD74A1
  1506. STRED
  1507.  MOD_SYS
  1508. -PS_LINE
  1509.  MOD74B2
  1510. ODVADENI
  1511. mod_fun
  1512.  co sou
  1513. tovat 
  1514. colorz
  1515. double
  1516.  Celkov
  1517.  Celkov
  1518. ty - v
  1519.  Esc,^End 
  1520. h            :                   K
  1521.          :                   K
  1522. sum all castka for d_obr='N' and &filt to  _souc1
  1523. sum all castka for d_obr='O' and &filt to  _souc2
  1524. RIIS 7.4
  1525. 999,999,999,999.99
  1526. 999,999,999,999.99
  1527. -HLASKA
  1528. MOD_FUN
  1529. SCRQ1
  1530. -MOD_SYS
  1531. M_COL
  1532. MOD_WIN
  1533.  _SOUC1
  1534. -_SOUC2
  1535.  CASTKA
  1536. fD_OBR
  1537. na VP 
  1538.  kalkulace 
  1539.  Konec 
  1540. KONEC
  1541. -VOL11
  1542. PAR_POLE
  1543. -MOD74C1
  1544. PS_LINE
  1545. MOD74K
  1546. M7_RENE
  1547.  MOD74A
  1548.  to %
  1549. MOD74A1
  1550. OBR_NOVE
  1551. MENUO
  1552. PROCO
  1553. PORADIO
  1554. ZMENO
  1555. clear(
  1556. ZMENYO
  1557.  @ 2u(
  1558. K_UDAJUO
  1559. NAPOVEDA
  1560. OZAPIS
  1561.  23,k6
  1562. MOD74A2
  1563. ZAP_KC
  1564. ZAPIS
  1565. t col
  1566. KONTROLA
  1567. KONEC
  1568. - Esc
  1569. 12 sayRU
  1570. HLASKA
  1571. HLASKA2
  1572. PLN_ROZ
  1573. MOD74B
  1574.  sub2Z
  1575. MOD74B2
  1576. MOD74C1
  1577. sel!o
  1578. OPRAVA
  1579. PORADI
  1580. MENU1
  1581. -- vy
  1582. PROC1
  1583.  cenyLx
  1584. ZMEN1
  1585.  pro 
  1586. ZMENY1
  1587. K_UDAJU
  1588. MOD74D
  1589. eek C
  1590. ODVADENI
  1591. KONTR_ODV
  1592. ZAP_ODVADE
  1593. UKONCENI
  1594. MOD74D1
  1595. OBRATY
  1596. VYB_R
  1597.      
  1598. OTEVRI_DAT
  1599. MOD74K
  1600. RAMECEK
  1601. PROCK
  1602. ZMENK
  1603.    ifB
  1604. ZMENYK
  1605. MENU2
  1606. r.ide
  1607. VYP_UVN
  1608. K_UDAJU1
  1609. AKT_FUN
  1610. SOUCET
  1611. AKT2_FUN
  1612. X:\OBEC\07\
  1613. MOD74A.FXP
  1614. X:\OBEC\07\MOD74A.PRG
  1615.