david
7d924f3419
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@208 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
116 lines
3.3 KiB
ObjectPascal
116 lines
3.3 KiB
ObjectPascal
unit uViewSucursalesContacto;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
|
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel,
|
|
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
|
|
cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
|
uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls,
|
|
ToolWin, cxGridDBTableView, uViewDetallesGenerico, uClientesController,
|
|
uDAInterfaces, StdCtrls, uBizContactos;
|
|
|
|
type
|
|
TfrViewSucursalesContacto = class(TfrViewDetallesGenerico)
|
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
|
cxGridViewTELEFONO: TcxGridDBColumn;
|
|
cxGridViewMOVIL: TcxGridDBColumn;
|
|
cxGridViewFAX: TcxGridDBColumn;
|
|
cxGridViewEMAIL: TcxGridDBColumn;
|
|
cxGridViewNIFCIF: TcxGridDBColumn;
|
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
|
procedure cxGridViewDblClick(Sender: TObject);
|
|
procedure actEliminarExecute(Sender: TObject);
|
|
procedure CustomViewCreate(Sender: TObject);
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|
private
|
|
FCentral : IBizCliente;
|
|
FClientesController : IClientesController;
|
|
function GetCentral: IBizCliente;
|
|
procedure SetCentral(const Value: IBizCliente);
|
|
protected
|
|
procedure AnadirInterno; override;
|
|
procedure ModificarInterno; override;
|
|
public
|
|
property Central : IBizCliente read GetCentral write SetCentral;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses
|
|
uDialogUtils;
|
|
|
|
procedure TfrViewSucursalesContacto.actEliminarExecute(Sender: TObject);
|
|
begin
|
|
if (ShowConfirmMessage('Eliminar una sucursal', '¿Desea quitar esta sucursal?') = IDYES) then
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrViewSucursalesContacto.AnadirInterno;
|
|
var
|
|
ACliente : IBizCliente;
|
|
i : integer;
|
|
begin
|
|
inherited;
|
|
|
|
ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, '', False) as IBizCliente);
|
|
|
|
if Assigned(ACliente) then
|
|
begin
|
|
dsDetalles.DataTable.Insert;
|
|
try
|
|
for i := 0 to dsDetalles.DataTable.Fields.Count - 1 do
|
|
dsDetalles.DataTable.Fields[i].Value := ACliente.DataTable.FieldByName(dsDetalles.DataTable.Fields[i].Name).Value;
|
|
dsDetalles.DataTable.FieldByName('ID_CENTRAL').Value := FCentral.ID;
|
|
finally
|
|
dsDetalles.DataTable.Post;
|
|
end;
|
|
end;
|
|
ACliente := Nil;
|
|
end;
|
|
|
|
procedure TfrViewSucursalesContacto.CustomViewCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FCentral := NIL;
|
|
FClientesController := TClientesController.Create;
|
|
end;
|
|
|
|
procedure TfrViewSucursalesContacto.CustomViewDestroy(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
FClientesController := NIL;
|
|
end;
|
|
|
|
procedure TfrViewSucursalesContacto.cxGridViewDblClick(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
actModificar.Execute;
|
|
end;
|
|
|
|
function TfrViewSucursalesContacto.GetCentral: IBizCliente;
|
|
begin
|
|
result := FCentral;
|
|
end;
|
|
|
|
procedure TfrViewSucursalesContacto.ModificarInterno;
|
|
var
|
|
ACliente : IBizContacto;
|
|
begin
|
|
inherited;
|
|
ACliente := FClientesController.Buscar(cxGridViewID.DataBinding.Field.Value);
|
|
if Assigned(ACliente) then
|
|
FClientesController.Ver(ACliente);
|
|
end;
|
|
|
|
procedure TfrViewSucursalesContacto.SetCentral(const Value: IBizCliente);
|
|
begin
|
|
FCentral := Value;
|
|
end;
|
|
|
|
end.
|