home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 05 / MOD54C1.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-24  |  31KB  |  856 lines
  1. RIIS 5.4
  2. Sledov
  3. Zadejte, kolik % z hodnoty Nh/tis.ks
  4. pro 1. operaci odlitku (formov
  5. t jako v
  6. kon tav
  7. rny.   
  8. Zadejte procento:
  9. 999.99
  10. Pro d
  11. lny operace '103 ' a '108 ' se berou procenta
  12. z hodnoty 'koeficient', kter
  13.  se nav
  14.  v pl
  15. novac
  16. ch (navedeme nap
  17. . 49.50).
  18. Vyberte obdob
  19.  Aktu
  20.  obdob
  21.  Minul
  22.  obdob
  23.  Archiv 
  24. cursorz
  25. Zadejte mm/RRRR:   /
  26. set cursor &cCur
  27. 999.99
  28. kony tav
  29. Archiv v
  30. kony tav
  31. rny - min. obdob
  32.  Prob
  33. prava dat ... 
  34. c4_pomq
  35. FOR left(kod_ob,1)='O' and          (typ_um_v='E' or typ_um_v='V') and m1_ident.kod_pol = 'O'
  36. m1_kalk
  37. x1_kalk
  38. m1_obr
  39. m1_kalk
  40. x1_kalk
  41. m1_obr_a
  42. obdobi
  43. WHILE rok = nRR and mesic = nMM 
  44. u1_kalk
  45. ident
  46. u1_obr
  47. Chybn
  48.  nastaven
  49.  prom
  50. m1_plan
  51. x1_plan
  52. m1_ident
  53. ident
  54. zakladni\m1_Normy
  55. Operace
  56. SCAN &cPodm
  57. r ceny a 
  58. asu 1.operace ...   
  59. termin<
  60. mod54c1
  61. Funkce
  62. funkce
  63. Term.odv
  64. tran(cObr.termin_ob,'@E')
  65. (cObr.termin_ob )
  66. cObr.ident
  67. cObr.ident
  68. zev polo
  69. m1_ident.nazev
  70. m1_ident.nazev
  71.     Mno
  72. str(cObr.skut_mnoz,12,3)
  73. cObr.skut_mnoz
  74.    Nh celkem
  75. str(cObr.nh_celkem,12,2)
  76. cObr.nh_celkem
  77. cObr.stred_obr
  78. cObr.stred_obr
  79. Nh/1000 Ks
  80. str(cObr.nh_tis,10,2)
  81. cObr.nh_tis
  82. VN/1ks
  83. str(cObr.naklad,12,2)
  84. cObr.naklad
  85. Celkem 
  86. str(cObr.naklad * cObr.skut_mnoz,12,2)
  87. cObr.naklad * cObr.skut_mnoz
  88.  Hmot./1ks
  89. str(m1_plan.vaha_mj,10,3)
  90. m1_plan.vaha_mj
  91. Hmot.celkem
  92. str(m1_plan.vaha_mj * cObr.skut_mnoz,11,3)
  93. m1_plan.vaha_mj * cObr.skut_mnoz
  94. Sklad      
  95. cObr.vydal_skl+'/'+cObr.vyd_um_skl+'/'+cObr.typ_um_v
  96. cObr.vydal_skl
  97. cObr.ident_zak
  98. cObr.ident_zak
  99. Doklad
  100. cObr.dokl_cis
  101. cObr.dokl_cis
  102. cObr.popis_obr
  103. cObr.popis_obr
  104. cObr.jmeno
  105. cObr.jmeno
  106. m1_ident.rada
  107. m1_ident.rada
  108. Koeficient
  109. str(m1_plan.koef,11,4)
  110. m1_plan.koef
  111. RIISQ
  112. ex oCNAZEVT
  113. AZEVT
  114. erNPROC
  115. cendQVOL11
  116. eleRK
  117. eatW_VOL
  118. Obr W_DRUH
  119. DENNRR
  120. c(1NMM
  121.   TCCUR
  122. OB   I
  123. MOD_SYS
  124. AKMESS
  125. 0),  C4_POMQ
  126. _MTERMIN
  127. 12,CENA
  128. VYDIDENT
  129.   c(HMOTNOST
  130.  VYKON
  131. SKL COBR
  132. TERMIN_OB
  133. IDENT_ZAK
  134. SKUT_MNOZ
  135. VYDAL_SKL
  136. VYD_UM_SKLTYP_UM_V
  137. cPOPIS_OBR
  138. STRED_OBR
  139. DOKL_CIS
  140. ;NAKLAD
  141. AD JMENO
  142. 11,2NH_TIS
  143. MENNH_CELKEM
  144. CPODM
  145.   nM1_KALK
  146.   X1_KALK
  147. M1_OBR
  148. kemM1_OBR_A
  149.  OBDOBI
  150. dm U1_KALK
  151. ftU1_OBR
  152. )=HLASKA
  153. M1_PLAN
  154. (tX1_PLAN
  155. E'M1_IDENT
  156. _ZAKLADNI
  157.  OPERACE
  158. koPOCET
  159. POCETC
  160. casPL_OD
  161. _dTYP_NAKL
  162. W_NAKLAD
  163. 1NNH_TIS
  164. exNSKUTPROC
  165. M1_NORMY
  166. C_POSTUP
  167. wKOEF
  168. PROCENTA
  169. POLEX
  170. e PROCX
  171.  indRTOP
  172. lect CLEFT
  173. se mCRIGHT
  174. ordFREEZE
  175. i aORDER
  176. _obrHOR
  177. seek sDOL
  178. RR,4)+LEVA
  179. MM,2)PRAVA
  180. odm NADPIS
  181.  roZAHL
  182. R andHODN
  183. = nMSOUC
  184. cPodmTITLE
  185. w_drTITLECOLORPOC0
  186. use u1_F1
  187.  order F2
  188. t aliasF3
  189. lect 0
  190. use u1_F7
  191. alias mF9
  192. otheF10
  193.    dF0PRG
  194. a wiF1ON
  195.  F1PRG
  196.  pF4_JM
  197. F4PRG
  198. TISKPRG
  199. F7_JM
  200. planF7PRG
  201. x1_pF9PRG
  202. lectF9KEY
  203.  m1_F9KEY1
  204. derF10_JM
  205. selF10PRG
  206.  zaRAMECEK
  207. _NRIIS
  208. rder NAZEVT
  209. STKLICO
  210. KLNAZ
  211. SPACEBAR
  212. bTR_HL1
  213. @mTR_HL2
  214. r tTR_HL3
  215. @TR_HL4
  216.    TR_HL5
  217. TR_HL6
  218. sayTR_HL7
  219. e, TR_HL8
  220. z hTR_HL9
  221. h/tDET_JM
  222. @m+ENTER
  223. y "pDETAIL
  224. eraDETPRG
  225. ku PS_LINE
  226. )PS_RETURN
  227. PS_ZAZN
  228.  MOD_PSV
  229. colora
  230. set color to &color
  231. ex oCOLOR
  232. rmOBR
  233. orderz
  234. ehled odv
  235.  po dnech 
  236. ty za polo
  237. ty za polo
  238. ky a st
  239. ediska 
  240. ty za v
  241. rob. 
  242. ty za v
  243. ady a st
  244. ediska 
  245.  Konec 
  246. set order to &m_trideni
  247. OBRZ1
  248. ex o_ZAZ
  249. rmVOLBA
  250. erCOBR
  251. cendFILT
  252. eleM_TRIDENI
  253. _VETA
  254. Obr CELKEM
  255. DENHMOT_CEL
  256. 1KUS_CEL
  257.  TVYK_CEL
  258.   VZNIKLSOUBM
  259. D_SYS
  260. AKOBRZ2
  261. ),  MOD_SYS
  262. _MPREHLED
  263. 2,SUMACE
  264. YDC4SPOL
  265. OUBPS_RETURN
  266.  Prob
  267. prava dat ... 
  268. c4_pomq
  269. ex oC4_POMQ
  270. rmCOBR
  271. er_VETA
  272. cendS_MNOZ
  273. eleS_CELKEM
  274. CELKEM
  275. br S_HMOTNOSTHMOT_CEL
  276. 1S_VYK
  277.  TVYK_CEL
  278.   W_IDENT
  279. UBIDENT
  280. AKW_TERMIN
  281.  TERMIN_OB
  282. SKUT_MNOZ
  283. NH_CELKEM
  284. M1_KALK
  285. UBPL_OD
  286. TYP_NAKL
  287.  W_UVN
  288. M1_PLAN
  289. VAHA_MJ
  290. STS_UVN
  291. REKAP2
  292. Detail
  293. Deta__il
  294. mod54c1
  295. Datum
  296. tran(c4_pomq.termin,'@E')
  297. c4_pomq.termin
  298. VN celkem
  299. str(C4_pomq.cena,12,2)
  300. c4_pomq.cena
  301. Hmot.celkem
  302. str(C4_pomq.hmotnost,11,3)
  303. c4_pomq.hmotnost
  304.    Nh celkem
  305. str(C4_pomq.vykon,12,2)
  306. c4_pomq.vykon
  307. Celkem:
  308. centuryz
  309. 99999999999.99
  310. 99999999.999
  311. 999999999.99
  312. OBRB2
  313. ex oOBRZ1
  314. rmPOLEX
  315. erPROCX
  316. cendRTOP
  317. eleRBOT
  318. CLEFT
  319. br CRIGHT
  320. OSTFREEZE
  321. 1ORDER
  322.  THOR
  323.   DOL
  324. UBLEVA
  325. AKPRAVA
  326.  NADPIS
  327. JMENO
  328. UBSOUC
  329. TITLE
  330.  TITLECOLORPOC0
  331. IS_OBR
  332. ED_OBR
  333. L_CIS
  334. AD F0PRG
  335. 11,2F1ON
  336. MENF1PRG
  337. F4_JM
  338.   nF4PRG
  339.   TISKPRG
  340. F7_JM
  341. kemF7PRG
  342.  F9PRG
  343. dm F9KEY
  344. ftF9KEY1
  345. )=F10_JM
  346. F10PRG
  347. (tRAMECEK
  348. E'RIIS
  349. _NAZEVT
  350.  KLICO
  351. koKLNAZ
  352. SPACEBAR
  353. sTR_HL1
  354. _dTR_HL2
  355. TR_HL3
  356. 0TR_HL4
  357. 1TR_HL5
  358. exTR_HL6
  359. TR_HL7
  360. TR_HL8
  361. _TR_HL9
  362. wDET_JM
  363. ENTER
  364. DETAIL
  365. e DETPRG
  366. indPS_LINE
  367. PS_RETURN
  368. PS_ZAZN
  369.  mCNAZEVT
  370. rdRIISQ
  371. brN_1
  372. ek sN_2
  373. RR,4)+N_3
  374. MM,2)CELKEM
  375. dm HMOT_CEL
  376. oVYK_CEL
  377. ndHELP3
  378. = nMMOD_PSV
  379. Konec
  380. Pohyb
  381. -Enter
  382. ,PgUp,PgDn
  383. c4_pq1+
  384. c4_pq1
  385. termin_ob
  386. datez
  387. german
  388. kony tav
  389. rny dne 
  390. set date to &_ddd
  391. mod54c1
  392. Funkce
  393. funkce
  394. Dat.odv.
  395. tran(c4_pq1.termin_ob,'@E')
  396. (c4_pq1.termin_ob )
  397. c4_pq1.ident
  398. c4_pq1.ident
  399. zev polo
  400. m1_ident.nazev
  401. m1_ident.nazev
  402. c4_pq1.stred_obr
  403. c4_pq1.stred_obr
  404.     Mno
  405. str(c4_pq1.skut_mnoz,12,3)
  406. c4_pq1.skut_mnoz
  407.    Nh celkem
  408. str(c4_pq1.nh_celkem,12,2)
  409. c4_pq1.nh_celkem
  410. Nh/1000 Ks
  411. str(c4_pq1.nh_tis,10,2)
  412. c4_pq1.nh_tis
  413. VN/1ks
  414. str(c4_pq1.naklad,12,2)
  415. c4_pq1.naklad
  416. Celkem 
  417. str(c4_pq1.naklad * c4_pq1.skut_mnoz,12,2)
  418. c4_pq1.naklad * c4_pq1.skut_mnoz
  419. Sklad
  420. c4_pq1.vydal_skl+'/'+c4_pq1.vyd_um_skl+'/'+c4_pq1.typ_um_v
  421. c4_pq1.vydal_skl
  422. c4_pq1.ident_zak
  423. c4_pq1.ident_zak
  424. Doklad
  425. c4_pq1.dokl_cis
  426. c4_pq1.dokl_cis
  427. c4_pq1.popis_obr
  428. c4_pq1.popis_obr
  429. OBR_DET
  430.  o_VET
  431. rmCOBR
  432. erC4_POMQ
  433. ndTERMIN
  434. eleC4_PQ1
  435. TERMIN_OB
  436. IDENT
  437. STM1_IDENT
  438. 1POLEX
  439. TPROCX
  440.   RTOP
  441. UBRBOT
  442. AKCLEFT
  443.  CRIGHT
  444. FREEZE
  445. ORDER
  446. UBDOL
  447.  PRAVA
  448. OLORNADPIS
  449. JMENO
  450. STHODN
  451. STTITLE
  452. cTITLECOLORPOC0
  453. L_CIS
  454. AD F2
  455. 11,2F3
  456. MENF4
  457.   nF7
  458. kemF0PRG
  459.  F1ON
  460. dm F1PRG
  461. ftF4_JM
  462. )=F4PRG
  463. TISKPRG
  464. (tF7_JM
  465. E'F7PRG
  466. _F9PRG
  467.  F9KEY
  468. koF9KEY1
  469. F10_JM
  470. sF10PRG
  471. _dRAMECEK
  472. 0NAZEVT
  473. 1KLICO
  474. exKLNAZ
  475. SPACEBAR
  476. TR_HL1
  477. _TR_HL2
  478. wTR_HL3
  479. TR_HL4
  480. TR_HL5
  481. e TR_HL6
  482. indTR_HL7
  483. TR_HL8
  484. TR_HL9
  485.  mDET_JM
  486. rdENTER
  487.  aDETAIL
  488. brDETPRG
  489. k sPS_LINE
  490. )+PS_RETURN
  491. PS_ZAZN
  492. m _DDD
  493. oGERMAN
  494. nd_DAT
  495. = nMRIISQ
  496. MOD_PSV
  497. colorz
  498.  Graf: 
  499. ehled 
  500. kony tav
  501. set color to &m_color
  502. m_dgrpop
  503. c_popgr
  504. c_popgr
  505. Prehled odvadeni vyroby za FF
  506.        UVN celkem (Kc)
  507.    SoWA  
  508.  UVN (Kc)
  509. Prehled odvadeni vyroby za FF
  510.        Vykony tavirny Kc
  511.    SoWA  
  512. Vykon(Nh)
  513. dgrpop
  514. m_dgrdat
  515. c_datgr
  516. c_datgr
  517. c_datgr
  518. dgrdat
  519. mm_dgr2d
  520. !&mmgr 1 6306270498 2
  521. OBRGR
  522.  oM_COLOR
  523. rmVOL4
  524. nd_QZAZ
  525. eleM_DGRPOP
  526. C_POPGR
  527. NAZGR
  528. STC4_POMQ
  529. 1TERMIN
  530. TPODNADPIS
  531. UBPOPIS_X
  532. AKDRUH
  533.  YMIN
  534. POPIS_N
  535. NAZEV
  536. UBPRVNI
  537. TRETI
  538.  RIISQ
  539. OLORCTVRTY
  540. DRUHY
  541. POPIS_Y
  542. DGRPOP
  543. M_DGRDAT
  544. TC_DATGR
  545. cNOR_Y
  546. PIS_X
  547. ;VYKON
  548. D DGRDAT
  549. ,2MM_DGR2D
  550. NMMGR
  551. POCET
  552.  oPOCETC
  553. rmPOC
  554. colorz
  555.  oM1COLOR
  556.  Prob
  557. prava dat ... 
  558. ident
  559. et za polo
  560. c4_xx
  561. c4_xx
  562. ident+str
  563.  Za polo
  564. et za polo
  565. ky a st
  566. ediska
  567. c4_xx
  568. c4_xx
  569. et za 
  570. c4_xx
  571. c4_xx
  572. ident
  573. et za 
  574. ady a st
  575. ediska
  576. c4_xx
  577. c4_xx
  578.  oVZNIKLSOUBZAKLSUMA
  579. rPOLEX
  580. ndPROCX
  581. eleRTOP
  582. CLEFT
  583. STCRIGHT
  584. 1FREEZE
  585. TORDER
  586. UBDOL
  587. AKLEVA
  588.  PRAVA
  589. NADPIS
  590. JMENO
  591. UBHODN
  592.  TITLE
  593. OLORTITLECOLORPOC0
  594. GRDAT
  595. D F10
  596. ,2F0PRG
  597. NF1ON
  598. F1PRG
  599.   nF4_JM
  600.  F4PRG
  601. TISKPRG
  602. emF7_JM
  603.  F7PRG
  604. dm F9PRG
  605. ftF9KEY
  606. )=F9KEY1
  607. F10_JM
  608. (tF10PRG
  609. E'RAMECEK
  610. _RIIS
  611.  NAZEVT
  612. koKLICO
  613. KLNAZ
  614. sSPACEBAR
  615. dTR_HL1
  616. TR_HL2
  617. 0TR_HL3
  618. 1TR_HL4
  619. exTR_HL5
  620. TR_HL6
  621. TR_HL7
  622. _TR_HL8
  623. wTR_HL9
  624. DET_JM
  625. ENTER
  626. e DETAIL
  627. indDETPRG
  628. PS_LINE
  629. PS_RETURN
  630. PS_ZAZN
  631. rdCNAZEVT
  632.  aC4SPOL
  633. brVOLBA
  634. k sIDENT
  635. )+C4_XX
  636. REKAP34
  637. m STR
  638. oRADA
  639. ndREKAP56
  640. c4Spol
  641. orderz
  642. xc_!q
  643. index on ident + dtos(termin_ob) to xc_!q for &filt additive
  644. c4Spol
  645. set order to &m_trideni
  646. C4SPOL
  647.  oKUSY
  648. LSOUBCENA
  649. rIDENT
  650. ndRADA
  651. eleHMOTNOST
  652. HMOT_MJ
  653. STVYKON
  654. 1NH_TIS
  655. TCOBR
  656. UBM_TRIDENI
  657. _VETA
  658.  TERMIN_OB
  659. S_MNOZ
  660. S_CELKEM
  661. BS_KUSY
  662. S_HMOTNOSTCELKEM
  663. LORHMOT_CEL
  664. RKUS_CEL
  665. S_VYK
  666. VYK_CEL
  667. W_IDENT
  668. TW_TERMIN
  669. cC_STRED
  670. STRED_OBR
  671. M1_IDENT
  672. ;W_RADA
  673.  NNH_TIS
  674. ,2SKUT_MNOZ
  675. NH_CELKEM
  676. M1_KALK
  677.  nPL_OD
  678.  TYP_NAKL
  679. W_UVN
  680.  M1_PLAN
  681. m VAHA_MJ
  682. STHMOT
  683. )=S_UVN
  684. VZNIKLSOUBR
  685. ZobrSum
  686. mod54c1
  687. Identifikace
  688. ident
  689. c4_xx.str
  690. c4_xx.str
  691. zev polo
  692. m1_ident.nazev
  693. m1_ident.nazev
  694.   Mno
  695. str(c4_xx.kusy,10,3)
  696. c4_xx.cena
  697.    Nh celkem
  698. str(c4_xx.vykon,12,2)
  699. c4_xx.vykon
  700. Nh/1000 Ks
  701. str(c4_xx.nh_tis,10,2)
  702. c4_xx.nh_tis
  703. VN celkem
  704. str(c4_xx.cena,12,2)
  705. c4_xx.cena
  706.   Hmot.celkem
  707. str(c4_xx.hmotnost,13,3)
  708. c4_xx.hmotnost
  709. Hmotnost/MJ
  710. str(c4_xx.hmot_mj,11,3)
  711. c4_xx.hmot_mj
  712. OBRZ1
  713.  oPOLEX
  714. SOUBRAMECEK
  715. rTR_HL1
  716. ndTITLE
  717. eleRIIS
  718. RIISQ
  719. STRBOT
  720. 1CLEFT
  721. TCRIGHT
  722. FREEZE
  723. UBC4_XX
  724. IDENT
  725.  M1_IDENT
  726. PS_ZAZN
  727. KLICO
  728. ELKEM
  729. BF1ON
  730. MOTNOSTF3
  731. LORF4
  732. T_CEL
  733. TF10_JM
  734. cF10PRG
  735. PROCX
  736. F9KEY
  737. ;ZAHL
  738.  JMENO
  739. ,2HODN
  740.  nVOLBA
  741.  HELPIK
  742. MOD_PSV
  743. mPS_RETURN
  744. colorz
  745. double
  746. et za organizaci 
  747.  Esc,^End 
  748. kony tav
  749. rny  :                    Nh
  750. Celkem 
  751. VN      :                    K
  752. Celkov
  753.  hmotnost:                    Kg
  754. RIIS 7.5
  755. 99,999,999,999.99
  756. 99,999,999,999.99
  757. 9,999,999,999.999
  758. SCRQ1
  759.  oM_COL
  760. SOUBCENA
  761. rHMOTNOST
  762. dVYKON
  763. eleCELKEM
  764. HMOT_CEL
  765. VYK_CEL
  766. STMOD_WIN
  767. Konec
  768. Pohyb
  769. ,PgUp,PgDn
  770. VOLBA
  771. p1_rada
  772. xp1_rada
  773. ZobrSum
  774. mod54c1
  775. c4_xx.rada
  776. c4_xx.rada
  777. p1_rada.nazev
  778. p1_rada.nazev
  779. VN celkem
  780. str(c4_xx.cena,13,2)
  781. c4_xx.cena
  782.    Nh celkem
  783. str(c4_xx.vykon,12,2)
  784. c4_xx.vykon
  785.  Hmot.celkem
  786. str(c4_xx.hmotnost,13,3)
  787. c4_xx.hmotnost
  788. Specifikace 
  789. p1_rada.specif
  790. p1_rada.specif
  791. c4_xx.rada
  792. c4_xx.rada
  793. c4_xx.str
  794. c4_xx.str
  795. p1_rada.nazev
  796. p1_rada.nazev
  797. VN celkem
  798. str(c4_xx.cena,13,2)
  799. c4_xx.cena
  800.    Nh celkem
  801. str(c4_xx.vykon,12,2)
  802. c4_xx.vykon
  803.  Hmot.celkem
  804. str(c4_xx.hmotnost,13,3)
  805. c4_xx.hmotnost
  806. Specifikace 
  807. p1_rada.specif
  808. p1_rada.specif
  809. POLEX
  810.  oRAMECEK
  811. UBTR_HL1
  812. rTITLE
  813. dRIIS
  814. eleRIISQ
  815. STCLEFT
  816. 1CRIGHT
  817. TFREEZE
  818. P1_RADA
  819. UBXP1_RADA
  820. C4_XX
  821.  RADA
  822. PS_ZAZN
  823. KLICO
  824. ELKEM
  825. BF1ON
  826. MOTNOSTF3
  827. LORF4
  828. T_CEL
  829. TF10_JM
  830. cF10PRG
  831. PROCX
  832. ;JMENO
  833.  HODN
  834. ,2SOUC
  835. VOLBA
  836.  nHELPIK
  837.  MOD_PSV
  838. PS_RETURN
  839. MOD54C1
  840. HLASKA
  841. FUNKCE
  842. PREHLED
  843. REKAP2
  844. HELP3
  845. DETA__IL
  846. PROCENTA
  847. SUMACE
  848. ZAKLSUMA
  849. REKAP34
  850. ZOBRSUM
  851. HELPIK
  852. REKAP56
  853. X:\OBEC\05\
  854. MOD54C1.FXP
  855. X:\OBEC\05\MOD54C1.PRG
  856.