david
ab4c274533
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES/trunk@4 3f40d355-893c-4141-8e64-b1d9be72e7e7
132 lines
3.9 KiB
ObjectPascal
132 lines
3.9 KiB
ObjectPascal
{
|
|
===============================================================================
|
|
Copyright (©) 2001. Rodax Software.
|
|
===============================================================================
|
|
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
|
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
|
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
|
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
|
bajo el que se suministra.
|
|
-----------------------------------------------------------------------------
|
|
Web: www.rodax-software.com
|
|
===============================================================================
|
|
Fecha primera versión: 24-06-2003
|
|
Versión actual: 1.0.1
|
|
Fecha versión actual: 28-05-2004
|
|
===============================================================================
|
|
Modificaciones:
|
|
|
|
Fecha Comentarios
|
|
---------------------------------------------------------------------------
|
|
28/05/2004 Se han adaptado los frames para que se autoconfiguren
|
|
===============================================================================
|
|
}
|
|
|
|
unit RdxFrameInformeTrimestral;
|
|
|
|
{$I ..\COMPILE.INC}
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Classes,
|
|
RdxFrame, RdxDBFrame, IBCustomDataSet, DB, Entidades;
|
|
|
|
type
|
|
TRdxFrameInformeTrimestral = class(TRdxDBFrame)
|
|
private
|
|
FTablaTrimestres : TIBDataSet;
|
|
FTablaFacturas : TIBDataSet;
|
|
protected
|
|
FListaFacturas : TStringList;
|
|
procedure SetTablaTrimestres (Value : TIBDataSet);
|
|
procedure SetTablaFacturas (Value : TIBDataSet);
|
|
|
|
function TratarCambios : integer; override;
|
|
procedure ActivarModoConsultar; override;
|
|
function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
|
|
public
|
|
property TablaTrimestres: TIBDataSet read FTablaTrimestres write SetTablaTrimestres;
|
|
property TablaFacturas: TIBDataSet read FTablaFacturas write SetTablaFacturas;
|
|
constructor Create (AOwner : TComponent); override;
|
|
destructor Destroy; override;
|
|
published
|
|
property BaseDatos;
|
|
property Transaccion;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
StrFunc, Mensajes, Literales, Configuracion
|
|
{$IFDEF RDX_D6}, Variants{$ENDIF};
|
|
|
|
|
|
{ TRdxFrameInformeTrimestral }
|
|
|
|
constructor TRdxFrameInformeTrimestral.Create(AOwner: TComponent);
|
|
begin
|
|
inherited Create(AOwner);
|
|
FListaFacturas := TStringList.Create;
|
|
|
|
FTablaTrimestres := NIL;
|
|
FTablaFacturas := NIL;
|
|
end;
|
|
|
|
function TRdxFrameInformeTrimestral.TratarCambios : integer;
|
|
begin
|
|
if (TablaFacturas.State in dsEditModes) then
|
|
begin
|
|
case VerMensajePregunta(msgGuardarCambios) of
|
|
IDCANCEL : Result := IDCANCEL;
|
|
IDYES : begin
|
|
if (RealizarOperacion)
|
|
then Result := IDOK
|
|
else Result := IDCANCEL;
|
|
end;
|
|
IDNO : begin
|
|
if (DescartarOperacion)
|
|
then Result := IDOK
|
|
else Result := IDCANCEL;
|
|
end;
|
|
end
|
|
end
|
|
else Result := IDOK;
|
|
end;
|
|
|
|
procedure TRdxFrameInformeTrimestral.SetTablaFacturas(Value: TIBDataSet);
|
|
begin
|
|
if (FTablaFacturas <> Value) then
|
|
FTablaFacturas := Value;
|
|
end;
|
|
|
|
destructor TRdxFrameInformeTrimestral.Destroy;
|
|
begin
|
|
FListaFacturas.Free;
|
|
FListaFacturas := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TRdxFrameInformeTrimestral.SetTablaTrimestres(Value: TIBDataSet);
|
|
begin
|
|
if (FTablaTrimestres <> Value) then
|
|
FTablaTrimestres := Value;
|
|
end;
|
|
|
|
procedure TRdxFrameInformeTrimestral.ActivarModoConsultar;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TRdxFrameInformeTrimestral.CambiarEntidad(EntidadAnterior,
|
|
Entidad: TRdxEntidad): Boolean;
|
|
begin
|
|
inherited CambiarEntidad(EntidadAnterior, Entidad);
|
|
ConfigurarFrame(Self, Self.Entidad);
|
|
end;
|
|
|
|
end.
|