home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 05 / MOD58A1.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-16  |  8KB  |  207 lines
  1. m5_tisk
  2. doklad
  3. aktual
  4. Aktual.
  5. mod58a1
  6.  dokumentace
  7. RIIS 5.8
  8. Typ dokl.
  9. doklad
  10. doklad
  11. zev dokladu
  12. nazev
  13. nazev
  14. zahlavi
  15. zahlavi
  16. M5_TISK
  17. meDOKLAD
  18. metPOLEX
  19. &bFREEZE
  20. o cF1
  21. case qF2
  22.    @ 1F3
  23.  &vloz F4
  24.  ENTER
  25. 16 &DETAIL
  26. azeDET_JM
  27. q=qPROCX
  28.  17,RAMECEK
  29. w_NAZEVT
  30. caRIIS
  31.   NADPIS
  32.  &vLEVA
  33. PRAVA
  34. z='sayDOL
  35.  updatKLICO
  36.   zmZAHL
  37. enJMENO
  38. retHODN
  39. ****SOUC
  40. ****I
  41. prMOD_PSV
  42. OPRAVA
  43. mePS_RETURN
  44. RIIS 7.37
  45. imu v
  46. ru nelze prov
  47. t opravy z
  48. imu t
  49.  nelze prov
  50. t opravy z
  51. set color to b/w
  52. set color to bg/n
  53. set color to w+/bg
  54. set color to b/bg,w+/rb
  55. set color to w+/b
  56. set color to w/n
  57. &barvau
  58. CPODMV
  59. _RETURN
  60. CPODMS
  61. &bZMENA
  62. o cNOVY_Z
  63. e qANSI
  64. @ 1W_DOKLAD
  65.  DOKLAD
  66. cW_NAZEV
  67.  NAZEV
  68. 16 &W_KLIC
  69. azeKLIC
  70. q=qW_ZAHLAVI
  71. ZAHLAVI
  72. w_JMENO_C
  73. caWJMENO_C
  74.  RADEK_C
  75. &vSLOUPEC_C
  76. z='sayQ2
  77.  updatQ3
  78.   zmQ4
  79. retQ6
  80. ****Q7
  81. ****Q8
  82. meQ10
  83. whilQ11
  84. CISELNIK
  85.       DOL
  86. POCET
  87.   caDOP1
  88.      POR
  89.    COUNT
  90.   t=ZAKAZNIK
  91.  POMOC
  92.  x<=Y
  93.       RAD
  94.  x=horSL
  95.        POC
  96.  KONTROLA
  97. dBARVAS
  98.    BARVAR
  99.   BARVAZ
  100. =hoBARVAU
  101.    BARVAN
  102.    BARVAH
  103.    BARVA
  104. r=xM5_TISK
  105. ndMENU
  106.  jPORADI
  107.   dKONEC
  108. men&y Z
  109. 'get'
  110.  set curT
  111.    seA
  112. ursor ofZMENY
  113. &barva
  114.  Aktualizace t
  115.  dokumentace 
  116. Typ dokladu 
  117. &barvau
  118. W_DOKLAD
  119. eW_NAZEV
  120. W_ZAHLAVI
  121. W_KLIC
  122. &barvau
  123. @ 14,16 &vloz w_doklad
  124. @ 15,16 &vloz w_nazev
  125. @ 17,16 &vloz w_zahlavi
  126. @ 18,16 &vloz w_klic
  127. NAZEV
  128. AHLAVI
  129. o cQ3
  130. e qQ4
  131. @ 1ZMENA
  132. do proc&y
  133. do zmen&y with 'get'
  134. do zmen&y with 'say'
  135. it pr
  136. ci beze zm
  137. n? (a/N)
  138. KONEC
  139. NAZEV
  140. AHLAVI
  141. o cDOL
  142. @ 1HOR
  143. NAZEV
  144. 16 &J
  145. azeNOVY_Z
  146. q=qMOD5
  147. W_DOKLAD
  148. _DOKLAD
  149. caW_NAZEV
  150.  NAZEV
  151. &vW_ZAHLAVI
  152. ZAHLAVI
  153. iW_KLIC
  154. sayKLIC
  155. updatPROC1
  156.   zmQ1
  157. retQ3
  158. ****Q4
  159. ****POCET
  160. meK_UDAJU
  161. ilOK_C
  162.  ULOZ
  163. ZMENA
  164. Identifikace dokladu mus
  165. t vypln
  166. eW_DOKLAD
  167. HLASKA
  168. e qQ1
  169. M5_TISK
  170. eZMENA
  171. DOKLAD
  172. W_DOKLAD
  173. cNAZEV
  174. e qW_NAZEV
  175.  1ZAHLAVI
  176.  W_ZAHLAVI
  177.  W_KLIC
  178. colora
  179. set color to &color
  180. eCOLOR
  181.       - 
  182.                  - ^PgDn
  183.                  - ^Home
  184.       - ^End,Esc
  185. Pohyb
  186. Konec
  187. colora
  188. SET COLOR TO &col
  189. CMESS
  190. AKTUAL
  191.     U
  192. OPRAVA
  193. PORADI
  194. l=19c
  195. PROC1
  196.     &
  197. ZMEN1
  198. ZMENY
  199. K_UDAJU
  200. poli ->
  201. HLASKA
  202. dimen
  203. (polex
  204. X:\OBEC\05\
  205. MOD58A1.FXP
  206. X:\OBEC\05\MOD58A1.PRG
  207.