home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD79I.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-22  |  56KB  |  1,279 lines
  1. c7_vdra
  2. m7_vdra
  3. cis_pok
  4. c7_vdra
  5. c7_vdra
  6. c7_obru
  7.   /  /  #
  8. german
  9. set color to b/w
  10. set color to bg/n
  11. set color to w+/w
  12. set color to b/bg,w+/rb
  13. set color to w+/b
  14. set color to w/n
  15. c7_vdra
  16. &barvau
  17. et doklad
  18.  je r
  19.  od pokladn
  20. ho dokladu. Zm
  21. nit v pokladn
  22. mod_fun
  23. M7_VDRA
  24. =0CIS_POK
  25. C7_VDRA
  26. C7_KASA
  27. drKLIC
  28. coC7_OBRU
  29. VARIAB
  30. IDENTIF
  31. --ZAVOD
  32. ----ZDAN_PLN
  33. -DICP
  34. -----KLIC_D
  35. ---PROC_D
  36. * ZAKL_D
  37. dokCIS_GD
  38. ---DAN
  39. ------PROCP1
  40. ---OBR5
  41. -----OPRA_NAZ
  42. -OBR_KAL
  43. --GERMAN
  44. cedBARVAS
  45. 9i2BARVAR
  46. useBARVAZ
  47. ra'BARVAU
  48. lecBARVAN
  49. useBARVAH
  50.  orQ1
  51. cis_pokQ2
  52.  copy sQ3
  53. to c7_vQ4
  54.    useQ5
  55. m7_vdraQ6
  56.  sele 0Q7
  57.  use c7Q8
  58. a excl
  59. if   
  60. c7_kasQ11
  61.  klic#Q12
  62.    rQ13
  63. e klicQ14
  64.  'VD 'POCET
  65.  useBARVA
  66. bru'MENU9
  67.  seKONEC
  68. ru HOR
  69.    go DOL
  70.      I
  71. lete allX
  72.      pacR
  73.     seZ
  74. _kasa
  75.  endif
  76. replace Q
  77. _a_v_POR
  78. _:DOK_POK
  79. M_CIS_G
  80. _I_.DENIK
  81. _CIS_DOK
  82. _ M7_UCTO
  83.  _CIS_VD
  84.  _ W_POVD
  85.  _SUMA
  86. _ TEXT
  87.  _D_ZNAK
  88.  _ R_ZNAK
  89. _ _C_ZNAK
  90.  _ PORADI9
  91.  _PROC9
  92. _ _ ZMENY9
  93. _ _KC
  94. _ UZAVR
  95.  _POM
  96. _ _ _ TXT2
  97. _ROZHODNI
  98. MOD_FUN
  99. _C7_2OBRU
  100. &sq2 
  101. =0KLIC_S
  102. drCISF
  103. coDAN
  104. C7_KASA
  105. UZAVR
  106. --SQ2
  107. ----POCET
  108.     - N
  109. da hodnot
  110.     - Funkce
  111.                  - ^PgDn,^PgUp
  112.                  - ^Home
  113.       - 
  114.       - ^End,Esc
  115. F8  -
  116. F10 -
  117. Pohyb -
  118. Konec -
  119. &barvau
  120. 9999999.99
  121. &barvau
  122. drKLIC_S
  123. coKLIC_D
  124. SKLAD
  125. ZAKL_D
  126. --PROC_D
  127. ---DAN
  128. -ZAKAZKA
  129. --VARS
  130. ---CISF
  131. * DICP
  132. dokZDAN_PLN
  133. -POZN
  134. -----J
  135. -----R
  136.  Vnit
  137.  doklad 
  138. Poklad.
  139. ada  :
  140. Doklad       :
  141. Text dokladu :
  142. stka pokladny : 
  143. et dokladu  : 
  144. 99999
  145. 999999999.99
  146. &barvau
  147. &barvan
  148.  K.d 
  149.  Skl. 
  150.      
  151. stka    
  152. klad   
  153.  % DPH    
  154.    Da
  155. zka   
  156.      Var.symbol   
  157. s.faktury  
  158.      DI
  159. P      
  160.  Dat.uhrady   
  161.    Pozn.F
  162. &barvau
  163. C7_KASA
  164. =0DENIK
  165. CIS_DOK
  166. W_POVD
  167. coHOR
  168. @  x,6  &vloz klic_s
  169.  neexistuje
  170. mod_fun
  171. @x  ,10 &vloz klic_d
  172.  neexistuje
  173. mod_fun
  174. @x  ,14 &vloz sklad
  175. mod_fun
  176. Chybn
  177.  identifikace skladu
  178. @x  ,19 &vloz str
  179. edisko neexistuje! 
  180. mod_fun
  181. @x  ,24 &vloz suma
  182. 999999999.99
  183. @x  ,37 &vloz zakl_d
  184. 9999999.99
  185. @x  ,50 &vloz proc_d 
  186. 9999999.99
  187. @x  ,56 &vloz dan picture '9999999.99'
  188. @x  ,68 &vloz zakazka
  189. m7_rene.dbf2
  190. m7_rene
  191. slo zak
  192. zky neexistuje 
  193. mod_fun
  194. @x+1,6  &vloz vars 
  195. m7_faodb
  196. vars_s
  197. m7_fadod
  198. vars_s
  199. m7_faodb
  200. vars_s
  201. m7_fadod
  202. vars_s
  203. Variabiln
  204.  symbol faktury neexistuje
  205. mod_fun
  206. @x+1,19 &vloz cisf 
  207. m7_faodb
  208. cis_fak
  209. m7_fadod
  210. cis_fak
  211. m7_fadod
  212. cis_fak
  213. m7_faodb
  214. cis_fak
  215. slo faktury neexistuje
  216. mod_fun
  217. @x+1,32 &vloz dicp 
  218. @x+1,48 &vloz zdan_pln pict '@E'
  219. @x+1,57 &vloz pozn 
  220. NASTAV9
  221. P_POM
  222. KLIC_S
  223. --M7_DESK
  224. --C7_VDRA
  225. --HLASKA
  226. ---MOD_FUN
  227. * C7_OBRU
  228. okPAR_ZNAK
  229. -CIS_G
  230. --KLIC_D
  231. ---Q3
  232. -SKLAD
  233. --C_ZNAK
  234. cedV4_SKLAD
  235. ra'PAR_POLE
  236. cV1_STR
  237. useQ5
  238. orSUMA
  239. _pokW_POVD
  240. y sQ6
  241. 7_vDAN
  242.   useZAKL_D
  243. draPROC_D
  244. e 0D_ZNAK
  245. kasQ9
  246. ic#ZAKAZKA
  247.  rM7_RENE
  248.  'VD 'Q10
  249. seVARS
  250. bru'C7_KASA
  251. seTYP_DOK
  252. u M7_FAODB
  253.  VARS_S
  254.    FAKT
  255. e allM7_FADOD
  256. eDICP
  257. CIS_FAK
  258. e Q11
  259. _a_v_
  260.  neexistuje
  261. mod_fun
  262.  neexistuje
  263. mod_fun
  264. mod_fun
  265. Chybn
  266.  identifikace skladu
  267. edisko neexistuje! 
  268. mod_fun
  269.  Procento dan
  270. klad dan
  271.   si neodpov
  272. mod_fun
  273. no procento dan
  274. mod_fun
  275. stka, a je zaps
  276. stky. 
  277. mod_fun
  278. mod_fun
  279. na da
  280. , a je zaps
  281. mod_fun
  282.  hodnota 
  283. mod_fun
  284. c7_obru
  285. c7_obru
  286. c7_obru
  287. c7_obru
  288. =0STAV
  289. KLIC_S
  290. M7_DESK
  291. drC7_VDRA
  292. coTXT
  293. HLASKA
  294. MOD_FUN
  295. KLIC_D
  296. --P_POM
  297. --SKLAD
  298. -V4_SKLAD
  299. D_FUN
  300. * STR
  301. okPAR_POLE
  302. -V1_STR
  303. --DAN
  304. --ZAKL_D
  305. -PROC_D
  306. edSUMA
  307. 2C_ZNAK
  308. eD_ZNAK
  309. ra'C7_3GENER
  310. C7_OBRU
  311. sePAR_ZNAK
  312. rC7_2OBRU
  313. sP_DOK
  314. DOKLAD
  315. useNSTR
  316. aSPLATNOST
  317.  c7CIS_G
  318. CIS_GD
  319. M7_UCTO
  320. asCIS_VD
  321. ic#C7_4GENER
  322. mod79i
  323. dek nelze zru
  324. it, lze pouze stornovat. 
  325. mod_fun
  326. dek nelze zru
  327. it, byl stornov
  328. mod_fun
  329. 999999999.99
  330. =0KONEC
  331. _DESK
  332. _VDRA
  333. coDOL
  334. -PROC9
  335. -OBR1
  336. -ZMEN9
  337. * NAPOVEDA9
  338. KONTROLA9
  339. MOD79I
  340. --FUN_DOK
  341. --OK_K
  342. -POCET
  343. --STAV
  344. 2HLASKA
  345. eMOD_FUN
  346. a'C7_OBRU
  347. PAR_ZNAK
  348. eC7_VDRA
  349. rCIS_G
  350. kW_POVD
  351. sSUMA
  352. ZMENA
  353. useC7_KASA
  354. aKLIC
  355. c7POR
  356. M7_UCTO
  357. CIS_VD
  358. asZDAN_PLN
  359. #DOK_POK
  360. DENIK
  361. CIS_DOK
  362. c7_tup+
  363. c7_tup
  364. c7_tup
  365. p_pom
  366. det_tup
  367. ehled TUP 
  368.  KC    N
  369. zev                       
  370. ty   MD    DAL 
  371. det_tup+'  '+m7_desk.kc+'  '+m7_desk.nazev+' '+ucet_1+' '+ucet_2
  372. mod_fun
  373. p_pom
  374. sklad
  375. ehled sklad
  376. Sklad.     N
  377. zev                             Druh Nstr 
  378. sklad+'  '+nazev+' '+druh_skl+'   '+nstr
  379. Sklad
  380. mod_fun
  381. p_str
  382. ehled st
  383. edisek 
  384. ed.     N
  385. zev                            
  386. nstr+'  '+nazev_str
  387. edisko
  388. mod_fun
  389. m7_rene.dbf2    
  390. p_pom
  391. ehled VP 
  392.  VP         Rozpiska    Str.     Kus
  393.    D.zad. Stav 
  394. vp+' '+ident+' '+stred+' '+str(ks_zad,9,2)+' '+dtoc(dat_zad)+' '+stav_vp
  395. m7_rene
  396. mod_fun
  397. ratelsk
  398.  faktury - var.s. 
  399. ratelsk
  400.  faktury - 
  401. s.f. 
  402.  Dodavatelsk
  403.  faktury - var.s. 
  404.  Dodavatelsk
  405.  faktury - 
  406. s.f. 
  407.  Konec 
  408. m7_faodb
  409. vars_s
  410. m7_faodb
  411. cis_fak
  412. m7_fadod
  413. vars_s
  414. m7_fadod
  415. cis_fak
  416. p_pom
  417. vars_s
  418. ehled odb
  419. ratelsk
  420. ch faktur 
  421. Vars.sym.  Znak  Organizace          
  422. stka   Zaplaceno    Z
  423. loha  Splatno
  424. vars_s+' '+znak_f+'  '+ico+'/'+zav+'  '+str(cast_cel,10,2)+           ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2)+' '+dtoc(dat_spl)
  425. ehled odb
  426. ratelsk
  427. ch faktur 
  428. slo f.   Znak  Organizace          
  429. stka    Zaplaceno   Z
  430. loha  Splatno
  431. cis_fak+' '+znak_f+'  '+ico+'/'+zav+'  '+str(cast_cel,10,2)+           ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2)+' '+dtoc(dat_spl)
  432. ehled dodavatelsk
  433. ch faktur 
  434. Vars.sym.   
  435. slo f.   Zn.   Organizace          
  436. stka     Zaplaceno  Z
  437. vars_s+' '+cis_fak+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+           ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2)
  438. ehled dodavatelsk
  439. ch faktur 
  440. slo f.    Vars.sym.   Zn.  Organizace          
  441. stka      Zaplaceno Z
  442. cis_fak+' '+vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+           ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2)
  443. mod_fun
  444.  U tohoto 
  445. daje nen
  446. mod_fun
  447. M7_TUP
  448. drC7_TUP
  449. coSKUPINA
  450. DET_TUP
  451. M7_DESK
  452. N_LMEZ
  453. N_PMEZ
  454. --N_HMEZ
  455. --N_DMEZ
  456. -N_PROM
  457. -N_HOD
  458. -N_POC
  459. * N_TEXT
  460. N_HLAV
  461. N_RAD
  462. --N_NVYH
  463. --ZOBR_NAP
  464. MOD_FUN
  465. -C7_VDRA
  466. --P_POM
  467. KLIC_S
  468. 2KLIC_D
  469. V4_SKLAD
  470. eSKLAD
  471. kP_STR
  472. sV1_STR
  473. aM7_RENE
  474. c7ZAKAZKA
  475. asOBR6
  476. #C7_KASA
  477. TYP_DOK
  478. VOL11
  479. M7_FAODB
  480. 'VARS_S
  481. seFAKT
  482. u CIS_FAK
  483.  M7_FADOD
  484.  VARS
  485. lDICP
  486. cCISF
  487. S_FAK
  488. HLASKA
  489. c7_2obru
  490. m7_vstup
  491. c7_vstup
  492. c7_vstup
  493. c7_vstup
  494. mod_fun
  495.  - neni zadefinovan TUP !
  496. mod_fun
  497.  - neni zadefinovan TUP
  498. mod79a1
  499. C7_2OBRU
  500. 0P_DOK
  501. C7_VDRA
  502. W_UC1
  503. drW_UC2
  504. coW_ST1
  505. W_ST2
  506. W_MD1
  507. W_MD2
  508. W_DAL1
  509. --W_DAL2
  510. --_OBD
  511. -M7_UCTO
  512. -PLAT_POK
  513. -M7_VSTUP
  514.  C7_VSTUP
  515. SKUPINA
  516. DET_TUP
  517. --STR_N
  518. --HODNOTA
  519. DAT_VYST
  520. -PAR_ZNAK
  521. -CIS_G
  522. KLIC_S
  523. eSUMA
  524. a'C7_KASA
  525. KLICG
  526. e_HODNOTA
  527. rM7_DESK
  528. kHLASKA
  529. sMOD_FUN
  530. W_TEXT
  531. e_DENIK
  532. aDENIK
  533. NAZEV
  534. c7_DOK
  535. W_POR
  536. M7_DENIK
  537. sDOKLAD
  538. #M7_TUP
  539. VYTVOR_OB
  540. MOD79A1
  541. NAPLN3_COB
  542. c7_2obru
  543. c7_2obru
  544. 0IDENT_DEN
  545. DOKLAD
  546. CIS_POL
  547. drDATUM
  548. coNSTR
  549. SKLAD
  550. --OBDOBI_MM
  551. PAR_ZNAK
  552. -CIS_G
  553. -RAD_TUP
  554. -NED_VYROBASKUPINA
  555. SPLATNOST
  556. W_UC1
  557. --_DENIK
  558. --_DOK
  559. W_POR
  560. -W_ST1
  561. -C7_VSTUP
  562. 2W_MD1
  563. eW_DAL1
  564. a'C7_VDRA
  565. e_OBD
  566. rM7_TUP
  567. kDAT_VYST
  568. AW_UC2
  569. W_ST2
  570. eSKL2
  571. aW_MD2
  572. W_DAL2
  573. c7_2obru
  574. m7_vstup
  575. c7_vstup
  576. c7_vstup
  577. c7_vstup
  578. mod_fun
  579.  - neni zadefinovan TUP !
  580. mod_fun
  581.  - neni zadefinovan TUP
  582. mod79a1
  583. C7_2OBRU
  584. 0P_DOK
  585. C7_VDRA
  586. W_UC1
  587. drW_UC2
  588. coW_ST1
  589. W_ST2
  590. W_MD1
  591. W_MD2
  592. W_DAL1
  593. --W_DAL2
  594. -M7_UCTO
  595. -PLAT_POK
  596. -M7_VSTUP
  597. AC7_VSTUP
  598. SKUPINA
  599. DET_TUP
  600. --STR_N
  601. --HODNOTA
  602. DAT_VYST
  603. -PAR_ZNAK
  604. -CIS_G
  605. KLIC_D
  606. a'CIS_GD
  607. C7_KASA
  608. eKLICG
  609. r_HODNOTA
  610. kM7_DESK
  611. AHLASKA
  612. MOD_FUN
  613. eW_TEXT
  614. a_DENIK
  615. DENIK
  616. c7NAZEV
  617. A_DOK
  618. W_POR
  619. sM7_DENIK
  620. #DOKLAD
  621. M7_TUP
  622. VYTVOR_OB
  623. MOD79A1
  624. OBNAPLN3_COBW
  625. edpis 
  626.  Storno dokladu 
  627.  Konec 
  628. mod79a1
  629. 0KON1
  630. VOL11
  631. drRUC_2UCT
  632. oZOBR_OBR
  633. MOD79A1
  634. STOR_DOK
  635. C7_VDRA
  636. --KLIC_S
  637. dek lze zru
  638. it, nelze stornovat. 
  639. mod_fun
  640. STORNO
  641. 9999999.99
  642. 999999999.99
  643. HLASKA
  644. MOD_FUN
  645. drP_POM
  646. oSUMA
  647. ZAKL_D
  648. PROC_D
  649. -KLIC_S
  650. -KLIC_D
  651. -SKLAD
  652. ZAKAZKA
  653. --CISF
  654. --DICP
  655. ZDAN_PLN
  656. -C_ZNAK
  657. D_ZNAK
  658. 2KONTROLA9
  659. W_POVD
  660. a'OBR6
  661. set color to b/w
  662. set color to bg/n
  663. set color to w+/w
  664. set color to w+/bg
  665. set color to b/bg,w+/rb
  666. set color to w+/b
  667. set color to w/n
  668. RIIS 7.1
  669.  e t n 
  670.   obraty  za  
  671. 2napln_c7_o
  672. &barvah
  673. 2menu1
  674. 2hlav1
  675. 2proc1
  676. 2hlav2
  677. 2proc2
  678. 2zmeny
  679. stka dokladu je r
  680.  od sou
  681. tu obrat
  682. nit doklad ?
  683. mod_fun
  684. c7_obru
  685. P2_SUMA
  686. 0SUMA
  687. KLIC_S
  688. ZMENY
  689. AKONEC
  690. --POCET
  691. --DOP1
  692. -OK_C
  693. NOVY_Z
  694. 2ZMENA1
  695. ZMENA2
  696. POC_ZAZ
  697. eZOBR_ZAZ
  698. rRADEK
  699. _DESK
  700. AINDIK
  701. c7KONTROLA
  702. sNOVY_R
  703. #OBRAT
  704. ZMENA
  705. _UCET
  706. BPMSTR
  707. _COBPMTUP
  708.  PMSKUP
  709.  W_SK
  710.  PMDAT
  711. lW_POLE
  712. cPMCASTKA
  713. eBARVAS
  714. BARVAR
  715. BARVAT
  716. e BARVAZ
  717. BARVAU
  718. BARVAN
  719. BARVAH
  720. _v_M7_UCTO
  721. _:W_ROK
  722. M_ROK
  723. _I_.OBD
  724. _PLAT_POK
  725.  OBDC
  726.  __OBD
  727.  _GENER
  728.  _CIS_G
  729. _ BARVA
  730.  _C7_2OBRU
  731.  W_DENIK
  732. _IDENT_DEN
  733. DEN_POK
  734.  _W_TEXT
  735.  _ C7_VDRA
  736.  _POZN
  737. _ M7_DENIK
  738. _TEXT
  739.  W_DOKLAD
  740. _DOKLAD
  741. W_NED_VYR
  742. NED_VYROBAW_PAR_ZNAKPAR_ZNAK
  743. W_CINNOST
  744. CINNOST
  745. W_SPLAT
  746. _SPLATNOST
  747. _M7_UCET
  748. POCET1
  749. _POCET2
  750. 2OBRU
  751. MD_CELK
  752. _DAL_CELK
  753. W_POVD
  754. _ROZHODNI
  755. MOD_FUN
  756. _C7_OBRU
  757. &barvah
  758. 2menu1
  759. 2hlav1
  760. 2hlav2
  761. 2proc1
  762. 2proc2
  763. &barvau
  764. 2zmeny
  765. ZMENY
  766. CISELNIK
  767. --POCET1
  768. POOCET2
  769. -MD_CELK
  770. -DAL_CELK
  771. APOMOC
  772. BARVA
  773. BARVAZ
  774. --KONEC
  775. a'POCET2
  776. &barvau
  777. &barvas
  778. &barvaz
  779. &barvar
  780. &barvar
  781. pis na obou stran
  782. &barvaz
  783. &barvat
  784. Doklad:
  785. Var.symbol:
  786. innost:
  787. Splatnost:
  788. &barvau
  789. &barvas
  790. &barvau
  791. &barvar
  792. &barvaz
  793. &barvar
  794. pis na obou stran
  795. &barvat
  796. &barvaz
  797. Celkem:
  798. &barvat
  799. &barvan
  800. D A L
  801. &barvau
  802. &barvau
  803. &barvas
  804. &barvaz
  805. &barvar
  806. &barvar
  807. &barvaz
  808. &barvat
  809. Text:
  810. Var.symbol:
  811. innost:
  812. Splatnost:
  813. &barvau
  814. &barvau
  815. &barvaz
  816. Esc - Konec
  817. ^End - Generuj
  818. &barvaz
  819. stka:    
  820. edisko: 
  821. Skupina:   
  822. TUP:       
  823. Dat.vyst.: 
  824. &barvau
  825. &barvas
  826. 99999
  827. &barvau
  828. 0W_DENIK
  829. W_TEXT
  830. W_DOKLAD
  831. rW_NED_VYR
  832. W_PAR_ZNAKW_CINNOST
  833. W_SPLAT
  834. &barvat
  835. &barvaz
  836. &barvas
  837. &barvau
  838. &barvas
  839. &barvau
  840. 999999999999.99
  841. 999999999999.99
  842. &barvau
  843. DENIK
  844. DOKLAD
  845. rCIS_POL
  846. _ZNAKMD
  847. INNOST
  848. SKLAD
  849. C7_2OBRU
  850. -ST_ZAZ
  851. -MD_CELK
  852. -DAL_CELK
  853. AM7_UCET
  854. NAZEV
  855. &barvau
  856. &barvas
  857. &barvau
  858. 0X_TEXT
  859. X_NED_VYR
  860. X_PAR_ZNAKX_CINNOST
  861. X_SPLAT
  862. &barvau
  863. 999999999.99
  864. 0PMCASTKA
  865. PMSTR
  866. PMSKUP
  867. NAKPMTUP
  868. PMDAT
  869. @ 4,9 &vloz w_denik picture '@!X'
  870. mod_fun
  871. Chybn
  872.  identifikace den
  873. @ 4,13 &vloz w_text picture '@X'
  874. @ 5,10 &vloz w_ned_vyr
  875. @ 5,34 &vloz w_par_znak
  876. @ 5,55 &vloz w_cinnost
  877. @ 5,70 &vloz w_splat picture '@E'
  878. 2proc1
  879. CASTKA
  880. M7_DENIK
  881. KW_DENIK
  882. W_TEXT
  883. AKTEXT
  884. W_DOKLAD
  885. DOKLAD
  886. HLASKA
  887. --MOD_FUN
  888. _2OBRU
  889. _CELK
  890. 2nastav_q
  891. @ x,8  &vloz ucet picture '@!X'
  892. @ x,16 &vloz md
  893. @ x,33 &vloz dal
  894. @ x,49 &vloz nstr picture 'XXXX'
  895. @ x,55 &vloz sklad picture 'XXXX'
  896. 999999999999.99
  897. 999999999999.99
  898. CASTKA
  899. M7_UCET
  900. NAZEV
  901. KC7_2OBRU
  902. _2OBRU
  903. CIS_POL
  904. S_POL
  905. 2OBRU
  906. -ST_ZAZ
  907. MD_CELK
  908. --DAL_CELK
  909. @ 18,10 &vloz x_text
  910. @ 19,10 &vloz x_ned_vyr
  911. @ 19,34 &vloz x_par_znak
  912. @ 19,55 &vloz x_cinnost
  913. @ 19,70 &vloz x_splat picture '@E'
  914. CASTKA
  915. 2OBRU
  916. 2OBRU
  917. @m+1,35 &vloz pmcastka picture '999999999.99'
  918. mod_fun
  919.  vypln
  920. @m+2,35 &vloz pmstr
  921. @m+3,35 &vloz pmskup
  922. @m+4,35 &vloz pmtup
  923. @m+5,35 &vloz pmdat picture '@E'
  924. mod_fun
  925.  vypln
  926. no datum
  927. CASTKA
  928. PMCASTKA
  929. KHLASKA
  930. MOD_FUN
  931. PMSTR
  932. PAR_POLE
  933. -KONTR_STREQ3
  934. 2OBRU
  935. -PMSKUP
  936. -KONTR_SKUPQ4
  937. APMTUP
  938. KONTR_TUP
  939. --PMDAT
  940. 2nastav_q
  941. do 2proc&n
  942. do 2zmen&n with 'get'
  943. do 2zmen&n with 'say'
  944. mod7_lib
  945. 99999
  946. &barvau
  947. ehled 
  948. ehled st
  949. edisek 
  950. ehled sklad
  951.  Konec 
  952. mod7_lib
  953. mod_proc
  954. mod_proc
  955. &barvau
  956. &barvau
  957. 2kontrola1
  958. 2pridej_c7
  959. 2hlav1
  960. 2proc1
  961. 2hlav2
  962. 2proc2
  963. 2menu2
  964. &barvau
  965. 2hlav2
  966. 2proc2
  967. do 2hlav&n
  968. do 2proc&n
  969. do 2menu&n
  970. &barvau
  971. 2kontrola2
  972. 2nastav_q
  973. if q<pocet&n .and.i#55
  974. 2kontrola2
  975. 2nastav_q
  976. 2kontrola2
  977. 2nastav_q
  978. 2kontrola2
  979. 2nastav_q
  980. 2pridej_c7
  981. 2nastav_q
  982. 2kontrola2
  983. 2nastav_q
  984. 2kontrola2
  985. 2nastav_q
  986. 2kontrola2
  987. 2pridej_c7
  988. 2kontrola2
  989. 2pridej_c7
  990. if q<pocet&n .and.i#55
  991. do 2hlav&n
  992. do 2proc&n
  993. &barvau
  994. 2kontr_sum
  995. 2kontrola2
  996. Nelze pou
  997.  - chyba v obratech
  998. mod_fun
  999. 2proc2
  1000. do 2hlav&n
  1001. do 2proc&n
  1002. &barvau
  1003. 2kontr_sum
  1004. 2kontrola2
  1005. KONEC
  1006. CASTKA
  1007. ZMENY
  1008. POCET1
  1009. _POLE
  1010. -POCET3
  1011. TREPOCET4
  1012. NTR_SKUPX
  1013. R_TUP
  1014. -OBR1
  1015. MM_LK
  1016. 2C7_VDRA
  1017. a'OBR
  1018. eW_DENIK
  1019. rPOM2
  1020. kW_DOKLAD
  1021. AZOBR_DENIKW_ROK
  1022. eMOD7_LIB
  1023. aC7_2OBRU
  1024. IDENT_DEN
  1025. M7_DENIK
  1026. AW_TEXT
  1027. sDOKLAD
  1028. VOLBA
  1029. W_UCET
  1030. ZOBR_UCET
  1031. W_STRED
  1032. BNSTR
  1033.  ZOBR_STR
  1034.  MOD_PROC
  1035.  W_SKLAD
  1036. lSKLAD
  1037. cZOBR_SKL
  1038. eKONTROLA
  1039. e ZAZ
  1040. X_PAR_ZNAKPAR_ZNAK
  1041. X_NED_VYR
  1042. NED_VYROBAX_CINNOST
  1043. CINNOST
  1044. _.X_SPLAT
  1045. _SPLATNOST
  1046. X_TEXT
  1047.  _POCET2
  1048. NOVY_R
  1049. _ZMENA
  1050. _ CIS_POL
  1051.  _OBR5
  1052.  KONTR_CTUPOK_K
  1053. GENERUJ
  1054.  _CHYB
  1055.  _ TXT
  1056.  _HLASKA
  1057. _ MOD_FUN
  1058. 0C7_2OBRU
  1059. ST_ZAZ
  1060. IDENT_DEN
  1061. W_DENIK
  1062. DOKLAD
  1063. KW_DOKLAD
  1064. DATUM
  1065. PAR_ZNAK
  1066. W_PAR_ZNAKNED_VYROBAW_NED_VYR
  1067. CINNOST
  1068. -W_CINNOST
  1069. SPLATNOST
  1070. W_SPLAT
  1071. OBDOBI_MM
  1072. M7_UCTO
  1073. --PLAT_POK
  1074. -TEXT
  1075. W_TEXT
  1076. -CIS_G
  1077. -C7_KASA
  1078. SKUPINA
  1079. a'ALL
  1080. CIS_POL
  1081. mod_fun
  1082. Chybn
  1083.  identifikace den
  1084. KONTROLA
  1085. 0M7_DENIK
  1086. W_DENIK
  1087. HLASKA
  1088. MOD_FUN
  1089. DOKLAD
  1090. C7_2OBRU
  1091. mod_fun
  1092. Chybn
  1093. mod_fun
  1094.  vypln
  1095. mod_fun
  1096. Nelze vyplnit sou
  1097. TI a DAL
  1098. mod_fun
  1099. Chybn
  1100.  zadan
  1101. kladov
  1102. edisko
  1103. mod_fun
  1104. Chybn
  1105.  identifikace skladu
  1106. KONTROLA
  1107. 0M7_UCET
  1108. HLASKA
  1109. MOD_FUN
  1110. OKLAD
  1111. _2OBRU
  1112. C7_2OBRU
  1113. 2OBRU
  1114. VYROBAQ2
  1115. V1_STR
  1116. -NSTR
  1117. SKLAD
  1118. V4_SKLAD
  1119. c7_2obru
  1120. c7_2obru
  1121. c7_2obru
  1122. C7_OBRU
  1123. 0C7_2OBRU
  1124. PAR_ZNAK
  1125. C7_VDRA
  1126. CIS_G
  1127. M7_UCTO
  1128. KDEN_POK
  1129. MIDENT_DENM7_DENIK
  1130. MDOKLAD
  1131. KDOKLAD
  1132. OBACIS_POL
  1133. ENDATUM
  1134. -OBDOBI_MM
  1135. IDENT_DEN
  1136. TROLA
  1137. SPLATNOST
  1138. SKUPINA
  1139. -PLAT_POK
  1140. PUC_POKL
  1141. 2POZN
  1142. STR_POK
  1143. ENC7_KASA
  1144. TYP_DOK
  1145. eSUMA
  1146.       - 
  1147.       - ^End,Esc
  1148.       - F2
  1149. Pohyb
  1150. Konec 
  1151. Bloky 
  1152.        - F10
  1153. C7_VDRA
  1154. 0STAV
  1155. ,PgDn,PgUp
  1156.  - ^PgDn
  1157.  - ^Home
  1158.  - F3
  1159.  - F10
  1160.  - ^End,Esc
  1161. Pohyb
  1162. idat 
  1163. Texty
  1164. Funkce
  1165. Konec
  1166.       - 
  1167.       - F3
  1168. Pohyb
  1169.       - 
  1170.           - F9
  1171.       - Enter
  1172. Pohyb
  1173. Vyhled
  1174. mod_fun
  1175. edisko neexistuje
  1176. mod_fun
  1177. edisko neexistuje
  1178. mod_fun
  1179. et neexistuje
  1180. mod_fun
  1181. et neexistuje
  1182. c7_2obru
  1183. c7_2obru
  1184. V1_STR
  1185. 0_ST1
  1186. HLASKA
  1187. MOD_FUN
  1188. W_POLE
  1189. K_ST2
  1190. EN_UC1
  1191. KIDENT_DEN
  1192. DOKLAD
  1193. ENCIS_POL
  1194. -DATUM
  1195. SKLAD
  1196. NT_DEN
  1197. -TEXT
  1198. -OBDOBI_MM
  1199. PAR_ZNAK
  1200. CIS_G
  1201. -RAD_TUP
  1202. NED_VYROBACINNOST
  1203. SKUPINA
  1204. ENSPLATNOST
  1205. e_DENIK
  1206. r_DOK
  1207. k_POR
  1208. AC7_VSTUP
  1209. KSKL1
  1210. e_MD1
  1211. a_DAL1
  1212. A_GENER
  1213. M7_TUP
  1214. sSKL2
  1215. ADAT_VYST
  1216. _DAL2
  1217. colora
  1218. set color to &color
  1219. 0COLOR
  1220. POCET2
  1221. mod_fun
  1222. Nejsou vyrovn
  1223. ny strany M
  1224. TI a DAL
  1225. KONTROLA
  1226. 0C7_2OBRU
  1227. ST_ZAZ
  1228. MD_CELK
  1229. KDAL_CELK
  1230. HLASKA
  1231. NMOD_FUN
  1232. ENT_DEN
  1233. MOD79I2
  1234. NASTAV9
  1235. MENU9
  1236. PROC9
  1237. PORADI9
  1238. ZMEN9
  1239. KONTROLA9
  1240. ZMENY9
  1241. NAPOVEDA9
  1242. C7_3GENER
  1243. NAPLN3_COB
  1244. C7_4GENER
  1245. FUN_DOK
  1246. STOR_DOK
  1247. RUC_2UCT
  1248. 2obratuct
  1249. 2hlav1
  1250. 2hlav2
  1251. 2hlav3
  1252. PRGFG}
  1253. 2hlav4
  1254. 2proc1
  1255. 2proc2
  1256. 2proc3
  1257. 2proc4
  1258. 2zmen1
  1259. 2zmen2
  1260. 2zmen3
  1261. 2zmen4
  1262. 2zmeny
  1263. 2.PR2
  1264. 2pridej_c7
  1265. 2kontrola1
  1266. 2kontrola2
  1267. 2kontrola3
  1268. 2napln_c7_
  1269. 2menu1
  1270. 2menu2
  1271. 2menu3
  1272. 2menu4
  1273. 2napln_pob
  1274. 2nastav_q
  1275. 2kontr_sum
  1276. W:\07\
  1277. MOD79I.FXP
  1278. W:\07\MOD79I.PRG
  1279.