home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD48D.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-10-30  |  27KB  |  644 lines
  1. m1_obr
  2. ident
  3. m1_obr_a
  4. ident
  5. m1_ident
  6. ident
  7. EUTIT
  8. material
  9. m1_zas
  10. x1_zas
  11. m1_kalk
  12. x1_kalk
  13.  statistika spot
  14. eby - p
  15. ehled skladov
  16. ch polo
  17. RIIS 4.8
  18. mod48d
  19. Zadejte 
  20. slo polo
  21. Statist.
  22. vyb_stat
  23. Identifikace
  24. ident
  25. ident
  26. Ident.odb
  27. ratele
  28. m1_ident.ident_odb
  29. m1_ident.ident_odb
  30. zev polo
  31. m1_ident.nazev
  32. m1_ident.nazev
  33. ' '+m1_ident.kod_pol+' '
  34. m1_ident.kod_pol
  35. m1_ident.typ
  36. m1_ident.typ
  37. m1_ident.rada
  38. m1_ident.rada
  39. m1_ident.mj
  40. m1_ident.mj
  41. M1_OBR
  42. 2 +IDENT
  43.  M1_OBR_A
  44. sM1_IDENT
  45. ePODNIK
  46. MATERIAL
  47.  M1_ZAS
  48.  wqX1_ZAS
  49. hodM1_KALK
  50.   X1_KALK
  51. 2_POLEX
  52.  PROCX
  53.    caRBOT
  54. ist(mCLEFT
  55. 8,9)CRIGHT
  56.    FREEZE
  57. = wORDER
  58. w_hoHOR
  59.      DOL
  60.   wqk3LEVA
  61. qk3_2PRAVA
  62. d_kcNADPIS
  63.   cZAHL
  64. list(JMENO
  65. 0,11HODN
  66.      SOUC
  67. wq4_2PSOUC
  68. 2 + TITLE
  69.  TITLECOLORPOC0
  70.  = wqF0
  71.  + w_hoF1
  72.       F2
  73. ndcase F3
  74.       cF4
  75. rok=yeaF6
  76. te())-3F7
  77.       dF9
  78.     F10
  79. case iF0PRG
  80. esicF1ON
  81.    F1PRG
  82.   wqF4_JM
  83. q1_3F4PRG
  84. dnotTISKPRG
  85.   F7_JM
  86. _3 =F7PRG
  87.  + wF9PRG
  88.    F9KEY
  89. ase F9KEY1
  90. esiF10_JM
  91.   F10PRG
  92.   wRAMECEK
  93. 2_RIIS
  94. hodnoNAZEVT
  95.    KLICO
  96. 2_3 KLNAZ
  97. 3 + SPACEBAR
  98.  TR_HL1
  99. aseTR_HL2
  100. mesTR_HL3
  101.  TR_HL4
  102.    TR_HL5
  103. wq3TR_HL6
  104. odnTR_HL7
  105.    TR_HL8
  106. 3_3TR_HL9
  107. 3 +DET_JM
  108.  ENTER
  109.  casDETAIL
  110. (meDETPRG
  111. 1,1PS_LINE
  112.   PS_RETURN
  113. PS_ZAZN
  114.  MOD_PSV
  115. wqOBSAH
  116. c_oznac
  117. Nebyl ozna
  118.  statistika 
  119.  Podle polo
  120. ek             
  121.  Podle st
  122. edisek a polo
  123. c1_ident
  124.   Prob
  125. r dat ...           
  126. c1_ident
  127. ST_IDENT
  128. +HLASKA
  129.  W_SCR
  130. sW_MOD
  131. eVYB_STR
  132. ZOBRAZ
  133.  C1_IDENT
  134. qIDENT
  135. hodZASOBA
  136.   SPOTREBA
  137. _ZAS_KC
  138.  SPOTR_KC
  139.    caQ2_0
  140. ist(mQ3_0
  141. 8,9)Q4_0
  142.    Q1_1
  143. = wQ2_1
  144. w_hoQ3_1
  145.      Q4_1
  146.  wqk3Q1_2
  147. qk3_2Q2_2
  148. d_kcQ3_2
  149.   cQ4_2
  150. list(Q1_3
  151. 0,11Q2_3
  152.      Q3_3
  153. wq4_2Q4_3
  154. 2 + QK1_0
  155.  QK2_0
  156. OLORQK3_0
  157. = wqQK4_0
  158. w_hoQK1_1
  159.     QK2_1
  160. ase QK3_1
  161.    cQK4_1
  162. =yeaQK1_2
  163. ))-3QK2_2
  164.    dQK3_2
  165.     QK4_2
  166. se iQK1_3
  167. esicQK2_3
  168.    QK3_3
  169.   wqQK4_3
  170. q1_3C_OZNAC
  171. OZNAC
  172.   POCET
  173. _3 =POCETC
  174. + wM1_IDENT
  175.  ZAZNAM
  176.  M1_KALK
  177. siW_ZAS
  178.  W_SPOTR
  179.  wW_ZAS_KC
  180. _W_SPOTR_KCWQ1_0
  181.    WQ2_0
  182. 2_3 WQ3_0
  183. 3 + WQ4_0
  184.  WQ1_1
  185. aseWQ2_1
  186. mesWQ3_1
  187.  WQ4_1
  188.    WQ1_2
  189. wq3WQ2_2
  190. odnWQ3_2
  191.    WQ4_2
  192. 3_3WQ1_3
  193. 3 +WQ2_3
  194.  WQ3_3
  195.  casWQ4_3
  196. (meWQK1_0
  197. 1,1WQK2_0
  198.   WQK3_0
  199. WQK4_0
  200. w_WQK1_1
  201.  WQK2_1
  202. wqWQK3_1
  203. qk4WQK4_1
  204. od_WQK1_2
  205.    WQK2_2
  206.    WQK3_2
  207. ndcWQK4_2
  208.    WQK1_3
  209.   eWQK2_3
  210.  seWQK3_3
  211. obrWQK4_3
  212. ek M1_ZAS
  213. .idUVN
  214. wM1_OBR
  215. nt=KOD_OB
  216. dW_HODNOTA
  217. SKUT_MNOZ
  218. W_HOD_KC
  219. dNAKLAD
  220. 'V' )
  221. MESIC
  222. CM1_OBR_A
  223. PROCENTA
  224. Zadejte st
  225. edisko, 
  226. slo polo
  227. |...|...........
  228. fun_str
  229. Zadejte 
  230. slo polo
  231.  statistika spot
  232. eby skladov
  233. ch polo
  234. RIIS 4.8
  235. mod48d
  236. Hodnot.K
  237. w_hod_kc
  238.  v MJ
  239. stred_obr
  240. stred_obr
  241. Identifikace
  242. ident
  243. ident
  244. Identifikace
  245. ident
  246. ident
  247. Ident.odb
  248. ratele
  249. m1_ident.ident_odb
  250. m1_ident.ident_odb
  251. zev polo
  252. m1_ident.nazev
  253. m1_ident.nazev
  254. m1_ident.typ
  255. m1_ident.typ
  256. m1_ident.rada
  257. m1_ident.rada
  258. m1_ident.mj
  259. m1_ident.mj
  260. m1_zas.skl_hlavni
  261. m1_zas.skl_hlavni
  262. EUTIT
  263.      Cena
  264.       
  265. str(m1_kalk.uvn,9,2)
  266. m1_kalk.uvn
  267. c_oznac
  268. c_oznac
  269. zaznam
  270. POLEX
  271. +PROCX
  272.  RTOP
  273. sRBOT
  274. eCLEFT
  275. CRIGHT
  276.  FREEZE
  277. qORDER
  278. hodHOR
  279.   DOL
  280. _LEVA
  281.  PRAVA
  282. NADPIS
  283.  caZAHL
  284. ist(mJMENO
  285. 8,9)HODN
  286.    SOUC
  287. = wPSOUC
  288. w_hoTITLE
  289.     TITLECOLORPOC0
  290. qk3_2F0
  291. d_kcF1
  292.   cF2
  293. list(F3
  294. 0,11F4
  295.      F6
  296. wq4_2F7
  297. 2 + F9
  298. OLORF0PRG
  299. = wqF1ON
  300. w_hoF1PRG
  301.     F4_JM
  302. ase F4PRG
  303.    cTISKPRG
  304. eaF7_JM
  305. ))-3F7PRG
  306.    dF9PRG
  307.     F9KEY
  308. se iF9KEY1
  309. sicF10_JM
  310.    F10PRG
  311.  wqRAMECEK
  312. _3RIIS
  313. otNAZEVT
  314.   KLICO
  315. _3 =KLNAZ
  316. + wSPACEBAR
  317.  TR_HL1
  318.  TR_HL2
  319. siTR_HL3
  320.  TR_HL4
  321.  wTR_HL5
  322. _TR_HL6
  323. _KCTR_HL7
  324.    TR_HL8
  325. _3 TR_HL9
  326.  + DET_JM
  327.  ENTER
  328. aseDETAIL
  329. mesDETPRG
  330.  PS_LINE
  331.   PS_RETURN
  332. PS_ZAZN
  333. dnW_MOD
  334.  M1_IDENT
  335. 3C1_IDENT
  336. +IDENT
  337.  M1_KALK
  338. sM1_ZAS
  339. 1,1PODNIK
  340.   NAST_POL1
  341. MOD_PSV
  342. w_OBSAH
  343.  C_OZNAC
  344. wqZAZNAM
  345. qk4ST_IDENT
  346. _W_SCR
  347. st.MJ
  348. w_hod_zas
  349. Hodnoty v K
  350. NAST_POL2
  351. F10_JM
  352.  F10PRG
  353. sTITLE
  354. eTR_HL1
  355. Hodnot.K
  356. w_hod_kc
  357.  v MJ
  358. NAST_POL1
  359. F10_JM
  360.  F10PRG
  361. sTITLE
  362. eTR_HL1
  363. soba (MJ)
  364. str(zasoba,12,3)
  365. zasoba
  366.          R-0
  367. str(q1_0+q2_0+q3_0+q4_0,12,3)
  368. q1_0+q2_0+q3_0+q4_0
  369.          R-1
  370. str(q1_1+q2_1+q3_1+q4_1,12,3)
  371. q1_1+q2_1+q3_1+q4_1
  372.          R-2
  373. str(q1_2+q2_2+q3_2+q4_2,12,3)
  374. q1_2+q2_2+q3_2+q4_2
  375.          R-3
  376. str(q1_3+q2_3+q3_3+q4_3,12,3)
  377. q1_3+q2_3+q3_3+q4_3
  378. W_MOD
  379.  ZAHL
  380. sJMENO
  381. eHODN
  382.  PS_RETURN
  383. soba (K
  384. str(zas_kc,12,2)
  385. zas_kc
  386.          R-0
  387. str(qk1_0+qk2_0+qk3_0+qk4_0,12,2)
  388. qk1_0+qk2_0+qk3_0+qk4_0
  389.          R-1
  390. str(qk1_1+qk2_1+qk3_1+qk4_1,12,2)
  391. qk1_1+qk2_1+qk3_1+qk4_1
  392.          R-2
  393. str(qk1_2+qk2_2+qk3_2+qk4_2,12,2)
  394. qk1_2+qk2_2+qk3_2+qk4_2
  395.          R-3
  396. str(qk1_3+qk2_3+qk3_3+qk4_3,12,2)
  397. qk1_3+qk2_3+qk3_3+qk4_3
  398. W_MOD
  399.  ZAHL
  400. sJMENO
  401. eHODN
  402.  PS_RETURN
  403. POCET
  404. POCETC
  405. c1_ident
  406. c_str
  407. c_str
  408. c_str
  409.   Prob
  410. r dat ...           
  411. c_str
  412. C1_IDENT
  413. IDENT
  414.  ZASOBA
  415. sSPOTREBA
  416. eZAS_KC
  417. SPOTR_KC
  418.  STRED_OBR
  419. hodQ2_0
  420.   Q3_0
  421. _Q4_0
  422.  Q1_1
  423.  caQ3_1
  424. ist(mQ4_1
  425. 8,9)Q1_2
  426.    Q2_2
  427. = wQ3_2
  428. w_hoQ4_2
  429.     Q1_3
  430. COLORQ2_3
  431. qk3_2Q3_3
  432. d_kcQ4_3
  433.   cQK1_0
  434. ist(QK2_0
  435. 0,11QK3_0
  436.     QK4_0
  437. q4_2QK1_1
  438. 2 + QK2_1
  439.  QK3_1
  440. OLORQK4_1
  441. = wqQK1_2
  442. w_hoQK2_2
  443.     QK3_2
  444. ase QK4_2
  445.    cQK1_3
  446. eaQK2_3
  447. ))-3QK3_3
  448.    dQK4_3
  449.     C_STR
  450. C_OZNAC
  451. OZNAC
  452.   POCET
  453.  wqPOCETC
  454. _3M1_IDENT
  455. tZAZNAM
  456.  M1_KALK
  457.  =W_ZAS
  458. wW_SPOTR
  459.  W_ZAS_KC
  460.  W_SPOTR_KCWQ1_0
  461.  WQ2_0
  462.  wWQ3_0
  463. _WQ4_0
  464. _KCWQ1_1
  465.    WQ2_1
  466. _3 WQ3_1
  467.  + WQ4_1
  468.  WQ1_2
  469. aseWQ2_2
  470. mesWQ3_2
  471.  WQ4_2
  472.   WQ1_3
  473. WQ2_3
  474. dnWQ3_3
  475.  WQ4_3
  476. 3WQK1_0
  477. +WQK2_0
  478.  WQK3_0
  479. sWQK4_0
  480. meWQK1_1
  481. 1,1WQK2_1
  482.   WQK3_1
  483. WQK4_1
  484. w_WQK1_2
  485.  WQK2_2
  486. wqWQK3_2
  487. qk4WQK4_2
  488. _WQK1_3
  489. WQK2_3
  490.    WQK3_3
  491. ndcWQK4_3
  492.    M1_ZAS
  493.   eUVN
  494. eM1_OBR
  495. obrKOD_OB
  496.  W_HODNOTA
  497. SKUT_MNOZ
  498. W_HOD_KC
  499. =NAKLAD
  500. W_STR
  501. CMESIC
  502. CM1_OBR_A
  503. CPROCENTA
  504.  Podle st
  505. edisek 
  506.  Celkem          
  507. W_SCRFUN
  508. W_MODSUM
  509.  SUM_STR
  510. Nenalezen 
  511. znam.
  512.  - sou
  513. ty podle st
  514. edisek
  515. et ... 
  516. c_strsum
  517. c_strsum
  518.  - sou
  519. et celkem
  520. et ... 
  521. c_strcel
  522. c_strcel
  523. sum_str with 2
  524. Zadejte st
  525. edisko:
  526.  statistika spot
  527. eby skladov
  528. ch polo
  529. RIIS 4.8
  530. mod48d
  531. W_SUM
  532. HLASKA
  533.  W_SCRSTR
  534. sW_SELSTR
  535. eW_RECSTR
  536. W_NAZSUM
  537.  MESS
  538. C_STRSUM
  539. dSTRED_OBR
  540. W_SCRCEL
  541. _W_SELCEL
  542.  W_RECCEL
  543. C_STRCEL
  544. aPOLEX
  545. PROCX
  546. 8,9)RTOP
  547.    RBOT
  548. = wCLEFT
  549. w_hoCRIGHT
  550.    FREEZE
  551. LORORDER
  552. k3_2HOR
  553. d_kcDOL
  554.   cLEVA
  555. ist(PRAVA
  556. 0,11NADPIS
  557.    ZAHL
  558. q4_2JMENO
  559. 2 + HODN
  560.  SOUC
  561. OLORPSOUC
  562. = wqTITLE
  563. w_hoTITLECOLORPOC0
  564. ase F0
  565.    cF1
  566. ))-3F3
  567.    dF4
  568.     F6
  569.   F10
  570.  wqF0PRG
  571. _3F1ON
  572. tF1PRG
  573.  F4_JM
  574.  =F4PRG
  575. wTISKPRG
  576.  F7_JM
  577.  F7PRG
  578. R_KCF9PRG
  579.  F9KEY
  580.  wF9KEY1
  581. _F10_JM
  582. _KCF10PRG
  583.    RAMECEK
  584. 3 RIIS
  585.  + NAZEVT
  586.  KLICO
  587. aseKLNAZ
  588. mesSPACEBAR
  589.  TR_HL1
  590.   TR_HL2
  591. TR_HL3
  592. dnTR_HL4
  593.  TR_HL5
  594. 3TR_HL6
  595. +TR_HL7
  596.  TR_HL8
  597. sTR_HL9
  598. meDET_JM
  599. 1,1ENTER
  600.   DETAIL
  601. DETPRG
  602. w_PS_LINE
  603.  PS_RETURN
  604. PS_ZAZN
  605. PRE_CSTR
  606.  MOD_PSV
  607. Hodnoty v K
  608. stred_obr
  609. stred_obr
  610.          R-0
  611. str(qk1_0+qk2_0+qk3_0+qk4_0,12,2)
  612. qk1_0+qk2_0+qk3_0+qk4_0
  613.          R-1
  614. str(qk1_1+qk2_1+qk3_1+qk4_1,12,2)
  615. qk1_1+qk2_1+qk3_1+qk4_1
  616.          R-2
  617. str(qk1_2+qk2_2+qk3_2+qk4_2,12,2)
  618. qk1_2+qk2_2+qk3_2+qk4_2
  619.          R-3
  620. str(qk1_3+qk2_3+qk3_3+qk4_3,12,2)
  621. qk1_3+qk2_3+qk3_3+qk4_3
  622. TITLE
  623. W_NAZSUM
  624.  TR_HL1
  625. eW_SUM
  626.  JMENO
  627. dSOUC
  628. PS_RETURN
  629. VYB_STAT
  630. ZOBRAZ
  631. W_HOD_KC
  632. W_HOD_ZAS
  633. NAST_POL1
  634. NAST_POL2
  635. PROCENTA
  636. VYB_STR
  637. FUN_STR
  638. SUM_STR
  639. 4_0LT
  640. PRE_CSTR
  641. Z:\EUTIT\
  642. MOD48D.FXP
  643. Z:\EUTIT\MOD48D.PRG
  644.