home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD7_POK.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-03  |  28KB  |  754 lines
  1. FFFZ^D
  2. Volba
  3. vol_obrp
  4. mod7_pok
  5. ehled obrat
  6.  pokladny F
  7. ehled obrat
  8.  pokladny F
  9. ehled obrat
  10.  pokladny
  11. ehled obrat
  12.  pokladny
  13. pok_rada+' '
  14. pok_rada
  15. Doklad
  16. ' '+str(cis_dok,5)
  17. cis_dok
  18. typ_dok+' '
  19. typ_dok
  20. kod_vety
  21. kod_vety
  22. klad dan
  23. str(zakl_d,12,2)
  24. zakl_d
  25. str(dan,5,2)
  26. stka K
  27. str(castka_kc,12,2)
  28. castka_kc
  29.       Z
  30. str(zaloha,12,2)
  31. zaloha
  32. stka pok.
  33. str(castka_pok,12,2)
  34. castka_pok
  35. mena+' '
  36.       Kurz
  37. str(kurz,10,3)
  38.       
  39. str(castka_men,12,2)
  40. castka_men
  41. '    '+str(poc_priloh,2)
  42. poc_priloh
  43. poznamka
  44. poznamka
  45. tran(dat_uct,'@E')
  46. dat_uct
  47. totoznost
  48. totoznost
  49. Faktura
  50. cis_fak
  51. cis_fak
  52. Var.symbol
  53. vars_s
  54. vars_s
  55. hrada
  56. tran(dat_spl,'@E')+' '
  57. dat_spl
  58. Z.pln
  59. tran(dat_zdanp,'@E')
  60. dat_zdanp
  61. zavod
  62. zavod
  63. Dokl.vaz.
  64. dokl_vaz+' '
  65. dokl_vaz
  66. '   '+str(mesic,2)
  67. mesic
  68. str(rok,4)
  69. Dat.akt.
  70. tran(dat_akt,'@E')
  71. dat_akt
  72. Autor
  73. autor
  74. autor
  75. Aktual.
  76. aktual
  77. aktual
  78. select &st_sel
  79. W_IDENT_POW_POK_RADAW_DOKLAD
  80. iST_ZAZ
  81. ahlST_SEL
  82. ev'OBR_POK
  83. )=M7_OBRP
  84. hoPAR_732
  85. zeIDENT_POK
  86. POLEX
  87. POPROCX
  88.   RTOP
  89. i)=' RBOT
  90. CLEFT
  91. o(i)CRIGHT
  92. kupFREEZE
  93.    ORDER
  94. ="naZAHL
  95.    i JMENO
  96.    *HODN
  97. ahl(iTITLE
  98. rodeTITLECOLORF1
  99. ="str(pF2
  100. j,9,2)"F3
  101.  hodn(iF4
  102. rodej"
  103. i = i+1F7
  104.    F9
  105. (i)='  F10
  106.  DETAIL
  107. i)=F1PRG
  108. red,F4_JM
  109.    hF4PRG
  110. "strF7_JM
  111.  i =F7PRG
  112. F9KEY
  113.    zF10_JM
  114.  NoF10PRG
  115.   DET_JM
  116. )="DETPRG
  117. d,9RAMECEK
  118. hoNAZEVT
  119. treRIIS
  120.  i = TISKPRG
  121. f PS_RETURN
  122. ENTER
  123. _POMOD_PSV
  124. W_POK_RADAPOK_RADA
  125. AW_DOKLAD
  126. iCIS_DOK
  127. FFFZ^D
  128.  obrat nebyl nalezen
  129. select &st_sel
  130. mod7_pok
  131. ehled obrat
  132.  pokladny F
  133. , cenina 
  134. ehled obrat
  135.  pokladny F
  136. , cenina 
  137. ehled obrat
  138.  pokladny, m
  139. ehled obrat
  140.  pokladny, m
  141. ehled obrat
  142.  pokladny F
  143. ehled obrat
  144.  pokladny F
  145. ehled obrat
  146.  pokladny, m
  147. ehled obrat
  148.  pokladny, m
  149. pok_rada+' '
  150. pok_rada
  151. Doklad
  152. ' '+str(cis_dok,5)
  153. cis_dok
  154. m7_obrp.typ_dok+' '
  155. m7_obrp.typ_dok
  156. et kus
  157. str(castka_men,12,2)
  158. castka_men
  159. st. v m
  160. str(castka_men,12,2)
  161. castka_men
  162. klad dan
  163. str(zakl_d,12,2)
  164. zakl_d
  165. str(dan,5,2)
  166. stka K
  167. str(castka_kc,12,2)
  168. castka_kc
  169. '    '+str(poc_priloh,2)
  170. poc_priloh
  171. poznamka
  172. poznamka
  173. tran(dat_uct,'@E')
  174. dat_uct
  175. totoznost
  176. totoznost
  177. Faktura
  178. cis_fak
  179. cis_fak
  180. Var.symbol
  181. vars_s
  182. vars_s
  183. hrada
  184. tran(dat_spl,'@E')+' '
  185. dat_spl
  186. Z.pln
  187. tran(dat_zdanp,'@E')
  188. dat_zdanp
  189. zavod
  190. zavod
  191. Dokl.vaz.
  192. dokl_vaz+' '
  193. dokl_vaz
  194. '   '+str(m7_obrp.mesic,2)
  195. m7_obrp.mesic
  196. str(m7_obrp.rok,4)
  197. m7_obrp.rok
  198.       Kurz
  199. str(m7_obrp.kurz,10,3)
  200. m7_obrp.kurz
  201. hrada
  202. tran(dat_spl,'@E')+' '
  203. dat_spl
  204. Z.pln
  205. tran(dat_zdanp,'@E')
  206. dat_zdanp
  207. '   '+str(m7_obrp.mesic,2)
  208. m7_obrp.mesic
  209. str(m7_obrp.rok,4)
  210. m7_obrp.rok
  211. Dat.akt.
  212. tran(dat_akt,'@E')
  213. dat_akt
  214. Autor
  215. autor
  216. autor
  217. Aktual.
  218. aktual
  219. aktual
  220. select &st_sel
  221. W_IDENT_POW_MENA
  222. AW_TYP
  223. iW_UZAV
  224. hlST_ZAZ
  225. ev'ST_SEL
  226. )=OBR_POK
  227. hoM7_OBRPP
  228. ePAR_732
  229. IDENT_POK
  230. NT_POHLASKA
  231. _POPOK_RADA
  232. CIS_DOK
  233. i)M7_OBRP
  234. upPOLEX
  235.   PROCX
  236. ="naRTOP
  237.    i RBOT
  238.    *CLEFT
  239. hl(iCRIGHT
  240. odeFREEZE
  241. LORORDER
  242. tr(pZAHL
  243. 9,2)"JMENO
  244. dn(iHODN
  245. TITLE
  246.  i+1TITLECOLORF1
  247. (i)='  F2
  248. i)=F4
  249. red,F6
  250.    hF7
  251. "strF9
  252.  i =F10
  253. DETAIL
  254.   zF1PRG
  255.  NoF4_JM
  256.   F4PRG
  257. )="F7_JM
  258. d,9F7PRG
  259. hoF9KEY
  260. treF10_JM
  261.  = F10PRG
  262. f DET_JM
  263. DETPRG
  264. jRAMECEK
  265. PONAZEVT
  266.   RIIS
  267. TISKPRG
  268. PS_RETURN
  269. _POMOD_PSV
  270. FFFZ^D
  271. Doklad dosud nebyl roz
  272. denik
  273. c7_obr+
  274. c7_obr
  275. xc7_obr
  276.  obraty nebyly nalezeny
  277. select &st_sel
  278. mod7_pok
  279.  dokladu
  280. ident_den+'   '
  281. ident_den
  282. Doklad
  283. ' '+str(doklad,5)
  284. doklad
  285. '   '+cis_pol
  286. cis_pol
  287. '  '+ucet
  288. '  '+nstr
  289.             MD 
  290. str(md,15,2)
  291.            DAL
  292. str(dal,15,2)
  293. Obdob
  294. '    '+str(obdobi_mm,2)
  295. obdobi_mm
  296. select &st_sel
  297. ST_SEL
  298. _POOBR_POK
  299. AM7_OBRP
  300. iDAT_UCT
  301. hlHLASKA
  302. ev'M7_OBRU
  303. )=DENIK
  304. hoIDENT_DEN
  305. DOKLAD
  306. C7_OBR
  307. CIS_POL
  308. XC7_OBR
  309. POPOLEX
  310. PROCX
  311. i)RTOP
  312. upRBOT
  313.   CLEFT
  314. ="naCRIGHT
  315.  i FREEZE
  316.   *ORDER
  317. hl(iZAHL
  318. odeJMENO
  319. LORHODN
  320. tr(pTITLE
  321. ,2)"TITLECOLORF1
  322.  i+1F3
  323. LECOLORF4
  324. (i)='  F6
  325. i)=F9
  326. red,F10
  327.    hDETAIL
  328. strF1PRG
  329.  i =F4_JM
  330. F4PRG
  331.   zF7_JM
  332.  NoF7PRG
  333.   F9KEY
  334. )="F10_JM
  335. d,9F10PRG
  336. hoDET_JM
  337. treDETPRG
  338.  = RAMECEK
  339. f NAZEVT
  340. jTISKPRG
  341. POPS_RETURN
  342. NADPIS
  343. MOD_PSV
  344. OBSAH
  345. FFFZ^D
  346. c7_poklm
  347. c7_poklm
  348. c7_poklm
  349. c7_poklm
  350. c7_poklm
  351. mod7_pok
  352. Stav cenin pokladny F
  353. Hotovost pokladny F
  354. Stav cenin
  355. Hotovost pokladny
  356. ' '+mena
  357. Za den: Po
  358. .stav
  359. '      '+str(stav_d,10,2)
  360. stav_d
  361.     P
  362. str(prij_d,10,2)
  363. prij_d
  364.      V
  365. str(vyd_d,10,2)
  366. vyd_d
  367.   Kon.stav
  368. str(zasoba,10,2)
  369. zasoba
  370. j.dokl.
  371. '     '+str(poc_pd,5)
  372. poc_pd
  373. d.dokl.
  374. '    '+str(poc_vd,5)
  375. poc_vd
  376. c: Po
  377. . stav
  378. '         '+str(stav_m,10,2)
  379. stav_m
  380.     P
  381. str(prij_m,10,2)
  382. prij_m
  383.      V
  384. str(vyd_m,10,2)
  385. vyd_m
  386.  Kon. stav
  387. str(zasoba,10,2)
  388. zasoba
  389. j.dokl.
  390. '     '+str(poc_pm,5)
  391. poc_pm
  392. d.dokl.
  393. '    '+str(poc_vm,5)
  394. poc_vm
  395. select &st_sel
  396. W_IDENT_POST_SEL
  397. AOBR_POK
  398. iM7_POKLM
  399. lPAR_732
  400. 'W_TYP_DOK
  401. C7_POKLM
  402. oIDENT_POK
  403. DRUH_MC
  404. POMENA
  405. POLEX
  406. PROCX
  407. PORTOP
  408. i)CLEFT
  409. upCRIGHT
  410.   FREEZE
  411. "naORDER
  412.  i ZAHL
  413.   *JMENO
  414. hl(iHODN
  415. odeTITLE
  416. LORTITLECOLORF1
  417. ,2)"F2
  418. LECOLORF3
  419.  i+1F6
  420. LECOLORF7
  421. (i)='  F9
  422. i)=DETAIL
  423. ed,F1PRG
  424.    hF4_JM
  425. strF4PRG
  426.  i =F7_JM
  427. F7PRG
  428.   zF9KEY
  429.  NoF10_JM
  430.   F10PRG
  431. )="DET_JM
  432. d,9DETPRG
  433. hoRAMECEK
  434. reNAZEVT
  435.  = RIIS
  436. f TISKPRG
  437. PS_RETURN
  438. PONADPIS
  439. MOD_PSV
  440. FFFZ^D
  441. m7_meny
  442. m7_meny
  443. mena_c
  444. m7_obrpp
  445. a7_obrpp
  446. cis_dok
  447. a7_obrpp
  448. cis_dok
  449. m7_obrpp
  450. m7_obrpp
  451. cis_dok
  452.  pokladn
  453. ho dokladu nebylo nalezeno
  454. a7_obrpp
  455. cis_dok
  456. select &st_sel
  457. c7_obrpp
  458. c7_obrpp+
  459. c7_obrpp
  460. mod7_pok
  461. ehled po
  462.  obratu pokladny
  463. '  '+str(poradi,2)
  464. poradi
  465. mena+' '
  466. st. v m
  467. str(castka_men,12,2)
  468. castka_men
  469. mena+' '
  470. et kus
  471. str(castka_men,12,2)
  472. castka_men
  473. klad dan
  474. str(zakl_d,12,2)
  475. zakl_d
  476. str(proc_d,5,2)
  477. proc_d
  478. str(dan,5,2)
  479. stka K
  480. str(castka_kc,12,2)
  481. castka_kc
  482. klic+' '
  483. Kl.d.
  484. klic_d+'  '
  485. klic_d
  486. poznamka
  487. poznamka
  488. totoznost
  489. totoznost
  490. Faktura
  491. cis_fak
  492. cis_fak
  493. Var.symbol
  494. vars_s
  495. vars_s
  496. hrada
  497. tran(dat_spl,'@E')+' '
  498. dat_spl
  499. Z.pln
  500. tran(dat_zdanp,'@E')
  501. dat_zdanp
  502. zavod
  503. zavod
  504. .doklad
  505. dokl_dan
  506. dokl_dan
  507. Dokl.vaz.
  508. dokl_vaz+' '
  509. dokl_vaz
  510.       Kurz
  511. str(kurz,10,3)
  512. hrada
  513. tran(dat_spl,'@E')+' '
  514. dat_spl
  515. Z.pln
  516. tran(dat_zdanp,'@E')
  517. dat_zdanp
  518. Dat.akt.
  519. tran(dat_akt,'@E')
  520. dat_akt
  521. Autor
  522. autor
  523. autor
  524. Aktual.
  525. aktual
  526. aktual
  527. a7_obrpp
  528. cis_dok
  529. select &st_sel
  530. W_IDENT_POW_POK_RADAW_DOKLAD
  531. iW_ARCHIV
  532. lST_ZAZ
  533. 'ST_SEL
  534. OBR_POK
  535. oZAV_MENY
  536. ZAV_PP
  537. POM7_MENY
  538. MENA_C
  539. M7_OBRPP
  540. OA7_OBRPP
  541. CIS_DOK
  542. i)HLASKA
  543. AC7_OBRPP
  544.  IDENT_POK
  545. POK_RADA
  546. OPORADI
  547. hl(iMENA
  548. ePOLEX
  549. RPROCX
  550. OLORRTOP
  551. ,2)"RBOT
  552. COLORCLEFT
  553. CRIGHT
  554. i+1FREEZE
  555. LORORDER
  556. ='  ZAHL
  557.  JMENO
  558. i)=HODN
  559. ed,TITLE
  560.    hTITLECOLORF1
  561.  i =F2
  562.   zF4
  563.  NoF6
  564. )="F9
  565. d,9F10
  566. hoDETAIL
  567. reF1PRG
  568.  = F4_JM
  569. f F4PRG
  570. F7_JM
  571. F7PRG
  572. POF9KEY
  573. F10_JM
  574. F10PRG
  575. DET_JM
  576. DETPRG
  577. PORAMECEK
  578. NAZEVT
  579. TISKPRG
  580. PS_RETURN
  581. DRUH_MC
  582. MOD_PSV
  583. FFFZ^D
  584. m7_pokld
  585. m7_pokld
  586. ident_pok
  587. c7_pokld+
  588. c7_pokld
  589. Volba
  590. vol_prada
  591. mod7_pok
  592. ehled pokladn
  593. pok_rada+'     '
  594. pok_rada
  595. Doklad
  596. str(doklad,5)
  597. doklad
  598. select &st_sel
  599. W_POKL
  600. _POW_RADA
  601. ADAST_SEL
  602. iOBR_POK
  603. lZAV_POKLD
  604. M7_POKLD
  605. IDENT_POK
  606. C7_POKLD
  607. POK_RADA
  608. POLEX
  609. PROCX
  610. ORTOP
  611. i)CLEFT
  612. ACRIGHT
  613.  FREEZE
  614. ORDER
  615. OZAHL
  616. JMENO
  617. hl(iHODN
  618. eTITLE
  619. RTITLECOLORF1
  620. ,2)"F2
  621. COLORF3
  622. i+1F6
  623. LORF7
  624. ='  F9
  625. i)=DETAIL
  626. ed,F1PRG
  627.    hF4_JM
  628. OLORF4PRG
  629.  i =F7_JM
  630. F7PRG
  631.   zF9KEY
  632.  NoF10_JM
  633.   F10PRG
  634. )="DET_JM
  635. d,9DETPRG
  636. hoRAMECEK
  637. reNAZEVT
  638.  = RIIS
  639. f TISKPRG
  640. PS_RETURN
  641. POENTER
  642. NADPIS
  643. MOD_PSV
  644. W_RADA
  645. _POPOK_RADA
  646. prava dat ...
  647. FFFZ^D
  648. m7_meny
  649. ordera
  650. cenina
  651. m7_meny
  652. m7_meny
  653. cenina
  654. set order to &st_order    
  655. select &st_sel   
  656. vyb_menu
  657. mod7_pok
  658. ehled m
  659. ehled cenin
  660. RIIS 7.8
  661. Cenina
  662. mena+'   '
  663. nazev
  664. nazev
  665.     N
  666. str(nakup,9,2)
  667. nakup
  668.    Prodej
  669. str(prodej,9,2)
  670. prodej
  671.     St
  672. str(stred,9,2)
  673. stred
  674.  Nom.hod.
  675. str(stred,9,2)
  676. stred
  677. aut_zvys+'   '
  678. aut_zvys
  679. aut_sniz+'   '
  680. aut_sniz
  681. Autor
  682. autor
  683. autor
  684. Aktual.
  685. aktual
  686. aktual
  687. Dat.akt.
  688. tran(dat_akt,'@E')
  689. dat_akt
  690. set order to &st_order    
  691. select &st_sel   
  692. W_MENA
  693. _POW_DRUH
  694. AST_ORDER
  695. iZAV_MENY
  696. lST_SEL
  697. M7_MENY
  698. CENINA
  699. HLASKA
  700. POLEX
  701. OPROCX
  702. i)RBOT
  703. ACLEFT
  704.  CRIGHT
  705. FREEZE
  706. OORDER
  707. hl(iJMENO
  708. eHODN
  709. RTITLE
  710. OLORTITLECOLORF1
  711. COLORF2
  712. i+1F4
  713. LORF6
  714. ='  F7
  715. i)=F10
  716. ed,DETAIL
  717.   hF1PRG
  718. OLORF4_JM
  719.  i =F4PRG
  720. F7_JM
  721.   zF7PRG
  722.  NoF9KEY
  723.   F10_JM
  724. )="F10PRG
  725. d,9DET_JM
  726. hoDETPRG
  727. reRAMECEK
  728. = NAZEVT
  729. f RIIS
  730. TISKPRG
  731. PODOL
  732. PRAVA
  733. ENTER
  734. NADPIS
  735. MOD_PSV
  736. PS_RETURN
  737. W_MENA
  738. _POMENA
  739. colora
  740. _POMCOLOR
  741. AZOBR_OBRP
  742. VOL_OBRP
  743. ZOBR_OBRM
  744. ZOBR_POBRU
  745. ZOBR_HOTP
  746. ZOBR_OBPP
  747. ZOBR_PRADA
  748. VOL_PRADA
  749. ZOBR_MENY
  750. VYB_MENU
  751. X:\OBEC\07\
  752. MOD7_POK.FXP
  753. X:\OBEC\07\MOD7_POK.PRG
  754.