Jon,

What I'm trying to do is post transactions to a history table, and at the same time stop the possiblity of
posting the same info twice. Am I going about it the right way ? Could you take a look at the following code ?

John

LOCAL loProgBar

SET STEP ON
SET PATH TO \EFG
SET STATUS OFF
USE \EFG\HIST IN 0
USE \EFG\PAY IN 0
** SET FILTER TO GROUP_CODE = "A01" AND INS_CO_NAM = "AMERICAN UNITED LIFE"
IF PAY.PAIDDATE == HIST.PAIDDATE .AND. PAY.GROUP_CODE==HIST.GROUP_CODE .AND. PAY.INS_CO_NAM = HIST.INS_CO_NAM
MESSAGEBOX("THIS PAID DATE HAS BEEN POSTED, PLEASE TRY AGAIN.")
ELSE
USE \EFG\PAY IN 0
SELECT PAY
loProgBar=ProgBar()
SCAN
loProgBar.npercent=RECCOUNT()/RECCOUNT()*100
SCATTER MEMVAR MEMO
INSERT INTO HIST FROM MEMVAR
ENDSCAN
ENDIF
SET FILTER TO
*** CLOSE ALL
RETURN