function Main()
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 )
MsgInfo("You selected option "+str(nOk,1)) // Added by me see the value of nOk
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 71 guests