>LPARAMETERS lcFileName, llExitLoop2 > >LOCAL llFileExists >llFileExists = .F. >ltStart = DATETIME() >llExitLoop2 = .F. > >DO WHILE ((DATETIME() - ltStart) < 120) AND NOT llExitLoop2 >*TMT 10/24/08 put this message on the frmseod form. >* WAIT WINDOW "Waiting for response from CentralWarehouse - " + STR((DATETIME() - ltStart),3,0) + " seconds elapsed." NOWAIT > 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 && ESC pressed > llExitLoop2 = .T. > EXIT > ENDIF > DOEVENTS >ENDDO > >IF NOT llFileExists AND NOT llExitLoop2 >*TMT 10/24/08 put this message on the frmseod form. > 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 && We ESCAPED out > RETURN .F. > ENDIF >ENDIF > >*TMT 08/05/08 Wait 1 second after the webservice has let go of the file before trying to open it with >*the FOPEN below.... else we may get a "File Access is Denied" error >ltStart = DATETIME() >DO WHILE DATETIME() - ltStart < 1 && 1 seconds to pass >ENDDO >*TMT >RETURN .T. >>