{
===============================================================================
  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: 11-08-2002
  Versión actual: 1.0.1
  Fecha versión actual: 22-03-2003
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    22-03-2003    Se han puesto componentes con calendario.
===============================================================================
}

unit FinalizarObra;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RdxFrame, RdxDBFrame, RdxBotones, ExtCtrls, RdxPaneles, RdxBarras, RdxCheckBox,
  StdCtrls, RdxCampos, RdxTitulos, Configuracion, dxCntner, dxEditor,
  dxExEdtr, dxEdLib, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, cxCalendar;

type
  TfrFinalizarObra = class(TRdxFrame)
    brOperacion: TRdxBarraInferior;
    bGuardar: TRdxBoton;
    bCancelar: TRdxBoton;
    Panel: TRdxPanel;
    eInformacion: TLabel;
    eFechaCierre: TLabel;
    FechaCierre: TcxDateEdit;
    procedure bGuardarClick(Sender: TObject);
    procedure bCancelarClick(Sender: TObject);
  public
    CodigoObra : Integer;
    constructor Create (AOwner : TComponent); override;
  end;

var
  frFinalizarObra: TfrFinalizarObra;

implementation

{$R *.DFM}

uses
  BaseDatos, TablaArticulosAlmacen, Tipos, RdxEmpresaActiva;

{ TfrFinalizarObra }

procedure TfrFinalizarObra.bGuardarClick(Sender: TObject);
begin
  if dmTablaArticulosAlmacen.FinalizarObra(EmpresaActiva.Codigo, CodigoObra, FechaCierre.Text) then
    dmBaseDatos.Commit
  else
    dmBaseDatos.Rollback;

  CloseFrame;
end;

procedure TfrFinalizarObra.bCancelarClick(Sender: TObject);
begin
  CloseFrame;
end;

constructor TfrFinalizarObra.Create(AOwner: TComponent);
begin
  inherited;
  FechaCierre.Date := Date;
end;

end.