FoxPro/Visual FoxPro - Consulta

   
Vista:

Consulta

Publicado por locotavo (2 intervenciones) el 12/03/2008 13:01:14
Hola Buen dia, mi consulta es la siguiente
quiero crear un boton que en el evento click
abra un archivo PDF con el Acrobat...
probe con la sentencia
run /n start c: est.pdf
y no anda
tengo visual fox pro 6
espero su respuesta. Gustavo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Consulta

Publicado por Plinio (7771 intervenciones) el 12/03/2008 13:22:30
Prueba algo como esto

DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin

cFileName = "c:est.pdf"
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta

Publicado por alexcoinc (449 intervenciones) el 14/03/2008 23:05:48
* PARA EL PDF
*****************
LOCAL nom1,ruta1
nom1=ALLTRIM('circular1') && ESTE ES EL ARCHIVO
ruta1="C: emporal" && ESTE ES LA RUTA DONDE ESTA EL ARCHIVO
* AUNQUE PUEDES PEDIR CON GETDIR ... para definir donde se encuentra el PDF
** ruta = getdir( ruta, 'Carpeta Origen de los Datos')

IF FILE(ruta1+nom1+'.pdf')=.t.
WAIT "Abriendo PDF, Espere un momento" WINDOW NOWAIT
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
ShellExecute(0,"Open",ruta1+nom1+'.pdf',"","",1)
CLEAR DLLS ShellExecute
ELSE
MESSAGEBOX("El Archivo:" +nom1 +'.pdf'+SPACE(2)+"no existe en esta Pc, verifique",16,"Error")
ENDIF

* ESTE ABRE UN ARCHIVO DE EXCEL
*******************************************

LOCAL nom1,ruta1
nom1=ALLTRIM('xx')
ruta1="C: emporal"

lcLibro=ruta1+nom1+'.xls'
lcHoja="Hoja1"

IF FILE(ruta1+nom1+'.xls')=.t.
WAIT "Abriendo XLS, Espere un momento" WINDOW NOWAIT
oExcel = CREATEOBJECT("Excel.Application")
ActiveSheet = ALLTRIM(lclibro)
WITH oExcel
.APPLICATION.WorkBooks.OPEN(Activesheet)
.APPLICATION.WorkSheets(lcHoja).ACTIVATE
.VISIBLE=.T.
ENDWITH
ELSE
MESSAGEBOX("El Archivo:" +nom1 +'.xls'+SPACE(2)+"no existe en esta Pc, verifique",16,"Error")
ENDIF

** saludos alexcoinc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Consulta

Publicado por LoCoTaVo (2 intervenciones) el 15/03/2008 17:05:09
Muchas gracias tema solucionado ;)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar