unit uViewConfiguracionDocArmario;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewConfiguracionBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxMemo,
  cxRichEdit, uViewBase, JvExControls, JvGradientHeaderPanel, StdCtrls, ExtCtrls,
  cxGraphics, DB, uDAInterfaces, uDADataTable, cxMaskEdit, cxDropDownEdit,
  cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uBizFormasPago;

type
  TfrViewConfiguracionDocArmario = class(TfrViewConfiguracionBase)
    eCondiciones: TcxRichEdit;
    ePlazosEntrega: TMemo;
    eObservaciones: TMemo;
    Label2: TLabel;
    Label4: TLabel;
    bFormasPago: TButton;
    cbFormaPago: TcxLookupComboBox;
    Label5: TLabel;
    dsFormaPago: TDADataSource;
  protected
    FFormasPago : IBizFormaPago;
    FFormasPagoController : IFormasPagoController;

  public
    class function GetViewClass : TClass; override;
    class function DarEtiqueta : String; override;
    procedure CargarValores; override;
    procedure GuardarValores; override;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  frViewConfiguracionDocArmario: TfrViewConfiguracionDocArmario;

implementation
{$R *.dfm}
{ TfrViewConfiguracionDocARMARIO }

uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;

procedure TfrViewConfiguracionDocArmario.CargarValores;
begin
  inherited;
  FFormasPago := FFormasPagoController.BuscarTodos;
  dsFormaPago.DataTable := FFormasPago.DataTable;
  dsFormaPago.DataTable.Active := True;
  cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_ARMARIO);

  ePlazosEntrega.Lines.Clear;
  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_ARMARIO);
  eObservaciones.Lines.Clear;
  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_ARMARIO);
  eCondiciones.Lines.Clear;
  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_ARMARIO);
end;

constructor TfrViewConfiguracionDocArmario.Create(AOwner: TComponent);
begin
  inherited;
  FFormasPagoController := TFormasPagoController.Create;
end;

class function TfrViewConfiguracionDocArmario.DarEtiqueta: String;
begin
  Result := 'Documentos armario';
end;

destructor TfrViewConfiguracionDocArmario.Destroy;
begin
  FFormasPago := Nil;
  FFormasPagoController := NIL;
  inherited;
end;

class function TfrViewConfiguracionDocArmario.GetViewClass: TClass;
begin
  Result := TfrViewConfiguracionDocARMARIO;
end;

procedure TfrViewConfiguracionDocArmario.GuardarValores;
begin
  inherited;
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_ARMARIO, cbFormaPago.EditValue);
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_ARMARIO, ePlazosEntrega.Text);
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_ARMARIO, eObservaciones.Text);
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_ARMARIO, eCondiciones.Text);
end;


end.