FoxPro/Visual FoxPro - Leer datos de un Grid para exportar a Tabla

Leer datos de un Grid para exportar a Tabla

Publicado por Claudio (6 intervenciones) el 28/11/2014 17:40:05

Buenas tardes alguien me puede ayudar para que despues de tener en pantalla un Grid cargado con datos quiero lograr leerlos para exportarlos a una tabla.

Muchas Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.011

Leer datos de un Grid para exportar a Tabla

Publicado por Fidel José (558 intervenciones) el 28/11/2014 21:32:03

Claudio
El control grid es un Browse algo sofisticado. Los datos lo tiene el cursor o tabla que se informa en el RecordSource.
Te tienes que manejar con ese cursor o tabla.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Leer datos de un Grid para exportar a Tabla

Publicado por Raposa (5 intervenciones) el 29/12/2014 11:14:42

Hola Claudio;
Debes tener un botón en la pantalla con este código más o menos.

Local oExcel

oExcel = CREATEOBJECT("Excel.Application")    && Objeto Excel

TRY

	oExcel.VISIBLE = .T.    && Mostrar excel

	oExcel.Workbooks.ADD	&& preparo un nuevo trabajo de excel

	SELECT (THIS.PARENT.REGILLA1.RECORDSOURCE)        && Datos del Grid en este caso REGILLA1

	GO TOP

	nRows = 0

	WITH THIS.PARENT.REGILLA1

       * Esta operación se realiza tantas veces como registros tengas en el Grid

		nRows = 1

		SCAN

			nRows = nRows + 1

			FOR nColumn = 1 TO .COLUMNCOUNT

				oExcel.Cells(nRows, nColumn) = EVAL(.COLUMNS(nColumn) .CONTROLSOURCE)

			NEXT nColumn

		ENDSCAN

	ENDWITH

ENDTRY

Bueno, este sería el código más o menos aunque seguro que se puede mejorar.
Ojo, este código funciona para fox9 aunque solo con ver el comando TRY ya se puede intuir.

Valora esta respuesta

Comentar

IMPRESION EN IMPRESORA FISCAL BEMATECH MP 4000

INTEGRIDAD REFERENCIAL PROGRAMADA