home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD69B.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-05-15  |  8KB  |  196 lines
  1. KONEC
  2.   u=MOD69BX
  3. mod69b
  4. mod69bd
  5. ehled  s v 
  6.  t k 
  7. RIIS 4.6
  8. m6_svat
  9. ' '+str(den,2)+'.'+str(mesic,2)+'.'
  10. den+mesic
  11. poznamka
  12. poznamka
  13. POLEX
  14.   u=RTOP
  15.   RBOT
  16.    CLEFT
  17. CRIGHT
  18.       uF2
  19.        F3
  20.     F4
  21. do procF7
  22.    endiF8
  23.   do zmF9
  24.  with 'F10
  25.    sePROCX
  26. r onENTER
  27. DETAIL
  28. ursDET_JM
  29.    RAMECEK
  30. ()NAZEVT
  31.  RIIS
  32. men&yNADPIS
  33. ay'LEVA
  34. f a=8PRAVA
  35. (i=3HOR
  36. i=12)
  37.   ?chrM6_SVAT
  38.   DEN
  39.    enZAHL
  40.   do JMENO
  41.     HODN
  42. ni zI
  43. (ctrMOD_PSV
  44. mod_psv
  45. M6_SVAT
  46. u=OPRAVA
  47.   PS_RETURN
  48. MOD_PSV
  49. RIIS 6.9
  50. imu v
  51. ru nelze prov
  52. t opravy z
  53. imu t
  54.  nelze prov
  55. t opravy z
  56. set color to b/w
  57. set color to bg/n
  58. set color to w+/bg
  59. set color to b/bg,w+/rb
  60. set color to w+/b
  61. set color to w/n
  62. &barvau
  63. CPODMV
  64.   M_MAZANI
  65. CPODMS
  66. W_DEN
  67.    uDEN
  68.       W_MESIC
  69.   MESIC
  70.   W_POZNAMKAPOZNAMKA
  71. cNOVY_Z
  72. ndiJMENO_C
  73. zmWJMENO_C
  74. 'RADEK_C
  75. seSLOUPEC_C
  76. ursQ2
  77.    CISELNIK
  78. men&yPOCET
  79. ay'DOP1
  80. f a=8DOP2
  81. (i=3POR
  82. i=12)
  83. COUNT
  84. ?chrZAKAZNIK
  85.  POMOC
  86.   enY
  87.   do RAD
  88.     SL
  89. ni zPOC
  90. (ctrKONTROLA
  91.  BARVAS
  92. 33 BARVAR
  93.  BARVAZ
  94. novBARVAU
  95. BARVAN
  96.  noBARVAH
  97. BARVA
  98. endiKS
  99.    M6_SVAT
  100.   MENU
  101.   PORADI
  102. of(KONEC
  103.     X
  104. ottom
  105.   endiZ
  106.     ifU
  107.    appenQ
  108.     novyQ3
  109.  ZMENY
  110. &barva
  111.  Aktualizace sv
  112. W_DEN
  113. u=W_MESIC
  114.   W_POZNAMKA
  115. @ 13,21 &vloz w_den picture '99' function '@Z'
  116. @ 13,24 &vloz w_mesic picture '99' function '@Z'
  117. @ 14,21 &vloz w_poznamka picture '@X' 
  118. MESIC
  119. OZNAMKAW_DEN
  120.    uW_MESIC
  121.   W_POZNAMKA?
  122. do proc&y
  123. do zmen&y with 'get'
  124. do zmen&y with 'say'
  125. it pr
  126. ci beze zm
  127. n? (a/N)
  128. KONEC
  129. MESIC
  130. OZNAMKAX
  131.    uHOR
  132. POZNAMKAZ
  133. ZNAMKAJ
  134. ZNAMKA
  135. cNOVY_Z
  136. ndiW_DEN
  137. zmDEN
  138. 'W_MESIC
  139. seMESIC
  140. W_POZNAMKAPOZNAMKA
  141. sPROC1
  142.    Q1
  143. ELNIK
  144. men&yPOCET
  145. f a=8K_UDAJU
  146. =3OK_C
  147. ZNAMKA
  148. Den mus
  149. t vypln
  150. c mus
  151. t vypln
  152. tek ji
  153.  existuje
  154. Chybn
  155.  naveden
  156.  kalend
  157. Chybn
  158.  naveden
  159.  kalend
  160. u=W_DEN
  161.   TXT
  162. ZNAMKAHLASKA
  163.    uQ1
  164.   W_MESIC
  165. MKAXX
  166. ZNAMKA
  167. colora
  168. set color to &color
  169. u=COLOR
  170.   OBR
  171. ZNAMKA
  172.             - 
  173.                 - ^PgDn
  174.                 - ^Home
  175.       - ^End,Esc
  176. Pohyb
  177. Konec - 
  178. MOD69BX
  179. MOD69BD
  180. OPRAVA
  181. PORADI
  182. ****y
  183. PROC1
  184. *****L
  185. ZMEN1
  186. *****
  187. ZMENY
  188. *****
  189. K_UDAJU
  190. HLASKA
  191. * -- 
  192. ------9
  193. X:\OBEC\06\
  194. MOD69B.FXP
  195. X:\OBEC\06\MOD69B.PRG
  196.