Hi Gang!
I am getting an error with the following line of code:
IF INKEY() = 27
The error is "Function argument value, type, or count is invalid" (Error 11)
How can I be passing an invalid argument when I am not passing any argument at all? This error is sporadic and not one that I can consistantly reproduce. In fact, exiting the program, reopening it and the repeating the function usually works without error.
LPARAMETERS lcFileName, llExitLoop2
LOCAL llFileExists
llFileExists = .F.
ltStart = DATETIME()
llExitLoop2 = .F.
DO WHILE ((DATETIME() - ltStart) < 120) AND NOT llExitLoop2
WAIT "Waiting for file - " + UPPER(ALLTRIM(lcFileName)) + " - " + ;
STR( 120 - (DATETIME() - ltStart) ,3,0) + " seconds remaining." WINDOW NOWAIT
IF FILE('c:\temp\' + lcFileName)
llFileExists = .T.
WAIT CLEAR
EXIT
ENDIF
IF INKEY() = 27
llExitLoop2 = .T.
EXIT
ENDIF
DOEVENTS
ENDDO
IF NOT llFileExists AND NOT llExitLoop2
WAIT "Customer Extract - No acknowlegment returned from EZDW - '" + ALLTRIM(lcFileName) + "'." WINDOW TIMEOUT 5
DO centrack WITH "POSEZDW","Wait4EZDW", .F., 0, .T., .F., .F., "EZDW - No customer acknowledgment file returned - '" + ALLTRIM(lcFileName) + "'."
RETURN .F.
ELSE
IF NOT llFileExists AND llExitLoop2
RETURN .F.
ENDIF
ENDIF
ltStart = DATETIME()
DO WHILE DATETIME() - ltStart < 1
ENDDO
RETURN .T.
Any ideas??
Thanks!
Tommy Tillman A+ NetWork+ MCP