How do I mark all accounts to be paid with button

[benny4129]

Hi All

I am using C55EE with XP Home Edition.
I have a program with a Payee file with a relational (1 to many) to an Account file. Both browse boxes are on the same browse window. I can Mark/unmark records that need to be paid using a button and an icon in the Accounts list showing the ones that are marked. I want to be able to read the Payee file and mark each Account child record that is within 5 days of the due date by using a single button click.

Thanks Benny

 

[ShankarJ]

Hi Benny,

CLEAR(PAY:Record)
PAY:Account = ACC:Number
SET(PAY:AccountKey, PAY:AccountKey)
LOOP
NEXT(PayeeFile)

IF ERRORCODE() OR PAY:Account <> ACC:Number THEN BREAK.

IF DateCheckCondition
PAY:... = ...

PUT(PayeeFile)
IF ERRORCODE() THEN MESSAGE(ERRORFILE() & ' : ' & ERROR() & ' [' & ERRORCODE() & ']').
END
END

Regards