Here is a program Roger suggested as I modified that allows processing within a loop but allows you to exit the loop and reenter the loop as needed in order to do editing, control items, etc.
This is what I do in an actual application
1. Build dialog for normal editing and but do not start event loop
2. Start the event loop manually
3. Do editing as normal
4. If I want to start automated processing:
a. exit out of the loop
b. start loop processing
c. If an exception detected, start event loop and when done editing exit loop
d. at conclusion of loop, reenter the loop
5. When done editing, exit out of loop and manually destroy dialog
There are other ways to handle things, like Roger suggested, if you want a loop to be running but have a button active to allow for early termination of the loop.
You can also work with multiple treads also. I do this often.
1. Thread 1, is the control thread with the button allowing you to exit out of the loop
2. Start the loop in thread 2 from a button in thread 2. Thread 2 references a pointer set in thread 1.
3. To exit the loop, click the button in thread 1 that sets the point to exit, thread 2 checks the exit status in each loop and exits when exit set.
4. Thread 2 closes upon exit status being set and you just have thread 1 running. Thread 1 cannot exit if thread 2 is active.
The code below is just the test code used to validate the concept of the actual cash receipt processing application I have. The same dialog allows manual or automated entry of cash receipt transactions.
Cliff.
Code: Select all
#INCLUDE "appevent.CH"
#define EDIT_RECORD xbeP_User+1
STATIC lContinut
FUNCTION Main()
LOCAL GetList[0], GetOptions, oDlg, lStatus := .t., nStatus
lcontinue := .T.
USE \exp\data\xtest
@ 0,0 DCSAY {||XTEST->city + ': ' + STR(XTEST->(recno()),4)} SIZE 30 SAYLEFTBOTTOM
@ 2,0 DCSAY 'Area Code' GET XTEST->areacode GETOBJECT oAreaCode ;
VALID {|o| iif(DC_ReadGuiLastKey(getlist) = xbeK_ENTER.OR.DC_ReadGuiLastKey(getlist)==xbeK_DOWN,PostAppEvent(xbeP_Keyboard,xbeK_PGDN,,o),nil) }
// KEYBLOCK {|c,b,o| iif((c==xbeK_ENTER.OR.c==xbeK_DOWN), PostAppEvent(xbeP_Keyboard,xbeK_PGDN,,o),nil) }
@ 3,0 DCSAY 'Exchange' GET XTEST->exchange
@ 5,0 DCSAY 'Number' GET XTEST->number GETOBJECT oNumber ACCELKEY {xbeK_PGDN}
@ 6,0 DCSAY 'Number2' GET XTEST->number
@ 7,0 DCSAY 'Number3' GET XTEST->number
@ 9,0 DCPUSHBUTTON CAPTION 'Done' SIZE 10,1.2 ;
ACTION {|| lContinue := .F., DC_ReadGuiEvent(DCGUI_EXIT_ABORT,GetList)}
@ 9,12 DCPUSHBUTTON CAPTION 'Next' SIZE 10,1.2 ;
ACTION {|| DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList)}
@ 9,24 DCPUSHBUTTON CAPTION 'Post' SIZE 10,1.2 ;
ACTION {|| Processing(Getlist) }
DCGETOPTIONS SAYWIDTH 100 SAYRIGHTBOTTOM
DCREAD GUI FIT TITLE 'Editing Data' EXIT SAVE PARENT @oDlg OPTIONS GetOptions
SetAppFocus(oAreaCode)
lStatus := DC_ReadGuiEventLoop(Getlist)
wtf 'exit last time'
oDlg:destroy()
RETURN nil
* -----------
PROC appsys ; return
* -----------
STATIC FUNCTION Processing( GetList )
wtf 'start processing'
//USE \exp\data\xtest
DO WHILE !XTEST->(Eof())
wtf 'loop'
SetAppFocus(oAreaCode)
lStatus := DC_ReadGuiEventLoop(Getlist)
IF !lContinue
wtf '!lcontinue and exit'
EXIT
ENDIF
XTEST->(dbSkip())
dc_GetRefresh(Getlist)
ENDDO
wtf 'exit processing'
lStatus := DC_ReadGuiEventLoop(Getlist)
RETURN nil