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.
159 lines
4.3 KiB
159 lines
4.3 KiB
unit urelTeste;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
|
System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RLReport, Data.DB, ZAbstractRODataset,
|
|
ZDataset, Vcl.ComCtrls, RLFilters, RLPDFFilter;
|
|
|
|
type
|
|
TrelTeste = class(TForm)
|
|
dtsCaixa: TDataSource;
|
|
dtsDevedor: TDataSource;
|
|
dtsReport: TDataSource;
|
|
dtsTitulos: TDataSource;
|
|
fr_filterpdf: TRLPDFFilter;
|
|
frRecibo: TRLReport;
|
|
frb_detail: TRLBand;
|
|
frb_footer: TRLBand;
|
|
frb_headertop: TRLBand;
|
|
frpnl_logoL: TRLPanel;
|
|
frdbimg_logoR: TRLDBImage;
|
|
frb_headerbot: TRLBand;
|
|
frpnl_headers: TRLPanel;
|
|
frlbl_vencimentoL: TRLLabel;
|
|
frlbl_principal: TRLLabel;
|
|
frlbl_encargos: TRLLabel;
|
|
frlbl_descontos: TRLLabel;
|
|
frlbl_total: TRLLabel;
|
|
frlbl_juros: TRLLabel;
|
|
frlbl_multa: TRLLabel;
|
|
frlbl_extras: TRLLabel;
|
|
frlbl_nometitL: TRLLabel;
|
|
frpnl_headerbotR: TRLPanel;
|
|
RLPanel3: TRLPanel;
|
|
RLDBText3: TRLDBText;
|
|
RLLabel1: TRLLabel;
|
|
RLPanel4: TRLPanel;
|
|
frdblbl_cpfR: TRLDBText;
|
|
RLDBText6: TRLDBText;
|
|
RLPanel: TRLPanel;
|
|
frlbl_empresatitR: TRLLabel;
|
|
frlbl_valortotR: TRLLabel;
|
|
frlbl_vlextensoR: TRLLabel;
|
|
frlbl_dtpagR: TRLLabel;
|
|
frpnl_headerbotL: TRLPanel;
|
|
RLPanel5: TRLPanel;
|
|
RLDBText7: TRLDBText;
|
|
RLLabel7: TRLLabel;
|
|
RLPanel6: TRLPanel;
|
|
frdblbl_cpfL: TRLDBText;
|
|
RLDBText9: TRLDBText;
|
|
RLPanel7: TRLPanel;
|
|
frlbl_empresatitL: TRLLabel;
|
|
frlbl_valortotL: TRLLabel;
|
|
frlbl_vlextensoL: TRLLabel;
|
|
frlbl_dtpagL: TRLLabel;
|
|
frpnl_headertopR: TRLPanel;
|
|
frpnl_headertopL: TRLPanel;
|
|
frpnl_logoR: TRLPanel;
|
|
frdbimg_logoL: TRLDBImage;
|
|
RLPanel1: TRLPanel;
|
|
frlbl_vencimentoR: TRLLabel;
|
|
RLLabel15: TRLLabel;
|
|
RLLabel16: TRLLabel;
|
|
RLLabel17: TRLLabel;
|
|
RLLabel18: TRLLabel;
|
|
RLLabel19: TRLLabel;
|
|
RLLabel20: TRLLabel;
|
|
RLLabel22: TRLLabel;
|
|
frlbl_nometitR: TRLLabel;
|
|
frpnl_footerR: TRLPanel;
|
|
frpnl_organizasumR: TRLPanel;
|
|
frdbresult_extrasR: TRLDBResult;
|
|
frdbresult_descontosR: TRLDBResult;
|
|
frdbresult_encargosR: TRLDBResult;
|
|
frdbresult_jurosR: TRLDBResult;
|
|
frdbresult_multaR: TRLDBResult;
|
|
frdbresult_principalR: TRLDBResult;
|
|
frdbresult_totalR: TRLDBResult;
|
|
frlbl_formarecebimentoR: TRLLabel;
|
|
frpnl_chequeR: TRLPanel;
|
|
frlbl_nrchequeR: TRLLabel;
|
|
frlbl_bancoR: TRLLabel;
|
|
frlbl_pracaR: TRLLabel;
|
|
frlbl_obschequeR: TRLLabel;
|
|
fr_membobsR: TRLMemo;
|
|
frlbl_empresaR: TRLLabel;
|
|
frlbl_usuarioR: TRLLabel;
|
|
frdblbl_usuarioR: TRLDBText;
|
|
fr_dateR: TRLSystemInfo;
|
|
fr_timeR: TRLSystemInfo;
|
|
frpnl_footerL: TRLPanel;
|
|
frpnl_organizasumL: TRLPanel;
|
|
frdbresult_extrasL: TRLDBResult;
|
|
frdbresult_descontosL: TRLDBResult;
|
|
frdbresult_encargosL: TRLDBResult;
|
|
frdbresult_jurosL: TRLDBResult;
|
|
frdbresult_multaL: TRLDBResult;
|
|
frdbresult_principalL: TRLDBResult;
|
|
frdbresult_totalL: TRLDBResult;
|
|
frlbl_formarecebimentoL: TRLLabel;
|
|
frpnl_chequeL: TRLPanel;
|
|
frlbl_nrchequeL: TRLLabel;
|
|
frlbl_bancoL: TRLLabel;
|
|
frlbl_pracaL: TRLLabel;
|
|
frlbl_obschequeL: TRLLabel;
|
|
fr_membobsL: TRLMemo;
|
|
frlbl_empresaL: TRLLabel;
|
|
frlbl_usuarioL: TRLLabel;
|
|
frdblbl_usuarioL: TRLDBText;
|
|
fr_dateL: TRLSystemInfo;
|
|
fr_timeL: TRLSystemInfo;
|
|
frpnl_detailR: TRLPanel;
|
|
frpnl_detailL: TRLPanel;
|
|
frdblbl_descontosL: TRLDBText;
|
|
frdblbl_encargosL: TRLDBText;
|
|
frdblbl_jurosL: TRLDBText;
|
|
frdblbl_multaL: TRLDBText;
|
|
frdblbl_principalL: TRLDBText;
|
|
frdblbl_totalL: TRLDBText;
|
|
frdblbl_vencimentoL: TRLDBText;
|
|
frdblbl_nometitL: TRLDBText;
|
|
frdblbl_extraL: TRLDBText;
|
|
frdblbl_encargosR: TRLDBText;
|
|
frdblbl_jurosR: TRLDBText;
|
|
frdblbl_multaR: TRLDBText;
|
|
frdblbl_principalR: TRLDBText;
|
|
frdblbl_totalR: TRLDBText;
|
|
frdblbl_vencimentoR: TRLDBText;
|
|
frdblbl_nometitR: TRLDBText;
|
|
frdblbl_extraR: TRLDBText;
|
|
frdblbl_descontosR: TRLDBText;
|
|
RLPanel2: TRLPanel;
|
|
RLPanel8: TRLPanel;
|
|
frlbl_headertopL: TRLMemo;
|
|
frlbl_headerbotL: TRLMemo;
|
|
RLPanel9: TRLPanel;
|
|
frlbl_headertopR: TRLMemo;
|
|
RLPanel10: TRLPanel;
|
|
frlbl_headerbotR: TRLMemo;
|
|
private
|
|
old_recno, new_recno: Integer;
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
relTeste: TrelTeste;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses udtmSystem;
|
|
|
|
end.
|