Antonio
This code hangs up using FWH Msvc Libs with the Dec 2005 build. However if I re-build with Borland FWH libs the below code works.
The MSVC FWH compile never goes to ALERT and the program hangs.
Rick Lipkin
SC Dept of Health, USA
MSGINFO( "GOING TO ALERT" )
SAYING := "There are records in the QUEUE that have not "+chr(13)+CHR(10)
SAYING += "been Transmitted. Do you wish to ...."+chr(13)+CHR(10)
YESNO := { " Resend ", " Delete " , " Abort " }
nOK := ALERT(SAYING, YESNO )
DO CASE
CASE nOK = 1
// do nothing and go on
CASE nOK = 2
SELECT PCASQUE
ZAP
OTHERWISE
CLOSE DATABASES
_Cleanup()
RETURN(.T.)
ENDCASE
