• Viernes 29 de Marzo de 2024, 07:40

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - keypunch

Páginas: [1]
1
Visual FoxPro / Re: de dbf a excel
« en: Lunes 17 de Enero de 2011, 21:14 »
Cita de: "jorge leon"
Muchas gracias amigio keypunch, voy a tratar de realizarlo con mi ejemplo..... me gustaria que si me atoro en alguna parte me pudieras echar la mano????? de antemano muchas gracias por tu respuesta.... tu amigo desde Chihuahua, México...Jorge

Jorge
Mientra las notificaciones del foro esten funcionando, pues ahi me tienes.

Saludos

2
Visual FoxPro / Re: de dbf a excel
« en: Lunes 17 de Enero de 2011, 18:47 »
PAra hacer lo que necesitas tienes que usar Automation . Un ejemplo seria :

Abres tu planilla excel

oExcel = Createobject("Excel.Application")
NombreArchivo='c:documentos.xls'

oWorkbook = oExcel.Workbooks.Open(NombreArchivo)
oExcelApp = oExcel.Application
oExcelApp.WindowState = -4137
oHoja=oWorkbook.Sheets(1)

y Luego

Do While Not Eof()
   oHoja.cells(FILA,1).Value = TU_VALOR
   oHoja.cells(FILA,2).Value = TU_VALOR
   oHoja.cells(FILA,3).Value = TU_VALOR
   oHoja.cells(FILA,4).Value = TU_VALOR

   FILA = FILA + 1
   Sele 5
   Skip
Enddo

Puede setear antes del Do While que la fila - FILA = 2 -  e ir moviendote por la grilla para llenarla. Despues recuerda cerrar la planill para impactar los datos

oWorkbook.Save()
oWorkbook.Close ()

Saludos

3
Visual FoxPro / Re: Retomar datos del form2 al form1
« en: Lunes 17 de Enero de 2011, 18:34 »
No está claro el tema en cuestión , pero suponiendo que trabajas con sesión privada de datos , en cada sesión – cada formulario- deberías buscar el datos en si , ya sea con un Select * from [tabla] o un seek como estás haciendo en estos momentos.

Do form xxxx to nValorIndice

En la grilla coloca , en el método AfterRowcolChange algo como Thisform.nNumeroIndice = [Nombretabla].Identificador

En el Unload del formulario se retorna  al valor que anteriormente asignaste a una propiedad del formulario con

Retrun thisform.nNumeroIndice
 
También puedes trabajar cobre un commandbutton que es el de salir del formulario , ahí colocas el código del método AfterRowColChange y nada enla grilla , por ejemplo :

Select [NombreTabla]
Thisform.nNumeroIndice = [Nombretabla].Identificador
Thisform.Release()

El Unload se encarga de pasar o retronar en la llamada al formulario el valor que necesitas .

Obviamente los buscadores trabajan sobre el área actual de trabajo , mientras el formulario FRM1 trabaja con sesión privada de datos , el buscador es el que trabaja con la sesión actual . por eso si haces un seek de la tabal en el formulario - FRM2-  buscador , al volver deberías estar parado en el registro que buscaste.

Bueno eso es todo

Páginas: [1]