AbetoDesign_FactuGES2/Source/Modulos/Contactos/Views/uViewClienteDatosDistribuidor.pas

unit uViewClienteDatosDistribuidor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, cxGraphics, DB, uDADataTable, dxLayoutControl,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
  cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
  uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
  uDAInterfaces, uBizFormasPago, uBizTiposIVA, cxCurrencyEdit, uComercialesController,
  cxMemo, ActnList;

type
  IViewClienteDatosComerciales = interface(IViewBase)
    ['{50D671FA-1109-4D7D-B3F8-8E7DCFEB32A4}']
    function GetContacto: IBizContacto;
    procedure SetContacto(const Value: IBizContacto);
    property Contacto: IBizContacto read GetContacto write SetContacto;
  end;

  TfrViewClienteDatosDistribuidor = class(TfrViewBase, IViewClienteDatosComerciales)
    dxLayoutControl1: TdxLayoutControl;
    dxLayoutGroup1: TdxLayoutGroup;
    dxLayoutControl1Group3: TdxLayoutGroup;
    dsDatosDistribuidor: TDADataSource;
    dxLayoutControl1Item4: TdxLayoutItem;
    cbEsDistribuidor: TcxDBCheckBox;
    dlvalidez: TdxLayoutGroup;
    dlformapago: TdxLayoutGroup;
    dlusuario: TdxLayoutItem;
    eUsuario: TcxDBTextEdit;
    dlcontrasena: TdxLayoutItem;
    eContrasena: TcxDBTextEdit;
    dlbloquear: TdxLayoutItem;
    eBloqueado: TcxDBCheckBox;
    dxLayoutControl1Group7: TdxLayoutGroup;
    dxLayoutControl1Item3: TdxLayoutItem;
    eFormaPagoDistribuidor: TcxDBMemo;
    dxLayoutControl1Item1: TdxLayoutItem;
    eValidezDistribuidor: TcxDBTextEdit;
    dlnotas: TdxLayoutGroup;
    dxLayoutControl1Group2: TdxLayoutGroup;
    dxLayoutControl1Item2: TdxLayoutItem;
    eNotasDistribuidor: TcxDBMemo;
    dxLayoutControl1Item5: TdxLayoutItem;
    eLOPDDistribuidor: TcxDBMemo;
    dllopd: TdxLayoutGroup;
    dxLayoutControl1Group8: TdxLayoutGroup;
    dlcondiciones: TdxLayoutGroup;
    dxLayoutControl1Group10: TdxLayoutGroup;
    dxLayoutControl1Item6: TdxLayoutItem;
    eCondicionesDistribuidor: TcxDBMemo;
    dlmotivo: TdxLayoutItem;
    eMotivoBloqueo: TcxDBTextEdit;
    ActionListDist: TActionList;
    actEsDistribuidor: TAction;
    actBloqueoCliente: TAction;
    procedure CustomViewCreate(Sender: TObject);
    procedure CustomViewDestroy(Sender: TObject);
    procedure cbEsDistribuidorPropertiesEditValueChanged(Sender: TObject);
    procedure actBloqueoClienteExecute(Sender: TObject);
    procedure actEsDistribuidorExecute(Sender: TObject);
    procedure CustomViewShow(Sender: TObject);
  protected
    FContacto : IBizContacto;
    function GetContacto: IBizContacto;
    procedure SetContacto(const Value: IBizContacto);
    procedure refrescarVista;
  public
    property Contacto: IBizContacto read GetContacto write SetContacto;
  end;


implementation

{$R *.dfm}

uses
  uRegimenIVAUtils, uFactuGES_App;

{ TfrViewClienteDatosComerciales }

procedure TfrViewClienteDatosDistribuidor.actBloqueoClienteExecute(
  Sender: TObject);
begin
  inherited;
  dlmotivo.Enabled := eBloqueado.Checked;
end;

procedure TfrViewClienteDatosDistribuidor.actEsDistribuidorExecute(Sender: TObject);
begin
  inherited;
  refrescarVista;
end;

procedure TfrViewClienteDatosDistribuidor.cbEsDistribuidorPropertiesEditValueChanged(
  Sender: TObject);
begin
  inherited;
//
end;

procedure TfrViewClienteDatosDistribuidor.CustomViewCreate(Sender: TObject);
begin
  inherited;
  FContacto := Nil;
end;

procedure TfrViewClienteDatosDistribuidor.CustomViewDestroy(Sender: TObject);
begin
  inherited;
  FContacto := Nil;
end;

procedure TfrViewClienteDatosDistribuidor.CustomViewShow(Sender: TObject);
begin
  inherited;
  refrescarVista;
end;

function TfrViewClienteDatosDistribuidor.GetContacto: IBizContacto;
begin
  Result := FContacto;
end;

procedure TfrViewClienteDatosDistribuidor.refrescarVista;
begin
  if cbEsDistribuidor.Checked then
  begin
    dlBloquear.Enabled := True;
    dlusuario.Enabled := True;
    dlcontrasena.Enabled := True;
    dlValidez.Enabled := True;
    dlFormaPago.Enabled := True;
    dlNotas.Enabled := True;
    dlLOPD.Enabled := True;
    dlCondiciones.Enabled := True;
  end
  else
  begin
    dlBloquear.Enabled := False;
    dlusuario.Enabled := False;
    dlcontrasena.Enabled := False;
    dlValidez.Enabled := False;
    dlFormaPago.Enabled := False;
    dlNotas.Enabled := False;
    dlLOPD.Enabled := False;
    dlCondiciones.Enabled := False;
  end;

  if eBloqueado.Checked then
     dlmotivo.Enabled := True
  else
     dlmotivo.Enabled := False;

end;

procedure TfrViewClienteDatosDistribuidor.SetContacto(const Value: IBizContacto);
begin
  FContacto := Value;
  if Assigned(FContacto) then
  begin
    dsDatosDistribuidor.DataTable := FContacto.DataTable;
    //    eBloqueo.Enabled := cbClienteBloqueado.Checked;
{    FFormasPago := FFormasPagoController.BuscarTodos;
    dsFormaPago.DataTable := FFormasPago.DataTable;
    dsFormaPago.DataTable.Active := True;
    FTiposIVA := FTiposIVAController.BuscarTodos;
    dsTiposIVA.DataTable := FTiposIVA.DataTable;
    dsTiposIVA.DataTable.Active := True;
    FComerciales := (FComercialesController.BuscarTodos as IBizComercial);
    dsAgentes.DataTable := FComerciales.DataTable;
    dsAgentes.DataTable.Active := True;
}
  end
  else begin
    dsDatosDistribuidor.DataTable := NIL;
  end
end;

end.