You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
137 lines
3.6 KiB
137 lines
3.6 KiB
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.
|