home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PROG / CUACLIP.ZIP / IRECNO.PRG < prev    next >
Encoding:
Text File  |  1993-06-01  |  650 b   |  25 lines
  1. *COMMENTS***********************************************************************
  2. /*
  3. Copyright(C) Delcom-Deltranik International Software Engineering 1990-1993.
  4.  
  5. $owner: BILLW$
  6.  
  7. $version: 1.0$ $date: March 16, 1993$ $time: 02:01:42 PM$
  8.  
  9. */
  10. static id_string := "$id: ssvcid irecno.prg 1.0 March 16, 1993 02:01:42 PM$";
  11. // $nokeywords$
  12. ********************************************************************************
  13.  
  14.  
  15.  
  16.  
  17. FUNCTION IRecNo( nNewRecNo )
  18.     LOCAL nReturnVar
  19.     IF VALTYPE( nNewRecNo ) == "N"
  20.         nReturnVar := NtxRec( IndexOrd(), nNewRecNo )
  21.     ELSE
  22.         nReturnVar := NtxPos( IndexOrd(), RECNO() )
  23.     ENDIF
  24. RETURN ( nReturnVar )
  25.