david
b7dd5c1495
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@134 0c75b7a4-871f-7646-8a2f-f78d34cc349f
117 lines
3.5 KiB
ObjectPascal
117 lines
3.5 KiB
ObjectPascal
unit uEditorCliente;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
uEditorContacto, ImgList, PngImageList, StdActns, ActnList, TBX,
|
||
TB2Item, TB2Dock, TB2Toolbar, ComCtrls, JvExControls, JvComponent,
|
||
JvNavigationPane, uViewCliente, uBizContactos, DB, uDADataTable,
|
||
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, uCustomView,
|
||
uViewBase, JvAppStorage, JvAppRegistryStorage,
|
||
JvFormPlacement, ExtCtrls, pngimage, JvComponentBase, uViewContacto, StdCtrls,
|
||
|
||
uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewEmpleado,
|
||
uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
|
||
uViewContactoDatosBancarios, dxLayoutLookAndFeels,
|
||
uViewClienteDatosComerciales, uDAInterfaces;
|
||
|
||
type
|
||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||
frViewCliente1: TfrViewCliente;
|
||
pagDirecciones: TTabSheet;
|
||
frViewDireccionesEntrega1: TfrViewDireccionesEntrega;
|
||
actGruposCliente: TAction;
|
||
TBXItem7: TTBXItem;
|
||
pagDescuentos: TTabSheet;
|
||
frViewClienteDescuentos1: TfrViewClienteDescuentos;
|
||
pagDatosComerciales: TTabSheet;
|
||
frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
|
||
procedure FormShow(Sender: TObject);
|
||
procedure actGruposClienteExecute(Sender: TObject);
|
||
protected
|
||
procedure EliminarInterno; override;
|
||
procedure SetContacto(const Value: IBizContacto); override;
|
||
public
|
||
constructor Create(AOwner: TComponent); override;
|
||
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||
end;
|
||
|
||
implementation
|
||
|
||
uses
|
||
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
|
||
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;
|
||
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfEditorCliente.actGruposClienteExecute(Sender: TObject);
|
||
var
|
||
AGruposController : IGruposClienteController;
|
||
AGrupos : IBizGrupoCliente;
|
||
begin
|
||
AGruposController := TGruposClienteController.Create;
|
||
try
|
||
AGrupos := (AGruposController.BuscarTodos as IBizGrupoCliente);
|
||
AGruposController.VerTodos(AGrupos);
|
||
finally
|
||
AGrupos := NIL;
|
||
AGruposController := NIL;
|
||
end;
|
||
end;
|
||
|
||
constructor TfEditorCliente.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
ViewContacto := frViewCliente1;
|
||
end;
|
||
|
||
procedure TfEditorCliente.EliminarInterno;
|
||
begin
|
||
if (ShowConfirmMessage('<27>Desea borrar este cliente?', '') = IDYES) then
|
||
inherited;
|
||
end;
|
||
|
||
procedure TfEditorCliente.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
pgPaginas.ActivePageIndex := 0;
|
||
end;
|
||
|
||
procedure TfEditorCliente.PonerTitulos(const ATitulo: string);
|
||
var
|
||
FTitulo : String;
|
||
begin
|
||
if Assigned(Contacto) then
|
||
begin
|
||
if Contacto.EsNuevo then
|
||
FTitulo := 'Nuevo cliente'
|
||
else
|
||
FTitulo := 'Cliente';
|
||
end;
|
||
|
||
inherited PonerTitulos(FTitulo);
|
||
|
||
if (Contacto as IBizCliente).BLOQUEADO = 1 then
|
||
JvNavPanelHeader.Caption := JvNavPanelHeader.Caption + ' (Bloqueado)';
|
||
end;
|
||
|
||
procedure TfEditorCliente.SetContacto(const Value: IBizContacto);
|
||
begin
|
||
inherited;
|
||
if Assigned(Contacto) then
|
||
begin
|
||
frViewDireccionesEntrega1.dsDetalles.DataTable := Contacto.Direcciones.DataTable;
|
||
frViewClienteDescuentos1.dsDetalles.DataTable := (Contacto as IBizCliente).Descuentos.DataTable;
|
||
frViewClienteDatosComerciales1.Contacto := Contacto;
|
||
end
|
||
else begin
|
||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
||
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
|
||
frViewClienteDatosComerciales1.Contacto := NIL;
|
||
end;
|
||
end;
|
||
|
||
end.
|