Tecsitel_FactuGES2/Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas

unit uViewDetallesArticulos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewDetallesDTO, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxRichEdit,
  cxMaskEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDADataTable,
  StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
  JvCombobox, JvColorCombo, ToolWin, uControllerDetallesArticulos,
  cxTextEdit, uDAInterfaces, cxDropDownEdit, cxButtonEdit, dxSkinsCore,
  dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans,
  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
  dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinXmas2008Blue, dxSkinscxPCPainter, Menus, cxGridCustomPopupMenu,
  cxGridPopupMenu, cxEditRepositoryItems;

type
  IViewDetallesArticulos = interface(IViewDetallesDTO)
  ['{D2F72E72-9CEA-4E43-AA18-625F7561E627}']
  end;

  TfrViewDetallesArticulos = class(TfrViewDetallesDTO, IViewDetallesArticulos)
    cxGridViewID_ARTICULO: TcxGridDBColumn;
    cxGridViewREFERENCIA: TcxGridDBColumn;
    cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
    actAnadirArticulos: TAction;
    cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn;
    actBuscarArticulo: TAction;
    TBXSeparatorItem8: TTBXSeparatorItem;
    TBXItem17: TTBXItem;
    cxGridViewREFERENCIA_FABRICANTE: TcxGridDBColumn;
    cxEditRepository1: TcxEditRepository;
    cxEditRepositoryComboBox_IMPORTEUNIDAD: TcxEditRepositoryComboBoxItem;
    cxEditRepositoryCurrencyItem_IMPORTEUNIDAD: TcxEditRepositoryCurrencyItem;
    procedure CustomViewCreate(Sender: TObject);
    procedure CustomViewDestroy(Sender: TObject);
    procedure actAnadirArticulosExecute(Sender: TObject);
    procedure actAnadirArticulosUpdate(Sender: TObject);
    procedure OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
    procedure CustomViewShow(Sender: TObject);
    procedure cxGridViewREFERENCIAPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
    procedure actBuscarArticuloExecute(Sender: TObject);
    procedure actBuscarArticuloUpdate(Sender: TObject);
    procedure actDetalleCopiarExecute(Sender: TObject);
    procedure actDetallePegarExecute(Sender: TObject);
    procedure actDetalleCortarExecute(Sender: TObject);
    procedure cxGridViewREFERENCIA_PROVEEDORPropertiesButtonClick(
      Sender: TObject; AButtonIndex: Integer);
    procedure cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick(
      Sender: TObject; AButtonIndex: Integer);
    procedure cxGridViewIMPORTEUNIDADGetProperties(
      Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
      var AProperties: TcxCustomEditProperties);
    procedure cxGridViewIMPORTEUNIDAD_OnInitPopup(Sender: TObject);
  private
    procedure RecuperarListaUnidadesMedida;
  protected
    procedure AnadirArticulosInterno; virtual;
    procedure RellenarArticulosInterno; virtual;
    function AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean; virtual;
    function EsTipoEditable(AItem: TcxCustomGridTableItem): Boolean; override;
  end;

implementation
{$R *.dfm}

uses
  uCalculosUtils, uViewDetallesBase, uControllerDetallesBase, uUnidadesMedidaController;

procedure TfrViewDetallesArticulos.actAnadirArticulosExecute(Sender: TObject);
begin
  cxGridView.BeginUpdate;
  try
    if cxGridView.Controller.EditingController.IsEditing then
       cxGridView.Controller.EditingController.Edit.PostEditValue;

    AnadirArticulosInterno;
  finally
    cxGridView.EndUpdate;
  end;

  SeleccionarFilaActual;
end;

procedure TfrViewDetallesArticulos.AnadirArticulosInterno;
begin
  (Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles);
end;

procedure TfrViewDetallesArticulos.CustomViewCreate(Sender: TObject);
begin
  inherited;
  cxGridViewREFERENCIA.Properties.OnValidate := OnValidateReferencia;
  cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := OnValidateReferenciaProveedor;
end;

procedure TfrViewDetallesArticulos.CustomViewDestroy(Sender: TObject);
begin
  inherited;
  cxGridViewREFERENCIA.Properties.OnValidate := Nil;
  cxGridViewREFERENCIA_PROVEEDOR.Properties.OnValidate := Nil;
end;

procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject);
begin
  inherited;

  with DADataSource.DataTable do
  begin
    cxGridView.BeginUpdate;
    try
      if Assigned(FindField('UNIDAD_MEDIDA')) then
      begin
        cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := 'UNIDAD_MEDIDA';
        cxGridViewUNIDAD_MEDIDA.Visible := True;
        cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := True;
        RecuperarListaUnidadesMedida;
      end
      else begin
        cxGridViewUNIDAD_MEDIDA.DataBinding.FieldName := '';
        cxGridViewUNIDAD_MEDIDA.Visible := False;
        cxGridViewUNIDAD_MEDIDA.VisibleForCustomization := False;
      end;


      if Assigned(FindField('REFERENCIA_FABRICANTE')) then
      begin
        cxGridViewREFERENCIA_FABRICANTE.DataBinding.FieldName := 'REFERENCIA_FABRICANTE';
        cxGridViewREFERENCIA_FABRICANTE.Visible := True;
        cxGridViewREFERENCIA_FABRICANTE.VisibleForCustomization := True;
      end
      else begin
        cxGridViewREFERENCIA_FABRICANTE.DataBinding.FieldName := '';
        cxGridViewREFERENCIA_FABRICANTE.Visible := False;
        cxGridViewREFERENCIA_FABRICANTE.VisibleForCustomization := False;
      end;

    finally
      cxGridView.EndUpdate;
    end;
  end;

  SeleccionarFilaActual;
end;

procedure TfrViewDetallesArticulos.cxGridViewIMPORTEUNIDAD_OnInitPopup(
  Sender: TObject);
var
  AIndiceCol : Integer;
  AIDArticulo : Variant;
begin
  inherited;

  AIndiceCol := cxGridView.DataController.GetItemByFieldName('REFERENCIA').Index;
  AIDArticulo := cxGridView.DataController.Values[cxGridView.DataController.FocusedRecordIndex, AIndiceCol];

  with cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties do
  begin

    BeginUpdate;
    Items.BeginUpdate;
    try
      Items.Clear;
      Items.Add('1');
      Items.Add('2');
      Items.Add('3');
      Items.Add(VarToStr(AIDArticulo));
    finally
      Items.EndUpdate;
      EndUpdate;
    end;
  end;

{
  DADataSource.DataTable.DisableControls;
  try
    IndiceCol := cxGridView.DataController.GetItemByFieldName('ID_ARTICULO').Index;
    IdArticulo := cxGridView.DataController.Values[Sender.DataBinding.DataController.FocusedRecordIndex, IndiceCol];

    if not VarIsNull(IdArticulo)
    and (IdArticulo > 0)  then
    begin
      //Lo tratamos como combox
      AProperties := cxEditRepository1ComboBoxItem1.Properties;
       with TcxComboBoxProperties(cxGridViewIMPORTEUNIDAD.Properties).Items do
       begin
         ShowHourglassCursor;
         BeginUpdate;
         try
           Clear;
           AddStrings((Controller as IControllerDetallesArticulos).DarPrecioPVPVenta(IdArticulo));
         finally
           EndUpdate;
           HideHourglassCursor;
         end;
       end

    end
    else
      AProperties := cxEditRepository1CurrencyItem1.properties;
//      cxGridViewIMPORTEUNIDAD.PropertiesClassName := 'TcxCurrencyEditProperties';

  finally
    DADataSource.DataTable.EnableControls;
  end;}
end;

procedure TfrViewDetallesArticulos.cxGridViewIMPORTEUNIDADGetProperties(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  var AProperties: TcxCustomEditProperties);
var
  Aux_IDArticulo: Variant;
begin
  Aux_IDArticulo := Null;
  cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties.Items.Clear;

  if (_FocusedView.DataController.RecordCount > 0) then
  begin
    Aux_IDArticulo := ARecord.Values[cxGridViewID_ARTICULO.Index];
    if not VarIsNull(Aux_IDArticulo) and (Aux_IDArticulo > 0) then
    begin
      with cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties do
      begin
         ShowHourglassCursor;
         Items.BeginUpdate;
         try
           Items.Clear;
           Items.AddStrings((Controller as IControllerDetallesArticulos).DarPrecioPVPVenta(Aux_IDArticulo));
         finally
           Items.EndUpdate;
           HideHourglassCursor;
         end;
      end;
      AProperties := cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties;
    end
    else begin
      AProperties := cxEditRepositoryCurrencyItem_IMPORTEUNIDAD.Properties;
    end;
  end;
end;

procedure TfrViewDetallesArticulos.cxGridViewREFERENCIAPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  inherited;
  actBuscarArticulo.Execute;
end;

procedure TfrViewDetallesArticulos.cxGridViewREFERENCIA_FABRICANTEPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  inherited;
  actBuscarArticulo.Execute;
end;

procedure TfrViewDetallesArticulos.cxGridViewREFERENCIA_PROVEEDORPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  inherited;
  actBuscarArticulo.Execute;
end;

function TfrViewDetallesArticulos.EsTipoEditable(
  AItem: TcxCustomGridTableItem): Boolean;
var
  IndiceCol : Integer;
begin
  Result := True;

  if (AItem.Index in [cxGridViewREFERENCIA.Index, cxGridViewREFERENCIA_PROVEEDOR.Index]) then
  begin
    IndiceCol := cxGridView.GetColumnByFieldName(CAMPO_TIPO).Index;
    if ((AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SALTO) or
        (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_SUBTOTAL) or
        (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_DESCUENTO) or
        (AItem.GridView.Items[IndiceCol].EditValue = TIPO_DETALLE_TITULO)) then
      Result := False;
  end
  else
    Result := inherited EsTipoEditable(AItem);
end;

procedure TfrViewDetallesArticulos.OnValidateReferencia(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
  lsReferencia : String;
begin
  //En el caso de cadena vacia no validamos
  if (VarIsNull(DisplayValue)) then
     Exit;

  lsReferencia := VarToStr(DisplayValue);
  if (length(trim(lsReferencia)) = 0) then
     Exit;


  if not AnadirArticulo(lsReferencia, tCliente) then
  begin
    ErrorText := 'La referencia introducida no exite en el cat<61>logo';
    Error := True;
  end;
end;

procedure TfrViewDetallesArticulos.OnValidateReferenciaProveedor(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
var
  lsReferencia : String;
begin
  //En el caso de cadena vacia no validamos
  if (VarIsNull(DisplayValue)) then
     Exit;

  lsReferencia := VarToStr(DisplayValue);
  if (length(trim(lsReferencia)) = 0) then
     Exit;

  if not AnadirArticulo(lsReferencia, tProveedor) then
  begin
    ErrorText := 'La referencia introducida no exite en el cat<61>logo';
    Error := True;
  end;
end;

procedure TfrViewDetallesArticulos.RecuperarListaUnidadesMedida;
var
  AUnidController : IUnidadesMedidaController;
begin
  inherited;
  with TcxComboBoxProperties(cxGridViewUNIDAD_MEDIDA.Properties).Items do
  begin
    if (Count = 0) then
    begin
      ShowHourglassCursor;
      BeginUpdate;
      AUnidController := TUnidadesMedidaController.Create;
      try
        Clear;
        AddStrings(AUnidController.DarListaUnidadesMedida);
      finally
        EndUpdate;
        AUnidController := NIL;
        HideHourglassCursor;
      end;
    end;
  end;
end;

procedure TfrViewDetallesArticulos.RellenarArticulosInterno;
begin
  (Controller as IControllerDetallesArticulos).AnadirArticulos(Detalles, False);
end;

procedure TfrViewDetallesArticulos.actAnadirArticulosUpdate(Sender: TObject);
begin
  inherited;
  (Sender as TAction).Enabled := actAnadir.Enabled;
end;

procedure TfrViewDetallesArticulos.actBuscarArticuloExecute(Sender: TObject);
begin
  cxGridView.BeginUpdate;
  try
    if cxGridView.Controller.EditingController.IsEditing then
       cxGridView.Controller.EditingController.Edit.PostEditValue;

    RellenarArticulosInterno;
  finally
    cxGridView.EndUpdate;
  end;

  SeleccionarFilaActual;
end;

procedure TfrViewDetallesArticulos.actBuscarArticuloUpdate(Sender: TObject);
begin
  inherited;
  (Sender as TAction).Enabled := actAnadir.Enabled;
end;

procedure TfrViewDetallesArticulos.actDetalleCopiarExecute(Sender: TObject);
begin
  inherited;
  cxGridView.CopyToClipboard(False);
end;

procedure TfrViewDetallesArticulos.actDetalleCortarExecute(Sender: TObject);
begin
  inherited;
//
end;

procedure TfrViewDetallesArticulos.actDetallePegarExecute(Sender: TObject);
begin
  inherited;
//
end;

function TfrViewDetallesArticulos.AnadirArticulo(pReferencia: String; TipoReferencia: TEnumReferencia): Boolean;
begin
  Result := (Controller as IControllerDetallesArticulos).AnadirArticulo(Detalles, pReferencia, TipoReferencia);
end;

end.