home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Znachor / Demo_mi / ZNA_NN.LZH / UPDATE / UPDATE.FXP (.txt)
Encoding:
MS Visual FoxPro App  |  1996-03-04  |  9.4 KB  |  194 lines
  1. )Sd +
  2. PATHa
  3. \kody
  4. SET PATH TO &old_path ; &tmp ; &tmp1
  5. PFList.spr
  6. SET PATH TO &old_path
  7. formatki
  8. formatki
  9. SET PATH TO &old_path
  10. pola_frm
  11. pola_frm
  12. nrewid
  13. Brak danych do przegl
  14. du...
  15. SET PATH TO &old_path
  16. TakNie.spr
  17. SET PATH TO &old_path
  18. DO CancelRead
  19. DO CancelRead
  20. DO CallTerm 
  21. DO ShowKody WITH m.CurrScr
  22. DO ShowMemo 
  23. DO Drukuj
  24. DO Drukuj
  25. TakNie.spr
  26. SET PATH TO &old_path
  27. BADANIE
  28. SCIEZKA
  29. PRAWA
  30. OLD_PATH
  31. CHCKPERM
  32. NRLEK
  33. GABINET
  34. NREWID
  35. PFLIST
  36. FORMATKI
  37. POLA_FRM
  38. EDITFORM
  39. UTAKNIE
  40. OK_NREWID
  41. NEWWIZYT
  42. CURRSCR
  43. _EXIT
  44. CURRFIELD
  45. CURROBJ
  46. SREFRESH
  47. ESCFKODY
  48. SHOWFORM
  49. GETFIELDS
  50. SHOWFIELDSPGUP
  51. IL_EKRANOWSAVEBAD
  52. IF &tmp<>0
  53. LOCATE FOR baza_kod.num_kod = &tmp AND wazny
  54. M_KOD
  55. WYBOR
  56. OLD_ALIAS
  57. CURROBJ
  58. EXTRAKODY
  59. BAZA_KOD
  60. SLOWNIK
  61. &yyy = tmp1
  62. &xxx = tmp
  63. M_KOD
  64. EXTRAKODY
  65. BAZA_KOD
  66. NUM_KOD
  67. POP_KODY
  68. num_kod
  69. DO ok_kod
  70. OLD_ALIAS
  71. TYTUL
  72. M_KOD
  73. NUM_KOD
  74. BAZA_KOD
  75. WAZNY
  76. POP_KODY
  77. ESCFKODY
  78. ekran_FF
  79. @ i+1,0 SAY STRTRAN(MLINE(&ekran,i+1),'_',' ') COLOR SCHEME 24
  80. EKRANNO
  81. FORMATKI
  82. EKRAN
  83. NAGLOWEK
  84. ZA_KOD
  85. PICT '@Z 
  86. PICT '
  87. PICT '@D'
  88. @ Yy, Xx SAY &npole COLOR SCHEME 23
  89. EKRANNO
  90. NPOLE
  91. POLA_FRM
  92. GABINET
  93. BADANIE
  94. EKRAN
  95. DLUGOSC
  96. PICT '@Z 
  97. PICT '
  98. PICT '@D'
  99.  VALID kody(
  100. ) WHEN DispInf() ERROR gt(9)
  101.  ERROR "B
  102. dna data !" VALID BezKodu() WHEN NDispInf()
  103.  VALID BezKodu() WHEN NDispInf()
  104.  COLOR SCHEME 24
  105.  COLOR SCHEME 24 DISABLE
  106. @ Yy, Xx GET &npole
  107. EKRANNO
  108. NPOLE
  109. POLA_FRM
  110. GABINET
  111. BADANIE
  112. EKRAN
  113. DLUGOSC
  114. WPROWADZ
  115. F1-Kody 
  116.         
  117. CURROBJ
  118. &_const = m.nrhch
  119. &_const = m.rokhch
  120. &_const = tmp
  121. CALCULATE MAX(VAL(&_const)) FOR nrewid = m.nrewid TO tmp
  122. &_const = tran(m.tmp+1,'999')
  123. &_const = m.imienazw
  124. &_const = tmp
  125. &_const = LEFT(m.nrewid+SPACE(11),11)
  126. &_const = LEFT( ALLTRIM( STR( INT( (DATE()-m.data_ur)/365.25 ) )+SPACE(3) ), 3)
  127. OLD_ALIAS
  128. _CONST
  129. GABINET
  130. BADANIE
  131. DATA_UR
  132. TakNie.spr
  133. Prosz
  134.  czeka
  135. CALCULATE MAX(VAL(&tmp)) FOR nrewid = m.nrewid TO mtmp
  136. &tmp = tran(mtmp+1,'999')
  137. ALIAS
  138. TAKNIE
  139. GABINET
  140. BADANIE
  141. Rozwijanie p
  142. l kodowych. Prosz
  143.  czeka
  144. opis_pol
  145. opis_pol
  146. IF &tmp <> 0
  147. LOCATE FOR baza_kod.num_kod = &tmp
  148. ShowKody
  149. EKRANNO
  150. SHOWKODY
  151. OPIS_POL
  152. POLA_FRM
  153. GABINET
  154. BADANIE
  155. EKRAN
  156. EXTRAKODY
  157. BAZA_KOD
  158. Terminar.spr
  159. &xxx = m.TermExit
  160. TERMINAR
  161. NRLEK
  162. TERMEXIT
  163. EDITFORM
  164. Memo_FF
  165. EditMemo.spr
  166. ShowMemo.spr
  167. POLEMEMO
  168. CURRSCR
  169. EDITFORM
  170. EDITMEMO
  171. SHOWMEMO
  172. TakNie.spr
  173.                  Drukowa
  174.  badanie ?
  175. TAKNIE
  176. OK_KOD
  177. SLOWNIK
  178. SHOWFORM
  179. SHOWFIELDS
  180. GETFIELDS
  181. DISPINF
  182. NDISPINF
  183. BEZKODU
  184. NEWWIZYT
  185. SAVEBAD
  186. CANCELREAD
  187. SHOWKODY
  188. CALLTERM
  189. SHOWMEMO
  190. DRUKUJ
  191. F:\MAREK\DOM\ZNACHOR\PROG\PRG\
  192. BADANIE.FXP
  193. F:\MAREK\DOM\ZNACHOR\PROG\PRG\BADANIE.PRG
  194.