home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / MOD48C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-03-20  |  19KB  |  453 lines
  1. MOD48CX
  2. m1_obr
  3. ident
  4. m1_obr_a
  5. ident
  6. m1_ident
  7. ident
  8. EUTIT
  9. material
  10. m1_zas
  11. x1_zas
  12. m1_kalk
  13. x1_kalk
  14. Statistika spot
  15. eby - p
  16. ehled skladov
  17. ch polo
  18. RIIS 4.8
  19. mod48c
  20. Zadejte 
  21. slo polo
  22. Statist.
  23. vyb_stat
  24. Identifikace
  25. ident
  26. ident
  27. Ident.odb
  28. ratele
  29. m1_ident.ident_odb
  30. m1_ident.ident_odb
  31. zev polo
  32. m1_ident.nazev
  33. m1_ident.nazev
  34. ' '+m1_ident.kod_pol+' '
  35. m1_ident.kod_pol
  36. m1_ident.typ
  37. m1_ident.typ
  38. m1_ident.rada
  39. m1_ident.rada
  40. m1_ident.mj
  41. m1_ident.mj
  42. M1_OBR
  43. n(IDENT
  44. qk1_M1_OBR_A
  45. 1M1_IDENT
  46. iPODNIK
  47.    MATERIAL
  48. mM1_ZAS
  49. = "X1_ZAS
  50. 0+qM1_KALK
  51. r(X1_KALK
  52. _0POLEX
  53. "FREEZE
  54. )  LEVA
  55. _0+qkPRAVA
  56.  = iHOR
  57. zahlDOL
  58. = '   RAMECEK
  59. NAZEVT
  60.   =RIIS
  61. qk1_0NADPIS
  62. k3_PROCX
  63. #0,sSPACEBAR
  64. qk3_0+qF2
  65. ,12,2),F3
  66. hodn(F4
  67. = "qk1_F6
  68. 2_0+qk3F7
  69. k4_0"
  70. F9KEY
  71. l(i)  =F10
  72.     Q4F10_JM
  73. no(F10PRG
  74. if(ZAHL
  75. 0,strJMENO
  76. 12,2HODN
  77. hodSP
  78.  "qkI
  79. i = iMOD_PSV
  80. hlOBSAH
  81. c_oznac
  82. Nebyl ozna
  83. c1_ident
  84.   Prob
  85. r dat ...           
  86. c1_ident
  87. Kvart
  88.  statistika spot
  89. eby skladov
  90. ch polo
  91. RIIS 4.8
  92. mod48c
  93. Zadejte 
  94. slo polo
  95. Hodnot.K
  96. w_hod_kc
  97.  v MJ
  98. Identifikace
  99. ident
  100. ident
  101. Ident.odb
  102. ratele
  103. m1_ident.ident_odb
  104. m1_ident.ident_odb
  105. zev polo
  106. m1_ident.nazev
  107. m1_ident.nazev
  108. m1_ident.typ
  109. m1_ident.typ
  110. m1_ident.rada
  111. m1_ident.rada
  112. m1_ident.mj
  113. m1_ident.mj
  114. m1_zas.skl_hlavni
  115. m1_zas.skl_hlavni
  116. EUTIT
  117.      Cena
  118.       
  119. str(m1_kalk.uvn,9,2)
  120. m1_kalk.uvn
  121. c_oznac
  122. c_oznac
  123. zaznam
  124. ST_IDENT
  125. (HLASKA
  126. _C1_IDENT
  127. 1IDENT
  128. iZASOBA
  129.    SPOTREBA
  130. mZAS_KC
  131. = "SPOTR_KC
  132. qQ1_0
  133. r(Q2_0
  134. _0Q3_0
  135. "Q4_0
  136. )  Q1_1
  137. _0+qkQ2_1
  138.  = iQ3_1
  139. zahlQ4_1
  140.  '   Q1_2
  141.   =Q3_2
  142. qk1_0Q4_2
  143. k3_Q1_3
  144. #0,sQ2_3
  145. kQ3_3
  146. 3_0+qQ4_3
  147. 2,2),QK1_0
  148. odn(QK2_0
  149. qk1_QK3_0
  150. +qk3QK4_0
  151. QK1_1
  152. QK2_1
  153. )  =QK3_1
  154.   Q4QK4_1
  155. no(QK1_2
  156. if(QK2_2
  157. ,strQK3_2
  158. 12,2QK4_2
  159. hodQK1_3
  160.  "qkQK2_3
  161.  = iQK3_3
  162. hlQK4_3
  163. '   C_OZNAC
  164. OZNAC
  165.  =POCET
  166. k3_1POCETC
  167. k3_M1_IDENT
  168. )ZAZNAM
  169.  M1_KALK
  170. W_ZAS
  171. *W_SPOTR
  172.   W_ZAS_KC
  173. PW_SPOTR_KCWQ1_0
  174. "iifWQ2_0
  175. qk4_WQ3_0
  176. (qk3WQ4_0
  177. 1,12WQ1_1
  178. hWQ2_1
  179.  = "WQ3_1
  180. k4_1WQ4_1
  181. WQ1_2
  182. l(i)WQ2_2
  183.     WQ3_2
  184. jmeWQ4_2
  185. = "iWQ1_3
  186. 1#0,WQ2_3
  187. _1,1WQ3_3
  188. WQ4_3
  189.   = WQK1_0
  190. i WQK2_0
  191. zWQK3_0
  192. = 'WQK4_0
  193. 1-1WQK1_1
  194. (i)WQK2_1
  195. (qkWQK3_1
  196. r(qWQK4_1
  197. 2)tWQK1_2
  198. WQK2_2
  199. WQK3_2
  200. WQK4_2
  201. WQK1_3
  202. WQK2_3
  203. WQK3_3
  204. IWQK4_3
  205. ),sM1_ZAS
  206. n(iUVN
  207. kM1_OBR
  208. i+1KOD_OB
  209. iW_HODNOTA
  210. SKUT_MNOZ
  211. W_HOD_KC
  212. "NAKLAD
  213. qk4_0,MESIC
  214. CM1_OBR_A
  215. PROCENTA
  216. CPOLEX
  217. PROCX
  218.   = RTOP
  219.   Q3-RBOT
  220. eno(iCLEFT
  221. if(qCRIGHT
  222. tr(FREEZE
  223. ,2)ORDER
  224. hodnZAHL
  225.  "qk3JMENO
  226. = i+HODN
  227. zahl(TITLE
  228.     TITLECOLORPS_LINE
  229. (qk3_0+F2
  230. 0#0,strF3
  231. _0+qk4_F4
  232. ,2),sp)F6
  233. odn(i) F7
  234. qk3_0+qF9
  235. i = F10
  236. zahDETAIL
  237. '  F1PRG
  238. F4_JM
  239. i)  F4PRG
  240. qk2_F7_JM
  241. (qk2F7PRG
  242. ),spF9KEY
  243. n(i)F10_JM
  244. _0"F10PRG
  245. DET_JM
  246. i) DETPRG
  247.    RAMECEK
  248. enNAZEVT
  249. SPACEBAR
  250. %PRAVA
  251. oznaHOR
  252. NeNADPIS
  253. enTR_HL1
  254. hPODNIK
  255. denNAST_POL1
  256. MOD_PSV
  257. OBSAH
  258. PS_RETURN
  259. st.MJ
  260. w_hod_zas
  261. Hodnoty v K
  262. NAST_POL2
  263. F10_JM
  264. _F10PRG
  265. 1TITLE
  266. iTR_HL1
  267. Hodnot.K
  268. w_hod_kc
  269.  v MJ
  270. NAST_POL1
  271. F10_JM
  272. _F10PRG
  273. 1TITLE
  274. iTR_HL1
  275. soba (MJ)
  276. iif(zasoba#0,str(zasoba,12,3),sp)
  277. zasoba
  278.        Q4-0
  279. iif(q4_0#0,str(q4_0,12,3),sp)
  280.        Q3-0
  281. iif(q3_0#0,str(q3_0,12,3),sp)
  282.        P2-0
  283. iif(q3_0+q4_0#0,str(q3_0+q4_0,12,3),sp)
  284. q3_0+q4_0
  285.        Q2-0
  286. iif(q2_0#0,str(q2_0,12,3),sp)
  287.        Q1-0
  288. iif(q1_0#0,str(q1_0,12,3),sp)
  289.        P1-0
  290. iif(q1_0+q2_0#0,str(q1_0+q2_0,12,3),sp)
  291. q1_0+q2_0
  292.         R-0
  293. iif(q1_0+q2_0+q3_0+q4_0#0,str(q1_0+q2_0+q3_0+q4_0,12,3),sp)
  294. q1_0+q2_0+q3_0+q4_0
  295.        Q4-1
  296. iif(q4_1#0,str(q4_1,12,3),sp)
  297.        Q3-1
  298. iif(q3_1#0,str(q3_1,12,3),sp)
  299.        P2-1
  300. iif(q3_1+q4_1#0,str(q3_1+q4_1,12,3),sp)
  301. q3_1+q4_1
  302.        Q2-1
  303. iif(q2_1#0,str(q2_1,12,3),sp)
  304.        Q1-1
  305. iif(q1_1#0,str(q1_1,12,3),sp)
  306.        P1-1
  307. iif(q1_1+q2_1#0,str(q1_1+q2_1,12,3),sp)
  308. q1_1+q2_1
  309.         R-1
  310. iif(q1_1+q2_1+q3_1+q4_1#0,str(q1_1+q2_1+q3_1+q4_1,12,3),sp)
  311. q1_1+q2_1+q3_1+q4_1
  312.        Q4-2
  313. iif(q4_2#0,str(q4_2,12,3),sp)
  314.        Q3-2
  315. iif(q3_2#0,str(q3_2,12,3),sp)
  316.        P2-2
  317. iif(q3_2+q4_2#0,str(q3_2+q4_2,12,3),sp)
  318. q3_2+q4_2
  319.        Q2-2
  320. iif(q2_2#0,str(q2_2,12,3),sp)
  321.        Q1-2
  322. iif(q1_2#0,str(q1_2,12,3),sp)
  323.        P1-2
  324. iif(q1_2+q2_2#0,str(q1_2+q2_2,12,3),sp)
  325. q1_2+q2_2
  326.         R-2
  327. iif(q1_2+q2_2+q3_2+q4_2#0,str(q1_2+q2_2+q3_2+q4_2,12,3),sp)
  328. q1_2+q2_2+q3_2+q4_2
  329.        Q4-3
  330. iif(q4_3#0,str(q4_3,12,3),sp)
  331.        Q3-3
  332. iif(q3_3#0,str(q3_3,12,3),sp)
  333.        P2-3
  334. iif(q3_3+q4_3#0,str(q3_3+q4_3,12,3),sp)
  335. q3_3+q4_3
  336.        Q2-3
  337. iif(q2_3#0,str(q2_3,12,3),sp)
  338.        Q1-3
  339. iif(q1_3#0,str(q1_3,12,3),sp)
  340.        P1-3
  341. iif(q1_3+q2_3#0,str(q1_3+q2_3,12,3),sp)
  342. q1_3+q2_3
  343.         R-3
  344. iif(q1_3+q2_3+q3_3+q4_3#0,str(q1_3+q2_3+q3_3+q4_3,12,3),sp)
  345. q1_3+q2_3+q3_3+q4_3
  346. ST_POL1
  347. _JMENO
  348. 1HODN
  349. iPS_RETURN
  350. soba (K
  351. iif(zas_kc#0,str(zas_kc,12,2),sp)
  352. zas_kc
  353.        Q4-0
  354. iif(qk4_0#0,str(qk4_0,12,2),sp)
  355. qk4_0
  356.        Q3-0
  357. iif(qk3_0#0,str(qk3_0,12,2),sp)
  358. qk3_0
  359.        P2-0
  360. iif(qk3_0+qk4_0#0,str(qk3_0+qk4_0,12,2),sp)
  361. qk3_0+qk4_0
  362.        Q2-0
  363. iif(qk2_0#0,str(qk2_0,12,2),sp)
  364. qk2_0
  365.        Q1-0
  366. iif(qk1_0#0,str(qk1_0,12,2),sp)
  367. qk1_0
  368.        P1-0
  369. iif(qk1_0+qk2_0#0,str(qk1_0+qk2_0,12,2),sp)
  370. qk1_0+qk2_0
  371.         R-0
  372. iif(qk1_0+qk2_0+qk3_0+qk4_0#0,str(qk1_0+qk2_0+qk3_0+qk4_0,12,2),sp)
  373. qk1_0+qk2_0+qk3_0+qk4_0
  374.        Q4-1
  375. iif(qk4_1#0,str(qk4_1,12,2),sp)
  376. qk4_1
  377.        Q3-1
  378. iif(qk3_1#0,str(qk3_1,12,2),sp)
  379. qk3_1
  380.        P2-1
  381. iif(qk3_1+qk4_1#0,str(qk3_1+qk4_1,12,2),sp)
  382. qk3_1+qk4_1
  383.        Q2-1
  384. iif(qk2_1#0,str(qk2_1,12,2),sp)
  385. qk2_1
  386.        Q1-1
  387. iif(qk1_1#0,str(qk1_1,12,2),sp)
  388. qk1_1
  389.        P1-1
  390. iif(qk1_1+qk2_1#0,str(qk1_1+qk2_1,12,2),sp)
  391. qk1_1+qk2_1
  392.         R-1
  393. iif(qk1_1+qk2_1+qk3_1+qk4_1#0,str(qk1_1+qk2_1+qk3_1+qk4_1,12,2),sp)
  394. qk1_1+qk2_1+qk3_1+qk4_1
  395.        Q4-2
  396. iif(qk4_2#0,str(qk4_2,12,2),sp)
  397. qk4_2
  398.        Q3-2
  399. iif(qk3_2#0,str(qk3_2,12,2),sp)
  400. qk3_2
  401.        P2-2
  402. iif(qk3_2+qk4_2#0,str(qk3_2+qk4_2,12,2),sp)
  403. qk3_2+qk4_2
  404.        Q2-2
  405. iif(qk2_2#0,str(qk2_2,12,2),sp)
  406. qk2_2
  407.        Q1-2
  408. iif(qk1_2#0,str(qk1_2,12,2),sp)
  409. qk1_2
  410.        P1-2
  411. iif(qk1_2+qk2_2#0,str(qk1_2+qk2_2,12,2),sp)
  412. qk1_2+qk2_2
  413.         R-2
  414. iif(qk1_2+qk2_2+qk3_2+qk4_2#0,str(qk1_2+qk2_2+qk3_2+qk4_2,12,2),sp)
  415. qk1_2+qk2_2+qk3_2+qk4_2
  416.        Q4-3
  417. iif(qk4_3#0,str(qk4_3,12,2),sp)
  418. qk4_3
  419.        Q3-3
  420. iif(qk3_3#0,str(qk3_3,12,2),sp)
  421. qk3_3
  422.        P2-3
  423. iif(qk3_3+qk4_3#0,str(qk3_3+qk4_3,12,2),sp)
  424. qk3_3+qk4_3
  425.        Q2-3
  426. iif(qk2_3#0,str(qk2_3,12,2),sp)
  427. qk2_3
  428.        Q1-3
  429. iif(qk1_3#0,str(qk1_3,12,2),sp)
  430. qk1_3
  431.        P1-3
  432. iif(qk1_3+qk2_3#0,str(qk1_3+qk2_3,12,2),sp)
  433. qk1_3+qk2_3
  434.         R-3
  435. iif(qk1_3+qk2_3+qk3_3+qk4_3#0,str(qk1_3+qk2_3+qk3_3+qk4_3,12,2),sp)
  436. qk1_3+qk2_3+qk3_3+qk4_3
  437. ST_POL1
  438. _JMENO
  439. 1HODN
  440. iPS_RETURN
  441. POCET
  442. POCETC
  443. iMOD48CX
  444. VYB_STAT
  445. W_HOD_KC
  446. W_HOD_ZAS
  447. NAST_POL1
  448. NAST_POL2
  449. PROCENTA
  450. X:\OBEC\04\
  451. MOD48C.FXP
  452. X:\OBEC\04\MOD48C.PRG
  453.