home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 06 / MOD61A5.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1999-03-23  |  12KB  |  252 lines
  1. RIIS 6.1
  2. AKTUAL
  3. MOD_SYS
  4. set color to b/w
  5. set color to bg/n
  6. set color to w+/bg
  7. set color to b/bg,w+/rb
  8. set color to w+/b
  9. set color to w+/w 
  10. set color to w/n
  11. &barvaz
  12.  Rodinn
  13. c_rod+
  14. c_rod
  15. c_rod
  16. c_rod.dbf
  17. M6_ROD
  18. nlKONTROLA
  19. 8ZMENA_C
  20.  dZMENA_R
  21. orP_ZOB
  22.  KONEC
  23.   POMOC
  24. c = LEVA
  25.      PRAVA
  26.  = .POCET
  27.    *BARVA
  28.  if MHOD
  29.  BARVAS
  30. do BARVAR
  31.    BARVAZ
  32. c=.BARVAU
  33.   eBARVAN
  34.    BARVANS
  35. c(BARVAH
  36.    WTEXT4
  37.    CISLOZ
  38. x-1C_ROD
  39.     NOVY_Z
  40.    AKTUAL
  41.   MM_AUTOR
  42.  AUTOR
  43. DAT_AKT
  44.  VPRED (HLAVA1
  45. ZMENY
  46. e (iDBF
  47. &barvaz
  48. Rodinn
  49.  vztah
  50. Titul
  51. rodnost
  52. St. p
  53. Datum narozen
  54. sto narozen
  55. Okres
  56. Datum 
  57. stnavatel
  58. Bydli
  59. Ulice
  60. slo domu
  61. d bydli
  62. Telefon
  63.  odpo
  64. Od               do
  65. itel pr
  66. kazky ZTP-P
  67. Aktualizace
  68. &barvau
  69. @R 999999/9999
  70. C_ROD
  71. nlROD_VZTAH
  72. RODNE_CIS
  73. PRIJMENI
  74. rJMENO
  75.  TITUL
  76.   RODNE_PRIJNARODNOST
  77.  = .DAT_NAR
  78.  *MISTO_NAR
  79. OKRES_NAR
  80. POZNAMKA
  81.  DAT_UMR
  82.   ZAMEST
  83. c=.BYDL
  84.   eULICE
  85.    CIS_DOMU
  86.    KOD_BYDL
  87.  CIS_TEL
  88. -1DAT_OD_ODPDAT_DO_ODPPRUK_ZTPP
  89. DAT_AKT
  90. &barvau
  91. rod_vztah
  92. @ 10,18 &vloz rod_vztah pict '9'
  93. 99999
  94. 999999999
  95. ##############
  96. @ 11,18 &vloz rodne_cis pict '@R 999999/9999'
  97. mod6_lib
  98. @ 12,18 &vloz prijmeni
  99. @ 13,18 &vloz jmeno
  100. @ 14,18 &vloz titul
  101. @ 15,18 &vloz rodne_prij
  102. narodnost
  103. @ 16,18 &vloz narodnost pict '9'
  104. @ 17,18 &vloz stat pict '@!X'
  105. @ 18,18 &vloz dat_nar pict '@E'
  106. @ 19,18 &vloz misto_nar
  107. @ 20,18 &vloz okres_nar
  108. @ 21,18 &vloz poznamka pict '@S22'
  109. @ 22,18 &vloz dat_umr pict '@E'
  110. @ 10,56 &vloz zamest
  111. @ 11,56 &vloz bydl
  112. @ 12,56 &vloz ulice
  113. @ 13,56 &vloz cis_domu pict '####'
  114. @ 14,56 &vloz psc pict '99999'
  115. kod_bydl
  116. @ 15,56 &vloz kod_bydl pict '999999999'
  117. @ 16,56 &vloz cis_tel pict '##############'
  118. @ 19,45 &vloz dat_od_odp pict '@E'
  119. @ 19,62 &vloz dat_do_odp pict '@E'
  120. @ 20,67 &vloz pruk_ztpp pict '!X'
  121. nlP_ZOB
  122. DNE_CIS
  123. ROD_VZTAH
  124. M6_ZAM
  125.  CISLOZ
  126.   NOVY_Z
  127. RIJC_ROD
  128. NARODNOST
  129. M6_BYD
  130. ULICE
  131.  CIS_DOMU
  132. .KOD_BYDL
  133. eCIS_TEL
  134.  RODNE_CIS
  135. W_CHYBA
  136.   W_DAT_POM
  137. K_RODCIS
  138. 1MOD6_LIB
  139. DAT_NAR
  140. DPZMENA_R
  141. DAT_AKT
  142.  AKTUAL
  143. MM_AUTOR
  144.  ZMENA_C
  145. do proc&y
  146. do zmen&y with 'get'
  147. do zmen&y with 'say'
  148. do proc&y
  149. Konec beze zm
  150. n ? (a/N): 
  151. &barvau
  152. NE_CIS
  153. _VZTAH
  154. RIJKONEC
  155. RODNOST
  156. NAP_HOD
  157. P_ZOB
  158.  POCET
  159.  ZMENA_C
  160. .ZMENA_R
  161. eULOZ
  162. KONTROLA
  163.  NOVY_Z
  164. PROC1
  165. CISLOZ
  166. DPAKTUAL
  167. MM_AUTOR
  168.  AUTOR
  169. DAT_AKT
  170.  M6_ZAM
  171. OVC_ROD
  172. D (NARODNOST
  173. POMOC
  174. (iOBR
  175. =263MENU1
  176. koODEZVA
  177. c_rod
  178. ZMENA_C
  179. M6_ROD
  180. nlCISLOZ
  181. E_CIS
  182. C_ROD
  183. ROD_VZTAH
  184. ROD_VZTAH 
  185. c_rod.rod_vztah
  186. t navedeno
  187. no mus
  188. t navedeno
  189. NARODNOST 
  190. c_rod.narodnost
  191. STAT      
  192. c_rod.stat
  193. Datum narozen
  194. t uvedeno
  195. KOD_BYDL  
  196. c_rod.kod_bydl
  197. KONTROLA
  198. JMENO_C
  199. lWJMENO_C
  200. MOD_C2
  201. MOD_C3
  202. ZMENA_R
  203. RIJPRIJMENI
  204. HLASKA
  205. JMENO
  206. TYP_C
  207. ROD_VZTAH
  208. DAT_NAR
  209. &barvau
  210.               - 
  211. ,PgDn,PgUp
  212.               - ^PgUp,^PgDn
  213.               - ^Home
  214.               - ^End,Esc
  215.               - F8
  216. Pohyb
  217. Konec
  218. Hodnoty
  219. rod_vztah
  220. ROD_VZTAH
  221. c_rod.rod_vztah
  222. narodnost
  223. NARODNOST
  224. c_rod.narodnost
  225. c_rod.stat
  226. kod_bydl
  227. KOD_BYDL
  228. c_rod.kod_bydl
  229. Pro toto pole neexistuje pomocn
  230. ehled hodnot
  231. P_ZOB
  232. MOD_C3
  233. lZMENA_R
  234. HLASKA
  235. AKTUAL
  236. ena_w
  237. HLAVA1
  238. PROC1
  239.      
  240. ZMEN1
  241.      
  242. ZMENY
  243.      
  244.       
  245. KONTROLA
  246. HLASKA
  247. MENU1
  248. NAP_HOD
  249. X:\OBEC\06\
  250. MOD61A5.FXP
  251. X:\OBEC\06\MOD61A5.PRG
  252.