FactuGES/Frames/RdxFrameContratos.pas

{
===============================================================================
  Copyright (<EFBFBD>) 2003. Rodax Software.
===============================================================================
  Los contenidos de este fichero son propiedad de Rodax Software titular del
  copyright. Este fichero s<EFBFBD>lo podr<EFBFBD> ser copiado, distribuido y utilizado,
  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
  acuerdo con los t<EFBFBD>rminos y condiciones establecidas en el acuerdo/contrato
  bajo el que se suministra.
  -----------------------------------------------------------------------------
  Web:  www.rodax-software.com
===============================================================================
  Fecha primera versi<EFBFBD>n: 02-12-2002
  Versi<EFBFBD>n actual: 1.0.1
  Fecha versi<EFBFBD>n actual: 28-05-2004
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    28/05/2004    Se han adaptado los frames para que se autoconfiguren
===============================================================================
}

unit RdxFrameContratos;

{$I ..\COMPILE.INC}

interface

uses
  Windows, Classes,
  RdxFrame, RdxDBFrame, IBCustomDataSet, DB, Entidades;

type
  TRdxFrameContratos = class(TRdxDBFrame)
  private
    FTablaContratos : TIBDataSet;
    FTablaDetallesContratos : TIBDataSet;
    FTablaPropiedadesContratos : TIBDataSet;
    FTablaInstaladoresContratos : TIBDataSet;
  protected
    FCodigoContrato : Variant;
    procedure SetTablaContratos (Value : TIBDataSet);
    procedure SetTablaDetallesContratos (Value : TIBDataSet);
    procedure SetTablaPropiedadesContratos (Value : TIBDataSet);
    procedure SetTablaInstaladoresContratos (Value : TIBDataSet);
    procedure SetCodigoContrato (Value : Variant); virtual;
    procedure SetContenido (NuevoFrame : TRdxFrame); override;

    function TratarCambios : integer; override;
    procedure BuscarContrato; virtual; abstract;
    procedure CambiarModo(ModoAnterior, Modo : TRdxModo); override;
    function CambiarEntidad(EntidadAnterior, Entidad : TRdxEntidad): Boolean; override;
  public
    property TablaContratos: TIBDataSet read FTablaContratos write SetTablaContratos;
    property TablaDetallesContratos: TIBDataSet read FTablaDetallesContratos write SetTablaDetallesContratos;
    property TablaPropiedadesContratos: TIBDataSet read FTablaPropiedadesContratos write SetTablaPropiedadesContratos;
    property TablaInstaladoresContratos: TIBDataSet read FTablaInstaladoresContratos write SetTablaInstaladoresContratos;
    property CodigoContrato : Variant read FCodigoContrato write SetCodigoContrato;
    
    constructor Create (AOwner : TComponent); override;
  published
    property BaseDatos;
    property Transaccion;
  end;

implementation

{$R *.DFM}

uses
  Mensajes, StrFunc, Literales, Configuracion
  {$IFDEF RDX_D6}, Variants{$ENDIF};

{ TRdxFrameContratos }

constructor TRdxFrameContratos.Create (AOwner : TComponent);
begin
  inherited Create(AOwner);
  FCodigoContrato := NULL;
  FTablaContratos := NIL;
  FTablaDetallesContratos := NIL;
  FTablaPropiedadesContratos := NIL;
  FTablaInstaladoresContratos := NIL;
end;

function TRdxFrameContratos.TratarCambios : integer;
begin
  if (TablaContratos.State in dsEditModes) or
     ((TablaDetallesContratos <> NIL) and (TablaDetallesContratos.State in dsEditModes)) or
     ((TablaPropiedadesContratos <> NIL) and (TablaPropiedadesContratos.State in dsEditModes)) or
     ((TablaInstaladoresContratos <> NIL) and (TablaInstaladoresContratos.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 TRdxFrameContratos.SetCodigoContrato(Value: Variant);
begin
  if not EsCadenaVacia (Value) then
    FCodigoContrato := Value;
  BuscarContrato;
end;

procedure TRdxFrameContratos.SetContenido(NuevoFrame: TRdxFrame);
begin
  if (FContenido <> NIL) then
    if (Contenido.Name = NuevoFrame.ClassName) then
    begin
      NuevoFrame.Free;
      exit;
    end;
  inherited;
  if (TablaContratos <> NIL) then
  begin
    FCodigoContrato := TablaContratos.FieldByName('CODIGO').Value;
    if Contenido is TRdxFrameContratos then
      (Contenido as TRdxFrameContratos).CodigoContrato := FCodigoContrato;
  end;
end;

procedure TRdxFrameContratos.CambiarModo(ModoAnterior, Modo : TRdxModo);
begin
  inherited;
  if (FModo in [Normal, Seleccionar]) then
  begin
    TablaContratos.Close;
    TablaContratos.Open;
  end
  else begin
    { Si est<EFBFBD>bamos en el modo A<EFBFBD>adir y pasamos a cualquier otro modo SIEMPRE
      es necesario buscar el codigo de Contrato que tiene el frame
      en CodigoContrato (al activar el modo A<EFBFBD>adir NO se pisa este valor con
      el c<EFBFBD>digo de Contrato nuevo) }
    if (not TablaContratos.Active) or (ModoAnterior = Anadir) then
      BuscarContrato;
  end;
end;

procedure TRdxFrameContratos.SetTablaContratos(Value: TIBDataSet);
begin
  if (FTablaContratos <> Value) then
    FTablaContratos := Value;
end;

procedure TRdxFrameContratos.SetTablaDetallesContratos(Value: TIBDataSet);
begin
  if (FTablaDetallesContratos <> Value) then
    FTablaDetallesContratos := Value;
end;

procedure TRdxFrameContratos.SetTablaPropiedadesContratos(
  Value: TIBDataSet);
begin
  if (FTablaPropiedadesContratos <> Value) then
    FTablaPropiedadesContratos := Value;
end;

procedure TRdxFrameContratos.SetTablaInstaladoresContratos(
  Value: TIBDataSet);
begin
  if (FTablaInstaladoresContratos <> Value) then
    FTablaInstaladoresContratos := Value;
end;

function TRdxFrameContratos.CambiarEntidad(EntidadAnterior,
  Entidad: TRdxEntidad): Boolean;
begin
  inherited CambiarEntidad(EntidadAnterior, Entidad);
  ConfigurarFrame(Self, Self.Entidad);
end;

end.