>****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 >RETURN >>
> >***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 >>