Código Delphi [-]
procedure TrepListadoMensualCuentaNormal.MapearCamposReporte(ADataSet: TDataSet);
begin
  if ADataSet = nil then Exit;

  
  qrepListadoMensualCuentaNormal.DataSet := ADataSet;
  qrb_GrupoCuenta.Master                 := qrepListadoMensualCuentaNormal;
  qrb_GrupoCuenta.Expression             := 'Cuenta'; // Limpio, sin prefijos


  qrdbtxtLibro.DataSet            := ADataSet;
  qrdbtxtLibro.DataField          := 'Libro';

  qrdbtxtVoucher.DataSet          := ADataSet;
  qrdbtxtVoucher.DataField        := 'Voucher';

  qrdbtxtRgt.DataSet              := ADataSet;
  qrdbtxtRgt.DataField            := 'RGT';

  qrdbtxtDocumento.DataSet        := ADataSet;
  qrdbtxtDocumento.DataField      := 'Documento';

  qrdbtxtFechaDoc.DataSet         := ADataSet;
  qrdbtxtFechaDoc.DataField       := 'FechaDocumento';

  qrdbtxtFechaVencimiento.DataSet := ADataSet;
  qrdbtxtFechaVencimiento.DataField := 'FechaVencimiento';

  qrdbtxtRazonSocial.DataSet      := ADataSet;
  qrdbtxtRazonSocial.DataField    := 'RazonSocial';

  qrdbtxtGlosa.DataSet            := ADataSet;
  qrdbtxtGlosa.DataField          := 'glosa';

  qrdbtxtmnd.DataSet              := ADataSet;
  qrdbtxtmnd.DataField            := 'Mnd';

  qrdbtxtCCosto.DataSet           := ADataSet;
  qrdbtxtCCosto.DataField         := 'CCosto';

  // Asignación de importes con limpieza de propiedad previa
  qrdbtxtDEBE.DataSet             := ADataSet;
  qrdbtxtDEBE.DataField           := 'DEBE';
  qrdbtxtDEBE.Mask                := '#,##0.00;-#,##0.00;0.00';

  qrdbtxthaber.DataSet            := ADataSet;
  qrdbtxthaber.DataField          := 'HABER';
  qrdbtxthaber.Mask               := '#,##0.00;-#,##0.00;0.00';


  qrexSumaDebe.Master  := qrepListadoMensualCuentaNormal;
  qrexSumaHaber.Master := qrepListadoMensualCuentaNormal;
  QRExpr6.Master       := qrepListadoMensualCuentaNormal;

  qrexSumaDebe.ResetAfterPrint  := False;
  qrexSumaHaber.ResetAfterPrint := False;
  QRExpr6.ResetAfterPrint       := False;

  qrexSumaDebe.Expression  := 'SUM(DEBE)';
  qrexSumaHaber.Expression := 'SUM(HABER)';
  QRExpr6.Expression       := 'SUM(DEBE) - SUM(HABER)';


  qrexSumaDebe.Mask  := '#,##0.00;-#,##0.00;0.00';
  qrexSumaHaber.Mask := '#,##0.00;-#,##0.00;0.00';
  QRExpr6.Mask       := '#,##0.00;-#,##0.00;0.00';
end;