Power Builder - Adjuntar archivo PDF en Power Builder

 
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Leonardo Daniel A.
Val: 821
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (481 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 claraNo me gusta: Está respuesta no esta clara o no es útil
1
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

1
2
3
4
5
6
7
8
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 821
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (481 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

1
2
3
integer li_FileNum
 
li_FileNum = FileCopy ("jazz.gif" ,  "C:\emusic\jazz.gif", FALSE)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
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


1
2
3
4
5
6
7
8
// 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 821
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (481 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 250
Bronce
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Adjuntar archivo PDF en Power Builder

Publicado por Adolfo (263 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.
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

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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----

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
////////////////////----*_ _ _ _ _ *------/////////////////////
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 821
Oro
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

Adjuntar archivo PDF en Power Builder

Publicado por Leonardo Daniel A. (481 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 3
Ha disminuido su posición en 11 puestos en Power Builder (en relación al último mes)
Gráfica de Power Builder

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar