home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 02 / MOD22D.FXP (.txt) < prev    next >
Encoding:
MS Visual FoxPro App  |  1999-04-15  |  30.8 KB  |  741 lines
  1. m_param
  2. m2_pcen
  3. ident
  4. m1_ident
  5. ident
  6. m1_kalk
  7. x1_kalk
  8. m_dat
  9. x_dat
  10. m_cis1
  11. x_cis1
  12. m1_plan
  13. x1_plan
  14. p1_rada
  15. xp1_rada
  16. m1_kusov
  17. vykres
  18. set color to w+/bg
  19. set color to b/bg,w+/rb
  20. Zadejte identifikaci a cen.skup:
  21. |...........|..
  22.  Aktualizace obchodn
  23. ho cen
  24. Detail
  25. ehled arch
  26. vu obchodn
  27. ho cen
  28. ehled obchodn
  29. ho cen
  30. zmen_det
  31. nastav
  32. mod22d
  33. RIIS 2.2
  34. Identifikace
  35. m2_pcen.ident
  36. m2_pcen.ident
  37. m2_pcen.cen_skup
  38. m2_pcen.cen_skup
  39. zev polo
  40. m1_ident.nazev
  41. m1_ident.nazev
  42.       
  43. str(m2_pcen.uvn,11,3)
  44. m2_pcen.uvn
  45. Cena 
  46. str(m2_pcen.cena_cista,11,3)
  47. m2_pcen.cena_cista
  48. Cena hrub
  49. str(m2_pcen.cena_hruba,11,3)
  50. m2_pcen.cena_hruba
  51.  Zpr.n
  52. str(m2_pcen.zprac_nakl,11,3)
  53. m2_pcen.zprac_nakl
  54.  % Zisku
  55. str(m2_pcen.mira_zisku,8,2)
  56. m2_pcen.mira_zisku
  57.  %DPH
  58. str(m2_pcen.dan,5,2)
  59. m2_pcen.dan
  60. ir./skup
  61. str(m2_pcen.prir_skup,11,3)
  62. m2_pcen.prir_skup
  63. m2_pcen.mena+' '
  64. m2_pcen.mena
  65. m1_ident.mj
  66. m1_ident.mj
  67. Autor
  68. a.autor
  69. a.autor
  70. a.pozn
  71. a.pozn
  72. m1_ident.typ
  73. m1_ident.typ
  74. Extern
  75.  identifikace
  76. m1_ident.ident_odb
  77. m1_ident.ident_odb
  78. m1_ident.rada
  79. m1_ident.rada
  80. tran(m2_pcen.plati_od,'@E')
  81. (m2_pcen.plati_od    )
  82. tran(m2_pcen.plati_do,'@E')
  83. (m2_pcen.plati_do    )
  84. Akt.Ceny
  85. tran(m2_pcen.dat_aktual,'@E')
  86. (m2_pcen.dat_aktual  )
  87. Akt.Kalk
  88. tran(m2_pcen.akt_uvn,'@E')
  89. (m2_pcen.akt_uvn     )
  90. KID_ORG
  91. ANAKLTYP
  92. AM_PARAM
  93. AMMENACIZ
  94. POLE2
  95. CZAOKR
  96. M2_PCEN
  97. IDENT
  98. W_AKT
  99. NOVY_Z
  100. PLATI_DO
  101. M1_IDENT
  102. M1_KALK
  103. X1_KALK
  104. PL_DO
  105. M_DAT
  106. AX_DAT
  107. M_CIS1
  108. X_CIS1
  109. OFFM1_PLAN
  110. FX1_PLAN
  111. KAP1_RADA
  112. XP1_RADA
  113. FM1_KUSOV
  114. FVYKRES
  115. ADATUM_OD
  116. DATUM_DO
  117. FBARVAZ
  118. LBARVAU
  119. ALPOLEX
  120. PROCX
  121. FRBOT
  122. CLEFT
  123. CRIGHT
  124. FREEZE
  125. ORDER
  126. ARNALEVA
  127. NAPRAVA
  128. NADPIS
  129. JMENO
  130. UALSOUC
  131. PSOUC
  132. AVKATITLE
  133. TITLECOLORPOC0
  134. PRESSF0
  135. A_MEN
  136. CELKKC
  137. BFF10
  138. F0PRG
  139. SF1ON
  140. FFF1PRG
  141. F4_JM
  142. F4PRG
  143. _TISKPRG
  144.  F7_JM
  145. F7PRG
  146.  F9PRG
  147. F9KEY
  148. F9KEY1
  149. F10_JM
  150. ORF10PRG
  151. _RAMECEK
  152. RNRIIS
  153. _NAZEVT
  154. KLICO
  155. _KLNAZ
  156. SPACEBAR
  157. TR_HL1
  158. TR_HL2
  159. _TR_HL3
  160. ORTR_HL4
  161. _TR_HL5
  162. TR_HL6
  163. _TR_HL7
  164.  TR_HL8
  165. _TR_HL9
  166. DET_JM
  167. SKENTER
  168.  _ DETAIL
  169. DETPRG
  170. RPS_LINE
  171. PS_RETURN
  172. PS_ZAZN
  173. MOD_PSV
  174. NOVY_Z
  175. KM_EXIT
  176. AZMEN_DET
  177. APS_RETURN
  178. OBR10
  179. KRECM
  180. AZPRAC_DET
  181. PS_RETURN
  182. NOVY_Z
  183. Aktualizace obchodn
  184. ho cen
  185. ku - polo
  186. ehled obchodn
  187. ho cen
  188. ku - polo
  189. Cen.sk:
  190. RIIS 2.2
  191. &barva
  192. &barva
  193. ka ji
  194.  neexistuje, nelze ji aktualizovat!
  195. it polo
  196. ku do arch
  197. vu ? (a/n)
  198.  Nebylo zad
  199. slo polo
  200. Chybn
  201.  hodnota 
  202. sla polo
  203.  Polo
  204. ka neexistuje v souboru polo
  205. colorz
  206. mod_proc
  207. ident
  208. CEN_SKUP  
  209. w_skup  
  210. &barvau
  211. kladov
  212.  segment (typ 
  213. ) nalezen, ale m
  214.  data o n
  215. kladech polo
  216. ky (typ 
  217. ident
  218. &barvau
  219. AC_DET
  220. RETURN
  221. OFFQ20
  222. KAQ22
  223. ACISELNIK
  224. LPOCET
  225. ALDOP1
  226. FCOUNT
  227. ZAKAZNIK
  228. W_MNOZ1
  229. W_PRIR1
  230. W_MNOZ2
  231. W_PRIR2
  232. W_MNOZ3
  233. NAW_PRIR3
  234. NAW_MNOZ4
  235. W_PRIR4
  236. W_MNOZ5
  237. W_PRIR5
  238. W_ZISK
  239. UALW_PRIR_S
  240. W_DAN
  241. AVKAW_UVN
  242. W_CEN_C
  243. ORW_CEN_H
  244. SSW_NAKL
  245. W_PREP
  246. FFW_MENA
  247. ASKL_MJ
  248. W_AUTOR
  249. W_POZN
  250. RM2_PCEN
  251. BFW_IDENT
  252. IDENT
  253. SW_SKUP
  254. FFCEN_SKUP
  255. W_PL_OD
  256. PLATI_OD
  257. _W_PL_DO
  258.  PLATI_DO
  259. W_DAT_AKT
  260. MIRA_ZISKUDAN
  261. MMENACIZ
  262. ORM_DALSI
  263. _M_IDENT
  264. RNM_SKUP
  265. _M_AKTPLKALM_NAKL
  266. _ZPRAC_NAKLM_UVN
  267. M_CEN_C
  268. _CENA_CISTAM_CEN_H
  269. _CENA_HRUBAM_ZISK
  270. _M_PRIR
  271. SKUPRIR_SKUP
  272. NOVY_Z
  273. KONTROLA
  274. LNALNAK
  275.  _ BARVA
  276. BARVAZ
  277. RW_AKT
  278. VYSKOC
  279. _ZAZN
  280. M1_IDENT
  281. HLASKA
  282. MMCOLOR
  283. ETURN
  284. _W_NAZEV
  285. ZOBR_POL
  286. _MOD_PROC
  287. JMENO_C
  288. _ WJMENO_C
  289. MOD_C2
  290. RADEK_C
  291. SLOUPEC_C
  292. MOD_C1
  293. M1_KALK
  294. NAKLTYP
  295. EDAT_AK
  296. KALID_ORG
  297.  MATER
  298.  _KOOP
  299. ETURN
  300. MJ_VAHY
  301.  _VAHA_MJ
  302. _ PLOCHAR
  303.  _KOMP
  304. _ NAZKOMP
  305. KODKALK
  306. _ M1_PLAN
  307. TKOD_KALK
  308. PLOCHA_R
  309. M1_KUSOV
  310. C_VYKRESU
  311. KOD_POL
  312. NAZEV
  313. _RADA
  314. NAZEVR
  315. _P1_RADA
  316. M_IDX
  317. NAPLN
  318. _ ZAOKR
  319. HLAVA
  320. PROC1
  321. KONEC
  322. KLTYP
  323. ZMENY
  324. &barva
  325. Aktualiz:
  326.  od:.
  327. MJ pro cenu:
  328. ra zisku:          %
  329. Zprac.n
  330. ir.skup:        %
  331. Cena 
  332. Cena hrub
  333. ir1:       %
  334. ir2:       %
  335. ir3:       %
  336. ir4:       %
  337. ir5:       %
  338. :      %
  339. Autor:
  340. Pozn.:
  341. Hmotnost:
  342.  HODNOTY 
  343. Datum aktualizace pl
  344.  kalkulace:
  345. Zprac.n
  346. Cena 
  347. Cena hrub
  348. ra zisku:         %
  349. ir.skup:
  350. &barva
  351. KW_NAZEV
  352. AMMENACIZ
  353. ID_ORG
  354. KODKALK
  355. W_AKT
  356. Pohyb
  357. Konec
  358. <Enter>
  359. - Esc,^End
  360. &barvau
  361. 9999999.999
  362. 99999.99
  363. 9999999.999
  364. 999.999
  365. 9999999.999
  366. 9999999.999
  367. 999999
  368. 999.999
  369. 999999
  370. 999.999
  371. 999999
  372. 999.999
  373. 999999
  374. 999.999
  375. 999999
  376. 999.999
  377. 99.99
  378. 99999.999
  379. XXXXXXXXX
  380. 9999999.999
  381. 9999999.999
  382. 9999999.999
  383. 9999999.999
  384. 99999.99
  385. 999.999
  386. W_UVN
  387. KW_DAT_AKT
  388. W_PL_OD
  389. W_ZISK
  390. W_NAKL
  391. W_PRIR_S
  392. W_CEN_C
  393. W_CEN_H
  394. W_MNOZ1
  395. W_PRIR1
  396. W_MNOZ2
  397. W_PRIR2
  398. W_MNOZ3
  399. W_PRIR3
  400. W_MNOZ4
  401. W_PRIR4
  402. AW_MNOZ5
  403. W_PRIR5
  404. W_DAN
  405. OFFVAHA_MJ
  406. FMJ_VAHY
  407. KARADA
  408. NAZEVR
  409. FMMENACIZ
  410. FW_MENA
  411. AW_AUTOR
  412. W_POZN
  413. FID_ORG
  414. LKODKALK
  415. ALC_PLOCHA
  416. PLOCHAR
  417. FNAZKOMP
  418. W_AKT
  419. M_AKTPLKALM_UVN
  420. M_NAKL
  421. M_CEN_C
  422. M_CEN_H
  423. NAM_ZISK
  424. NAM_PRIR
  425. @ 4,6 &vloz w_uvn pict '9999999.999'
  426. w_uvn
  427. if vloz='say' and mhod#&mnaz
  428. @ 4,27 &vloz w_dat_akt pict '@E'
  429. @ 4,48 &vloz w_pl_od pict '@E'   
  430. @ 6,14 &vloz w_mj pict '@!X'
  431. if mhod # &mnaz 
  432. @ 6,35  &vloz w_zisk pict '99999.99'
  433. w_zisk
  434. if vloz='say' and mhod#&mnaz
  435. @ 6,62 &vloz w_nakl pict '9999999.999'
  436. w_nakl
  437. if vloz='say' and mhod#&mnaz
  438. @ 8,12 &vloz w_prir_s pict '999.999'
  439. w_prir_s
  440. if vloz='say' and mhod#&mnaz
  441. @ 8,35 &vloz w_cen_c pict '9999999.999'
  442. w_cen_c
  443. if vloz='say' and mhod#&mnaz and empty (w_zisk)
  444. 99999.99
  445. 9999999.999
  446. @ 8,62 &vloz w_cen_h pict '9999999.999'
  447. w_cen_h
  448. if vloz='say' and mhod#&mnaz and empty (w_zisk)
  449. 99999.99
  450. 9999999.999
  451. @ 10,9 &vloz w_mnoz1 pict '999999'
  452. w_mnoz1
  453. @ 11,8 &vloz w_prir1 pict '999.999'
  454. w_prir1
  455. @ 10,24 &vloz w_mnoz2 pict '999999'  
  456. w_mnoz2
  457. @ 11,23 &vloz w_prir2 pict '999.999'
  458. w_prir2
  459. @ 10,39 &vloz w_mnoz3 pict '999999'
  460. w_mnoz3
  461. @ 11,38  &vloz w_prir3 pict '999.999'
  462. w_prir3
  463. @ 10,54 &vloz w_mnoz4 pict '999999'   
  464. w_mnoz4
  465. @ 11,53 &vloz w_prir4 pict '999.999'
  466. w_prir4
  467. @ 10,69 &vloz w_mnoz5 pict '999999'                     
  468. w_mnoz5
  469. @ 11,68 &vloz w_prir5 pict '999.999'
  470. w_prir5
  471. @ 13,6 &vloz w_dan pict '99.99'
  472. @ 13,19 &vloz w_mena pict '@!XXX'
  473. MENA      
  474. w_mena
  475. @ 13,32 &vloz w_autor pict '@!X'
  476. @ 13,54 &vloz w_pozn pict '@!X'
  477. KNOVY_Z
  478. NALNAK
  479. RIR_S
  480. OFFQ18
  481. KAQ20
  482. MMENACIZ
  483. POCET
  484. LMHOD
  485. ALW_UVN
  486. FW_MJ
  487. KONTROL3
  488. W_ZISK
  489. KALW_NAKL
  490. W_PRIR_S
  491. W_CEN_C
  492. W_CEN_H
  493. NAZAOKR
  494. NAW_MNOZ1
  495. PRIRAZKY
  496. W_PRIR1
  497. W_MNOZ2
  498. LW_PRIR2
  499. W_MNOZ3
  500. AW_PRIR3
  501. W_MNOZ4
  502. RW_PRIR4
  503. SW_MNOZ5
  504. W_PRIR5
  505. FW_MENA
  506. MALIAS
  507. AOK_C
  508. JMENO_C
  509. WJMENO_C
  510. RMOD_C2
  511. BFRADEK_C
  512. SLOUPEC_C
  513. MOD_C1
  514. &barvau
  515. do zmen&y with 'get'
  516. do zmen&y with 'say'
  517. Konec beze zm
  518. n ? (A/N):
  519. &barvau
  520. &barvau
  521. KONEC
  522. PROC1
  523. W_AKT
  524. APOCET
  525. K_CEN
  526. OFFKONTROLA
  527. &barvau
  528. W_MNOZ1
  529. KW_PRIR1
  530. W_MNOZ2
  531. W_PRIR2
  532. W_MNOZ3
  533. W_PRIR3
  534. W_MNOZ4
  535. W_PRIR4
  536. W_MNOZ5
  537. W_PRIR5
  538. W_PRIR_S
  539. W_UVN
  540. W_CEN_C
  541. W_CEN_H
  542. W_NAKL
  543. W_PREP
  544. W_AUTOR
  545. AW_POZN
  546. W_DAT_AKT
  547. MM_AUTOR
  548. FW_MJ
  549. FSKL_MJ
  550. KAW_IDENT
  551. M1_KALK
  552. FIDENT
  553. AID_ORG
  554. MATER
  555. FKOOP
  556. ALOPN
  557. MNOZ1
  558. PRIR1
  559. FMNOZ2
  560. PRIR2
  561. MNOZ3
  562. ALPRIR3
  563. MNOZ4
  564. PRIR4
  565. MNOZ5
  566. NAPRIR5
  567. NAW_ZISK
  568. MIRA_ZISKUPRIR_SKUP
  569. W_DAN
  570. LMJ_CENOVA
  571. AUTOR
  572. AW_PL_OD
  573. PLATI_OD
  574. RW_PL_DO
  575. SPLATI_DO
  576. W_MENA
  577. FMMENACIZ
  578. APOZN
  579. PREP_MJ
  580. DAT_AKTUALW_AKT
  581. BFZPRAC_NAKLCENA_CISTACENA_HRUBAM_IDENT
  582. M_SKUP
  583. W_SKUP
  584. _M_NAKL
  585.  M_UVN
  586. NAKLM_CEN_C
  587. M_CEN_H
  588. TAM_ZISK
  589. UBAM_PRIR
  590. znam 
  591. znam 
  592. vrat 
  593.  Konec 
  594. Opravdu zru
  595. it tento z
  596. znam? (a/n)
  597. ident
  598. F$akg^
  599. &barvau
  600. W_AKT
  601. KKONEC
  602. VYSKOC
  603. MNOZ3
  604. NOVY_Z
  605. M_DALSI
  606. W_IDENT
  607. W_SKUP
  608. M2_PCEN
  609. M_IDX
  610. IDENT
  611. W_PL_OD
  612. Zpracovatelsk
  613. klady nesm
  614. na a da
  615.  nesm
  616. t vypln
  617. ny sou
  618. KKONTROL3
  619. W_UVN
  620. W_NAKL
  621. HLASKA
  622. KONTROLA
  623. DALSI
  624. MMENACIZ
  625. W_DAN
  626. W_MENA
  627. ZAPIS_CEN
  628. ident
  629. F$akg^
  630. M_IDX
  631. KIDENT
  632. NOVY_Z
  633. W_IDENT
  634. W_SKUP
  635. CEN_SKUP
  636. PLATI_DO
  637. PLATI_OD
  638. W_PL_OD
  639. W_PL_DO
  640. MJ_CENOVA
  641. MIRA_ZISKUW_ZISK
  642. ZPRAC_NAKLW_NAKL
  643. AW_UVN
  644. CENA_CISTAW_CEN_C
  645. FCENA_HRUBAW_CEN_H
  646. KAPRIR_SKUP
  647. W_PRIR_S
  648. FDAT_AKTUALMNOZ1
  649. AW_MNOZ1
  650. MNOZ2
  651. FW_MNOZ2
  652. LMNOZ3
  653. ALW_MNOZ3
  654. MNOZ4
  655. W_MNOZ4
  656. FMNOZ5
  657. W_MNOZ5
  658. AUTOR
  659. ALW_AUTOR
  660. PRIR1
  661. W_PRIR1
  662. PRIR2
  663. NAW_PRIR2
  664. NAPRIR3
  665. W_PRIR3
  666. KUPRIR4
  667. W_PRIR4
  668. PRIR5
  669. LW_PRIR5
  670. AW_POZN
  671. PREP_MJ
  672. RW_PREP
  673. W_DAN
  674. FAKT_UVN
  675. M_AKTPLKALMMENACIZ
  676. W_MENA
  677. 9999999.999
  678. 9999999.999
  679. W_CEN_C
  680. KZAOKR
  681. W_UVN
  682. W_NAKL
  683. W_ZISK
  684. W_CEN_H
  685. W_PRIR_S
  686. if w_mnoz&p=0 and w_prir&p#0
  687. Nelze zadat p
  688. ku u nulov
  689. ho mno
  690. case w_prir&p<0
  691. val(qq)<6 and w_mnoz&qq#0
  692. if w_mnoz&p=w_mnoz&qq and p#qq
  693. Nelze zadat ke stejn
  694. mu mno
  695. if w_prir&qq>0 and w_mnoz&qq>w_mnoz&p
  696. txt='Pozor! P
  697.  se intervaly mno
  698. &qq>mno
  699. case w_prir&p>0    
  700. val(qq)<6 and w_mnoz&qq#0
  701. if w_mnoz&p=w_mnoz&qq and p#qq
  702. Nelze zadat ke stejn
  703. mu mno
  704. if w_prir&qq<0 and w_mnoz&qq<w_mnoz&p
  705. txt='Pozor! P
  706.  se intervaly mno
  707. &qq<mno
  708. KHLASKA
  709. MJ_CENOVA 
  710. w_mj     
  711. KJMENO_C
  712. WJMENO_C
  713. MOD_C2
  714. RADEK_C
  715. SLOUPEC_C
  716. MOD_C1
  717. PL_OD
  718. CISLO
  719. CZAOKR
  720. W_SKUP
  721. W_MENA
  722. MOD22D
  723. NASTAV
  724. ZMEN_DET
  725. ZPRAC_DET
  726. HLAVA
  727. PROC1
  728. ZMEN1
  729. ZMENY
  730. HLASKA
  731. NAPLN
  732. KONEC
  733. K_CEN
  734. ZAPIS_CEN
  735. PRIRAZKY
  736. KONTROL3
  737. ZAOKR
  738. P:\IN\SK\O\02\
  739. MOD22D.FXP
  740. P:\IN\SK\O\02\MOD22D.PRG
  741.