ALERT func hangs with MSVC FWH dec2005

[Rick Lipkin]

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

[Antonio Linares]

Rick,

We have just tested it using FWH 2.7 January build and it works ok with both Borland and MSVC.