programa_cobranca/urelDados.pas

unit urelDados;

interface

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

type
  TrelDados = class(TForm)
    RLReport1: TRLReport;
    frfilterpdf: TRLPDFFilter;
    dtsRel: TDataSource;
    frbnd_header: TRLBand;
    frpnl_logo: TRLPanel;
    frdbimg_logo: TRLDBImage;
    frlbl_titulorel: TRLLabel;
    frbnd_dados: TRLBand;
    RLDBText1: TRLDBText;
    RLDBText2: TRLDBText;
    RLDBText3: TRLDBText;
    RLGroup1: TRLGroup;
    RLBand1: TRLBand;
    RLDBText4: TRLDBText;
    zROqry: TZReadOnlyQuery;
    RLDBText5: TRLDBText;
    RLDBText6: TRLDBText;
    dtsEmpresa: TDataSource;
    RLDBText11: TRLDBText;
    frbnd_footerrel: TRLBand;
    RLSystemInfo2: TRLSystemInfo;
    RLSystemInfo1: TRLSystemInfo;
    frdblbl_usuario: TRLDBText;
    frlbl_usuario: TRLLabel;
    zROqryID_TITULO: TIntegerField;
    zROqryID_DEVEDOR: TIntegerField;
    zROqryID_EMPRESA: TIntegerField;
    zROqryTX_PRODUTO: TWideStringField;
    zROqryVL_TITULO: TFloatField;
    zROqryDT_ENTRADA: TDateTimeField;
    zROqryDT_VENCIMENTO: TDateTimeField;
    zROqryTP_SITUACAO: TWideStringField;
    zROqryCD_DEVEDOR: TWideStringField;
    zROqryTP_CHEQUE: TWideStringField;
    zROqryID_BANCO: TIntegerField;
    zROqryTX_NRCHEQUE: TWideStringField;
    zROqryTP_MOTIVO: TWideStringField;
    zROqryVL_DESPESA: TFloatField;
    zROqryTP_DESPESA: TWideStringField;
    zROqryVL_MULTA: TFloatField;
    zROqryVL_JUROS: TFloatField;
    zROqryVL_ENCARGOS: TFloatField;
    zROqryVL_CORRIGIDO: TFloatField;
    zROqryDT_PAGAMENTO: TDateTimeField;
    zROqryTX_OBS: TWideMemoField;
    zROqryID_ULTIMO_USUARIO: TIntegerField;
    zROqryDT_HORA_ULTIMA_ATT: TDateTimeField;
    RLLabel1: TRLLabel;
    procedure zROqryCalcFields(DataSet: TDataSet);
    procedure RLBand2BeforePrint(Sender: TObject; var PrintIt: Boolean);
    procedure RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean);
    procedure RLDBText8BeforePrint(Sender: TObject; var Text: string;
      var PrintIt: Boolean);
    procedure RLDBText9BeforePrint(Sender: TObject; var Text: string;
      var PrintIt: Boolean);
    procedure RLDBText10BeforePrint(Sender: TObject; var Text: string;
      var PrintIt: Boolean);
    procedure RLLabel1BeforePrint(Sender: TObject; var AText: string; var PrintIt: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  relDados: TrelDados;

implementation

{$R *.dfm}

uses udtmSystem, ufrmAtendimento;

procedure TrelDados.RLBand2BeforePrint(Sender: TObject; var PrintIt: Boolean);
begin
//  if zROqryVL_DESPESA_1.AsString = '' then
//  begin
//    PrintIt := false;
//  end
//  else
//  begin
//    PrintIt := true;
//  end;
end;

procedure TrelDados.RLDBText10BeforePrint(Sender: TObject; var Text: string;
  var PrintIt: Boolean);
begin
//  if zROqryVL_DESPESA_1.AsString = '' then
//  begin
//    PrintIt := false;
//  end
//  else
//  begin
//    PrintIt := true;
//  end;
end;

procedure TrelDados.RLDBText8BeforePrint(Sender: TObject; var Text: string;
  var PrintIt: Boolean);
begin
//  if zROqryVL_DESPESA_1.AsString = '' then
//  begin
//    PrintIt := false;
//  end
//  else
//  begin
//    PrintIt := true;
//  end;
end;

procedure TrelDados.RLDBText9BeforePrint(Sender: TObject; var Text: string;
  var PrintIt: Boolean);
begin
//  if zROqryVL_DESPESA_1.AsString = '' then
//  begin
//    PrintIt := false;
//  end
//  else
//  begin
//    PrintIt := true;
//  end;
end;

procedure TrelDados.RLLabel1BeforePrint(Sender: TObject; var AText: string; var PrintIt: Boolean);
begin
  case AnsiIndexStr(zROqryTP_SITUACAO.AsString, ['A', 'AC', 'AB', 'AJ', 'B', 'QC', 'QB']) of
  0 : AText := 'Aberto';
  1 : AText := 'Acordo na Cobradora';
  2 : AText := 'Acordo no Credor';
  3 : AText := 'Devolvido ao Lojista';
  4 : AText := 'Baixa manual';
  5 : AText := 'Quitado na Cobradora';
  6 : AText := 'Quitado no Credor';
end;
end;

procedure TrelDados.RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean);
begin
  if not dtsEmpresa.DataSet.Active then
  begin
    dtsEmpresa.DataSet.Open;
  end;
  if frdbimg_logo.Picture.Height > frdbimg_logo.Picture.Width then
  begin
    frdbimg_logo.Height := 170;
    frdbimg_logo.Width := 133;
  end;
  if frdbimg_logo.Picture.Height < frdbimg_logo.Picture.Width then
  begin
    frdbimg_logo.Height := 133;
    frdbimg_logo.Width := 170;
  end;
  if frdbimg_logo.Picture.Height = frdbimg_logo.Picture.Width then
  begin
    frdbimg_logo.Height := 133;
    frdbimg_logo.Width := 133;
  end;
  dtmSystem.tblUsuarios.Locate('ID_USUARIO', dtmSystem.id_usuario, []);
end;

procedure TrelDados.zROqryCalcFields(DataSet: TDataSet);
begin
  frmAtendimento.queryListaTitulos.Locate('ID_TITULO',
    zROqryID_TITULO.AsInteger, []);
  zROqryVL_CORRIGIDO.AsCurrency := frmAtendimento.queryListaTitulosVL_CORRIGIDO.
    AsCurrency;
end;

end.