unit urelFichaDivida;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset,
  RLFilters, RLPDFFilter, RLReport;

type
  TrelFichaDivida = class(TForm)
    RLReport1: TRLReport;
    frbnd_header: TRLBand;
    frpnl_logo: TRLPanel;
    frdbimg_logo: TRLDBImage;
    frlbl_titulorel: TRLLabel;
    RLDBText11: TRLDBText;
    frbnd_dados: TRLBand;
    RLDBText1: TRLDBText;
    RLDBText2: TRLDBText;
    RLDBText3: TRLDBText;
    RLGroup1: TRLGroup;
    RLBand1: TRLBand;
    frdblbl_produto: TRLDBText;
    frdblbl_vltitulo: TRLDBText;
    frdblbl_dtvenc: TRLDBText;
    frbnd_footerrel: TRLBand;
    RLSystemInfo2: TRLSystemInfo;
    RLSystemInfo1: TRLSystemInfo;
    frdblbl_usuario: TRLDBText;
    frlbl_usuario: TRLLabel;
    dtsEmpresa: TDataSource;
    dtsRel: TDataSource;
    frfilterpdf: TRLPDFFilter;
    RLBand2: TRLBand;
    RLLabel1: TRLLabel;
    RLLabel2: TRLLabel;
    RLLabel3: TRLLabel;
    frdblbl_vlmulta: TRLDBText;
    frdblbl_vljuros: TRLDBText;
    frdblbl_vlenc: TRLDBText;
    frdblbl_vlcor: TRLDBText;
    RLLabel4: TRLLabel;
    RLLabel5: TRLLabel;
    Encargos: TRLLabel;
    RLLabel6: TRLLabel;
    RLLabel7: TRLLabel;
    RLBand3: TRLBand;
    sumtitulo: TRLDBResult;
    summulta: TRLDBResult;
    sumjuros: TRLDBResult;
    sumencargos: TRLDBResult;
    sumcorrigido: TRLDBResult;
    dtsUser: TDataSource;
    RLBand4: TRLBand;
    RLLabel8: TRLLabel;
    frlbl_entrada: TRLLabel;
    RLLabel9: TRLLabel;
    RLBand5: TRLBand;
    frlbl_descind: TRLLabel;
    frlbl_tipodesc: TRLLabel;
    frlbl_descprin: TRLLabel;
    frlbl_descmulta: TRLLabel;
    frlbl_descjuros: TRLLabel;
    frlbl_desccorrigido: TRLLabel;
    frlbl_tel: TRLLabel;
    procedure RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    form: string;
    lbl_parcelas: array of TRLLabel;
    { Public declarations }
  end;

var
  relFichaDivida: TrelFichaDivida;

implementation

{$R *.dfm}

uses ufrmAtendimento, ucadDevedores, ufrmEfetuarCobranca, udtmSystem;

procedure TrelFichaDivida.FormCreate(Sender: TObject);
begin
  with dtmSystem do
  begin
    if not tblEmpresa.Active then
    begin
      tblEmpresa.Open;
    end;
    if not tblEmpresa.IsEmpty then
    begin
      frlbl_tel.Caption := 'Tel. Contato: ' + tblEmpresaTX_TELEFONE.AsString;
    end;
  end;
end;

procedure TrelFichaDivida.RLReport1BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
begin
  if form = 'devedor' then
  begin
    dtsRel.DataSet := cadDevedores.queryListaTitulos;
  end;
  if form = 'atendimento' then
  begin
    dtsRel.DataSet := frmAtendimento.queryListaTitulos;
  end;
  if form = 'cobranca' then
  begin
    dtsRel.DataSet := frmEfetuarCobranca.queryListaTitulos;
  end;
  frdblbl_produto.DataField := 'TX_PRODUTO';
  frdblbl_vltitulo.DataField := 'VL_DESC_PRIN';
  sumtitulo.DataField := 'VL_DESC_PRIN';
  frdblbl_vljuros.DataField := 'VL_DESC_JUROS';
  sumjuros.DataField := 'VL_DESC_JUROS';
  frdblbl_vlmulta.DataField := 'VL_DESC_MULTA';
  summulta.DataField := 'VL_DESC_MULTA';
  frdblbl_vlenc.DataField := 'VL_DESC_IND';
  sumencargos.DataField := 'VL_DESC_IND';
  frdblbl_vlcor.DataField := 'VL_CORRIGIDO';
  sumcorrigido.DataField := 'VL_CORRIGIDO';
  frdblbl_dtvenc.DataField := 'DT_VENCIMENTO';
  if not dtmSystem.tblUsuariosConsulta.Active then
  begin
    dtmSystem.tblUsuariosConsulta.Open;
  end;
  dtmSystem.tblUsuariosConsulta.Locate('ID_USUARIO', dtmSystem.id_usuario, []);

end;

end.