Guardar PDF
Muy buenas:
Llevo un tiempo programando en FoxPro 5 y me ha surgido una complicación que no había tenido hasta ahora. Necesito guardar PDFs en una tabla. ¿Hay algún tipo de campo que me permita guardarlos directamente? Y si no, ¿Cómo podría hacerlo?
Muchas gracias
Llevo un tiempo programando en FoxPro 5 y me ha surgido una complicación que no había tenido hasta ahora. Necesito guardar PDFs en una tabla. ¿Hay algún tipo de campo que me permita guardarlos directamente? Y si no, ¿Cómo podría hacerlo?
Muchas gracias
1 respuesta
Respuesta de squire
1
*A tu tabla agregale un campo memo *llamado RUTA, por ejemplo,
*y guarda la ruta de ese erchivo en la *tabla
lc_MiPdf=GETFILE('PDF', 'Archivos PDF:', 'Aceptar',0)
if empty(miPDF)=.t.
Wait window nowait'Nada slecionado'
return 0
endif
SELEC MITABLA
appe blank
repla ruta with lc_MiPdf
*luego para abrirlo e imprimirlo :
archivo=lc_MiPdf
oShell=CreateObject("Shell.Application")
oShell.ShellExecute("&archivo")
*y guarda la ruta de ese erchivo en la *tabla
lc_MiPdf=GETFILE('PDF', 'Archivos PDF:', 'Aceptar',0)
if empty(miPDF)=.t.
Wait window nowait'Nada slecionado'
return 0
endif
SELEC MITABLA
appe blank
repla ruta with lc_MiPdf
*luego para abrirlo e imprimirlo :
archivo=lc_MiPdf
oShell=CreateObject("Shell.Application")
oShell.ShellExecute("&archivo")
