Problema con reporte
Publicado: Jue Abr 27, 2006 1:58 pm
Hola, sigo con la mala suerte, y los problemas ahora quiero hacer un reporte
y me sale vacio, y ya no se que probar, aqui pongo el reporte, me sale vacio
y ya probe la consulta con el IBConsole y esta bien, tiene datos.
Desde ya gracias .
Local oReport, oMiSql
oMiSql:=tODBCDataSet():Create(,::BasedeDatos,,'REPORTE')
oMiSql:cSelect:='SELECT C.ID, C.FECHA, C.APELLIDO, C.NOMBRE, ' + ;
'C.DOMICILIO, C.BARRIO, C.PROVINCIA,
C.PROVINORIGEN, ' + ;
'C.NACIONALIDAD, C.FECHANACIM,
C.ESTUDIOS, C.OFICIO, ' + ;
'C.ALMACENA, C.OBSERVACION,
C.RECEPCIONO, C.COLEGIOS, ' + ;
'BAR.DESCRIPCION AS NOMBARRIO, ' + ;
'PRO.DESCRIPCION AS NOMPROVINCIA, ' + ;
'PAI.DESCRIPCION AS NOMPAISES, ' + ;
'EST.DESCRIPCION AS NOMESTUDIOS, ' + ;
'OFI.DESCRIPCION AS NOMOFICIOS ' + ;
'FROM CURRICULUM C, BARRIOS BAR, ' + ;
' PROVINCIA PRO, PAISES PAI, ' + ;
' ESTUDIOS EST, OFICIOS OFI ' + ;
'WHERE C.BARRIO=BAR.CODIGO AND
C.PROVINCIA=PRO.CODIGO ' + ;
' AND C.NACIONALIDAD=PAI.CODIGO AND
C.ESTUDIOS=EST.CODIGO ' + ;
' AND C.OFICIO=OFI.CODIGO ' + ;
'ORDER BY APELLIDO, NOMBRE '
oMiSql:Open()
oMiSql:gotop()
REPORT oReport ;
TITLE 'Listado de curriculum' ;
PREVIEW
COLUMN OF oReport ;
TITLE 'RecNo' ;
DATA recno()
COLUMN OF oReport ;
TITLE 'Apellido y Nombre' ;
DATA alltrim(oMiSql:FieldGetByName('Apellido'))+', ' + ;
alltrim(oMiSql:FieldGetByName('Nombre')) ;
ALIGN taLEFT
COLUMN OF oReport ;
TITLE 'Domicilio', 'Barrio' ;
DATA oMiSql:FieldGetByName('Domicilio') , ;
alltrim(oMiSql:FieldGetByName('NomBarrio'))+' ' + ;
alltrim(oMiSql:FieldGetByName('NomProvincia')) ;
PICTURE repl('X',33) ;
ALIGN taLEFT
COLUMN OF oReport ;
TITLE 'Origen','' ;
DATA alltrim(DataFieldSql('Provincia','Descripcion','Codigo' , ;
oMiSql:FieldGetByName('ProvinOrigen'),'' ;
))+' ' + ;
alltrim(oMiSql:FieldGetByName('NomPaises')) ;
ALIGN taLEFT
COLUMN OF oReport ;
TITLE 'Oficio','Estudios' ;
DATA alltrim(oMiSql:FieldGetByName('nomOficios'))+' ' + ;
alltrim(oMiSql:FieldGetByName('NomEstudios'))
COLUMN OF oReport ;
TITLE 'Edad' ;
DATA CalcEdad(cctod(oMiSql:FieldGetByName('FechaNacim'))) ;
ALIGN taRIGHT PICTURE '99999' ;
RUN REPORT oReport
oMiSql:Close()
oMiSql:End()
oMiSql:=NIL
y me sale vacio, y ya no se que probar, aqui pongo el reporte, me sale vacio
y ya probe la consulta con el IBConsole y esta bien, tiene datos.
Desde ya gracias .
Local oReport, oMiSql
oMiSql:=tODBCDataSet():Create(,::BasedeDatos,,'REPORTE')
oMiSql:cSelect:='SELECT C.ID, C.FECHA, C.APELLIDO, C.NOMBRE, ' + ;
'C.DOMICILIO, C.BARRIO, C.PROVINCIA,
C.PROVINORIGEN, ' + ;
'C.NACIONALIDAD, C.FECHANACIM,
C.ESTUDIOS, C.OFICIO, ' + ;
'C.ALMACENA, C.OBSERVACION,
C.RECEPCIONO, C.COLEGIOS, ' + ;
'BAR.DESCRIPCION AS NOMBARRIO, ' + ;
'PRO.DESCRIPCION AS NOMPROVINCIA, ' + ;
'PAI.DESCRIPCION AS NOMPAISES, ' + ;
'EST.DESCRIPCION AS NOMESTUDIOS, ' + ;
'OFI.DESCRIPCION AS NOMOFICIOS ' + ;
'FROM CURRICULUM C, BARRIOS BAR, ' + ;
' PROVINCIA PRO, PAISES PAI, ' + ;
' ESTUDIOS EST, OFICIOS OFI ' + ;
'WHERE C.BARRIO=BAR.CODIGO AND
C.PROVINCIA=PRO.CODIGO ' + ;
' AND C.NACIONALIDAD=PAI.CODIGO AND
C.ESTUDIOS=EST.CODIGO ' + ;
' AND C.OFICIO=OFI.CODIGO ' + ;
'ORDER BY APELLIDO, NOMBRE '
oMiSql:Open()
oMiSql:gotop()
REPORT oReport ;
TITLE 'Listado de curriculum' ;
PREVIEW
COLUMN OF oReport ;
TITLE 'RecNo' ;
DATA recno()
COLUMN OF oReport ;
TITLE 'Apellido y Nombre' ;
DATA alltrim(oMiSql:FieldGetByName('Apellido'))+', ' + ;
alltrim(oMiSql:FieldGetByName('Nombre')) ;
ALIGN taLEFT
COLUMN OF oReport ;
TITLE 'Domicilio', 'Barrio' ;
DATA oMiSql:FieldGetByName('Domicilio') , ;
alltrim(oMiSql:FieldGetByName('NomBarrio'))+' ' + ;
alltrim(oMiSql:FieldGetByName('NomProvincia')) ;
PICTURE repl('X',33) ;
ALIGN taLEFT
COLUMN OF oReport ;
TITLE 'Origen','' ;
DATA alltrim(DataFieldSql('Provincia','Descripcion','Codigo' , ;
oMiSql:FieldGetByName('ProvinOrigen'),'' ;
))+' ' + ;
alltrim(oMiSql:FieldGetByName('NomPaises')) ;
ALIGN taLEFT
COLUMN OF oReport ;
TITLE 'Oficio','Estudios' ;
DATA alltrim(oMiSql:FieldGetByName('nomOficios'))+' ' + ;
alltrim(oMiSql:FieldGetByName('NomEstudios'))
COLUMN OF oReport ;
TITLE 'Edad' ;
DATA CalcEdad(cctod(oMiSql:FieldGetByName('FechaNacim'))) ;
ALIGN taRIGHT PICTURE '99999' ;
RUN REPORT oReport
oMiSql:Close()
oMiSql:End()
oMiSql:=NIL