REFRESH PAINT?

[Ollie]

I have a Dialog with DBF fields.
e.g. REDEFINE GET oGet6 VAR DB_CURR->COMPANY ID 60 OF Dlg_CURR

I have a "NEXT" button with ACTION DBSKIP(1)

How do I update/refresh/re-draw the screen to reflect the next record?

[mag071]

Hi,

REDEFINE GET oGet6 VAR DB_CURR->COMPANY ID 60 OF Dlg_CURR

I have a "NEXT" button with ACTION (DBSKIP(1),oGet6:Refresh())

[Ollie]

Thanks. Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records.

e.g. Set getobjects to readonly
When the user presses the "EDIT" button, set the getobjects to !readonly, lock the record, let the user edit and press "SAVE", commit, set getobjects to readonly again.

Where do I find METHODS, (CARGO?) values that are applicable to an object?

e.g. OGet1:READONLY:=.T.
Oget1:SETCOLOR('YELLOW','BLK') ..... sort of thing.

[mag071]

Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records.
\FWH\SAMPLES\CUSTOMER.PRG

Where do I find METHODS, (CARGO?) values that are applicable to an object?
\FWH\SOURCE\CLASSES\TGET.PRG

[Ollie]

Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records.
\FWH\SAMPLES\CUSTOMER.PRG

Thanks - but is doesn't run - Runtime error - ALIAS does not exist - line 20 - I can't see why - CUSTOMER.DBF is in the folder (not readonly or anything) Ideas?

Where do I find METHODS, (CARGO?) values that are applicable to an object?
\FWH\SOURCE\CLASSES\TGET.PRG

Thanks.

[Ollie]

Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records.
\FWH\SAMPLES\CUSTOMER.PRG

Ok, nevermind (how sad when you reply to your own post!) My mistake - Another sample had the file open!

However, that sample was not very helpful - I don't think it works the way its supposed to. The only button with an action is NEXT.

Can you offer a better example? I need something like the "CONTACTS" sample of MINIGUI to get me to understand the concept.

Appreciate all comments so far.

[Gale FORd]

You can update the entire dialog by adding the UPDATE clause on the redefine and then doing oDlg:update() to refresh dialog.

Example:

Code: Select all  Expand view  RUN

REDEFINE GET oGet6 VAR DB_CURR->COMPANY ID 60 OF Dlg_CURR UPDATE

I have a "NEXT" button with ACTION ( DBSKIP(1), Dlg_CURR:update() )

[Ollie]

O, I get it - Thats cool. Thanks a lot.