Help,

In my code below I replace my table fields with form.text.values. This replaces ALL the records
that meet that condition with form text values. My problem is, that in some cases I only want to
replace one record. Example: chkamt (Check Amount), misc_amt (Misc. Amount) and
gen_misc (Gen Misc. Amount). I use these fields to calculate sums in a report, and if
they are posted in every record, it gives me an incorrect Sum Value. What I would
like to be able to do, is post to ONE record for the above fields.

Can I get any help?

John


SET DEFAULT TO \EFG
SET SAFETY OFF
SET TALK OFF
SET ECHO OFF
SET DELETED ON

*** USE pay IN 0
SCAN FOR ins_co_nam = "A U L" AND group_code = 'A01'

REPLACE paiddate WITH THISFORM.TEXT1.VALUE,;
fromdate WITH THISFORM.TEXT2.VALUE,;
todate WITH THISFORM.TEXT3.VALUE,;
chknumb with THISFORM.TEXT5.VALUE,;
chkamt with THISFORM.TEXT4.VALUE,; &&& NEEDS SINGLE POSTING
misc_amt WITH THISFORM.TEXT6.VALUE,; &&& NEEDS SINGLE POSTING
gen_misc WITH THISFORM.TEXT7.VALUE,; &&& NEEDS SINGLE POSTING
servfee WITH .69



REPLACE balance WITH amt_pre - servfee,;
duecompany WITH balance posted with "P"

*** REPLACE servfee WITH 0, percent WITH 0

ENDSCAN

SELECT * FROM test, pay WHERE test.ss_numb = pay.ssnumber AND pay.ins_co_nam;
= "A U L" AND pay.group_code = "A01" and AMT_PRE > 1 INTO Cursor;
CuReport ORDER BY test.last_name

IF _TALLY > 0

*BROWSE
REPORT FORM payment3b PREVIEW

inResponse = MESSAGEBOX("DO YOU WANT TO POST THIS DATA FOR A01/AUL TO HISTORY?",36,"E.F.G. POSTING OPTIONS!")

IF InResponse = 6

***LOCAL loProgBar
SELECT pay
***loProgBar=ProgBar()

SCAN FOR GROUP_CODE = "A01" .AND. PAIDDATE = THISFORM.TEXT1.VALUE .AND. INS_CO_NAM = "A U L"

*** loProgBar.npercent=RECNO()/RECCOUNT()*100
SCATTER MEMVAR MEMO
INSERT INTO hist FROM MEMVAR

ENDSCAN
MESSAGEBOX("DATA FOR A01/AUL HAS BEEN POSTED TO HISTORY.","E.F.G." )
ENDIF
USE IN PAY
ELSE
MESSAGEBOX("FOUND NO RECORDS THAT MATCH YOUR REQUEST")
ENDIF