Ayuda con seleccion multiples archivos...(SOLUCIONADO)

[ACC69]

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: Select all  Expand view  RUN

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]

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: Select all  Expand view  RUN

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]

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

[ACC69]

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]

Lo mismo digo Adriano, ya sabes por donde andamos, dia si y dia también

[ACC69]

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]

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?

[ACC69]

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]

Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles

Code: Select all  Expand view  RUN

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
 

[ACC69]

Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles

Code: Select all  Expand view  RUN

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]

Mira, suponiendo que el array en el que tenemos los ficheros sea aFiles

Code: Select all  Expand view  RUN

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.