getfile() ruta x defecto..

516 views
Skip to first unread message

Miguel Canchas

unread,
Dec 30, 2014, 6:08:45 PM12/30/14
to publice...@googlegroups.com

Hay alguna forma de ponerle una ruta por defecto al GETFILE()para que el usuario ubique un archivo   ¿?

 

 

Estuve buscando en google y no encontré la manera…

 

 

 

MK

Víctor Hugo Espínola Domínguez

unread,
Dec 30, 2014, 6:20:18 PM12/30/14
to publice...@googlegroups.com
Hola Miguel

Puedes hacerlo así:

lcDirActual  = Curdir()
lcDirInicial   = "Directorio por defecto"

Cd (m.lcDirInicial)
lcArchivo = Getfile()
Cd (m.lcDirActual)

Saludos,
Víctor.
Lambaré - Paraguay.


Ricardo Pina

unread,
Dec 30, 2014, 6:20:42 PM12/30/14
to Grupo VFP
Hola Miguel

La más sencilla

set defa to dirxdefecto
getfile()

y listo

Saludos

El 30 de diciembre de 2014, 20:08, Miguel Canchas <mcan...@ximesa.com> escribió:



--
            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

Ricardo Pina

unread,
Dec 30, 2014, 6:50:57 PM12/30/14
to Grupo VFP
Miguel

La misma pero un poco más elaborada

FUNCTION GetFileX(tcRuta, tcExtension, tcLeyenda, tcBoton, tnBoton,
tcTitulo)
LOCAL lcDirAnt, lcGetPict
tcRuta = IIF(NOT EMPTY(tcRuta) AND DIRECTORY(tcRuta,1),tcRuta,"")
tcExtension = IIF(EMPTY(tcExtension), "", tcExtension)
tcLeyenda = IIF(EMPTY(tcLeyenda), "", tcLeyenda)
tcBoton = IIF(EMPTY(tcBoton), "", tcBoton)
tnBoton = IIF(EMPTY(tnBoton), 0, tnBoton)
tcTitulo = IIF(EMPTY(tcTitulo), "", tcTitulo)
lcDirAnt = FULLPATH("")
SET DEFAULT TO (tcRuta)
lcGetPict = GETFILE(tcExtension, tcLeyenda, tcBoton, tnBoton, tcTitulo)
SET DEFAULT TO (lcDirAnt)
RETURN lcGetPict
ENDFUNC

Esta función supo estar en PortalFox y no se si el Maestro ya pudo incluirla en el nuevo repositorio.

Saludos

Fidel Charny

unread,
Dec 30, 2014, 7:10:11 PM12/30/14
to publice...@googlegroups.com
Y EVL() ?
tcExtension = EVL(tcExtension,"")

Luis Maria Guayan

unread,
Dec 31, 2014, 7:38:16 AM12/31/14
to publice...@googlegroups.com
Si ya estan el el Blog:

-- Funciones GetFile y GetPict eXtendidas --
http://comunidadvfp.blogspot.com/2006/03/funciones-getfile-y-getpict-extendidas.html


Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

José Enrique Llopis

unread,
Dec 31, 2014, 8:02:17 AM12/31/14
to publice...@googlegroups.com

 

Seguro que el próximo año va a ser magnífico y aún veremos al zorro correr por el campo.

 

Ser felices, un abrazo a todos.

 

José Enrique Llopis

Alicante – España

 

Luis Maria Guayan

unread,
Dec 31, 2014, 8:43:45 AM12/31/14
to publice...@googlegroups.com
Gracias Pepe. Feliz año 2015 para toda la Comunidad VFP


Luis María Guayán
Tucumán, Argentina
_____________________________
http://comunidadvfp.blogspot.com

Carlos Miguel FARIAS

unread,
Dec 31, 2014, 8:58:17 AM12/31/14
to Grupo Fox
Feliz Año 2015 a toda la comunidad, sus familiares, sus amigos y todas las personas que sean de vuestro agrado.
Un abrazo desde La Pampa (RA), Miguel

Miguel Canchas

unread,
Dec 31, 2014, 9:34:10 AM12/31/14
to publice...@googlegroups.com

Excelente..!!!!

Quedo bien…

 

Muchas gracias….

 

MK

edgar suarez kummers

unread,
Dec 31, 2014, 9:41:37 AM12/31/14
to publice...@googlegroups.com
Saludos a todos los simpáticos miembros de este foro, a sus familiares y allegados.
 
Ha sido muy grato e instructivo leer sus correos durante este año que termina.
 
Felicidades

Héctor Bernal

unread,
Dec 31, 2014, 10:18:02 AM12/31/14
to publice...@googlegroups.com
José,

Gracias por los buenos deseos e igualmente para toda la comunidad que sea un excelente 2015.

ç


Saludos desde México, D.F.

Euro Nava

unread,
Dec 31, 2014, 3:11:48 PM12/31/14
to publice...@googlegroups.com

 

Gracias y todos mis amigos del Foro creyentes que Dios los guie y Bendiga sus futuros proyectos y a los no creyentes…. Que la fuerza los acompañe

 

Saludos

 

 

 

El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía    

 

Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Héctor Bernal


Enviado el: miércoles, 31 de diciembre de 2014 10:48 a.m.
Para: publice...@googlegroups.com

Gustavo Mora Rivera

unread,
Dec 31, 2014, 3:31:00 PM12/31/14
to publice...@googlegroups.com
buenas,  antes de consultar he investigado por un mes y visto muchos tutoriales pero solo me ha servido para enredarma mas...
 
tengo varios sistemas desde hace 15 anos funcionando perfecto,, usando tablas nativas de vfp, eso si, nunca use los scatter demas,, usaba tabla provisionales y al guardar hacia un do while y actualizaba los registros de las tablas en el servidor...

ahora tengo que migrar  a .net y a usar MSSQL  ya instale la version 2008 express. y he hecho algunas prueba pero ... aca viene lo dificil, prefiero quedar de ignorante y preguntar que quedar mal.

no he usado nunca la programacion en capas,
y nunca he usado sql.
 
entonces no se como actuar,
 
por ejemplo hice una funcion para abrir la BD,  pero no se si debo correr esta funcion solo cuando voy a hacer la consulta, la cierro, y luego cuando necesito hacer un insert la vuelvo abrir y a cerrar..
luego,, si tengo varios datos en variables, como seria un factura, como hago para insertarlos  a la bd,, o si son cambios a un registro ya existente como lo hago
con un sqlexec, o transaccion.

en resumen vamos a interactuar en aplicaciones con datos locales y luego en mssql externos. estamos viendo como hacer para cuando no exista coneccion se puedan hacer ciertas funciones y luego actualizar los datos.
 
en Fin.   tienen algun link o pdf, con material para poder empezar a probar estos temas... 

Gustavo Mora Rivera

unread,
Dec 31, 2014, 3:32:10 PM12/31/14
to publice...@googlegroups.com

Rene Jara

unread,
Jan 2, 2015, 11:51:15 AM1/2/15
to publice...@googlegroups.com
Un Saludo de cordial de año nuevo, muchos exitos para el 2015, a todos los foxeros y miembro de este
grupo de trabajo.
  
Cordialmente
Rene Jara Muñoz
 
Reply all
Reply to author
Forward
0 new messages