unit uViewAlbaranCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, uBizAlbaranesCliente, DB, uDADataTable, uCustomView,
  AppEvnts, StdCtrls, Mask, DBCtrls,

  uViewObservaciones,  uViewDatosYSeleccionCliente,
  cxGraphics, cxDropDownEdit, cxImageComboBox, cxDBEdit, cxContainer, cxEdit,
  cxTextEdit, cxMaskEdit, cxCalendar, dxLayoutControl, cxControls, cxMemo,
  uViewDireccionEntregaAlbaranCliente, Buttons, ActnList, uBizPedidosCliente,
  uPedidosClienteController, ExtCtrls, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, uFormasPagoController, uAlmacenesController;

type
  IViewAlbaranCliente = interface(IViewBase)
  ['{F4946DFE-B64C-47C8-96D6-24549E6DAC11}']
    function GetAlbaran: IBizAlbaranCliente;
    procedure SetAlbaran(const Value: IBizAlbaranCliente);
    property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;

    function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
    procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
    property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran write SetViewClienteAlbaran;
  end;

  TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente)
    DADataSource: TDADataSource;
    dxLayoutControl1Group_Root: TdxLayoutGroup;
    dxLayoutControl1: TdxLayoutControl;
    dxLayoutControl1Item2: TdxLayoutItem;
    edtFechaAlbaran: TcxDBDateEdit;
    dxLayoutControl1Group1: TdxLayoutGroup;
    dxLayoutControl1Group2: TdxLayoutGroup;
    dxLayoutControl1Item6: TdxLayoutItem;
    memObservaciones: TcxDBMemo;
    dxLayoutControl1Item3: TdxLayoutItem;
    eReferencia: TcxDBTextEdit;
    dxLayoutControl1Group6: TdxLayoutGroup;
    dxLayoutControl1Group7: TdxLayoutGroup;
    dxLayoutControl1Group8: TdxLayoutGroup;
    dxLayoutControl1Group3: TdxLayoutGroup;
    dxLayoutControl1Item1: TdxLayoutItem;
    frViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
    dxLayoutControl1Item8: TdxLayoutItem;
    eCalle: TcxDBTextEdit;
    dxLayoutControl1Item9: TdxLayoutItem;
    ePoblacion: TcxDBTextEdit;
    dxLayoutControl1Item10: TdxLayoutItem;
    eCodigoPostal: TcxDBTextEdit;
    dxLayoutControl1Item11: TdxLayoutItem;
    eProvincia: TcxDBTextEdit;
    dxLayoutControl1Item12: TdxLayoutItem;
    ePersonaContacto: TcxDBTextEdit;
    dxLayoutControl1Item13: TdxLayoutItem;
    eTlfTrabajo: TcxDBTextEdit;
    dxLayoutControl1Group4: TdxLayoutGroup;
    dxLayoutControl1Group9: TdxLayoutGroup;
    dxLayoutControl1Item14: TdxLayoutItem;
    bElegirDireccion: TBitBtn;
    ActionList1: TActionList;
    actElegirDireccion: TAction;
    Button1: TButton;
    dxLayoutControl1Item5: TdxLayoutItem;
    actVerPedidoCli: TAction;
    eReferenciaPedidoCli: TcxTextEdit;
    dxLayoutControl1Item7: TdxLayoutItem;
    dxLayoutControl1Group5: TdxLayoutGroup;
    dxLayoutControl1Item4: TdxLayoutItem;
    cbFormaPago: TcxDBLookupComboBox;
    dxLayoutControl1Item15: TdxLayoutItem;
    bFormasPago: TButton;
    dsFormaPago: TDADataSource;
    dxLayoutControl1Group13: TdxLayoutGroup;
    dxLayoutControl1Group14: TdxLayoutGroup;
    dxLayoutControl1Item16: TdxLayoutItem;
    eFechaRecepcion: TcxDBDateEdit;
    dxLayoutControl1Group11: TdxLayoutGroup;
    dxLayoutControl1Item19: TdxLayoutItem;
    cbConAlmacen: TCheckBox;
    dxLayoutControl1Item20: TdxLayoutItem;
    cbAlmacen: TcxDBLookupComboBox;
    dsAlmacenes: TDADataSource;
    dxLayoutControl1Item18: TdxLayoutItem;
    Label1: TLabel;
    dxLayoutControl1Group12: TdxLayoutGroup;
    dxLayoutControl1Group10: TdxLayoutGroup;
    dxLayoutControl1Item22: TdxLayoutItem;
    eRefFacturaCli: TcxDBTextEdit;
    dxLayoutControl1Group15: TdxLayoutGroup;
    dxLayoutControl1Item24: TdxLayoutItem;
    eFechaPrevista: TcxDBDateEdit;
    dxLayoutControl1Item23: TdxLayoutItem;
    eRefCliente: TcxDBTextEdit;
    dxLayoutControl1Item21: TdxLayoutItem;
    eFechaEnvio: TcxDBDateEdit;
    procedure CustomViewCreate(Sender: TObject);
    procedure CustomViewDestroy(Sender: TObject);
    procedure actElegirDireccionExecute(Sender: TObject);
    procedure actElegirDireccionUpdate(Sender: TObject);
    procedure actVerPedidoCliUpdate(Sender: TObject);
    procedure actVerPedidoCliExecute(Sender: TObject);
    procedure frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
    procedure frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
    procedure bFormasPagoClick(Sender: TObject);
    procedure cbConAlmacenClick(Sender: TObject);
    procedure eFechaPrevistaPropertiesValidate(Sender: TObject;
      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure eFechaEnvioPropertiesValidate(Sender: TObject;
      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure eFechaRecepcionPropertiesValidate(Sender: TObject;
      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure frViewClienteAlbaranactVerContactoUpdate(Sender: TObject);
  protected
    FAlbaran : IBizAlbaranCliente;
    FAlmacenesController : IAlmacenesController;
    FPedidoAsociado : IBizPedidoCliente;
    FPedidoController : IPedidosClienteController;
    FViewClienteAlbaran : TfrViewDatosYSeleccionCliente;
    FFormasPagoController : IFormasPagoController;

    function GetAlbaran: IBizAlbaranCliente;
    procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual;
    function GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
    procedure SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
  public
    property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran;
    property ViewClienteAlbaran: TfrViewDatosYSeleccionCliente read GetViewClienteAlbaran;
  end;

implementation

{$R *.dfm}

{ TfrViewAlbaranCliente }

uses
  uClientesController, uBizDireccionesContacto, uAlbaranesClienteController,
  schAlbaranesClienteClient_Intf, uBizFormasPago, uBizAlmacenes, uDateUtils,
  uDialogUtils;


procedure TfrViewAlbaranCliente.actElegirDireccionExecute(Sender: TObject);
var
  AClientesController : IClientesController;
  AAlbaranController : IAlbaranesClienteController;
  ADireccion : IBizDireccionesContacto;
begin
  inherited;
  AClientesController := TClientesController.Create;
  AAlbaranController := TAlbaranesClienteController.Create;
  try
    ADireccion := AClientesController.ElegirDireccionEntrega(FAlbaran.Cliente.Direcciones, 
      'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.');
    if Assigned(ADireccion) then
    begin
      AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran);
      FAlbaran.Edit;
      FAlbaran.IMPORTE_PORTE := ADireccion.PORTE;
    end;
  finally
    AClientesController := NIL;
    AAlbaranController := NIL;
  end;
end;

procedure TfrViewAlbaranCliente.actElegirDireccionUpdate(Sender: TObject);
begin
  inherited;
  //MODO CONSULTAR ITEM
  if (Sender as TAction).Enabled
  and Assigned(DADataSource.DataTable) then
     (Sender as TAction).Enabled := not DADataSource.DataTable.ReadOnly;

  if (Sender as TAction).Enabled then
    (Sender as TAction).Enabled := Assigned(FAlbaran) and
      Assigned(FViewClienteAlbaran) and
      FAlbaran.DataTable.Active and
      Assigned(FAlbaran.Cliente) and
      Assigned(FAlbaran.Cliente) and
      Assigned(FAlbaran.Cliente.Direcciones) and
      FAlbaran.Cliente.Direcciones.DataTable.Active and
      (FAlbaran.Cliente.Direcciones.DataTable.RecordCount > 0);
end;

procedure TfrViewAlbaranCliente.actVerPedidoCliExecute(Sender: TObject);
begin
  inherited;
  FPedidoController.Ver(FPedidoAsociado);
end;

procedure TfrViewAlbaranCliente.actVerPedidoCliUpdate(Sender: TObject);
begin
  inherited;
  //MODO CONSULTAR ITEM
     (Sender as TAction).Enabled := (Albaran.REF_PEDIDO <> '')
     and Assigned(DADataSource.DataTable)
     and (not DADataSource.DataTable.ReadOnly);

end;

procedure TfrViewAlbaranCliente.bFormasPagoClick(Sender: TObject);
begin
  inherited;
  FFormasPagoController.VerTodos((dsFormaPago.DataTable) as IBizFormaPago);
end;

procedure TfrViewAlbaranCliente.cbConAlmacenClick(Sender: TObject);
begin
  inherited;
  if cbConAlmacen.Checked then
  begin
    cbAlmacen.Enabled := True;
    cbAlmacen.DroppedDown := True;
  end
  else begin
    cbAlmacen.Enabled := False;
    FAlbaran.Edit;
    FAlbaran.ID_ALMACEN := 0;
  end;
end;

procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject);
begin
  inherited;
  FFormasPagoController := TFormasPagoController.Create;  
  FPedidoAsociado := NIL;
  FPedidoController := TPedidosClienteController.Create;
  FViewClienteAlbaran := frViewClienteAlbaran;
  FViewClienteAlbaran.MsgElegirCliente := 'Elija el cliente al que se le realizará el Albaran.';
  FAlmacenesController := TAlmacenesController.Create;
end;

procedure TfrViewAlbaranCliente.CustomViewDestroy(Sender: TObject);
begin
  inherited;
  FViewClienteAlbaran := Nil;
  FPedidoController := NIL;
  FFormasPagoController := NIL;
  FPedidoAsociado := NIL;
  FAlmacenesController := NIL;
end;

procedure TfrViewAlbaranCliente.eFechaEnvioPropertiesValidate(Sender: TObject;
  var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
  inherited;
  if VarIsNull(DisplayValue) or (DisplayValue = '') then
  begin
     if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then
     begin
         eFechaRecepcion.Clear;
         eFechaRecepcion.Enabled := false;
     end
     else
         DisplayValue := DateToStr(eFechaEnvio.Date);
  end
  else
  begin
     if (eFechaEnvio.Date >= eFechaPrevista.Date) then
       eFechaRecepcion.Enabled := true
     else
     begin
       ShowWarningMessage('La fecha de envio debe ser posterior a la fecha prevista de envio');
       eFechaEnvio.SetFocus;
     end;
  end;
end;

procedure TfrViewAlbaranCliente.eFechaPrevistaPropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
  var Error: Boolean);
begin
  inherited;
  if VarIsNull(DisplayValue) or (DisplayValue = '') then
  begin
     if (ShowConfirmMessage('Si elimina la fecha prevista de envio, se eliminarán tambien las fechas de envio y recepción en caso de tenerlas. ¿Desea continuar?', '') = IDYES) then
     begin
       eFechaEnvio.Clear;
       eFechaEnvio.Enabled := false;
       eFechaRecepcion.Clear;
       eFechaRecepcion.Enabled := false;
     end
     else
       DisplayValue := DateToStr(eFechaPrevista.Date);
  end
  else
     eFechaEnvio.Enabled := true;
end;

procedure TfrViewAlbaranCliente.eFechaRecepcionPropertiesValidate(
  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
  var Error: Boolean);
begin
  inherited;
  if not (VarIsNull(DisplayValue) or (DisplayValue = '')) then
  begin
     if (eFechaRecepcion.Date < eFechaEnvio.Date) then
     begin
       ShowWarningMessage('La fecha de recepción debe ser posterior a la fecha de envio');
       eFechaRecepcion.SetFocus;
     end;

  end;
end;

procedure TfrViewAlbaranCliente.frViewClienteAlbaranactAnadirContactoUpdate(Sender: TObject);
begin
  //MODO CONSULTAR ITEM
  if Assigned(DADataSource.DataTable) then
     (Sender as TAction).Enabled := not DADataSource.DataTable.ReadOnly;

  if (Sender as TAction).Enabled then
  begin
    if Assigned(FPedidoAsociado) then
      (Sender as TAction).Enabled := False
    else
      inherited;
  end;
end;

procedure TfrViewAlbaranCliente.frViewClienteAlbaranactElegirContactoUpdate(Sender: TObject);
begin
  //MODO CONSULTAR ITEM
  if Assigned(DADataSource.DataTable) then
     (Sender as TAction).Enabled := not DADataSource.DataTable.ReadOnly;

  if (Sender as TAction).Enabled then
  begin
    if Assigned(FPedidoAsociado) then
      (Sender as TAction).Enabled := False
    else
      inherited;
  end;
end;

procedure TfrViewAlbaranCliente.frViewClienteAlbaranactVerContactoUpdate(Sender: TObject);
begin
  //MODO CONSULTAR ITEM
  if Assigned(DADataSource.DataTable) then
     (Sender as TAction).Enabled := not DADataSource.DataTable.ReadOnly;

  if (Sender as TAction).Enabled then
  begin
    if Assigned(FPedidoAsociado) then
      (Sender as TAction).Enabled := False
    else
      inherited;
  end;
end;

function TfrViewAlbaranCliente.GetAlbaran: IBizAlbaranCliente;
begin
  Result := FAlbaran;
end;

function TfrViewAlbaranCliente.GetViewClienteAlbaran: TfrViewDatosYSeleccionCliente;
begin
  Result := FViewClienteAlbaran;
end;

procedure TfrViewAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);
begin
  FAlbaran := Value;
  if Assigned(FAlbaran) then
  begin
    DADataSource.DataTable := FAlbaran.DataTable;
    frViewClienteAlbaran.Cliente := FAlbaran.Cliente;

    dsFormaPago.DataTable := FFormasPagoController.BuscarTodos.DataTable;
    dsFormaPago.DataTable.Active := True;

    dsAlmacenes.DataTable := (FAlmacenesController.BuscarTodos).DataTable;
    dsAlmacenes.DataTable.Active := True;

    cbConAlmacen.Checked := (FAlbaran.ID_ALMACEN > 0);
    cbAlmacen.Enabled := cbConAlmacen.Checked;

      //MODO CONSULTAR ITEM
    if Assigned(DADataSource.DataTable)
    and DADataSource.DataTable.ReadOnly then
    begin
      cbConAlmacen.Enabled := False;
      cbAlmacen.Enabled := cbConAlmacen.Enabled;
    end;


    eReferenciaPedidoCli.Enabled := False;
    eRefFacturaCli.Enabled := False;

    if EsFechaVacia(FAlbaran.FECHA_PREVISTA_ENVIO) then
    begin
       eFechaEnvio.Enabled := false;
       eFechaRecepcion.Enabled := false;
    end
    else
    begin
       eFechaEnvio.Enabled := true;
       if EsFechaVacia(FAlbaran.FECHA_ENVIO) then
          eFechaRecepcion.Enabled := false
       else
          eFechaRecepcion.Enabled := true;
    end;

    FPedidoAsociado := NIL;
    if (FAlbaran.ID_PEDIDO > 0) then
    begin
      FPedidoAsociado := FPedidoController.Buscar(FAlbaran.ID_PEDIDO);
      if Assigned(FPedidoAsociado) then
      begin
        FPedidoAsociado.DataTable.Active := True;
        eReferenciaPedidoCli.Text := FPedidoAsociado.REFERENCIA
      end
      else
        eReferenciaPedidoCli.Text := '';
    end
    else
      eReferenciaPedidoCli.Text := 'No hay pedido asociado';
  end
  else begin
    DADataSource.DataTable := NIL;
    frViewClienteAlbaran.Cliente := nil;
    FPedidoAsociado := NIL;
    dsFormaPago.DataTable := NIL;
    dsAlmacenes.DataTable := NIL;
  end;
end;

procedure TfrViewAlbaranCliente.SetViewClienteAlbaran(const Value: TfrViewDatosYSeleccionCliente);
begin
  FViewClienteAlbaran := Value;
end;

end.