La interface IDocument
Código:
type
IDocument = interface(IInterfaceBase)
['{D48CBFA8-3292-44A2-89DD-BD7BA5823F6C}']
function GetComplemento: String;
function GetDataFinal: TDate;
function GetDataInicial: TDate;
function GetDescricao: String;
function GetSequencialFinal: Integer;
function GetSequencialInicial: Integer;
function getQuantidadeDigitacao: Integer;
procedure SetCod_Caixa(Value: Integer);
procedure SetCod_Documento(Value: Integer);
procedure SetCod_Usuario(Value: Integer);
procedure SetComplemento(const Value: String);
procedure SetDataFinal(Value: TDate);
procedure SetDataInicial(Value: TDate);
procedure SetData_Digitacao(Value: TDate);
procedure SetDescricao(const Value: String);
procedure SetPrevisaoExpurgo(Value: TDate);
procedure SetSequencialFinal(Value: Integer);
procedure SetSequencialInicial(Value: Integer);
procedure SetCodTipoDocumento(Value: Integer);
function GetCodTipoDocumento: Integer;
function GetCodDocumento: Integer;
procedure SetCodDocumento(Value: Integer);
function GetHasAutoComplete: Boolean;
procedure SetHasAutoComplete(Value: Boolean);
function GetCliente: ICliente;
function GetDepartamento: IDepartamento;
function GetLocal: ILocal;
procedure SetCaixa(const Value: ICaixa);
function GetCaixa: ICaixa;
procedure SetAuditoria_Interna(const Value: String);
function GetAnomalias: IListBase;
procedure SetAnomalias(Value: IListBase);
function GetStatus: String;
procedure SetStatus(const Value: String);
function getValorIndices(): IListBase;
function getTipoDocumento: ITipoDocumento;
procedure setTipoDocumento(const value: ITipoDocumento);
procedure SetCod_Status(const Value: Integer);
function GetCod_Status: Integer;
function GetAuditoria_Interna: String;
function GetCod_Caixa: Integer;
function GetCod_Etiqueta: Integer;
function GetCod_Usuario: Integer;
function GetData_Digitacao: TDate;
function GetPrevisaoExpurgo: TDate;
procedure SetCod_Etiqueta(const Value: Integer);
function GetCod_xSolicitante: Integer;
procedure SetCod_xSolicitante(Value: Integer);
property Cliente: ICliente read GetCliente;
property Local: ILocal read GetLocal;
property Departamento: IDepartamento read GetDepartamento;
property TipoDocumento: ITipoDocumento read GetTipoDocumento write SetTipoDocumento;
property Caixa: ICaixa read GetCaixa write SetCaixa;
property Cod_Caixa: Integer read GetCod_Caixa write SetCod_Caixa;
property CodDocumento: Integer read GetCodDocumento write SetCod_Documento;
property Cod_Etiqueta: Integer read GetCod_Etiqueta write SetCod_Etiqueta;
property Cod_Usuario: Integer read GetCod_Usuario write SetCod_Usuario;
property Complemento: String read GetComplemento write SetComplemento;
property DataFinal: TDate read GetDataFinal write SetDataFinal;
property DataInicial: TDate read GetDataInicial write SetDataInicial;
property Data_Digitacao: TDate read GetData_Digitacao write SetData_Digitacao;
property Descricao: String read GetDescricao write SetDescricao;
property PrevisaoExpurgo: TDate read GetPrevisaoExpurgo write
SetPrevisaoExpurgo;
property SequencialFinal: Integer read GetSequencialFinal write
SetSequencialFinal;
property SequencialInicial: Integer read GetSequencialInicial write
SetSequencialInicial;
property CodTipoDocumento: Integer read GetCodTipoDocumento write SetCodTipoDocumento;
property HasAutoComplete: Boolean read GetHasAutoComplete write SetHasAutoComplete;
property Auditoria_Interna: String read GetAuditoria_Interna write SetAuditoria_Interna;
property Anomalias: IListBase read GetAnomalias write SetAnomalias;
property Status: String read GetStatus write SetStatus;
property ValorIndices: IListBase read GetValorIndices;
property Cod_Status: Integer read GetCod_Status write SetCod_Status;
property QuantidadeDigitacao: Integer read GetQuantidadeDigitacao;
property Cod_xSolicitante: Integer read GetCod_xSolicitante write SetCod_xSolicitante;
end;
implementation
end.
La Unit que me lo da el error
Código:
ype
TListValidator = class(TObject)
private
FListValidator: TListPlugins;
FOnAfterValidate: TNotifyValidate;
FOnBeforeValidate: TNotifyValidate;
FOnErrorValidate: TOnErrorValidate;
function GetItems(Index: integer): IValidator;
procedure SetItems(Index: integer; const Value: IValidator);
procedure SetOnBeforeValidate(EventHandle: TNotifyValidate);
procedure SetonAfterValidate(EventHandle: TNotifyValidate);
procedure SetOnErrorValidate(EventHandle: TOnErrorValidate);
public
constructor Create;
destructor Destroy; override;
function Add(Validator: IValidator): Integer;
function Count: Integer;
procedure Delete(Index: integer); overload;
procedure Delete(GUID: string); overload;
procedure Clear;
procedure Validate(Documento: IDocument);
property Items[Index: integer]: IValidator read GetItems write SetItems;
default;
property OnErrorValidate: TOnErrorValidate read FOnErrorValidate write SetOnErrorValidate;
property OnBeforeValidate: TNotifyValidate read FOnBeforeValidate write SetOnBeforeValidate;
property OnAfterValidate: TNotifyValidate read FOnAfterValidate write SetOnAfterValidate;
end;
implementation
uses
SysUtils, Exceptions;
{ TListValidator }
constructor TListValidator.Create;
begin
FListValidator := TListPlugins.Create;
end;
destructor TListValidator.Destroy;
begin
FreeAndNil(FListValidator);
inherited;
end;
function TListValidator.Add(Validator: IValidator): Integer;
begin
Result := FListValidator.Add(Validator);
// Se houverem eventos de validações associados, associa a cada elemento inserido
if Assigned(Self.OnBeforeValidate) then
Validator.OnBeforeValidate := Self.OnBeforeValidate;
if Assigned(Self.OnAfterValidate) then
Validator.OnAfterValidate := Self.OnAfterValidate;
if Assigned(Self.OnErrorValidate) then
Validator.OnErrorValidate := Self.OnErrorValidate;
end;
function TListValidator.Count: Integer;
begin
Result := FListValidator.Count();
end;
procedure TListValidator.Delete(Index: integer);
begin
FListValidator.Delete(Index);
end;
procedure TListValidator.Delete(GUID: string);
begin
FListValidator.Delete(GUID);
end;
function TListValidator.GetItems(Index: integer): IValidator;
begin
Result := IValidator(FListValidator[Index]);
end;
procedure TListValidator.SetItems(Index: integer; const Value: IValidator);
begin
FListValidator[Index] := Value;
end;
procedure TListValidator.Validate(Documento: IDocument);
var
IntNum: integer;
begin
for intNum := 0 to Self.Count - 1 do
begin
try
Self[intNum].Validate(Documento);//Aca estas el error
except
On E:EPluginException do
Raise EPluginException.Create(E.ErrorCode, E.Message);
On E:Exception do
Raise Exception.Create(E.Message);
end; // Try..Except
end; // For
end;
procedure TListValidator.Clear;
begin
FListValidator.Clear;
end;
procedure TListValidator.SetOnAfterValidate(EventHandle: TNotifyValidate);
var
intNum: integer;
begin
FOnAfterValidate := EventHandle;
for intNum := 0 to Self.FListValidator.Count - 1 do
IValidator(Self.FListValidator[intNum]).OnAfterValidate := FOnAfterValidate;
end;
procedure TListValidator.SetOnBeforeValidate(
EventHandle: TNotifyValidate);
var
IntNum: integer;
begin
FOnBeforeValidate := EventHandle;
// Seta o evento de validação para todos os elementos da lista
for intNum := 0 to Self.FListValidator.Count - 1 do
IValidator(Self.FListValidator[intNum]).OnBeforeValidate := EventHandle;
end;
procedure TListValidator.SetOnErrorValidate(EventHandle: TOnErrorValidate);
var
intNum: integer;
begin
FOnErrorValidate := EventHandle;
for intNum := 0 to Self.FListValidator.Count - 1 do
IValidator(Self.FListValidator[intNum]).OnErrorValidate := FOnErrorValidate;
end;
end.