home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD615A1.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-03-11  |  9KB  |  187 lines
  1. W_POLE
  2.    OPRAVA1
  3. KONEC
  4. mod614a
  5.    ZMENA
  6. POMOC
  7. )+'PROCX
  8. (217NOVY_Z
  9. v+2M6_ODSK
  10.   W_POLE
  11. ^HCISLOL
  12. +3,OSC
  13. ay '  CISLOP
  14.   -CIS_PROTO
  15. CIS_PU
  16. 2 sCISLOU
  17.    AKTUAL
  18. MM_AUTOR
  19. 'AUTOR
  20.  DAT_AKT
  21.  OPRAVA2
  22. set color to b/w
  23. set color to bg/n
  24. set color to w+/bg
  25. set color to b/bg,w+/rb
  26. set color to w+/b
  27. set color to w/n
  28. set color to w+/w
  29. &barva
  30. &barvau
  31. W_POLE
  32.    Q1
  33. )+'Q3
  34. (217Q4
  35. v+2Q5
  36. +3,Q8
  37. ay '  Q9
  38.   -Q10
  39. PROTO
  40. 2 sQ12
  41.    Q13
  42.   Q18
  43.  - F3'Q19
  44. seQ20
  45. or to Q21
  46. @h+1,Q22
  47. ay 'PoQ23
  48. @h+2,CISELNIK
  49. znam'
  50. ,v+2 sPOCET
  51. v+2 sDOP2
  52.  hePOR
  53. if proCOUNT
  54. 614aZAKAZNIK
  55. ,POMOC
  56.  'BlY
  57. endifRAD
  58. ***POC
  59. ******BARVAS
  60. ***BARVAR
  61. ***BARVAZ
  62. ***BARVAU
  63. ***BARVAN
  64. BARVAH
  65. re BARVAD
  66.   1KS
  67.  say w_M6_ODSK
  68. icBARVA
  69. 99BARVA1
  70. & cBARVA2
  71. @PORADI
  72. KONEC
  73. ZMENY
  74. }.M_MAZANI
  75. &barva1
  76. kladn
  77. daje od
  78. &barva2
  79. slo protokolu
  80. slo NZP(PU)
  81. Datum od
  82. Body bolestn
  83. Body ZSU
  84. stky za ZSU
  85. Ostatn
  86. hrady
  87. hrady
  88. hrady
  89.  red.n
  90. hrady
  91.  red.n
  92. hrady
  93. WTEXT
  94. &barvah
  95.             - 
  96.             - ^Home
  97.             - ^End,Esc
  98.             - F1
  99. mod614a
  100.             - F3
  101. Pohyb
  102. Konec
  103.  help
  104. mod614a
  105. Bloky
  106. &barvau
  107. PROCX
  108. 99999999
  109. 99999
  110. W_POLE
  111. @  19,23 &vloz w_pole(4) pict '@E'        
  112. @  19,59 &vloz w_pole(5) pict '##'        
  113. @  20,23 &vloz w_pole(6) pict '####'      
  114. @  20,59 &vloz w_pole(7) pict '####'      
  115. @  21,23 &vloz w_pole(8) pict '##'        
  116. @  21,59 &vloz w_pole(9)                  
  117. @  22,23 &vloz w_pole(10) pict '@E'       
  118. @  22,59 &vloz w_pole(11) pict '@E'       
  119. @  23,23 &vloz w_pole(12) pict '@E'       
  120. @  23,59 &vloz w_pole(13) pict '@E'       
  121. )+'W_POLE
  122. 217MM_AUTOR
  123. 2ZMENA
  124. do proc&y
  125. do zmen&y with 'get'
  126. FoxProFl
  127. do zmen&y with 'say'
  128. mod614a
  129. Opravdu zru
  130. it tento z
  131. znam? (A/N)
  132. Konec beze zm
  133. n ? (a/N):
  134. &barvau
  135. KONEC
  136. 217DOL
  137.   HOR
  138. ay '  Z
  139. PROTO
  140. 2 sLK
  141.    POMOC
  142. 'MENU
  143.  PROCX
  144.   W_POLE
  145. F3'POCET
  146. sePOM
  147. r to CISLOL
  148. +1,ZMENA
  149.  'PoODEZVA
  150. +2,NOVY_Z
  151. colora
  152. set color to &color
  153.    COLOR
  154.   .  .  #
  155.  vypln
  156. no datum od
  157.  vypln
  158.  vypln
  159. et bod
  160.  bolestn
  161.   .  .  #
  162.   .  .  #
  163. Datum zah
  164.  je vy
  165.  datum ukon
  166.   .  .  #
  167.   .  .  #
  168. Datum zah
  169.  je vy
  170.  datum ukon
  171. W_POLE
  172.    TXT
  173. HLASKA
  174. 2OPRAVA1
  175. OPRAVA2
  176. PORADI
  177. PROC1
  178. ZMEN1
  179. (7) p2
  180. ZMENY
  181.      `
  182. HLASKA
  183. K_UDAJU
  184. X:\OBEC\06\
  185. MOD615A1.FXP
  186. X:\OBEC\06\MOD615A1.PRG
  187.