roberto
ccebb36113
Tareas #1416: Exportar a fichero excel los presupuestos de cliente Tareas #1417: Cambiar el logo de todos los informes en keiblair git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@240 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
98 lines
2.5 KiB
ObjectPascal
98 lines
2.5 KiB
ObjectPascal
unit uViewFiltroAgentes;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
|
StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizContactos,
|
|
uAgentesController;
|
|
|
|
type
|
|
IViewFiltroAgentes = interface(IViewParametrosInforme)
|
|
['{95ACBD97-13A4-4360-A2F7-EC3B0905BB94}']
|
|
end;
|
|
|
|
TfrViewFiltroAgentes = class(TfrViewParametrosInforme, IViewFiltroAgentes)
|
|
TBXLabel2: TTBXLabel;
|
|
rbTodosAgentes: TRadioButton;
|
|
rbUnAgente: TRadioButton;
|
|
cbxDesglosado: TCheckBox;
|
|
bElegirAgente: TBitBtn;
|
|
edtAgente: TcxTextEdit;
|
|
rbAgentesActivos: TRadioButton;
|
|
cbxPaginado: TCheckBox;
|
|
procedure rbTodosAgentesClick(Sender: TObject);
|
|
procedure rbUnAgenteClick(Sender: TObject);
|
|
procedure CustomViewCreate(Sender: TObject);
|
|
procedure bElegirAgenteClick(Sender: TObject);
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|
private
|
|
FAgente : IBizAgente;
|
|
FAgentesController : IAgentesController;
|
|
public
|
|
property Agente : IBizAgente read FAgente;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrViewFiltroAgentes.bElegirAgenteClick(Sender: TObject);
|
|
var
|
|
AAgente : IBizAgente;
|
|
begin
|
|
inherited;
|
|
AAgente := IBizAgente(FAgentesController.BuscarTodos);
|
|
try
|
|
FAgente := IBizAgente(FAgentesController.ElegirContacto(AAgente, '', False));
|
|
if Assigned(FAgente) then
|
|
begin
|
|
FAgente.Open;
|
|
edtAgente.Text := FAgente.NOMBRE;
|
|
end;
|
|
finally
|
|
AAgente := NIL;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewFiltroAgentes.CustomViewCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FAgente := NIL;
|
|
FAgentesController := NIL;
|
|
end;
|
|
|
|
procedure TfrViewFiltroAgentes.CustomViewDestroy(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FAgente := NIL;
|
|
FAgentesController := NIL;
|
|
end;
|
|
|
|
procedure TfrViewFiltroAgentes.rbTodosAgentesClick(Sender: TObject);
|
|
begin
|
|
if rbTodosAgentes.Checked then
|
|
begin
|
|
cbxDesglosado.Enabled := True;
|
|
FAgente := NIL;
|
|
bElegirAgente.Enabled := False;
|
|
edtAgente.Clear;
|
|
edtAgente.Enabled := False;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewFiltroAgentes.rbUnAgenteClick(Sender: TObject);
|
|
begin
|
|
if rbUnAgente.Checked then
|
|
begin
|
|
cbxDesglosado.Enabled := False;
|
|
bElegirAgente.Enabled := True;
|
|
edtAgente.Enabled := True;
|
|
if not Assigned(FAgentesController) then
|
|
FAgentesController := TAgentesController.Create;
|
|
end;
|
|
end;
|
|
|
|
end.
|