home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / 04 / S418AD.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1998-04-02  |  13KB  |  235 lines
  1. p_typf
  2. set procedure to &procx
  3. P_TYP
  4. =horW_AKT
  5.  *VLOBRNAH
  6. DKUZAZN
  7. -PgUpCISPOL
  8. se IDENT
  9. r.i=W_POLE
  10. .w_PS_LINE
  11.   AKTUAL
  12.  'AMOD_SYS
  13. inM1_IDENT
  14. set color to b/w
  15. set color to bg/n
  16. set color to w+/bg
  17. set color to b/bg,w+/rb
  18. set color to w+/b
  19. set color to w+/w
  20. set color to w/n
  21. &barvas
  22. c_nahr+
  23. c_nahr
  24. c_nahr
  25. ZMENA
  26. =horKONEC
  27.  *VLPOMOC
  28. DKUHOR
  29. -PgUpDOL
  30. se POCET
  31. r.i=BARVA
  32. .w_BARVAS
  33.   BARVAR
  34.  'ABARVAZ
  35. inBARVAU
  36. eBARVAN
  37.  BARVANS
  38. e BARVAH
  39. th NOVY_Z
  40. typM4_NAHR
  41. _tCISPOL
  42.  rP_TYP
  43. all C_NAHR
  44. th IDENT
  45.     TYP_N
  46.   zPRIOR
  47.    q=1
  48. HLAVA
  49. PRIDMENU
  50. DKU (ZMENY
  51. &barvaz
  52. hrady polo
  53. ky - 
  54. &barvan
  55. Pr Identifikace N
  56. zev                Jakostn
  57.  norma  Pozn
  58. Proc.
  59. WTEXT4
  60. horCISPOL
  61. *VLP_TYP
  62. &barvau
  63. &barvau
  64. @!S19
  65. BARVA
  66. horBARVAZ
  67. *VLPU
  68. -PgUpP
  69. r.i=DOL
  70. .w_IDENT
  71.   CISPOL
  72.  'AN_IDENT
  73. inM1_IDENT
  74. eC_NAHR
  75.  NAZEV
  76.  JAK_CSN
  77.  POZN
  78. typP_TYP
  79. _tPROC
  80. &barvau
  81. @ x,1 &vloz prior pict '99'
  82. @ x,4 &vloz n_ident pict '@!X'
  83. KA NEEXISTUJE
  84. @ x,54 &vloz pozn pict '@X' function '@!S19'
  85. @ x,74 &vloz proc
  86. DKUHODN
  87. -PgUpPRIOR
  88. se ZAZ
  89. r.i=POCZAZ
  90.   POMPRIOR
  91. AW_POLE
  92. inFOR
  93. K_CSN
  94.  rPROC1
  95. ll ZMENA
  96.     M1_IDENT
  97. zC_NAHR
  98.  N_IDENT
  99. HLASKA
  100. RIDNAZEV
  101. (JAK_CSN
  102. it pr
  103. ci beze zm
  104. n? (a/N)
  105. *VLZ1
  106. DKUT1
  107. -PgUpU1
  108. se X1
  109. r.i=X
  110. .w_HOR
  111. MPRIOR
  112. inKONEC
  113. K_CSN
  114. typPROC1
  115. _tZMEN1
  116.  rW_AKT
  117.     VOLBA
  118. zC_NAHR
  119. POCET
  120. NOVY_Z
  121. RIDZMENA
  122. (IDENT
  123. CISPOL
  124.  (iPRIOR
  125. i=29TYP_N
  126. w_akP_TYP
  127.   noALL
  128. nseULOZ
  129. ZMENA
  130. horM4_NAHR
  131. VLCISPOL
  132. KUP_TYP
  133. PgUpIDENT
  134. se TYP_N
  135. .i=C_NAHR
  136. .w_N_IDENT
  137.   PRIOR
  138. AMOD_APP
  139.               - 
  140. ,PgDn,PgUp
  141.               - ^PgUp,^PgDn
  142.               - ^Home
  143.               - ^End,Esc
  144.         - F10
  145. Pohyb
  146. Konec
  147. horOBR
  148. &barvau
  149. horZOBR_POL
  150. LZMENA
  151. PgUpIDENT
  152. se NAZEV
  153. .i=M1_IDENT
  154. _JAK_CSN
  155. nazev
  156. MNTUXYZ
  157.  detailn
  158. znamy neexistuj
  159. material
  160. set color to &barva
  161. w+/bg
  162. w+/bg
  163. w+/bg
  164. &barvau
  165. material
  166.  Vyhled
  167. Zadejte n
  168. zev nebo identifikaci polo
  169. nazev
  170. material
  171. material
  172. horHMEZ
  173. LDMEZ
  174. KULMEZ
  175. PgUpPMEZ
  176. se M1_IDENT
  177. =NAZEV
  178. _KOD_POL
  179.   TXT
  180. AHLASKA
  181. inMATERIAL
  182. eM1_OBR
  183.  RAM6
  184.  HELP6
  185. typRAD
  186. _tSTREC
  187.  rBARVA
  188. ll SAYRAD6
  189.   C_NAHR
  190. zN_IDENT
  191.  IDENT
  192. ZMENA
  193. (STZAZ
  194.  (iW_CESTINA
  195. w_akUPPERCS
  196. ehled  p o l o 
  197.  e k 
  198. zev polo
  199. Identifikace
  200. Jakost
  201. set color to &barx
  202. horBARX
  203. LNAZEV
  204. KUIDENT
  205. PgUpMJ
  206. se KOD_POL
  207. =ROZM_CSN
  208. _JAK_CSN
  209. Konec
  210. Pohyb
  211. Enter
  212. -Home,End,PgUp,PgDn,
  213. -Vyhled
  214. r polo
  215. AKTUAL
  216. HLAVA
  217. ,0 toC
  218. PROC1
  219. ext4 
  220. ZMEN1
  221. y pol
  222. ZMENY
  223. isPol 
  224. ,(80-lY
  225. ))/2 sP
  226. HLASKA
  227. rim(1
  228. VOLBA
  229. ZOBR_POL
  230. SAYRAD6
  231. HELP6
  232. W:\04\
  233. S418AD.FXP
  234. W:\04\S418AD.PRG
  235.