home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 07 / MOD79B.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-09-21  |  7KB  |  171 lines
  1. mod79b
  2. aktual
  3. Aktual
  4. ehled  pokladn
  5. RIIS 7.9
  6. m7_pokl
  7. ident_pok
  8. '      '+m7_pokl.ident_pok
  9. m7_pokl.ident_pok
  10. m7_pokl.text
  11. m7_pokl.text
  12. Doklad
  13. ' '+str(m7_pokl.doklad,5)
  14. str(m7_pokl.doklad,5)
  15. KONEC
  16. x. 6POLEX
  17. ps_FREEZE
  18. mecek =F2
  19.        F3
  20.        F4
  21.        F5
  22.   && zoF6
  23. eni hlaF7
  24. nazeF8
  25. ehledF9
  26. kladn
  27. '     PROCX
  28.     ENTER
  29. laviDETAIL
  30. s='DET_JM
  31. '  PS_RETURN
  32. RAMECEK
  33.   NAZEVT
  34.  &&RIIS
  35. NADPIS
  36. s=4LEVA
  37.      PRAVA
  38. k prHOR
  39.       M7_POKL
  40.  lIDENT_POK
  41. NOVY_Z
  42.    ZAHL
  43. && JMENO
  44. krajHODN
  45.     I
  46.    &MOD_PSV
  47. adOBSAH
  48. set color to b/w
  49. set color to bg/n
  50. set color to w+/bg
  51. set color to b/bg,w+/rb
  52. set color to w+/b
  53. set color to w/n
  54. &barvau
  55. x. 6W_POLE
  56. ps_JMENO_C
  57. *WJMENO_C
  58. =RADEK_C
  59.   SLOUPEC_C
  60.      Q1
  61.   && zoQ2
  62. eni hlaQ3
  63. nazeQ4
  64. ehledQ5
  65. kladn
  66. '     Q7
  67.     Q8
  68. laviQ9
  69. s='Q10
  70. '  Q11
  71. ETURN
  72.   Q13
  73.  &&Q14
  74. s=4Q16
  75.      Q17
  76. k prQ18
  77.       Q20
  78.  lQ21
  79. T_POK
  80.    Q23
  81. && CISELNIK
  82.     DOL
  83.    &POCET
  84. adDOP1
  85. =19 DOP2
  86.      POR
  87. olni rCOUNT
  88. seZAKAZNIK
  89. ePOMOC
  90. l orY
  91.  ident_pRAD
  92. f eof(SL
  93.   appenPOC
  94.   KONTROLA
  95. 'BARVAS
  96.  BARVAR
  97. ='NBARVAZ
  98. BARVAU
  99. ---BARVAN
  100. iniBARVAH
  101. ---BARVA
  102. ----MENU
  103. PORADI
  104. hl(KONEC
  105. no(polX
  106. dime hR
  107. olex)
  108. zahl(i)=T
  109. ada 'Q
  110. meno(i)=A
  111.      '+mZMENY
  112. idenPS_RETURN
  113. &barva
  114.  Aktualizace pokladn
  115.             - 
  116.               - ^PgDn
  117.               - ^Home
  118.       - ^End,Esc
  119. Pohyb
  120. znamu
  121. Konec - 
  122. W_POLE
  123. @ 16,25 &vloz w_pole(1) picture '@!XXX' 
  124. @ 17,25 &vloz w_pole(3) picture '@X'  
  125. ps_Q1
  126. *W_POLE
  127. DEK_C
  128. UPEC_C
  129. do proc&y
  130. do zmen&y with 'get'
  131. do zmen&y with 'say'
  132. it pr
  133. ci beze zm
  134. n? (A/N)
  135. KONEC
  136. . 6NOVY_Z
  137. ps_Q1
  138. =POCET
  139.   && zoDOL
  140. ni hlaT
  141. nazeHOR
  142. ehledU
  143. '     Z
  144.     J
  145. laviW_POLE
  146. s='PROC1
  147. ETURN
  148. K_UDAJU
  149.   OK_C
  150. ada ji
  151.  existuje!
  152. mod_fun
  153. . 6XX
  154. ps_W_POLE
  155. =HLASKA
  156.   MOD_FUN
  157.   && zoMOD79B
  158. t cu%
  159. AKTUAL
  160. PORADI
  161.  set;
  162. PROC1
  163. lor t
  164. ZMEN1
  165. ZMENY
  166. adkeyD
  167. K_UDAJU
  168. X:\OBEC\07\
  169. MOD79B.FXP
  170. X:\OBEC\07\MOD79B.PRG
  171.