Más para la configuración del cliente.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@265 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contactos/Views/uContactosViewRegister.pas

@@ -8,13 +8,14 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils,
+  uEditorRegistryUtils, uViewConfiguracionRegistryUtils,
   uEditorClientes, uEditorProveedores,
   uEditorVendedores, uEditorElegirCLientes,
   uEditorCliente, uEditorProveedor,
   uEditorVendedor, uEditorElegirProveedores, uEditorDireccion,
   uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
-  uEditorGruposProveedor, uEditorEtiquetasContactosReport;
+  uEditorGruposProveedor, uEditorEtiquetasContactosReport,
+  uViewConfiguracionContactos;
 
 procedure RegisterViews;
 begin
@@ -37,6 +38,8 @@ begin
   EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
 
   EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
+
+  ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos');
 end;
 
 procedure UnregisterViews;
@@ -60,6 +63,8 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
 
   EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
+
+  ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos);
 end;
 
 end.

Source/Modulos/Contactos/Views/uViewConfiguracionContactos.dfm

@@ -0,0 +1,15 @@
+inherited frViewConfiguracionContactos: TfrViewConfiguracionContactos
+  Height = 325
+  ExplicitHeight = 325
+  inherited Panel1: TPanel
+    Visible = False
+    inherited Label3: TLabel
+      Width = 429
+      Caption = 'Configuraci'#243'n para clientes'
+      ExplicitWidth = 166
+    end
+  end
+  inherited JvGradientHeaderPanel1: TJvGradientHeaderPanel
+    LabelCaption = 'Configuraci'#243'n para contactos'
+  end
+end

Source/Modulos/Contactos/Views/uViewConfiguracionContactos.pas

@@ -0,0 +1,56 @@
+unit uViewConfiguracionContactos;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewConfiguracionBase, JvExControls, JvGradientHeaderPanel,
+  StdCtrls, ExtCtrls, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
+  dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, cxControls,
+  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxSpinEdit;
+
+type
+  TfrViewConfiguracionContactos = class(TfrViewConfiguracionBase)
+  private
+    { Private declarations }
+  public
+    class function GetViewClass : TClass; override;
+    class function DarEtiqueta : String; override;
+    procedure CargarValores; override;
+    procedure GuardarValores; override;
+  end;
+
+
+implementation
+
+{$R *.dfm}
+
+{ TfrViewConfiguracionBase1 }
+
+procedure TfrViewConfiguracionContactos.CargarValores;
+begin
+  inherited;
+  //
+end;
+
+class function TfrViewConfiguracionContactos.DarEtiqueta: String;
+begin
+  Result := 'Contactos';
+end;
+
+class function TfrViewConfiguracionContactos.GetViewClass: TClass;
+begin
+  Result := TfrViewConfiguracionContactos;
+end;
+
+procedure TfrViewConfiguracionContactos.GuardarValores;
+begin
+  inherited;
+  //
+end;
+
+end.