roberto
507b9f15a6
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@151 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
140 lines
4.3 KiB
ObjectPascal
140 lines
4.3 KiB
ObjectPascal
unit uViewAgenteObjetivosAlbaranes;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
||
cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList, PngImageList,
|
||
uDAInterfaces, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, cxSpinEdit, cxCurrencyEdit, TB2ExtItems,
|
||
TBXExtItems, TB2Item, TB2Dock, TB2Toolbar, TBX, uAgentesController;
|
||
|
||
type
|
||
TfrViewAgenteObjetivosAlbaranes = class(TfrViewDetallesGenerico)
|
||
cxGridViewID_AGENTE: TcxGridDBColumn;
|
||
cxGridViewANO: TcxGridDBColumn;
|
||
cxGridViewMES: TcxGridDBColumn;
|
||
cxGridViewUNIDADES_OBJETIVO: TcxGridDBColumn;
|
||
cxGridViewIMPORTE_OBJETIVO: TcxGridDBColumn;
|
||
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
||
tbxFiltro: TTBXToolbar;
|
||
lblAno: TTBXLabelItem;
|
||
cbxListaAnos: TTBXComboBoxItem;
|
||
procedure OnListaAnosChange(Sender: TObject; const Text: string);
|
||
procedure CustomViewShow(Sender: TObject);
|
||
procedure CustomViewDestroy(Sender: TObject);
|
||
protected
|
||
FListaAnos: TStringList;
|
||
FController : IAgentesController;
|
||
|
||
function GetListaAnos: TStringList;
|
||
procedure SetListaAnos(const Value: TStringList);
|
||
|
||
function GetController : IAgentesController; virtual;
|
||
procedure SetController (const Value : IAgentesController); virtual;
|
||
public
|
||
property Controller : IAgentesController read GetController write SetController;
|
||
property ListaAnos: TStringList read GetListaAnos write SetListaAnos;
|
||
procedure Refrescar;
|
||
end;
|
||
|
||
implementation
|
||
{$R *.dfm}
|
||
|
||
uses schContactosClient_Intf, DateUtils;
|
||
|
||
{ TfrViewAgenteObjetivosAlbaranes }
|
||
|
||
procedure TfrViewAgenteObjetivosAlbaranes.CustomViewDestroy(Sender: TObject);
|
||
begin
|
||
FController := NIL;
|
||
|
||
if Assigned(FListaAnos) then
|
||
FlistaAnos.Free;
|
||
|
||
inherited;
|
||
end;
|
||
|
||
procedure TfrViewAgenteObjetivosAlbaranes.CustomViewShow(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
Ano: String;
|
||
begin
|
||
Ano := IntToStr(YearOf(Date));
|
||
cbxListaAnos.OnChange := OnListaAnosChange; //OJO SIEMPRE ANTES DEL INHERITED
|
||
inherited;
|
||
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(Ano);
|
||
end;
|
||
|
||
function TfrViewAgenteObjetivosAlbaranes.GetController: IAgentesController;
|
||
begin
|
||
Result := FController;
|
||
end;
|
||
|
||
function TfrViewAgenteObjetivosAlbaranes.GetListaAnos: TStringList;
|
||
begin
|
||
Result := FListaAnos;
|
||
end;
|
||
|
||
procedure TfrViewAgenteObjetivosAlbaranes.OnListaAnosChange(Sender: TObject; const Text: string);
|
||
begin
|
||
dsDetalles.DataTable.Filter := 'ANO = ''' + Text + '''';
|
||
dsDetalles.DataTable.Filtered :=True;
|
||
end;
|
||
|
||
procedure TfrViewAgenteObjetivosAlbaranes.Refrescar;
|
||
begin
|
||
//Volvemos a cargar los a<>os de los albaranes
|
||
if Assigned(FController) then
|
||
ListaAnos := FController.DarListaAnosObjetivosAlbaranesAgente(dsDetalles.DataTable.FieldByName(fld_Agentes_Objetivos_albaranesID_AGENTE).AsInteger);
|
||
cbxListaAnos.ItemIndex := 0;
|
||
end;
|
||
|
||
procedure TfrViewAgenteObjetivosAlbaranes.SetController(const Value: IAgentesController);
|
||
begin
|
||
FController := Value;
|
||
|
||
if Assigned(FController) then
|
||
ListaAnos := FController.DarListaAnosObjetivosAlbaranesAgente(dsDetalles.DataTable.FieldByName(fld_Agentes_Objetivos_albaranesID_AGENTE).AsInteger);
|
||
end;
|
||
|
||
procedure TfrViewAgenteObjetivosAlbaranes.SetListaAnos(const Value: TStringList);
|
||
var
|
||
i: Integer;
|
||
AStringAnterior: String;
|
||
|
||
begin
|
||
AStringAnterior := '';
|
||
if Assigned(FListaAnos) and (FListaAnos.Count > 0) then
|
||
begin
|
||
AStringAnterior := FListaAnos.ValueFromIndex[cbxListaAnos.ItemIndex];
|
||
FListaAnos.Free;
|
||
end;
|
||
|
||
//Se asigna el nuevo TStringList
|
||
FListaAnos := Value;
|
||
|
||
if Assigned(FListaAnos) then
|
||
begin
|
||
cbxListaAnos.Strings.BeginUpdate;
|
||
cbxListaAnos.Strings.Clear;
|
||
for i := 0 to FListaAnos.Count - 1 do
|
||
cbxListaAnos.Strings.Append(FListaAnos.Names[i]);
|
||
|
||
//Se posiciona en el elemento que habia anteriormente
|
||
if Length(AStringAnterior) > 0 then
|
||
begin
|
||
if FListaAnos.IndexOfName(AStringAnterior) <> -1 then
|
||
cbxListaAnos.ItemIndex := FListaAnos.IndexOfName(AStringAnterior)
|
||
else
|
||
cbxListaAnos.ItemIndex := 0;
|
||
end;
|
||
|
||
cbxListaAnos.Strings.EndUpdate;
|
||
end;
|
||
end;
|
||
|
||
end.
|