FoxPro/Visual FoxPro - REPORTE

   
Vista:

REPORTE

Publicado por KIKILLO (127 intervenciones) el 12/02/2009 07:46:29
SALUDOS AMIGOS DEL MUNDO.

1.- ALGUIEN ME PUEDE DECIR SI HAY ALGUNA FORMA DE CREAR UN REPORTE QUE TENGA 2 DETALLES (UN ENCABEZADO, 2 DETALLES, 1 PIE, 1 RESUMEN)

2.- UN EJEMPLO DE GRID CON DOS TABLAS RELACIONADAS EN LA SECUNDARIA QUE SE VISUALICE EL DETALLE SIN USAR EL ENTORNO DE DATOS, POR QUE SON TABLE QUE DURAN UN AÑO, LUEGO SE UTILIZAN OTRAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:REPORTE

Publicado por giovanni (64 intervenciones) el 12/02/2009 21:14:28
para la primera NO SE.

para la segunda yo lo hago asi suponiendo estas dos tablas:

TABLA CLIENTES
CODIGO (este es el indice)
NOMBRE
COD_CIUDAD

TABLA CIUDADES
CODIGO (este es el indice)
NOMBRE

**************esto en un prg llamado prueba************************
SET PROCEDURE TO PRUEBA.PRG

DO MI_PRO

DEFINE CLASS MIGRID AS GRID
Visible = .T.
DeleteMark = .F.
Width = 468
Left = 102
Top = 176
Height = 150
AllowAddNew = .F.
ColumnCount = 2
SplitBar = .F.
RecordSource = 'CLIENTES'
SplitBar = .F.
ENDDEFINE

**********abro tablas y creo relacion
PROCEDURE MI_PRO
SELECT 1
USE CIUDADES INDEX CIUDADES
SELECT 2
USE CLIENTES INDEX CLIENTES
SET RELATION TO COD_CIUDAD INTO 1

**********CARGO LOS OBJETOS

MI_V = CREATEOBJECT('FORM')
MI_V.ADDOBJECT ('Gri1' , 'MIGRID')
MI_V.Gri1.Column1.Header1.Caption = 'NOMBRE CLIENTE'
MI_V.Gri1.Column1.ControlSource = 'NOMBRE'
MI_V.Gri1.Column2.Header1.Caption = 'CIUDAD'
MI_V.Gri1.Column2.ControlSource = 'CIUDADES.NOMBRE'
MI_V.Gri1.ReadOnly = .T.
MI_V.SHOW()
READ EVENT
ENDPROC

Espero te sirva

Saludos desde Colombia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar