Ir al contenido


Foto

[FastReport] Combinar filas de una columna en MasterData


  • Por favor identifícate para responder
2 respuestas en este tema

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 27 octubre 2017 - 09:13

Pues eso, ¿alguien sabe si se puede combinar filas de una columna/memoview siempre y cuando los valores sean consecutivos?, así como se hace en Excel.. ¿es posible?.

 

Saludos..


  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 15 noviembre 2017 - 01:25

A ver mi gente, hice lo siguiente para poder intentar combinar las filas de una columna:


delphi
  1. procedure TReportes.MasterDataBeforePrint(Sender: TfrxComponent);
  2. var LastTarifa: String;
  3. Memo2: TfrxmemoView;
  4. begin
  5.  
  6. if LastTarifa <> QNominaCR.FieldByName('tipo_tarifa').AsString then
  7. Memo2.Frame.Typ := [ftTop,ftLeft]
  8. else Memo2.Frame.Typ := [ftLeft];
  9.  
  10. LastTarifa := QNominaCR.FieldByName('tipo_tarifa').AsString;
  11. end;
  12.  
  13. procedure TReportes.frxNominaCRBeforePrint(Sender: TfrxReportComponent);
  14. var MasterData: TfrxMasterData;
  15. begin
  16.  
  17. MasterData := frxNominaCR.FindObject('MasterData1') as TfrxMasterData;
  18. MasterData.OnBeforePrint := MasterDataBeforePrint(Sender);
  19.  
  20. end;

y me salta lo siguiente:

 

[dcc32 Error] ModuloReportes.pas(133): E2010 Incompatible types: 'string' and 'procedure, untyped pointer or untyped parameter'

 

 

La verdad que no le he encontrado la falla..


  • 0

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 15 noviembre 2017 - 01:31

Lo que intento hacer es como la imagen a continuación:

Archivos adjuntos


  • 0




IP.Board spam blocked by CleanTalk.