Power Builder - Adjuntar archivo PDF en Power Builder

Adjuntar archivo PDF en Power Builder

Publicado por Juan (33 intervenciones) el 20/05/2019 16:02:09

Hola a todos buenos días, tengo una inquietud.
El tema es que deseo adjuntar un archivo ya escaneado en pdf. a una carpeta especifica dentro de la aplicacion y que deseo que el sistema me pida en donde giuardar y al aceptar me guarde el documento en PDF en donde le he dicho guardxar.

Gracias a todos por su valioso aporte

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 821

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (482 intervenciones) el 20/05/2019 19:42:02

Para eso existen las funciones:

GetFolder //Caja de dialogo para seleccionar un directorio
GetFileOpenName //Caja de dialogo de abrir un archivo
GetFileSaveName //Caja de dialogo de guardar archivo
FileCopy //Copiar un archivo a un directorio

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Adjuntar archivo PDF en Power Builder

Publicado por Juan (33 intervenciones) el 23/05/2019 16:05:03

Hola Leonardo, estoy intentando fabricar este código con las funciones que me dices pero no guarda nada, espero me puedas ayudar :

Esto he programado

String Ls_ru, ls_nom

int Li_f

GetFileOpenName("BuscarPDF", ls_ru, ls_nom, "DBF", "dbf(*.dbf");

Li_f=dw_registro.GetRow()

dw_registro.SetItem(Li_f, "almacenar", Ls_ru)

Li_f=GetFileSaveName ("Select File", ls_ru, ls_nom, "PDF", "All Files (*.*),*.*" , "C:\DATAUE28\Doc")

Li_f = FileCopy ("Ruta del Directorio a Guardar" , &

   "C:\DATAUE28\Doc", FALSE)

No guarda nada, solo lo busca, lo selecciona, pero no lo guarda el PDF como copia en esa carpeta

Valora esta respuesta

Comentar

Pos: 1

Val: 821

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (482 intervenciones) el 23/05/2019 22:57:23

Hola... la ayuda de PB dice que se debe especificar el archivo origen y el destino

especifica el nombre del archivo original y hacia que carpeta y nombre tendra, en tu caso deberias tener un FileCopy( ls_ruta + "\" + ls_archivo_original, "c:\ruta_nueva" + ls_archivo_nuevo)

este es el ejemplo de la ayuda

integer li_FileNum

li_FileNum = FileCopy ("jazz.gif" ,  "C:\emusic\jazz.gif", FALSE)

Valora esta respuesta

Comentar

Adjuntar archivo PDF en Power Builder

Publicado por JUAN (33 intervenciones) el 28/05/2019 19:32:25

Ok, no me guarda nada, solo guarda en la base de datos la ruta pero no el archivo en pdf.
He cambiado una nueva tabla para probar pero nada,,,,

Este es mi código ojala me puedas ayudar Leonardo

// Abrir ventana de selección de archivo excel

IF GetFileOpenName("Abrir Archivo", ls_ruta, ls_nombre_archivo, "PDF", "Archivos Excel &

(*PDF), *.PDF") < 1 THEN Return

ll_rc=dw_doc.GetRow()

ll_rc=GetFileSaveName ("Select File", ls_ruta, ls_nombre_archivo, "PDF", "All Files (*.*),*.*" , "C:\BIENESPATRPNO\PDF\Mesapartes")

dw_doc.SetItem(ll_rc, "escaneo", ls_ruta)

ll_rc = FileCopy ("Ruta del Directorio a Guardar" , &

   "C:\BIENESPATRPNO\PDF\Mesapartes", FALSE)

Valora esta respuesta

Comentar

Pos: 1

Val: 821

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (482 intervenciones) el 28/05/2019 19:43:39

Pero no entiendo que quieres decir con esto

ll_rc = FileCopy ("Ruta del Directorio a Guardar" , &
"C:\BIENESPATRPNO\PDF\Mesapartes", FALSE)

en "ruta del directorio a guardar" eso no es asi... ahi debe ser Ruta y nombre del archivo con extencion a copiar
y en "C:\BIENESPATRPNO\PDF\Mesapartes" debe ser ruta y nombre del archivo nuevo

ll_rc = FileCopy( "C:\Temporal\miArchivo.pdf", "C:\RutaNueva\MiArchivoNuevo.PDF", true )

Syntax
FileCopy ( sourcefile, targetfile {, replace } )

Argument Description
sourcefile String for the name of the file you want to copy

targetfile String for the name of the file you are copying to

replace (optional) Boolean specifying whether to replace the target file (true) or not (false)

Valora esta respuesta

Comentar

Adjuntar archivo PDF en Power Builder

Publicado por Juan (33 intervenciones) el 28/05/2019 22:28:30

Gracias por tu paciencia Leonardo, mira intento con eso guardar el documento en esa carpeta, pero cuando termina la secuencia no guarda nada en esa carpeta.

A goso modo deseo que una vez se haya escaneado en documento en pdf, pueda enrutar en donde guardar una copia de ese documento escaneado, darle el nombre para guardarlo y este quede guardado tanto en el directorio del campo escaneo de la tabla documentos a de power builder como el documento físico en esa carpeta que le he designado.

No encuentro la forma como poderlo hacer.

Gracias Leonardo, ojala haya sido claro

Valora esta respuesta

Comentar

Pos: 2

Val: 250

Adjuntar archivo PDF en Power Builder

Publicado por Adolfo (271 intervenciones) el 29/05/2019 15:20:07

Es ejemplo esta en PB12.6 y guarda tanto la ruta como el archivo PDF en una tabla en MSSqlServer, espero te sirva.

PDF.rar(85,3 KB)

Valora esta respuesta

Comentar

Adjuntar archivo PDF en Power Builder

Publicado por Juan (33 intervenciones) el 30/05/2019 00:32:02

Hola Leopoldo, nuevamente para comentarte que sigo con el inconveniente, no tengo el instalador del PB 12.6 pero viendo tu còdigo he tratado de hacer esto, el que solo guarda en el campo escaneo del datawindow y en la tabla, la ruta de donde estoy seleccionando el PDF mas no guarda el archivo que he seleccionado en la carpeta que deseo guardar, este es mi codigo.

String Ls_ru, ls_nom
Int Li_f
GetFileOpenName("Abrir Archivo", Ls_ru, ls_nom, "PDF", "Acrobat Reader (*.PDF), *.PDF", GetCurrentDirectory());
Li_f=dw_doc.GetRow()
dw_doc.SetItem(Li_f, "escaneo", Ls_ru)

que mas puedo hacer, gracias por tu valioso aporte

Valora esta respuesta

Comentar

Adjuntar archivo PDF en Power Builder

Publicado por juan (33 intervenciones) el 02/06/2019 04:17:24

Bueno, al final de tanta pataleta tengo esto, lo malo es que no me esta guardando el archivo que selecciono en la carpeta que le indico, alguien puede ayudarme en este problema, gracias----

////////////////////----*_ _ _ _ _ *------/////////////////////

String ls_app_path, ls_ruta, ls_nombre

long ll_guardar

ls_app_path = GetCurrentDirectory()

GetFileOpenName("BuscarPDF", ls_ruta, ls_nombre, "PDF", "pdf(*.pbf");   ///

ll_guardar = getfilesavename("Seleccionar Destino", ls_ruta, ls_nombre, &

"Excel!"+"Text!"+"CSV!"+"dBASE3!",&

"Archivo de Excel ( *.xls), *.xls,"+"Archivo de Texto ( *.txt), *.txt,"+&

"Archivo de CSV (*.csv), *.csv,"+"Archivo de Base de Datos ( *.dbf), *.dbf,"+"Archivo Acrobat Reader ( *.pdf), *.pdf,")

ll_guardar = filecopy(ls_ruta, ls_nombre, true)

ChangeDirectory("C:\DATAUE28\Doc\MesaPartes")

ll_guardar=dw_doc.GetRow()

dw_doc.SetItem(ll_guardar, "escaneo", Ls_ruta)

if ll_guardar = 1 then

choose case right(ls_nombre,3)

case 'xls'

dw_doc.saveas(ls_ruta, Excel!, true)

case 'txt'

dw_doc.saveas(ls_ruta, Text!, true)

case 'csv'

dw_doc.saveas(ls_ruta, CSV!, true)

case 'dbf'

dw_doc.saveas(ls_ruta, PDF!, true)

case 'pdf'

dw_doc.saveas(ls_ruta, dBASE3!, true)

end choose

end if

Valora esta respuesta

Comentar

Pos: 1

Val: 821

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (482 intervenciones) el 02/06/2019 04:21:22

ya revisaste que trae la variable ls_nombre

metele un brakepoint o un msgbox con esa variable.. para mi que solo te trae el nombre y no la carpeta y el nombre del archivo que vas a crear

Valora esta respuesta

Comentar

Adjuntar archivo PDF en Power Builder

Publicado por juan (33 intervenciones) el 03/06/2019 00:48:53

Gracias Leonardo por tu aclaración, me faltaba agregar un setItem para esa variable:
esta fue
dw_doc.SetItem(ll_guardar, "escaneo", ls_nombre)

perfecto, ahora si guarda,

Gracias por tu aporte

Valora esta respuesta

Comentar

Pos: 1

Val: 821

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (482 intervenciones) el 03/06/2019 02:08:27

Sale.... saludos

Valora esta respuesta

Comentar

Pos: 81

Val: 3

Adjuntar archivo PDF en Power Builder

Publicado por araceli (1 intervención) el 19/02/2021 22:59:14

yo tengo un problema contrario, me guarda pero a la hora de mandar llamar como imagen me crashea, que me recomiendas que pueda agregar, he intentado cambiar variable, converson sin conversor su tabla aparte etc

Valora esta respuesta

Comentar

Centrar imagen

Letras para armar un teclado touch