FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Imprimir Stringrid en Rave
Tengo un problema al generar un reporte en rave en Delphi 7, hasta ahora lo que hacia era sacar los datos de un Clientdataset y con eso no tuve problemas, el tema es que quiero generar el reporte con los datos de un stringrid y no encuentro la forma de hacerlo, investigando encontre que el componente 'rvcustomconnection' tienen los enventos:
ongetcols y ongetrow En el ongetcols escribo lo siguiente. WriteField('Nombre', dtString, 20, '',''); {para crear una columna} En el ongetrow connection.WriteStrData('', grid2.Rows[i].text); {para crear una fila} La verdad es que no encontre mucha informacion sobre el tema si alguien sabe algo, muchismas gracias por su ayuda |
#2
|
|||
|
|||
Investigando puede llegar a una solucion espero que les sirva a alguien agrego el codigo que use en los eventos ongetCols y onGetRows del rvCustomconnection
Código:
procedure TForm2.RvCustomConnection1GetCols( Connection: TRvCustomConnection); begin With Connection do begin DoGetCols; // Creo las columnas (campos) WriteField('Apellido', dtString, 50, '',''); WriteField('Nombre', dtString, 50, '',''); WriteField('Provincia', dtString, 50, '',''); WriteField('Profesion', dtString, 50, '',''); end; end; procedure TForm2.RvCustomConnection1GetRow( Connection: TRvCustomConnection); var i: integer; begin i := grid2.RowCount - 1; Connection.DataRows := i; if Connection.DataIndex < Connection.DataRows then begin TempList.Clear; // TStrings declarado Global TempList.AddStrings(grid2.Rows[Connection.dataindex + 1]);// asigno al TStrings la fila de la grilla Connection.WriteStrData( '',TempList.Strings[3]); //Asigno de la lista el elmento al campo correspondiente Connection.WriteStrData( '',TempList.Strings[1]); Connection.WriteStrData( '',TempList.Strings[0]); Connection.WriteStrData( '',TempList.Strings[2]); Connection.WriteNullData; end else Connection.DoEOF; end; muchas gracias |
|
|
|