>In a VFP 5.0 medical app, I need to move deleted records to an archive file, before I pack (for chain of custody legal reasons). Does any one have some sample code on how to simply do this. SHould I put some kind of UI on it, or just do it behind the scenes when the file is packed?
>
>Thanks in advance.

I'd do it behind the scenes...

LOCAL lcTmp1, lnDelRec, lnTArchive, lcTmpDir
lcTmp1 = SUBSTR(SYS(2015), 3, 10)
lcTmpDir = "C:\TEMP\"

SELECT MainTable
USE
USE MainTable EXCLUSIVE
COUNT FOR DELETED() TO lnDelRec

SELECT * FROM MainTable WHERE DELETED() INTO DBF (lcTmpDir+lcTmp1)
SELECT 0
USE (lcTmpDir+lcTmp1) ALIAS ac_Temp
IF RECCOUNT('ac_Temp') = lnDelRec
  USE ArchTable
  APPEND FROM (lcTmpDir+lcTmp1)
  SELECT MainTable
  PACK
ELSE
  =MESSAGEBOX("Archive Count MisMatch")
ENDIF

HTH