AlonsoYSal_FactuGES/Modulos/Presupuestos/Cliente/uViewSituacionPresupuesto.pas

unit uViewSituacionPresupuesto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, cxGraphics, DB, uDADataTable, cxDropDownEdit,
  cxCalendar, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, ExtCtrls, StdCtrls, ImgList, PngImageList, cxImageComboBox;

type
  TfrViewSituacionPresupuesto = class(TfrViewBase)
    Bevel2: TBevel;
    cbiSituacion: TcxDBImageComboBox;
    DADataSource: TDADataSource;
    edtFechaDecision: TcxDBDateEdit;
    ImageList: TPngImageList;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure cbiSituacionPropertiesCloseUp(Sender: TObject);
    procedure cbiSituacionPropertiesEditValueChanged(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;
  

implementation

uses
  uBizPresupuestosCliente, cxDateUtils;

{$R *.dfm}

{ TfrViewSituacionPresupuesto }

{
************************* TfrViewSituacionPresupuesto **************************
}
constructor TfrViewSituacionPresupuesto.Create(AOwner: TComponent);
begin
  inherited;
  with cbiSituacion.Properties.Items do
  begin
    Clear;
    with Add do
    begin
      Description := SITUACION_PENDIENTE;
      ImageIndex := -1;
      Value := SITUACION_PENDIENTE;
    end;
    with Add do
    begin
      Description := SITUACION_ACEPTADO;
      ImageIndex := 0;
      Value := SITUACION_ACEPTADO;
    end;
    with Add do
    begin
      Description := SITUACION_RECHAZADO;
      ImageIndex := 1;
      Value := SITUACION_RECHAZADO;
    end;
  end;
end;

procedure TfrViewSituacionPresupuesto.cbiSituacionPropertiesCloseUp(
  Sender: TObject);
begin
{  if Assigned(edtFechaDecision.DataBinding.Field) then
  begin
    if (cbiSituacion.ItemIndex > 0) then
    begin
      edtFechaDecision.Enabled := True;
      if VarIsNull(edtFechaDecision.EditValue) then
      begin
        DADataSource.DataTable.Edit;
        edtFechaDecision.DataBinding.Field.Value := Date;
      end;
    end
    else begin
      DADataSource.DataTable.Edit;
      edtFechaDecision.DataBinding.Field.Value := Null;
      edtFechaDecision.Enabled := False;
    end
  end;}
end;

procedure TfrViewSituacionPresupuesto.cbiSituacionPropertiesEditValueChanged(
  Sender: TObject);
begin
  inherited;
  edtFechaDecision.Enabled := (cbiSituacion.ItemIndex > 0);
end;

end.