unit uViewConfiguracionDocCocina;

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
  TfrViewConfiguracionDocCocina = 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
  frViewConfiguracionDocCocina: TfrViewConfiguracionDocCocina;

implementation
{$R *.dfm}
{ TfrViewConfiguracionDocCocina }

uses uFactuGES_App, uConfiguracionController, uPresupuestosClienteController;

procedure TfrViewConfiguracionDocCocina.CargarValores;
begin
  inherited;
  FFormasPago := FFormasPagoController.BuscarTodos;
  dsFormaPago.DataTable := FFormasPago.DataTable;
  dsFormaPago.DataTable.Active := True;
  cbFormaPago.EditValue := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_FORMA_PAGO_COCINA);
  
  ePlazosEntrega.Lines.Clear;
  ePlazosEntrega.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_PLAZOS_ENTREGA_COCINA);
  eObservaciones.Lines.Clear;
  eObservaciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_OBSERVACIONES_COCINA);
  eCondiciones.Lines.Clear;
  eCondiciones.Text := AppFactuGES.Configuracion.GetSettingAsString(teBD,CTE_CONDICIONES_COCINA);
end;

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

class function TfrViewConfiguracionDocCocina.DarEtiqueta: String;
begin
  Result := 'Documentos cocina';
end;

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

class function TfrViewConfiguracionDocCocina.GetViewClass: TClass;
begin
  Result := TfrViewConfiguracionDocCocina;
end;

procedure TfrViewConfiguracionDocCocina.GuardarValores;
begin
  inherited;
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_FORMA_PAGO_COCINA, cbFormaPago.EditValue);
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_PLAZOS_ENTREGA_COCINA, ePlazosEntrega.Text);
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_OBSERVACIONES_COCINA, eObservaciones.Text);
  AppFactuGES.Configuracion.SetSettingAsString(teBD, CTE_CONDICIONES_COCINA, eCondiciones.Text);
end;


end.