home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / S717A.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-22  |  16KB  |  384 lines
  1. m7_ucto
  2. s717a
  3. s717a1
  4. R o z p o 
  5.  t y 
  6. RIIS 7.2
  7. et(6),St
  8. edisko(4)
  9. m_param
  10. r7_srozp
  11. r7_rozp
  12. r7_ucet
  13. r1_str
  14. m7_srozp
  15. m7_rozp
  16. m7_ucet
  17. v1_str
  18. x1_str
  19.         Ro
  20. str(ro_ro,13,2)
  21. ro_ro
  22.         Leden
  23. str(ro_m1,13,2)
  24. ro_m1
  25.          
  26. str(ro_m2,13,2)
  27. ro_m2
  28.        B
  29. str(ro_m3,13,2)
  30. ro_m3
  31.         Duben
  32. str(ro_m4,13,2)
  33. ro_m4
  34.        Kv
  35. str(ro_m5,13,2)
  36. ro_m5
  37.        
  38. erven
  39. str(ro_m6,13,2)
  40. ro_m6
  41.      
  42. ervenec
  43. str(ro_m7,13,2)
  44. ro_m7
  45.         Srpen
  46. str(ro_m8,13,2)
  47. ro_m8
  48.          Z
  49. str(ro_m9,13,2)
  50. ro_m9
  51.         
  52. str(ro_m10,13,2)
  53. ro_m10
  54.      Listopad
  55. str(ro_m11,13,2)
  56. ro_m11
  57.      Prosinec
  58. str(ro_m12,13,2)
  59. ro_m12
  60. *****W_ROK
  61. ****W_ROK_VYB
  62. M7_UCTO
  63. **ROK
  64. edurPOLEX
  65. *FREEZE
  66. ---W_UCET
  67. ---F1
  68. adeni rF3
  69. ctu strF4
  70. * -F5
  71. -------F6
  72. -------F7
  73. set F8
  74.  ansi
  75. functioF10
  76. o ';'
  77. PROCX
  78. nctiENTER
  79. o ';AKT
  80. dimenDETAIL
  81. oleDET_JM
  82.  eoRAMECEK
  83. ppNAZEVT
  84. lace NADPIS
  85.  w_LEVA
  86.   novPRAVA
  87.   DOL
  88. _z = .F9KEY
  89. if  M_PARAM
  90.  tPAR_POLE
  91. *POLE7
  92. ----R7_SROZP
  93.  UCET
  94. try pM7_SROZP
  95. kR7_ROZP
  96. --M7_ROZP
  97. R7_UCET
  98. toM7_UCET
  99. wjR1_STR
  100. adeNSTR
  101. oupecV1_STR
  102. X1_STR
  103. tKLICO
  104. -----JMENO
  105. ----HODN
  106. ----SOUC
  107. ----I
  108. ----MOD_PSV
  109. OBSAH
  110.  to I
  111. *****ZAZN
  112. ****OPRAVA
  113. PS_RETURN
  114. W_POLE
  115. set color to b/w
  116. set color to bg/n
  117. set color to w+/bg
  118. set color to b/bg,w+/rb
  119. set color to w+/b
  120. set color to w/n
  121. &barvau
  122. *****W_POLE
  123. ***ROK
  124. W_ROK
  125. NOVY_Z
  126. durJMENO_C
  127. *WJMENO_C
  128. -RADEK_C
  129. --SLOUPEC_C
  130. P_ZOB
  131. ni rKONTROLA
  132. * -Q2
  133. -------Q3
  134. -------Q4
  135. set Q5
  136.  ansi
  137. functioQ7
  138. o ';'
  139. nctiQ9
  140. o ';Q10
  141. dimenQ11
  142. oleQ12
  143.  eoQ13
  144. ppQ14
  145. lace CISELNIK
  146.   novDOL
  147. POCET
  148.   POMOC
  149.  = .RAD
  150. if  SL
  151.  tPOC
  152. *BARVAS
  153. -BARVAR
  154.  BARVAZ
  155. y pBARVAU
  156. kBARVAN
  157. --BARVAH
  158. BARVA
  159. toM7_SROZP
  160. jMENU
  161. ePORADI
  162. pecKONEC
  163. -----Z
  164. ----U
  165. ----T
  166. ----Q
  167. ----A
  168. D_PSV
  169. ZMENY
  170. &barva
  171.  Aktualizace rozpo
  172. Rok:  
  173. Leden    
  174. nor     
  175. ezen   
  176. 1.Q:  
  177. Duben    
  178. ten   
  179. erven   
  180. 2.Q:  
  181. ervenec 
  182. Srpen    
  183.      
  184. 3.Q:  
  185. jen    
  186. Listopad 
  187. Prosinec 
  188. 4.Q:  
  189. 9999999999.99
  190. 9999999999.99
  191. 9999999999.99
  192. 9999999999.99
  193. 9999999999.99
  194. 9999999999.99
  195. 9999999999.99
  196. 9999999999.99
  197. 9999999999.99
  198. 9999999999.99
  199. 9999999999.99
  200. 9999999999.99
  201. 9999999999.99
  202. 9999999999.99
  203. 9999999999.99
  204. 9999999999.99
  205. 9999999999.99
  206. W_POLE
  207. @4,37  &vloz w_pole( 1) pict '999999'    
  208. Chybn
  209.  identifikace 
  210. @4,51  &vloz w_pole( 2)            
  211. @ 5,42  &vloz w_pole( 4) pict '9999999999.99' 
  212. @ 6,42  &vloz w_pole( 5) pict '9999999999.99' 
  213. @ 7,42  &vloz w_pole( 6) pict '9999999999.99' 
  214. @ 9,42  &vloz w_pole( 7) pict '9999999999.99' 
  215. @10,42  &vloz w_pole( 8) pict '9999999999.99' 
  216. @11,42  &vloz w_pole( 9) pict '9999999999.99' 
  217. @13,42  &vloz w_pole(10) pict '9999999999.99' 
  218. @14,42  &vloz w_pole(11) pict '9999999999.99' 
  219. @15,42  &vloz w_pole(12) pict '9999999999.99' 
  220. @17,42  &vloz w_pole(13) pict '9999999999.99' 
  221. @18,42  &vloz w_pole(14) pict '9999999999.99' 
  222. @19,42  &vloz w_pole(15) pict '9999999999.99' 
  223. 9999999999.99
  224. 9999999999.99
  225. 9999999999.99
  226. 9999999999.99
  227. 9999999999.99
  228. ***P_ZOB
  229. ***NOVY_Z
  230. durQ3
  231. ENO_C
  232. UPEC_C
  233. ni rQ8
  234. TROLA
  235. * -Q10
  236. ------Q11
  237. ------Q12
  238. set Q13
  239. unctioPOCET
  240. nctiW_POLE
  241.  ';M7_UCET
  242. enTXT
  243. leHLASKA
  244. ppM7_SROZP
  245. ehled 
  246. ehled st
  247. edisek 
  248.  Konec 
  249. mod7_lib
  250. Lze m
  251. nit pouze u nov
  252. mod_proc
  253. Lze m
  254. nit pouze u nov
  255. &barvau
  256. it pr
  257. ci beze zm
  258. n? (a/N)
  259. KONEC
  260. UPEC_C
  261. ni rJ
  262. TROLA
  263. rPROC1
  264. * -ZMEN1
  265. ----MM_LK
  266. ----NAP_HOD
  267. t P_ZOB
  268. ctioVOLBA
  269. W_UCET
  270. ctiW_POLE
  271.  ';ZOBR_UCET
  272. W_ROK
  273. leMOD7_LIB
  274. oNOVY_Z
  275. ppHLASKA
  276. W_STRED
  277.  ZOBR_STR
  278. _MOD_PROC
  279. vZRUS
  280. = .POCET
  281. if  KONTROLA
  282. tULOZ
  283. et mus
  284. t vypln
  285. Chybn
  286.  identifikace st
  287. ediska
  288. et na st
  289. edisku ji
  290.  rozpo
  291. KONTROLA
  292. *W_POLE
  293. ***HLASKA
  294. durPAR_POLE
  295. *V1_STR
  296. -M7_SROZP
  297. SROZP
  298. M7_ROZP
  299. *W_POLE
  300. **UCET
  301. W_ROK
  302. durRO_RO
  303. *M7_SROZP
  304. -RO_M1
  305. -RO_M2
  306. RO_M3
  307. rRO_M4
  308. rRO_M5
  309. -RO_M6
  310. -RO_M7
  311. -RO_M8
  312.  RO_M9
  313. RO_M10
  314. oRO_M11
  315. RO_M12
  316. M7_ROZP
  317. *W_POLE
  318. **RO_RO
  319. M7_SROZP
  320. RO_M1
  321. durRO_M2
  322. *RO_M3
  323. -RO_M4
  324. -RO_M5
  325. RO_M6
  326. rRO_M7
  327. rRO_M8
  328. -RO_M9
  329. -RO_M10
  330. -RO_M11
  331.  RO_M12
  332. colora
  333. set color to &color
  334. *COLOR
  335. **OBR
  336.             - 
  337.               - ^PgDn
  338.             - F10
  339.               - ^Home
  340.       - ^End,Esc
  341. Pohyb
  342. znam  
  343. znamu
  344. Konec - 
  345. mod7_lib
  346. Lze m
  347. nit pouze u nov
  348. &barvau
  349. mod_proc
  350. Lze m
  351. nit pouze u nov
  352. &barvau
  353. Pro toto pole neexistuje pomocn
  354. ehled hodnot
  355. P_ZOB
  356. *W_UCET
  357. **W_POLE
  358. ZOBR_UCET
  359. W_ROK
  360. durMOD7_LIB
  361. *NOVY_Z
  362. -HLASKA
  363. -W_STRED
  364. -ZOBR_STR
  365. -MOD_PROC
  366. S717A
  367. 9'))"%
  368. S717A1
  369. c7_v9
  370. OPRAVA
  371. PORADI
  372. PROC1
  373. ZMEN1
  374.  "iif&
  375. ZMENY
  376. =0,sp
  377. KONTROLA
  378. 99 999
  379. HLASKA
  380. NAP_HOD
  381. X:\OBEC\07\
  382. S717A.FXP
  383. X:\OBEC\07\S717A.PRG
  384.