****file selector click LOCAL l_cLocation,l_cfolder DO CASE CASE THIS.PARENT.cboProcType.VALUE="RAW MATERIAL" l_cfolder="\LEVEL3\RMC" CASE THIS.PARENT.cboProcType.VALUE="CHEM LAB" l_cfolder="\LEVEL3\CHEMLAB" CASE THIS.PARENT.cboProcType.VALUE="FORM" l_cfolder="\LEVEL3\FORMS" CASE THIS.PARENT.cboProcType.VALUE="METAL NUMBER" l_cfolder="\LEVEL3\METALNOS" CASE THIS.PARENT.cboProcType.VALUE="PRODUCT DATA" l_cfolder="\LEVEL3\PDS" CASE THIS.PARENT.cboProcType.VALUE="MSDS" l_cfolder="\LEVEL3\MSDS" CASE THIS.PARENT.cboProcType.VALUE="PRODUCT TESTING" l_cfolder="\LEVEL3\PTP" OTHERWISE l_cfolder="" ENDCASE SET DEFAULT TO D_SERVER+D_APPDIR+"isodocs"+l_cfolder l_cLocation=GETFILE("Envoy documents:evy;Acrobat documents:pdf","File Name:", "Select",0,"Locate the document") IF !EMPTY(l_cLocation) THISFORM.pgfDocs.PAGE1.txtFname.VALUE=l_cLocation ENDIF SET DEFAULT TO RETURNand....
***View Document Click LOCAL l_csubname, l_ccheck1 ****FOR DOCUMENTS WITH AN EMPTY LINK FIELD IF EMPTY(DOCUMENT.fname) AND (DOCUMENT.STATUS <> "OBSOLETE" AND DOCUMENT.STATUS <>"WRITING") MESSAGEBOX("No document link has been defined."+CHR(13)+"Contact Quality Assurance.",d_nOKbutton+d_nexclamation,"No Link") RETURN ENDIF ****FOR OBSOLETE DOCUMENTS IF EMPTY(DOCUMENT.fname) AND DOCUMENT.STATUS = "OBSOLETE" MESSAGEBOX("This is an obsolete document."+CHR(13)+"Contact Quality Assurance.",d_nOKbutton+d_nexclamation,"Obsolete Document") RETURN ENDIF ****FOR DOCUEMENTS UNDER CONSTRUCTION IF EMPTY(DOCUMENT.fname) AND DOCUMENT.STATUS = "WRITING" MESSAGEBOX("This document is being written."+CHR(13)+"Contact Quality Assurance.",d_nOKbutton+d_nexclamation,"Document Under Construction") RETURN ENDIF ****VIEW THE DOCUMENTS l_csubname=ALLTRIM(THISFORM.pgfDocs.PAGE1.txtFname.VALUE) l_ccheck1=UPPER(JUSTEXT(l_csubname)) DO CASE ****IF IT IS AN ENVOY FILENAME CASE l_ccheck1='EVY' ***Check for Envoy in three locations DO CASE ***32 BIT IN NEW COREL DIRECTORY, view the document CASE FILE('C:\COREL\OFFICE7\ENVOY7\ENVOY7.EXE') RUN /N1 C:\corel\office7\envoy7\envoy7.EXE "&l_csubname" RETURN CASE FILE('D:\COREL\OFFICE7\ENVOY7\ENVOY7.EXE') RUN /N1 D:\corel\office7\envoy7\envoy7.EXE "&l_csubname" RETURN ***16 bit Envoy Viewer, view the file CASE FILE('C:\OFFICE\ENVOY\ENVOY7S.EXE') RUN /N1 C:\office\envoy\envoy7s.EXE "&l_csubname" RETURN ***32 BIT IN OLD OFFICE DIRECTORY, view the file CASE FILE('C:\OFFICE\ENVOY\ENVOY7.EXE') RUN /N1 C:\office\envoy\envoy7.EXE "&l_csubname" RETURN ***If Envoy doesn't exist on the drive OTHERWISE MESSAGEBOX("You need to install the Envoy viewer."+CHR(13)+"Contact Quality Assurance.",d_nOKbutton+d_nexclamation,"Envoy Not Installed") ENDCASE ****if it is an Acrobat filename CASE l_ccheck1='PDF' DO CASE ******16 bit Acrobat viewer, view the file CASE FILE('c:\acrobat3\reader\acrord16.exe') RUN /N1 C:\acrobat3\READER\acrord16.EXE "&l_csubname" RETURN CASE FILE('C:\Acrobat3\Exchange\AcroEx32.exe') RUN /N1 "C:\Acrobat3\Exchange\AcroEx32.exe" "&l_csubname" RETURN ******32 bit Acrobat viewer, view the file CASE FILE('c:\acrobat3\reader\acrord32.exe') RUN /N1 C:\acrobat3\READER\acrord32.EXE "&l_csubname" RETURN ***If Acrobat doesn't exist on the drive OTHERWISE MESSAGEBOX("You need to install the Acrobat viewer."+CHR(13)+"Contact Quality Assurance.",d_nOKbutton+d_nexclamation,"Acrobat Not Installed") RETURN ENDCASE ****if the filename is not an Envoy/Acrobat extension OTHERWISE MESSAGEBOX("Not an Envoy/Acrobat link!.",d_nOKbutton+d_nexclamation,"Error") ENDCASE RETURN>>I have a form with a command button that uses GETFILE() to allow the user to select the filename of a document. There is a second command button that is used to view the file (with either Envoy or Acrobat, depending the file extension.)