home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / Zay100.zip / Zay100 / Progs / userw.prg < prev    next >
Text File  |  2000-08-04  |  688b  |  31 lines
  1. * ╬≥Ω≡√Γασ≥ ≥σΩ≤∙ΦΘ Ω≤≡±ε≡ Γ ≡σµΦ∞σ τα∩Φ±Φ
  2. * ═σεß τα≥σδⁿφ√σ ∩α≡α∞σ≥≡√:
  3. *  tNewAlias - φεΓ√Θ αδΦα±
  4. *  tCloseOriginal - ταΩ≡√Γα≥ⁿ δΦ ±≥α≡√Θ αδΦα±
  5. FUNCTION userw
  6.     LPARAM tNewAlias,tCloseOriginal
  7.     m.lcOldAlias=ALIAS()
  8.     IF '.tmp'$lower(dbf(m.lcOldAlias))
  9.         IF pcount()=0
  10.             tNewAlias=m.lcOldAlias
  11.             SELE 0
  12.             USE DBF(m.lcOldAlias) AGAIN EXCL ALIAS __tmpalias
  13.             m.lcOldAlias='__tmpalias'
  14.         ENDIF
  15.         IF pcount()<>2
  16.             tCloseOriginal=.T.
  17.         ENDIF
  18.         IF !EMPTY(m.lcOldAlias)
  19.             IF USED(tNewAlias)
  20.                 USE IN (tNewAlias)
  21.             ENDIF
  22.             SELE 0
  23.             USE DBF(m.lcOldAlias) AGAIN EXCL ALIAS (tNewAlias)
  24.             IF m.tCloseOriginal
  25.                 USE IN (m.lcOldAlias)
  26.             ENDIF
  27.         ENDIF
  28.     ENDIF
  29.  
  30.  
  31.