home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD79C.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-01-08  |  12KB  |  225 lines
  1. mod79c
  2. Zmena
  3. oprava
  4. Evidence cenin 
  5. RIIS 7.9
  6. m_cis1
  7. x_cis1
  8. m_dat
  9. x_dat
  10. m7_meny
  11. cenina
  12. MENA      
  13. u7_meny
  14. cenina
  15. MENA      
  16. Cenina
  17. '   '+men.mena
  18. men.mena
  19. . stav
  20. str(men.stav_m,10,2)
  21. men.stav_m
  22.      P
  23. ' '+str(men.prij_m,10,2)
  24. men.prij_m
  25.       V
  26. ' '+str(men.vyd_m,10,2)
  27. men.vyd_m
  28.   Kon. stav
  29. ' '+str(men.zasoba,10,2)
  30. men.zasoba
  31.        Hodnota
  32. '    '+str(men.stred,10,2)
  33. men.stred
  34. KONEC
  35. _VYDEJ
  36. POLEX
  37. FREEZE
  38. _UZAV
  39. PROCX
  40. F10_JM
  41. F10PRG
  42. ENTER
  43. DETAIL
  44. DET_JM
  45. RAMECEK
  46. NAZEVT
  47. NADPIS
  48. PRAVA
  49. M_CIS1
  50. X_CIS1
  51. M_DAT
  52. X_DAT
  53. M7_MENY
  54. CENINA
  55. DRUH_MC
  56. U7_MENY
  57. JMENO
  58. MOD_PSV
  59. RIIS 7.9
  60. set color to b/w
  61. set color to bg/n
  62. set color to w+/bg
  63. set color to b/bg,w+/rb
  64. set color to w+/b
  65. set color to w/n
  66. &barvau
  67. _VYDEJ
  68. W_POLE
  69. NOVY_Z
  70. JMENO_C
  71. WJMENO_C
  72. RADEK_C
  73. SLOUPEC_C
  74. CISELNIK
  75. POCET
  76. POMOC
  77. KONTROLA
  78. BARVAS
  79. BARVAR
  80. BARVAZ
  81. BARVAU
  82. BARVAN
  83. BARVAH
  84. BARVA
  85. MENU1
  86. PORADI1
  87. KONEC
  88. _MENY
  89. ZMENY
  90. PS_RETURN
  91. &barva
  92. dej cenin 
  93. Cenina
  94. Kon.stav
  95.             - 
  96.       - ^End,Esc
  97. Pohyb
  98. Konec - 
  99. 9999999.99
  100. 9999999.99
  101. W_POLE
  102. @ 18,15 &vloz w_pole(5) picture '9999999.99'     
  103. w_pole(5)
  104. dej ne
  105.  stav
  106. 9999999.99
  107. @ 18,40 &vloz w_pole(10) picture '9999999.99'     
  108. w_pole(10)
  109. if mhod#&mnaz
  110.  kone
  111.  stav ne
  112. 9999999.99
  113. W_POLE
  114. ZASOBA
  115. HLASKA
  116. do proc&y
  117. do zmen&y with 'get'
  118. do zmen&y with 'say'
  119. Nelze zru
  120. it - existuje stav
  121. do proc&y
  122. do k_udaju&y              
  123. do proc&y
  124. it pr
  125. ci beze zm
  126. n? (A/N)
  127. do k_udaju&y   
  128. do k_udaju&y
  129. KONEC
  130. _VYDEJ
  131. NOVY_Z
  132. POCET
  133. W_POLE
  134. HLASKA
  135. DRUH_MC
  136. Nevypln
  137. Tato cenina je ji
  138.  navedena
  139. _VYDEJ
  140. W_POLE
  141. HLASKA
  142. colora
  143. set color to &color
  144. COLOR
  145. RIIS 7.9
  146. set color to b/w
  147. set color to bg/n
  148. set color to w+/bg
  149. set color to b/bg,w+/rb
  150. set color to w+/b
  151. set color to w/n
  152. &barvau
  153. _VYDEJ
  154. W_POLE
  155. NOVY_Z
  156. JMENO_C
  157. WJMENO_C
  158. RADEK_C
  159. SLOUPEC_C
  160. CISELNIK
  161. POCET
  162. POMOC
  163. KONTROLA
  164. BARVAS
  165. BARVAR
  166. BARVAZ
  167. BARVAU
  168. BARVAN
  169. BARVAH
  170. BARVA
  171. MENU2
  172. PORADI2
  173. KONEC
  174. _MENY
  175. ZMENY
  176. PS_RETURN
  177. &barva
  178.  Aktualizace cenin 
  179. Cenina
  180. Hodnota v K
  181.             - 
  182.                 - ^PgDn
  183.                 - ^Home
  184.       - ^End,Esc
  185. Pohyb
  186. Konec - 
  187. 9999999.99
  188. W_POLE
  189. @ 16,13 &vloz w_pole(1) picture '@!'              
  190. w_pole(1)
  191. if vloz='say' and  mhod#&mnaz
  192. @ 18,20 &vloz w_pole(20) picture '9999999.99'     
  193. W_POLE
  194. Nevypln
  195.  hodnota
  196. Tato cenina je ji
  197.  navedena
  198. W_POLE
  199. HLASKA
  200. MOD79C
  201. vy_z%
  202. OPRAVA
  203. PORADI1
  204. MENU1
  205. replaK
  206. PROC1
  207.  with4
  208. ZMEN1
  209.      
  210. ZMENY
  211.  w_po[
  212. K_UDAJU1
  213. HLASKA
  214.     k
  215. ZMENA
  216.      
  217. PORADI2
  218. MENU2
  219. PROC2
  220. ZMEN2
  221. K_UDAJU2
  222. X:\OBEC\07\
  223. MOD79C.FXP
  224. X:\OBEC\07\MOD79C.PRG
  225.