roberto
d6e8d1a440
Tambien se ha incluido la directiva de compilacion para el modulo de contabilidad git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@164 f4e31baf-9722-1c47-927c-6f952f962d4b
127 lines
3.9 KiB
ObjectPascal
127 lines
3.9 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, uViewSubCuentaContacto;
|
||
|
||
type
|
||
TfEditorCliente = class(TfEditorContacto, IEditorCliente)
|
||
frViewCliente1: TfrViewCliente;
|
||
pagDirecciones: TTabSheet;
|
||
frViewDireccionesEntrega1: TfrViewDireccionesEntrega;
|
||
actGruposCliente: TAction;
|
||
TBXItem7: TTBXItem;
|
||
pagDescuentos: TTabSheet;
|
||
frViewClienteDescuentos1: TfrViewClienteDescuentos;
|
||
pagDatosComerciales: TTabSheet;
|
||
frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
|
||
pagContabilidad: TTabSheet;
|
||
frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
|
||
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
|
||
{$R *.dfm}
|
||
{$INCLUDE ..\..\..\FactuGES.inc}
|
||
|
||
uses
|
||
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
|
||
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils;
|
||
|
||
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;
|
||
|
||
{$IFDEF CONTABILIDAD}
|
||
pagContabilidad.TabVisible := true;
|
||
{$ELSE}
|
||
pagContabilidad.TabVisible := false;
|
||
{$ENDIF}
|
||
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;
|
||
frViewSubCuentaContacto1.Contacto := Contacto;
|
||
end
|
||
else begin
|
||
frViewDireccionesEntrega1.dsDetalles.DataTable := NIL;
|
||
frViewClienteDescuentos1.dsDetalles.DataTable := NIL;
|
||
frViewClienteDatosComerciales1.Contacto := NIL;
|
||
frViewSubCuentaContacto1.Contacto := NIL;
|
||
end;
|
||
end;
|
||
|
||
end.
|