FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda con seleccion multiples archivos...(SOLUCIONADO)
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 03:38 PM
Hola buenos dias de antemano reciban cordial saludos.

Un favor cual es el equivalente a seleccionar multiples archivos, por ejemplo quiero seleccionar algunos archivos de pdfs ya sean de 1 hasta 3 archivos.

Actualmente solo me permite seleccionar un solo archivo .pdf, pero como seleccionar mas de un archivo y agregar a mi base de datos.

Este es el codigo que solo me permite seleccionar un archivo pdf. Utilizo la funcion de cGetFile()

Code (fw): Select all Collapse
cFile := cGetFile("Archivos PDF |*.Pdf| Archivos DOC |*.Doc","Seleccione archivo")
聽cFile := Alltrim(cFile)

聽IF !Empty(cFile)
聽 聽 聽IF Len(cFile) <= 160
聽 聽 聽 聽 聽cArchDoc := Alltrim(cFile)
聽 聽 聽ELSE
聽 聽 聽 聽 聽MsgAlert("La ruta y nombre del archivo no debe exceder 80 caracteres.","Precauci贸n!")
聽 聽 聽ENDIF
聽ENDIF



Esperando su ayuda al respecto quedo de ustedes.

Gracias

Atte: Adriano C. C.
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: Ayuda con seleccion multiples archivos...
Posted: Tue Oct 29, 2019 05:39 PM
ACC69 wrote:Hola buenos dias de antemano reciban cordial saludos.

Un favor cual es el equivalente a seleccionar multiples archivos, por ejemplo quiero seleccionar algunos archivos de pdfs ya sean de 1 hasta 3 archivos.

Actualmente solo me permite seleccionar un solo archivo .pdf, pero como seleccionar mas de un archivo y agregar a mi base de datos.

Este es el codigo que solo me permite seleccionar un archivo pdf. Utilizo la funcion de cGetFile()

Code (fw): Select all Collapse
cFile := cGetFile("Archivos PDF |*.Pdf| Archivos DOC |*.Doc","Seleccione archivo")
聽cFile := Alltrim(cFile)

聽IF !Empty(cFile)
聽 聽 聽IF Len(cFile) <= 160
聽 聽 聽 聽 聽cArchDoc := Alltrim(cFile)
聽 聽 聽ELSE
聽 聽 聽 聽 聽MsgAlert("La ruta y nombre del archivo no debe exceder 80 caracteres.","Precauci贸n!")
聽 聽 聽ENDIF
聽ENDIF



Esperando su ayuda al respecto quedo de ustedes.

Gracias

Atte: Adriano C. C.


Hola de nuevo, alguna sugerencia y/o rutina respecto a mi solicitud de ayuda???

Gracias..
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda con seleccion multiples archivos...
Posted: Tue Oct 29, 2019 05:43 PM

viewtopic.php?f=3t=30681p=176430hilit=agetfiles#p176430

&&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 06:00 PM
cnavarro wrote:http://forums.fivetechsupport.com/viewtopic.php?f=3&t=30681&p=176430&hilit=agetfiles#p176430



Muchas gracias Ing. Cristobal, es lo que buscaba y excelente funcion aGetFiles().

Gracias de nuevo .

Saludos y gusto saludarle Ing. Cristobal.

Atte: Adriano C. C.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 06:09 PM

Lo mismo digo Adriano, ya sabes por donde andamos, dia si y dia tambi茅n :D

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 08:44 PM
cnavarro wrote:Lo mismo digo Adriano, ya sabes por donde andamos, dia si y dia tambi茅n :-)


Gracias Ing. Cristobal.

Otro favor Ing. Cristobal como puedo extraer la informacion de los archivos almacenados, para grabar a la base de datos estoy usando como ascan(), add() o do while y no me funcionar, no busco la forma de como extraer la informacion almacenada en el arreglo, mi disculpas es que ya no recuerdo tanto tiempo que deje de programar.

Solo deseo extraer la informacion de archivos y grabar a la base de datos de cada registro de archivos .pdfs .

Porfas Ing. Cristobal un peque帽o ejemplo de codigo.

Gracias .

Atte: Adriano C. C.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 09:34 PM

Adriano, paso a paso que me est谩s haciendo un l铆o
Tienes una serie de ficheros pdf?
Y necesitas leerlos, sacar informaci贸n de ellos y esa informaci贸n grabarla en un dbf?

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 09:59 PM
cnavarro wrote:Adriano, paso a paso que me est谩s haciendo un l铆o
Tienes una serie de ficheros pdf?
Y necesitas leerlos, sacar informaci贸n de ellos y esa informaci贸n grabarla en un dbf?


Hola de nuevo Ing. Cristobal gracias por responder.

Anteriormente con la funcion cGetFile() al seleccionar un solo archivo los grabo en una base de datos, para cuando el usuario abra el sistema y desea ver el documento le da click y pueda ver el contenido del pdf sin ningun problema.

Pero como deseaba anexar varios archivos pdfs en la base de datos es lo que ya encontre el aGetFiles y gracias a usted Ing. Cristobal.

Perooo...como grabar a mi base de datos si selecciono mas de un archivo , ya que estoy creando un do while !eof() para que se vaya grabando los registros de los archivos .pdfs a la base de datos para que el usuario pueda abrir en el sistema los archivos pdfs.

estoy intentando con aeval y no me funciona...

Aqui un ejemplo de como quiero grabar los archivos seleccionados en la base de datos.

do while !eof()
cArchDoc := aFiles

dbeseek()

dbappend()
replace ARCHDOC1 WITH cArchdoc

DbSkip()
enddo

Es un peque帽o trozo de codigo...

Ya que me manda nil o array....

Gracias Ing. Cristobal.

Saludos.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 10:13 PM
Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles

Code (fw): Select all Collapse
local x 

...

For x = 1 to Len( aFiles )

cArchDoc := aFiles[ x ]

if Flock()
   dbappend()
   replace ARCHDOC1 WITH cArchdoc
else
   // Ojo el fichero no se ha grabado
endif

Next x
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Tue Oct 29, 2019 10:46 PM
cnavarro wrote:Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles

Code (fw): Select all Collapse
local x 

...

For x = 1 to Len( aFiles )

cArchDoc := aFiles[ x ]

if Flock()
聽 聽dbappend()
聽 聽replace ARCHDOC1 WITH cArchdoc
else
聽 聽// Ojo el fichero no se ha grabado
endif

Next x



Gracias Ing. Cristobal, hare la prueba y le comento..

Saludos .

Atte: Adrianc C. C.
ACC69
Posts: 632
Joined: Tue Dec 12, 2006 07:34 PM
Re: Ayuda con seleccion multiples archivos...(SOLUCIONADO)
Posted: Wed Oct 30, 2019 02:40 PM
ACC69 wrote:
cnavarro wrote:Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles

Code (fw): Select all Collapse
local x 

...

For x = 1 to Len( aFiles )

cArchDoc := aFiles[ x ]

if Flock()
聽 聽dbappend()
聽 聽replace ARCHDOC1 WITH cArchdoc
else
聽 聽// Ojo el fichero no se ha grabado
endif

Next x



Gracias Ing. Cristobal, hare la prueba y le comento..

Saludos .

Atte: Adrianc C. C.



Hola buenos dias Ing. Cristobal muchas gracias por tu ayuda, quedo de maravilla el codigo era tan facil que ya no recordaba :-), ahora solo me queda acomodar en cada columna del browse cada tipo de dato con sus archivos asociados.

Espero no seguir dando lata aqui en el foro ya que estoy retomando de nuevo la programacion por un cliente que necesita un sistema peque帽o de control contribuciones fiscales para departamento de contabilidad.

Gracias de nuevo por sacarme de apuroy gusto saludarle de nuevo y que tenga excelente dia Ing. Cristobal.

Atte: Adriano C. C.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions