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.
58 lines
1.5 KiB
58 lines
1.5 KiB
unit urelHistorico;
|
|
|
|
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;
|
|
|
|
type
|
|
TrelHistorico = class(TForm)
|
|
relHistorico: TRLReport;
|
|
dtsRelatorio: TDataSource;
|
|
zroqryHistorico: TZReadOnlyQuery;
|
|
zroqryHistoricoID_DEVEDOR: TIntegerField;
|
|
zroqryHistoricoID_COBRADOR: TIntegerField;
|
|
zroqryHistoricoID_PROVIDENCIA: TIntegerField;
|
|
zroqryHistoricoDT_CONTATO: TDateTimeField;
|
|
zroqryHistoricoCD_PROTOCOLO: TWideStringField;
|
|
zroqryHistoricoTL_MEMO: TWideMemoField;
|
|
zroqryHistoricoTX_COBRADOR: TStringField;
|
|
zroqryHistoricoTX_PROVIDENCIA: TStringField;
|
|
frbnd_header: TRLBand;
|
|
frlbl_titulorel: TRLLabel;
|
|
frlbl_nome: TRLDBText;
|
|
frlbl_referente: TRLLabel;
|
|
frlbl_documento: TRLDBText;
|
|
RLBand1: TRLBand;
|
|
frdblbl_datacontato: TRLDBText;
|
|
frdblbl_quemfez: TRLDBText;
|
|
frdblbl_providencia: TRLDBText;
|
|
frdbmem_hist: TRLDBMemo;
|
|
frlbl_hist: TRLLabel;
|
|
RLBand2: TRLBand;
|
|
RLSystemInfo2: TRLSystemInfo;
|
|
RLSystemInfo1: TRLSystemInfo;
|
|
frlbl_usuario: TRLLabel;
|
|
frdblbl_usuario: TRLDBText;
|
|
dtsUser: TDataSource;
|
|
RLSystemInfo3: TRLSystemInfo;
|
|
RLSystemInfo4: TRLSystemInfo;
|
|
frlbl_de: TRLLabel;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
relHistorico: TrelHistorico;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses udtmSystem;
|
|
|
|
end.
|