home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / S718B.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-12-21  |  7KB  |  168 lines
  1. m7_ucto
  2. s718b
  3. s718b1
  4. ehled  d e n 
  5. RIIS 7.1
  6. r7_denik
  7. denik
  8. m7_denik
  9. denik
  10. m_param
  11. '  '+m7_denik.ident_den
  12. m7_denik.ident_den
  13. m7_denik.text
  14. m7_denik.text
  15. Doklad
  16. ' '+str(m7_denik.doklad,5)
  17. str(m7_denik.doklad,5)
  18. trolaW_ROK
  19.  if W_ROK_VYB
  20. M7_UCTO
  21.   ROK
  22. ntroPOLEX
  23. ehlaFREEZE
  24.       gF2
  25. r from F3
  26.    F4
  27.   novy_F5
  28.    appeF7
  29.     if F9
  30.      F10
  31.   replPROCX
  32.  witF9KEY
  33. JENTER
  34. DETAIL
  35. DET_JM
  36. PS_RETURN
  37. RAMECEK
  38. NAZEVT
  39. NADPIS
  40. at LEVA
  41. PRAVA
  42. t coloDOL
  43. R7_DENIK
  44. rDENIK
  45. @M7_DENIK
  46. sM_PARAM
  47.  JMENO
  48.   &bI
  49. endiMOD_PSV
  50. urOBSAH
  51. ****P
  52. mod_psv
  53. trolaOPRAVA
  54. if MOD_PSV
  55. PS_RETURN
  56. W_POLE
  57. set color to b/w
  58. set color to bg/n
  59. set color to w+/bg
  60. set color to b/bg,w+/rb
  61. set color to w+/b
  62. set color to w/n
  63. &barvau
  64. trolaW_POLE
  65. if NOVY_Z
  66. JMENO_C
  67. WJMENO_C
  68. oRADEK_C
  69. laSLOUPEC_C
  70.     gQ1
  71. r from Q2
  72.    Q3
  73.   novy_Q4
  74.    appeQ6
  75.     if Q8
  76.      Q9
  77.   replQ10
  78.  witQ11
  79. ETURN
  80. at Q20
  81. t coloQ23
  82. CISELNIK
  83. sPOCET
  84.  DOP2
  85.   &bCOUNT
  86. endiZAKAZNIK
  87. rPOMOC
  88. ****Y
  89. *****POC
  90. ******KONTROLA
  91. *BARVAS
  92. ***BARVAR
  93. BARVAZ
  94. re BARVAU
  95. f yBARVAN
  96.  &bBARVAH
  97. lseBARVA
  98. arvaKS
  99. pMENU
  100. PORADI
  101.  !eKONEC
  102. d r<I
  103.    @ X
  104.  say texR
  105. pict 'Z
  106.    r=rU
  107.    u=u+T
  108.    skip
  109.  if eof(A
  110.       j=ZMENY
  111.   ifM_MAZANI
  112. &barva
  113.  Aktualizace den
  114.             - 
  115.               - ^PgDn
  116.               - ^Home
  117.       - ^End,Esc
  118. Pohyb
  119. Konec - 
  120. W_POLE
  121. @ 18,43 &vloz w_pole(1) picture '@!XXX'    
  122. @ 19,43 &vloz w_pole(3) picture '@X'     
  123. if Q1
  124. W_POLE
  125. MENO_C
  126. do proc&y
  127. do zmen&y with 'get'
  128. do zmen&y with 'say'
  129. it pr
  130. ci beze zm
  131. n? (a/N)
  132. KONEC
  133. laHOR
  134.     gR
  135. r from Z
  136.   novy_NOVY_Z
  137.   POCET
  138. ppeQ1
  139.     if Q
  140.      ROK
  141.   replW_ROK
  142.  witW_POLE
  143. JPROC1
  144. K_UDAJU
  145. k mus
  146. t vypln
  147.  existuje
  148. olaW_POLE
  149. if HLASKA
  150. colora
  151. set color to &mcolor
  152. olaMCOLOR
  153. if OBR
  154. S718B1
  155. OPRAVA
  156. men1g
  157. PORADI
  158. PROC1
  159. ZMEN1
  160.    q|
  161. ZMENY
  162. q3 = 
  163. K_UDAJU
  164. HLASKA
  165. X:\OBEC\07\
  166. S718B.FXP
  167. X:\OBEC\07\S718B.PRG
  168.