Subida de procedencias de cliente para las fichas de cliente

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

Source/FactuGES.inc

@@ -0,0 +1 @@
+{DEFINE ALMACEN}

Source/Modulos/Contactos/Controller/Contactos_controller.dpk

@@ -32,7 +32,16 @@ requires
   ApplicationBase,
   Contactos_model,
   Contactos_data,
-  Contabilidad_controller;
+  Contabilidad_controller,
+  dbrtl,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11;
 
 contains
   uContactosController in 'uContactosController.pas',
@@ -62,6 +71,8 @@ contains
   uFichasEmpleadoReportController in 'uFichasEmpleadoReportController.pas',
   uIEditorFichasEmpleadoPreview in 'View\uIEditorFichasEmpleadoPreview.pas',
   uEtiquetasContactosReportController in 'uEtiquetasContactosReportController.pas',
-  uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas';
+  uIEditorEtiquetasContactosPreview in 'View\uIEditorEtiquetasContactosPreview.pas',
+  uProcedenciasClienteController in 'uProcedenciasClienteController.pas',
+  uIEditorProcedenciasCliente in 'View\uIEditorProcedenciasCliente.pas';
 
 end.

Source/Modulos/Contactos/Controller/Contactos_controller.dproj

@@ -43,6 +43,15 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclDebugExpert100.bpl">JCL Debug IDE extension</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclProjectAnalysisExpert100.bpl">JCL Project Analyzer</Excluded_Packages>
       <Excluded_Packages Name="D:\MISDOC~1\BORLAN~1\Bpl\JclFavoriteFoldersExpert100.bpl">JCL Open and Save IDE dialogs with favorite folders</Excluded_Packages>
@@ -53,14 +62,6 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_data.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="..\..\Lib\vcl.dcp" />
     <DCCReference Include="uClientesController.pas" />
     <DCCReference Include="uContactosController.pas" />
     <DCCReference Include="uDireccionesContactoController.pas" />
@@ -70,7 +71,23 @@
     <DCCReference Include="uGruposClienteController.pas" />
     <DCCReference Include="uGruposEmpleadoController.pas" />
     <DCCReference Include="uGruposProveedorController.pas" />
+    <DCCReference Include="uProcedenciasClienteController.pas" />
     <DCCReference Include="uProveedoresController.pas" />
+    <DCCReference Include="View\adortl.dcp" />
+    <DCCReference Include="View\ApplicationBase.dcp" />
+    <DCCReference Include="View\Base.dcp" />
+    <DCCReference Include="View\Contabilidad_controller.dcp" />
+    <DCCReference Include="View\Contactos_data.dcp" />
+    <DCCReference Include="View\Contactos_model.dcp" />
+    <DCCReference Include="View\cxLibraryD11.dcp" />
+    <DCCReference Include="View\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="View\dbrtl.dcp" />
+    <DCCReference Include="View\dsnap.dcp" />
+    <DCCReference Include="View\dxGDIPlusD11.dcp" />
+    <DCCReference Include="View\dxThemeD11.dcp" />
+    <DCCReference Include="View\GUIBase.dcp" />
+    <DCCReference Include="View\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="View\rtl.dcp" />
     <DCCReference Include="View\uIEditorCliente.pas" />
     <DCCReference Include="View\uIEditorClientes.pas" />
     <DCCReference Include="View\uIEditorContacto.pas" />
@@ -87,8 +104,11 @@
     <DCCReference Include="View\uIEditorGruposCliente.pas" />
     <DCCReference Include="View\uIEditorGruposEmpleado.pas" />
     <DCCReference Include="View\uIEditorGruposProveedor.pas" />
+    <DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
     <DCCReference Include="View\uIEditorProveedor.pas" />
     <DCCReference Include="View\uIEditorProveedores.pas" />
+    <DCCReference Include="View\vcl.dcp" />
+    <DCCReference Include="View\vcldb.dcp" />
     <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
   </ItemGroup>
 </Project>

Source/Modulos/Contactos/Controller/View/uIEditorProcedenciasCliente.pas

@@ -0,0 +1,23 @@
+unit uIEditorProcedenciasCliente;
+
+interface
+
+uses
+  uEditorDBBase, uBizProcedenciasCliente, uProcedenciasClienteController;
+
+type
+  IEditorProcedenciasCliente = interface(IEditorDBBase)
+  ['{E4FD5FEA-9771-40FD-AC69-600BE859ECCE}']
+    function GetProcedenciasCliente: IBizProcedenciaCliente;
+    procedure SetProcedenciasCliente(const Value: IBizProcedenciaCliente);
+    property ProcedenciasCliente: IBizProcedenciaCliente read GetProcedenciasCliente write SetProcedenciasCliente;
+
+    function GetController : IProcedenciasClienteController;
+    procedure SetController (const Value : IProcedenciasClienteController);
+    property Controller : IProcedenciasClienteController read GetController write SetController;
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas

@@ -0,0 +1,227 @@
+unit uProcedenciasClienteController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
+  uIDataModuleClientes, uBizProcedenciasCliente;
+
+type
+  IProcedenciasClienteController = interface(IObservador)
+  ['{C2D71CED-DCD6-47F1-8BCA-1027DA4A6385}']
+    function BuscarTodos: IBizProcedenciaCliente;
+    procedure VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
+    procedure Anadir(AProcedenciaCliente : IBizProcedenciaCliente);
+    function Eliminar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean; 
+    function Guardar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
+    procedure DescartarCambios(AProcedenciaCliente : IBizProcedenciaCliente);
+    function Localizar(AProcedenciasCliente: IBizProcedenciaCliente; ADescripcion:String): Boolean;
+    function DarListaProcedenciasCliente: TStringList;
+  end;
+
+  TProcedenciasClienteController = class(TObservador, IProcedenciasClienteController)
+  protected
+    FDataModule : IDataModuleClientes;
+    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+    function ValidarProcedenciaCliente(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
+    procedure AsignarDataModule; virtual;
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+    function Eliminar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
+    function Guardar(AProcedenciaCliente : IBizProcedenciaCliente): Boolean;
+    procedure DescartarCambios(AProcedenciaCliente : IBizProcedenciaCliente); virtual;
+    procedure Anadir(AProcedenciaCliente : IBizProcedenciaCliente);
+    function BuscarTodos: IBizProcedenciaCliente;
+    procedure VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
+    function Localizar(AProcedenciasCliente: IBizProcedenciaCliente; ADescripcion:String): Boolean;
+    function DarListaProcedenciasCliente: TStringList;
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils,
+  uIEditorProcedenciasCliente, uDataModuleClientes,
+  uDAInterfaces, uDataTableUtils, 
+  uDateUtils, uROTypes, DateUtils, Controls, Windows, schContactosClient_Intf;
+
+{ TProcedenciasClienteController }
+
+procedure TProcedenciasClienteController.Anadir(AProcedenciaCliente: IBizProcedenciaCliente);
+begin
+  AProcedenciaCliente.Insert;
+end;
+
+procedure TProcedenciasClienteController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleClientes.Create(Nil);
+end;
+
+function TProcedenciasClienteController.BuscarTodos: IBizProcedenciaCliente;
+begin
+  Result := FDataModule.GetProcedenciasCliente;
+end;
+
+constructor TProcedenciasClienteController.Create;
+begin
+  inherited;
+  AsignarDataModule;
+end;
+
+function TProcedenciasClienteController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+function TProcedenciasClienteController.DarListaProcedenciasCliente: TStringList;
+var
+  AProcedenciasCliente: IBizProcedenciaCliente;
+begin
+  AProcedenciasCliente := BuscarTodos;
+  AProcedenciasCliente.DataTable.Active := True;
+  Result := TStringList.Create;
+  try
+    with Result do
+    begin
+      AProcedenciasCliente.DataTable.First;
+      while not AProcedenciasCliente.DataTable.EOF do
+      begin
+        Add(AProcedenciasCliente.DESCRIPCION);
+        AProcedenciasCliente.DataTable.Next;
+      end;
+    end;
+  finally
+    AProcedenciasCliente := NIL;
+  end;
+end;
+
+procedure TProcedenciasClienteController.DescartarCambios(AProcedenciaCliente: IBizProcedenciaCliente);
+begin
+  if not Assigned(AProcedenciaCliente) then
+    raise Exception.Create ('ProcedenciaCliente no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (AProcedenciaCliente.State in dsEditModes) then
+      AProcedenciaCliente.Cancel;
+
+    AProcedenciaCliente.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+destructor TProcedenciasClienteController.Destroy;
+begin
+  FDataModule := Nil;
+  inherited;
+end;
+
+function TProcedenciasClienteController.ValidarProcedenciaCliente(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AProcedenciaCliente) then
+    raise Exception.Create ('ProcedenciaCliente no asignada');
+
+  if (AProcedenciaCliente.DataTable.State in dsEditModes) then
+    AProcedenciaCliente.DataTable.Post;
+
+  if Length(AProcedenciaCliente.DESCRIPCION) = 0 then
+    raise Exception.Create('Debe indicar al menos la descripción de esta procedencia.');
+
+  Result := True;
+end;
+
+procedure TProcedenciasClienteController.VerTodos(AProcedenciasCliente: IBizProcedenciaCliente);
+var
+  AEditor : IEditorProcedenciasCliente;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorProcedenciasCliente', IEditorProcedenciasCliente, AEditor);
+    if Assigned(AEditor) then
+       with AEditor do
+       begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
+         ProcedenciasCliente := AProcedenciasCliente;
+         ShowModal;
+         Release;
+       end;
+  finally
+    AEditor := NIL;
+    HideHourglassCursor;
+  end;
+end;
+
+function TProcedenciasClienteController.Eliminar(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AProcedenciaCliente) then
+    raise Exception.Create ('ProcedenciaCliente no asignada');
+
+  ShowHourglassCursor;
+  try
+    if (AProcedenciaCliente.State in dsEditModes) then
+      AProcedenciaCliente.Cancel;
+
+    AProcedenciaCliente.Delete;
+    AProcedenciaCliente.DataTable.ApplyUpdates;
+    HideHourglassCursor;
+    Result := True;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TProcedenciasClienteController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+function TProcedenciasClienteController.Guardar(AProcedenciaCliente: IBizProcedenciaCliente): Boolean;
+begin
+  Result := False;
+
+  if ValidarProcedenciaCliente(AProcedenciaCliente) then
+  begin
+    ShowHourglassCursor;
+    try
+      if (AProcedenciaCliente.DataTable.State in dsEditModes) then
+          AProcedenciaCliente.DataTable.Post;
+
+      AProcedenciaCliente.DataTable.ApplyUpdates;
+
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TProcedenciasClienteController.Localizar(AProcedenciasCliente: IBizProcedenciaCliente; ADescripcion: String): Boolean;
+begin
+  Result := True;
+  ShowHourglassCursor;
+  try
+    with AProcedenciasCliente.DataTable do
+    begin
+      DisableControls;
+      First;
+      if not Locate(fld_ProcedenciasClienteDESCRIPCION, ADescripcion, []) then
+         Result := False;
+      EnableControls;   
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.

Source/Modulos/Contactos/Data/uDataModuleClientes.dfm

@@ -1,6 +1,6 @@
 inherited DataModuleClientes: TDataModuleClientes
   Height = 325
-  Width = 701
+  Width = 738
   inherited rda_Contactos: TDARemoteDataAdapter
     Top = 79
   end
@@ -249,6 +249,13 @@ inherited DataModuleClientes: TDataModuleClientes
         DataType = datInteger
         DisplayLabel = 'Clientes_IGNORAR_CONTABILIDAD'
         DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
+      end
+      item
+        Name = 'PROCEDENCIA_CLIENTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Clientes_PROCEDENCIA_CLIENTE'
+        DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -414,4 +421,28 @@ inherited DataModuleClientes: TDataModuleClientes
     Left = 600
     Top = 16
   end
+  object tbl_ProcedenciasCliente: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_Contactos
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'ProcedenciasCliente'
+    IndexDefs = <>
+    Left = 648
+    Top = 168
+  end
+  object ds_ProcedenciasCliente: TDADataSource
+    DataSet = tbl_ProcedenciasCliente.Dataset
+    DataTable = tbl_ProcedenciasCliente
+    Left = 648
+    Top = 224
+  end
 end

Source/Modulos/Contactos/Data/uDataModuleClientes.pas

@@ -7,8 +7,8 @@ uses
   DB, uDADataTable, uDAScriptingProvider,
   uDACDSDataTable, uDABINAdapter, uROServiceComponent, uRORemoteService,
   uROClient, uROBinMessage, uROWinInetHttpChannel, uBizClientesDescuentos,
-  uBizGruposCliente, uBizContactos, uBizSubCuentasContacto, uDataModuleContactos,
+  uBizGruposCliente, uBizProcedenciasCliente, uBizContactos, uBizSubCuentasContacto,
-  uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
+  uDataModuleContactos, uIDataModuleClientes, uDADesigntimeCall, uDARemoteDataAdapter,
   uDADataStreamer, uRODynamicRequest, uDAInterfaces, uDAMemDataTable,
   uDABin2DataStreamer, uControllerBase, uBizContactosDatosBancarios,
   uIDataModuleContactos;
@@ -23,6 +23,8 @@ type
     ds_GruposCliente: TDADataSource;
     tbl_SubCuentasContacto: TDAMemDataTable;
     ds_SubCuentasContacto: TDADataSource;
+    tbl_ProcedenciasCliente: TDAMemDataTable;
+    ds_ProcedenciasCliente: TDADataSource;
   protected
     function _GetDescuentos: IBizClienteDescuentos;
     function _GetSubCuentas: IBizSubCuentasContacto;
@@ -32,6 +34,7 @@ type
     function GetItems : IBizCliente;
     function GetItemsTiendaWeb : IBizCliente;
     function GetGruposCliente : IBizGrupoCliente;
+    function GetProcedenciasCliente : IBizProcedenciaCliente;
   end;
 
 implementation
@@ -127,6 +130,20 @@ begin
   end;
 end;
 
+function TDataModuleClientes.GetProcedenciasCliente: IBizProcedenciaCliente;
+var
+  AProcedenciaCliente : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    AProcedenciaCliente := CloneDataTable(tbl_ProcedenciasCliente);
+    AProcedenciaCliente.BusinessRulesID := BIZ_CLIENT_PROCEDENCIASCLIENTE;
+    Result := (AProcedenciaCliente as IBizProcedenciaCliente);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TDataModuleClientes.NewItem: IBizCliente;
 begin
   Result := GetItem(ID_NULO)

Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm

@@ -220,6 +220,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
       item
         Name = 'GRUPO_PROVEEDOR'
         DataType = datString
+        Size = 255
         DisplayLabel = 'Grupo proveedor'
         DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
       end

Source/Modulos/Contactos/Model/Contactos_model.dpk

@@ -54,6 +54,7 @@ contains
   uIDataModuleEtiquetasContactosReport in 'Data\uIDataModuleEtiquetasContactosReport.pas',
   schContactosClient_Intf in 'schContactosClient_Intf.pas',
   schContactosServer_Intf in 'schContactosServer_Intf.pas',
-  uBizSubCuentasContacto in 'uBizSubCuentasContacto.pas';
+  uBizSubCuentasContacto in 'uBizSubCuentasContacto.pas',
+  uBizProcedenciasCliente in 'uBizProcedenciasCliente.pas';
 
 end.

Source/Modulos/Contactos/Model/Contactos_model.dproj

@@ -74,6 +74,7 @@
     <DCCReference Include="uBizGruposCliente.pas" />
     <DCCReference Include="uBizGruposEmpleado.pas" />
     <DCCReference Include="uBizGruposProveedor.pas" />
+    <DCCReference Include="uBizProcedenciasCliente.pas" />
     <DCCReference Include="uBizSubCuentasContacto.pas" />
     <DCCReference Include="vcl.dcp" />
     <DCCReference Include="vcldb.dcp" />

Source/Modulos/Contactos/Model/Data/uIDataModuleClientes.pas

@@ -3,7 +3,8 @@ unit uIDataModuleClientes;
 interface
 
 uses
-  uBizContactos, uIDataModuleContactos, uBizGruposCliente, uBizContactosDatosBancarios;
+  uBizContactos, uIDataModuleContactos, uBizGruposCliente, uBizProcedenciasCliente,
+  uBizContactosDatosBancarios;
 
 type
   IDataModuleClientes = interface(IDataModuleContactos)
@@ -16,6 +17,7 @@ type
     function GetItems : IBizCliente;
     function GetItemsTiendaWeb : IBizCliente;
     function GetGruposCliente : IBizGrupoCliente;
+    function GetProcedenciasCliente : IBizProcedenciaCliente;
   end;
 
 

Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

@@ -3,24 +3,25 @@ unit schContactosClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_SubCuentasContacto = '{4E9A4351-6088-4C3D-89BE-5C2045F3142E}';
+  RID_SubCuentasContacto = '{453B7BA1-323F-417A-8B42-F56AAB9BC9ED}';
-  RID_Contactos = '{7488A5BA-619B-4BAB-A118-BCED33A85729}';
+  RID_Contactos = '{6EA22F95-6490-4206-AEFC-464E2445D2F6}';
-  RID_GruposCliente = '{3581CC88-21B9-4C30-A3AE-7565C18C3290}';
+  RID_GruposCliente = '{51F47DED-0BF8-43BE-AF8B-BEB6D5C15CE9}';
-  RID_DatosBancarios = '{039C7134-AC7B-45EE-B678-BF31C4266A3E}';
+  RID_DatosBancarios = '{674DE4ED-7DD8-4D41-BE3C-622E01369871}';
-  RID_Clientes = '{39651BB6-A46C-4E18-8370-B7E381F5E438}';
+  RID_Clientes = '{9FB6B0C3-74B1-4017-BAB3-8C34BA5188D9}';
-  RID_Proveedores = '{4E9E99D2-0F82-481A-9BD2-6178349034A0}';
+  RID_Proveedores = '{C7CA7A82-6DFA-4038-B95F-FFF7029458A1}';
-  RID_Empleados = '{C0B6AA11-68AE-4658-9308-8C29C5F0936D}';
+  RID_Empleados = '{01B148F8-50BB-4463-97A0-AF187AEDB96E}';
-  RID_DireccionesContacto = '{EF3A2758-0CBE-4482-8770-91AD4F993A04}';
+  RID_DireccionesContacto = '{2359A18E-A102-43D1-9921-22654D3DC341}';
-  RID_ClientesDescuentos = '{D64874F0-7499-4AC8-B3F1-DC1D63923CE9}';
+  RID_ClientesDescuentos = '{29CCEAE4-2C27-4206-8993-DBBE74270B7C}';
-  RID_GruposProveedor = '{86B9993A-ECB2-43E3-BA37-2C8DD53497A8}';
+  RID_ProcedenciasCliente = '{E5CFB5E4-8EC2-406C-91D7-F1228EE19FF9}';
-  RID_GruposEmpleado = '{877D71DA-AE8B-4B26-969F-AAA4DB1405D1}';
+  RID_GruposProveedor = '{61FBEB42-8215-4F10-A664-73961B921082}';
-  RID_Contactos_Refresh = '{8758F490-8118-4E61-AC27-3925D66A739C}';
+  RID_GruposEmpleado = '{1CDC7280-FFB2-4288-AEE4-D80883BD9E17}';
+  RID_Contactos_Refresh = '{52B9CB54-1DF8-4CC7-ACB7-E52676886614}';
 
   { Data table names }
   nme_SubCuentasContacto = 'SubCuentasContacto';
@@ -32,6 +33,7 @@ const
   nme_Empleados = 'Empleados';
   nme_DireccionesContacto = 'DireccionesContacto';
   nme_ClientesDescuentos = 'ClientesDescuentos';
+  nme_ProcedenciasCliente = 'ProcedenciasCliente';
   nme_GruposProveedor = 'GruposProveedor';
   nme_GruposEmpleado = 'GruposEmpleado';
   nme_Contactos_Refresh = 'Contactos_Refresh';
@@ -166,6 +168,7 @@ const
   fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
   fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
   fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
+  fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE';
 
   { Clientes field indexes }
   idx_ClientesID = 0;
@@ -203,6 +206,7 @@ const
   idx_ClientesTIENDA_WEB = 32;
   idx_ClientesCODIGO_ASIGNADO = 33;
   idx_ClientesIGNORAR_CONTABILIDAD = 34;
+  idx_ClientesPROCEDENCIA_CLIENTE = 35;
 
   { Proveedores fields }
   fld_ProveedoresID = 'ID';
@@ -390,6 +394,12 @@ const
   idx_ClientesDescuentosNOMBRE = 3;
   idx_ClientesDescuentosDESCUENTO = 4;
 
+  { ProcedenciasCliente fields }
+  fld_ProcedenciasClienteDESCRIPCION = 'DESCRIPCION';
+
+  { ProcedenciasCliente field indexes }
+  idx_ProcedenciasClienteDESCRIPCION = 0;
+
   { GruposProveedor fields }
   fld_GruposProveedorDESCRIPCION = 'DESCRIPCION';
 
@@ -451,7 +461,7 @@ const
 type
   { ISubCuentasContacto }
   ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
-  ['{67E58E93-5163-41A9-86BD-6D2721F65D18}']
+  ['{636CE6F2-F39C-4581-B6EE-74C8DC674858}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -495,7 +505,7 @@ type
   end;
 
   { TSubCuentasContactoDataTableRules }
-  TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
+  TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
   private
   protected
     { Property getters and setters }
@@ -546,7 +556,7 @@ type
 
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{FCE955D0-D867-4E9E-AEF2-9CAEA0B6E1DC}']
+  ['{F8E773E0-524E-471D-9D40-E2E1F76CEB23}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -691,7 +701,7 @@ type
   end;
 
   { TContactosDataTableRules }
-  TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
+  TContactosDataTableRules = class(TDADataTableRules, IContactos)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -845,7 +855,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{A2060827-0FC3-452C-9EC0-A58E54F95402}']
+  ['{57B3966E-B7C9-4DBF-8ADE-A988221D08FB}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -859,7 +869,7 @@ type
   end;
 
   { TGruposClienteDataTableRules }
-  TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
+  TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
   private
   protected
     { Property getters and setters }
@@ -880,7 +890,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{91DB169A-8525-43B6-BCA9-DED818C22BFF}']
+  ['{C11E1061-38CA-4050-843F-A4BCA66BB16A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -942,7 +952,7 @@ type
   end;
 
   { TDatosBancariosDataTableRules }
-  TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
+  TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
   private
   protected
     { Property getters and setters }
@@ -1011,7 +1021,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{EEA29F68-9A96-461E-9D7B-1AA1D0E26123}']
+  ['{4BE233B1-CAA0-4046-90DD-AE98874CA216}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1152,6 +1162,10 @@ type
     procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
     function GetIGNORAR_CONTABILIDADIsNull: Boolean;
     procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+    function GetPROCEDENCIA_CLIENTEValue: String;
+    procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+    function GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+    procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1225,10 +1239,12 @@ type
     property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
     property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
     property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+    property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+    property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
   end;
 
   { TClientesDataTableRules }
-  TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
+  TClientesDataTableRules = class(TDADataTableRules, IClientes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1373,6 +1389,10 @@ type
     procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
     function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
     procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
+    function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+    procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+    function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1445,6 +1465,8 @@ type
     property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
     property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
     property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+    property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+    property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1454,7 +1476,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{9EFD8DE5-E98C-4071-8CF6-E75A9AA9E3C3}']
+  ['{78D65CFD-5B95-4EBB-B4D6-AE67A41A26DC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1665,7 +1687,7 @@ type
   end;
 
   { TProveedoresDataTableRules }
-  TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
+  TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1885,7 +1907,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{6A39017E-6CFF-4DA5-9685-9CA1F72AD052}']
+  ['{BABFCBDE-10A2-4F2F-8C00-FA5F273552BB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2068,7 +2090,7 @@ type
   end;
 
   { TEmpleadosDataTableRules }
-  TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
+  TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
   private
     f_NOTAS: IROStrings;
     f_FORMACION_BASE: IROStrings;
@@ -2268,7 +2290,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{FC464110-B68D-47F7-B110-E8F0CAB02469}']
+  ['{A1E4440E-7C2B-47D0-9F5B-1C05EA949260}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2371,7 +2393,7 @@ type
   end;
 
   { TDireccionesContactoDataTableRules }
-  TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
+  TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2483,7 +2505,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{E18F5CD7-822B-48C7-9C22-A13591398D44}']
+  ['{36595819-5873-4417-861E-965E05572490}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2521,7 +2543,7 @@ type
   end;
 
   { TClientesDescuentosDataTableRules }
-  TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
+  TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
   private
   protected
     { Property getters and setters }
@@ -2564,9 +2586,44 @@ type
 
   end;
 
+  { IProcedenciasCliente }
+  IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
+  ['{B40342B9-D515-44CE-B625-AB2A28D1A492}']
+    { Property getters and setters }
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+  end;
+
+  { TProcedenciasClienteDataTableRules }
+  TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente)
+  private
+  protected
+    { Property getters and setters }
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{CA3DAC4A-3007-47A3-89C2-B8D256F3302E}']
+  ['{D71CE338-57E9-4A9F-9FDF-930F8A604CC2}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2580,7 +2637,7 @@ type
   end;
 
   { TGruposProveedorDataTableRules }
-  TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
+  TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
   private
   protected
     { Property getters and setters }
@@ -2601,7 +2658,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{69A5969A-4106-4587-BAED-06541567A599}']
+  ['{9D1C5665-2840-4EC1-B63D-341C8A2D30DC}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2615,7 +2672,7 @@ type
   end;
 
   { TGruposEmpleadoDataTableRules }
-  TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
+  TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
   private
   protected
     { Property getters and setters }
@@ -2636,7 +2693,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{862C6067-8EDC-4805-8BA3-3131D61764C6}']
+  ['{8411F090-017B-41A0-814D-1AB25F794BA4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2769,7 +2826,7 @@ type
   end;
 
   { TContactos_RefreshDataTableRules }
-  TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
+  TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -4540,6 +4597,27 @@ begin
     DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsVariant := Null;
 end;
 
+function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
+end;
+
+procedure TClientesDataTableRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString := aValue;
+end;
+
+function TClientesDataTableRules.GetPROCEDENCIA_CLIENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null;
+end;
+
 
 { TProveedoresDataTableRules }
 constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@@ -6415,6 +6493,39 @@ begin
 end;
 
 
+{ TProcedenciasClienteDataTableRules }
+constructor TProcedenciasClienteDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TProcedenciasClienteDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TProcedenciasClienteDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString;
+end;
+
+procedure TProcedenciasClienteDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString := aValue;
+end;
+
+function TProcedenciasClienteDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].IsNull;
+end;
+
+procedure TProcedenciasClienteDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsVariant := Null;
+end;
+
+
 { TGruposProveedorDataTableRules }
 constructor TGruposProveedorDataTableRules.Create(aDataTable: TDADataTable);
 begin
@@ -6951,6 +7062,7 @@ initialization
   RegisterDataTableRules(RID_Empleados, TEmpleadosDataTableRules);
   RegisterDataTableRules(RID_DireccionesContacto, TDireccionesContactoDataTableRules);
   RegisterDataTableRules(RID_ClientesDescuentos, TClientesDescuentosDataTableRules);
+  RegisterDataTableRules(RID_ProcedenciasCliente, TProcedenciasClienteDataTableRules);
   RegisterDataTableRules(RID_GruposProveedor, TGruposProveedorDataTableRules);
   RegisterDataTableRules(RID_GruposEmpleado, TGruposEmpleadoDataTableRules);
   RegisterDataTableRules(RID_Contactos_Refresh, TContactos_RefreshDataTableRules);

Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

@@ -9,23 +9,24 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_SubCuentasContactoDelta = '{C61B54E1-F314-4542-997D-397E249D61FA}';
+  RID_SubCuentasContactoDelta = '{176D6032-77EB-42E3-B00D-A36F39E7FADA}';
-  RID_ContactosDelta = '{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}';
+  RID_ContactosDelta = '{1750564A-A0EB-447F-85D4-974BE7F93A1B}';
-  RID_GruposClienteDelta = '{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}';
+  RID_GruposClienteDelta = '{70646CE7-C62A-4D10-BCF5-245AAB51EE1B}';
-  RID_DatosBancariosDelta = '{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}';
+  RID_DatosBancariosDelta = '{85AE58EF-3FF7-4F77-A94B-55AD73296126}';
-  RID_ClientesDelta = '{DB2F0740-6510-4933-8319-A6C42A41B1D3}';
+  RID_ClientesDelta = '{7FB0E1AC-84E2-4C85-BDA4-EF7AEA8F3061}';
-  RID_ProveedoresDelta = '{4F4D8353-5DFD-493F-98A7-098340C343A0}';
+  RID_ProveedoresDelta = '{B54B8DC8-4564-46C3-8400-19DDCF3B2BF0}';
-  RID_EmpleadosDelta = '{D89254AA-A456-4113-9356-87878DD0342B}';
+  RID_EmpleadosDelta = '{FE0C063A-18A0-4DBA-BC6A-2323006103FE}';
-  RID_DireccionesContactoDelta = '{488B60E5-27F3-4A85-B8CF-A78A05CE3555}';
+  RID_DireccionesContactoDelta = '{150BDD77-02FA-4D7C-BD7A-601E2080A0D5}';
-  RID_ClientesDescuentosDelta = '{0E2CBA43-B994-4B22-9560-96C73CE304F3}';
+  RID_ClientesDescuentosDelta = '{DB9B02CC-FD38-44BC-AEF1-D290B33ECDF3}';
-  RID_GruposProveedorDelta = '{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}';
+  RID_ProcedenciasClienteDelta = '{7250F4FB-83DB-46E7-9A36-A9428DDDB86C}';
-  RID_GruposEmpleadoDelta = '{784E3585-2E4F-441F-9B7C-ACF190737701}';
+  RID_GruposProveedorDelta = '{80F30B7C-3451-4673-BF93-149065EC9D11}';
-  RID_Contactos_RefreshDelta = '{141705B2-3547-40A3-B6B9-4ABFDE30CD10}';
+  RID_GruposEmpleadoDelta = '{94F7258A-EF0A-4E0F-BD2B-EB41E541A86B}';
+  RID_Contactos_RefreshDelta = '{4C6D6C3E-4B74-4B9A-A59E-B640D3DB0415}';
 
 type
   { ISubCuentasContactoDelta }
   ISubCuentasContactoDelta = interface(ISubCuentasContacto)
-  ['{C61B54E1-F314-4542-997D-397E249D61FA}']
+  ['{176D6032-77EB-42E3-B00D-A36F39E7FADA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_SUBCUENTAValue : String;
@@ -119,7 +120,7 @@ type
 
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}']
+  ['{1750564A-A0EB-447F-85D4-974BE7F93A1B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -418,7 +419,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}']
+  ['{70646CE7-C62A-4D10-BCF5-245AAB51EE1B}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -452,7 +453,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}']
+  ['{85AE58EF-3FF7-4F77-A94B-55AD73296126}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -582,7 +583,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{DB2F0740-6510-4933-8319-A6C42A41B1D3}']
+  ['{7FB0E1AC-84E2-4C85-BDA4-EF7AEA8F3061}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -619,6 +620,7 @@ type
     function GetOldTIENDA_WEBValue : SmallInt;
     function GetOldCODIGO_ASIGNADOValue : String;
     function GetOldIGNORAR_CONTABILIDADValue : Integer;
+    function GetOldPROCEDENCIA_CLIENTEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -656,6 +658,7 @@ type
     property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
     property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
     property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
+    property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
   end;
 
   { TClientesBusinessProcessorRules }
@@ -874,6 +877,12 @@ type
     function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
     procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
     procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
+    function GetPROCEDENCIA_CLIENTEValue: String; virtual;
+    function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+    function GetOldPROCEDENCIA_CLIENTEValue: String; virtual;
+    function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual;
+    procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual;
+    procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1016,6 +1025,10 @@ type
     property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
     property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
     property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
+    property PROCEDENCIA_CLIENTE : String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
+    property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull;
+    property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue;
+    property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1025,7 +1038,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{4F4D8353-5DFD-493F-98A7-098340C343A0}']
+  ['{B54B8DC8-4564-46C3-8400-19DDCF3B2BF0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1456,7 +1469,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{D89254AA-A456-4113-9356-87878DD0342B}']
+  ['{FE0C063A-18A0-4DBA-BC6A-2323006103FE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1843,7 +1856,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{488B60E5-27F3-4A85-B8CF-A78A05CE3555}']
+  ['{150BDD77-02FA-4D7C-BD7A-601E2080A0D5}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2058,7 +2071,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{0E2CBA43-B994-4B22-9560-96C73CE304F3}']
+  ['{DB9B02CC-FD38-44BC-AEF1-D290B33ECDF3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2138,9 +2151,43 @@ type
 
   end;
 
+  { IProcedenciasClienteDelta }
+  IProcedenciasClienteDelta = interface(IProcedenciasCliente)
+  ['{7250F4FB-83DB-46E7-9A36-A9428DDDB86C}']
+    { Property getters and setters }
+    function GetOldDESCRIPCIONValue : String;
+
+    { Properties }
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+  end;
+
+  { TProcedenciasClienteBusinessProcessorRules }
+  TProcedenciasClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IProcedenciasCliente, IProcedenciasClienteDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}']
+  ['{80F30B7C-3451-4673-BF93-149065EC9D11}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2174,7 +2221,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{784E3585-2E4F-441F-9B7C-ACF190737701}']
+  ['{94F7258A-EF0A-4E0F-BD2B-EB41E541A86B}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2208,7 +2255,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{141705B2-3547-40A3-B6B9-4ABFDE30CD10}']
+  ['{4C6D6C3E-4B74-4B9A-A59E-B640D3DB0415}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -4855,6 +4902,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := Null;
 end;
 
+function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
+end;
+
+function TClientesBusinessProcessorRules.GetPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
+end;
+
+function TClientesBusinessProcessorRules.GetOldPROCEDENCIA_CLIENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPROCEDENCIA_CLIENTE]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null;
+end;
+
 
 { TProveedoresBusinessProcessorRules }
 constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -7587,6 +7665,49 @@ begin
 end;
 
 
+{ TProcedenciasClienteBusinessProcessorRules }
+constructor TProcedenciasClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TProcedenciasClienteBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION];
+end;
+
+function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION]);
+end;
+
+function TProcedenciasClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteDESCRIPCION];
+end;
+
+function TProcedenciasClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteDESCRIPCION]);
+end;
+
+procedure TProcedenciasClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION] := aValue;
+end;
+
+procedure TProcedenciasClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION] := Null;
+end;
+
+
 { TGruposProveedorBusinessProcessorRules }
 constructor TGruposProveedorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
@@ -8354,6 +8475,7 @@ initialization
   RegisterBusinessProcessorRules(RID_EmpleadosDelta, TEmpleadosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_DireccionesContactoDelta, TDireccionesContactoBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ClientesDescuentosDelta, TClientesDescuentosBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_ProcedenciasClienteDelta, TProcedenciasClienteBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_GruposProveedorDelta, TGruposProveedorBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_GruposEmpleadoDelta, TGruposEmpleadoBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_Contactos_RefreshDelta, TContactos_RefreshBusinessProcessorRules);

Source/Modulos/Contactos/Model/uBizClientesServer.pas

@@ -77,6 +77,7 @@ begin
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
       ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
       ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
+      ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];
       Execute;
     end;
   finally
@@ -115,6 +116,7 @@ begin
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
       ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
       ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
+      ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE];      
       Execute;
     end;
   finally

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -47,6 +47,9 @@ type
     function GetGRUPO_CLIENTEValue: String;
     procedure SetGRUPO_CLIENTEValue(const aValue: String);
 
+    function GetPROCEDENCIA_CLIENTEValue: String;
+    procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+
     function GetNOMBRE_COMERCIALValue: String;
     procedure SetNOMBRE_COMERCIALValue(const aValue: String);
 
@@ -58,7 +61,7 @@ type
 
     function GetMOTIVO_BLOQUEOValue: String;
     procedure SetMOTIVO_BLOQUEOValue(const aValue: String);
-    
+
     function GetRECARGO_EQUIVALENCIAValue: Integer;
     procedure SetRECARGO_EQUIVALENCIAValue(const aValue: Integer);
 
@@ -79,7 +82,7 @@ type
     property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
 
     property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
-
+    property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
     property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
     property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
@@ -231,6 +234,9 @@ type
     function GetGRUPO_CLIENTEValue: String;
     procedure SetGRUPO_CLIENTEValue(const aValue: String);
 
+    function GetPROCEDENCIA_CLIENTEValue: String;
+    procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+
     function GetNOMBRE_COMERCIALValue: String;
     procedure SetNOMBRE_COMERCIALValue(const aValue: String);
 
@@ -273,6 +279,7 @@ type
     destructor Destroy; override;
     property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
     property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
+    property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
     property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue;
     property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue;
@@ -527,6 +534,11 @@ begin
   result := DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString;
 end;
 
+function TBizCliente.GetPROCEDENCIA_CLIENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
+end;
+
 procedure TBizCliente.SetBLOQUEADOValue(const aValue: Integer);
 begin
   DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
@@ -568,6 +580,11 @@ begin
   DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsString := aValue;
 end;
 
+procedure TBizCliente.SetPROCEDENCIA_CLIENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString := aValue;
+end;
+
 function TBizCliente.GetRECARGO_EQUIVALENCIAValue: Integer;
 begin
   Result := DataTable.Fields[idx_ClientesRECARGO_EQUIVALENCIA].AsInteger;

Source/Modulos/Contactos/Model/uBizProcedenciasCliente.pas

@@ -0,0 +1,27 @@
+unit uBizProcedenciasCliente;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schContactosClient_Intf;
+
+const
+  BIZ_CLIENT_PROCEDENCIASCLIENTE = 'Client.ProcedenciaCliente';
+
+type
+  IBizProcedenciaCliente = interface(IProcedenciasCliente)
+  ['{305E0EFE-D650-447A-BF9A-8B5A89AED057}']
+  end;
+
+  TBizProcedenciaCliente = class(TProcedenciasClienteDataTableRules, IBizProcedenciaCliente)
+  end;
+
+implementation
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_PROCEDENCIASCLIENTE, TBizProcedenciaCliente);
+
+finalization
+
+end.
+

Source/Modulos/Contactos/Plugin/uPluginContactos.dfm

@@ -249,6 +249,10 @@ object PluginContactos: TPluginContactos
       ImageIndex = 4
       OnExecute = actGruposEmpleadoExecute
     end
+    object actProcedenciasCliente: TAction
+      Caption = 'Procedencias de cliente'
+      OnExecute = actProcedenciasClienteExecute
+    end
   end
   object MainMenu: TMainMenu
     Images = SmallImages
@@ -269,6 +273,10 @@ object PluginContactos: TPluginContactos
         Tag = 103
         Action = actGruposEmpleado
       end
+      object Procedenciasdecliente1: TMenuItem
+        Tag = 104
+        Action = actProcedenciasCliente
+      end
     end
     object Compras1: TMenuItem
       Caption = '&Compras'

Source/Modulos/Contactos/Plugin/uPluginContactos.pas

@@ -32,17 +32,20 @@ type
     Categoriasdeempleado1: TMenuItem;
     Gruposdeproveedor1: TMenuItem;
     Da1: TMenuItem;
+    actProcedenciasCliente: TAction;
+    Procedenciasdecliente1: TMenuItem;
     procedure actClientesExecute(Sender: TObject);
     procedure actProveedoresExecute(Sender: TObject);
     procedure actEmpleadosExecute(Sender: TObject);
     procedure actGruposClienteExecute(Sender: TObject);
     procedure actGruposProveedorExecute(Sender: TObject);
     procedure actGruposEmpleadoExecute(Sender: TObject);
+    procedure actProcedenciasClienteExecute(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
-  
+
 implementation
 
 {$R *.dfm}
@@ -50,9 +53,9 @@ implementation
 uses
   Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
   uClientesController, uProveedoresController, uEmpleadosController,
-  uGruposClienteController, uBizGruposCliente, uGruposProveedorController,
+  uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente,
-  uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado,
+  uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente,
-  uContactosViewRegister, uBizContactos;
+  uGruposEmpleadoController, uBizGruposEmpleado, uContactosViewRegister, uBizContactos;
 
 function GetModule : TModuleController;
 begin
@@ -110,6 +113,16 @@ begin
   AGruposProveedorController.VerTodos(AGruposProveedor);
 end;
 
+procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject);
+var
+  AProcedenciasClienteController : IProcedenciasClienteController;
+  AProcedenciasCliente : IBizProcedenciaCliente;
+begin
+  AProcedenciasClienteController := TProcedenciasClienteController.Create;
+  AProcedenciasCliente := (AProcedenciasClienteController.BuscarTodos as IBizProcedenciaCliente);
+  AProcedenciasClienteController.VerTodos(AProcedenciasCliente);
+end;
+
 procedure TPluginContactos.actProveedoresExecute(Sender: TObject);
 var
   AProveedoresController : IProveedoresController;

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -594,6 +594,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'IGNORAR_CONTABILIDAD'
                 TableField = 'IGNORAR_CONTABILIDAD'
+              end
+              item
+                DatasetField = 'PROCEDENCIA_CLIENTE'
+                TableField = 'PROCEDENCIA_CLIENTE'
               end>
           end>
         Name = 'Clientes'
@@ -799,6 +803,12 @@ object srvContactos: TsrvContactos
             Name = 'IGNORAR_CONTABILIDAD'
             DataType = datInteger
             DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
+          end
+          item
+            Name = 'PROCEDENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE'
           end>
       end
       item
@@ -1105,6 +1115,7 @@ object srvContactos: TsrvContactos
           item
             Name = 'GRUPO_PROVEEDOR'
             DataType = datString
+            Size = 255
             DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
           end
           item
@@ -1620,6 +1631,7 @@ object srvContactos: TsrvContactos
         Statements = <
           item
             Connection = 'IBX'
+            TargetTable = 'CLIENTES_DTOS_PROVEEDORES'
             SQL = 
               'SELECT '#10'    CLIENTES_DTOS_PROVEEDORES.ID,'#10'    CLIENTES_DTOS_PROV' +
               'EEDORES.ID_CLIENTE,'#10'    CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR,'#10 +
@@ -1683,6 +1695,30 @@ object srvContactos: TsrvContactos
             DictionaryEntry = 'ClientesDescuentos_DESCUENTO'
           end>
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CLIENTES_PROCEDENCIAS'
+            Name = 'IBX'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end>
+          end>
+        Name = 'ProcedenciasCliente'
+        Fields = <
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+          end>
+      end
       item
         Params = <>
         Statements = <
@@ -2642,6 +2678,10 @@ object srvContactos: TsrvContactos
           item
             Name = 'IGNORAR_CONTABILIDAD'
             Value = ''
+          end
+          item
+            Name = 'PROCEDENCIA_CLIENTE'
+            Value = ''
           end>
         Statements = <
           item
@@ -2651,11 +2691,12 @@ object srvContactos: TsrvContactos
               'INSERT'#10'  INTO CLIENTES_DATOS'#10'    (ID_CLIENTE, GRUPO_CLIENTE, REC' +
               'ARGO_EQUIVALENCIA,'#10'     NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
               'BLOQUEADO, MOTIVO_BLOQUEO,'#10'     REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
-              'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD)'#10'  VA' +
+              'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD,'#10'    ' +
-              'LUES'#10'    (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10'  ' +
+              ' PROCEDENCIA_CLIENTE)'#10'  VALUES'#10'    (:ID_CLIENTE, :GRUPO_CLIENTE,' +
-              '   :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10'     :BLOQUEADO, :M' +
+              ' :RECARGO_EQUIVALENCIA,'#10'     :NOMBRE_COMERCIAL, :VENCIMIENTO_FAC' +
-              'OTIVO_BLOQUEO, :REGIMEN_IVA,'#10'     :ID_TIPO_IVA, :ID_FORMA_PAGO, ' +
+              'TURAS,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA,'#10'     :ID_' +
-              ':TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD)'#10
+              'TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORA' +
+              'R_CONTABILIDAD,'#10'     :PROCEDENCIA_CLIENTE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2735,6 +2776,10 @@ object srvContactos: TsrvContactos
             Name = 'IGNORAR_CONTABILIDAD'
             Value = ''
           end
+          item
+            Name = 'PROCEDENCIA_CLIENTE'
+            Value = ''
+          end
           item
             Name = 'OLD_ID_CLIENTE'
             Value = ''
@@ -2752,7 +2797,8 @@ object srvContactos: TsrvContactos
               '= :REGIMEN_IVA,'#10'    ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    ID_FORMA_PAG' +
               'O = :ID_FORMA_PAGO,'#10'    TIENDA_WEB = :TIENDA_WEB,'#10'    CODIGO_ASI' +
               'GNADO = :CODIGO_ASIGNADO,'#10'    IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
-              'NTABILIDAD'#10'  WHERE'#10'    (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
+              'NTABILIDAD,'#10'    PROCEDENCIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10'  WHE' +
+              'RE'#10'    (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -4202,6 +4248,7 @@ object srvContactos: TsrvContactos
       item
         Name = 'Proveedores_GRUPO_PROVEEDOR'
         DataType = datString
+        Size = 255
         DisplayLabel = 'Grupo proveedor'
       end
       item
@@ -4333,6 +4380,11 @@ object srvContactos: TsrvContactos
       item
         Name = 'Clientes_IGNORAR_CONTABILIDAD'
         DataType = datInteger
+      end
+      item
+        Name = 'Clientes_PROCEDENCIA_CLIENTE'
+        DataType = datString
+        Size = 255
       end>
     Left = 126
     Top = 14

Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas

@@ -67,6 +67,7 @@ procedure TsrvContactos.DARemoteServiceBeforeGetDatasetData(
 begin
   if (DataSet.Name <> nme_DatosBancarios) and
      (DataSet.Name <> nme_DireccionesContacto) and
+     (DataSet.Name <> nme_ProcedenciasCliente) and
      (DataSet.Name <> nme_GruposCliente) and
      (DataSet.Name <> nme_GruposProveedor) and
      (DataSet.Name <> nme_GruposEmpleado) and

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -49,18 +49,26 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="ccpackD11.dcp" />
-    <DCCReference Include="..\FormasPago_controller.dcp" />
+    <DCCReference Include="cfpack_d11.dcp" />
-    <DCCReference Include="..\FormasPago_model.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="..\JvGlobusD11R.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="..\TiposIVA_controller.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="..\TiposIVA_model.dcp" />
+    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="FormasPago_controller.dcp" />
+    <DCCReference Include="FormasPago_model.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="GUISDK_D11.dcp" />
+    <DCCReference Include="JvGlobusD11R.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="TiposIVA_controller.dcp" />
+    <DCCReference Include="TiposIVA_model.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>
@@ -121,6 +129,10 @@
       <Form>fEditorGruposProveedor</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorProcedenciasCliente.pas">
+      <Form>fEditorProcedenciasCliente</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorProveedor.pas">
       <Form>fEditorProveedor</Form>
       <DesignClass>TCustomEditor</DesignClass>
@@ -193,6 +205,11 @@
       <Form>frViewSubCuentaContacto</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Views/uContactosViewRegister.pas

@@ -13,7 +13,8 @@ uses
   uEditorEmpleados, uEditorElegirCLientes,
   uEditorCliente, uEditorProveedor,
   uEditorEmpleado, uEditorElegirProveedores, uEditorDireccion,
-  uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorGruposProveedor, uEditorGruposEmpleado,
+  uEditorElegirDireccionEntrega, uEditorGruposCliente, uEditorProcedenciasCliente,
+  uEditorGruposProveedor, uEditorGruposEmpleado,
   uEditorFichasEmpleadoReport, uEditorEtiquetasContactosReport;
 
 procedure RegisterViews;
@@ -33,6 +34,7 @@ begin
   EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
 
   EditorRegistry.RegisterClass(TfEditorGruposCliente, 'EditorGruposCliente');
+  EditorRegistry.RegisterClass(TfEditorProcedenciasCliente, 'EditorProcedenciasCliente');
   EditorRegistry.RegisterClass(TfEditorGruposProveedor, 'EditorGruposProveedor');
   EditorRegistry.RegisterClass(TfEditorGruposEmpleado, 'EditorGruposEmpleado');
 
@@ -57,11 +59,12 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);
 
   EditorRegistry.UnRegisterClass(TfEditorGruposCliente);
+  EditorRegistry.UnRegisterClass(TfEditorProcedenciasCliente);  
   EditorRegistry.UnRegisterClass(TfEditorGruposProveedor);
   EditorRegistry.UnRegisterClass(TfEditorGruposEmpleado);
 
   EditorRegistry.UnRegisterClass(TfEditorFichasEmpleadoPreview);
-  EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);  
+  EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
 end;
 
 end.

Source/Modulos/Contactos/Views/uEditorProcedenciasCliente.dfm

@@ -0,0 +1,138 @@
+object fEditorProcedenciasCliente: TfEditorProcedenciasCliente
+  Left = 453
+  Top = 234
+  ActiveControl = ListaProcedenciasCliente
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = 'Administraci'#243'n de procedencias de clientes'
+  ClientHeight = 499
+  ClientWidth = 404
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = CustomEditorClose
+  OnShow = FormShow
+  InstanceID = 0
+  ReadOnly = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object bAceptar: TButton
+    Left = 226
+    Top = 464
+    Width = 75
+    Height = 25
+    Action = actAceptar
+    Default = True
+    TabOrder = 1
+  end
+  object bCancelar: TButton
+    Left = 314
+    Top = 464
+    Width = 75
+    Height = 25
+    Action = actCancelar
+    Cancel = True
+    TabOrder = 2
+  end
+  object PageControl1: TPageControl
+    Left = 8
+    Top = 8
+    Width = 390
+    Height = 442
+    ActivePage = TabSheet1
+    TabOrder = 0
+    object TabSheet1: TTabSheet
+      Caption = 'Procedencias de cliente'
+      object Label1: TLabel
+        Left = 10
+        Top = 12
+        Width = 153
+        Height = 13
+        Caption = 'Lista de procedencias de cliente'
+      end
+      object ListaProcedenciasCliente: TDBLookupListBox
+        Left = 8
+        Top = 31
+        Width = 281
+        Height = 277
+        KeyField = 'RecID'
+        ListField = 'DESCRIPCION'
+        ListSource = DADataSource
+        TabOrder = 0
+      end
+      object bEliminar: TButton
+        Left = 304
+        Top = 31
+        Width = 75
+        Height = 25
+        Action = actEliminar
+        TabOrder = 1
+      end
+      object GroupBox1: TGroupBox
+        Left = 6
+        Top = 318
+        Width = 369
+        Height = 84
+        Caption = 'A'#241'adir una nueva procedencia de cliente'
+        TabOrder = 2
+        object eCategoria: TLabel
+          Left = 18
+          Top = 20
+          Width = 128
+          Height = 13
+          Caption = 'Nombre de la procedencia:'
+        end
+        object bAnadir: TButton
+          Left = 282
+          Top = 38
+          Width = 75
+          Height = 25
+          Action = actAnadir
+          TabOrder = 1
+        end
+        object editProcedenciaCliente: TEdit
+          Left = 18
+          Top = 40
+          Width = 255
+          Height = 21
+          TabOrder = 0
+        end
+      end
+    end
+  end
+  object ActionList1: TActionList
+    Left = 144
+    Top = 16
+    object actAnadir: TAction
+      Caption = '&A'#241'adir'
+      OnExecute = actAnadirExecute
+      OnUpdate = actAnadirUpdate
+    end
+    object actEliminar: TAction
+      Caption = '&Eliminar'
+      OnExecute = actEliminarExecute
+      OnUpdate = actEliminarUpdate
+    end
+    object actAceptar: TAction
+      Caption = 'A&ceptar'
+      OnExecute = actAceptarExecute
+    end
+    object actCancelar: TAction
+      Caption = '&Cancelar'
+      OnExecute = actCancelarExecute
+    end
+    object actCerrar: TAction
+      Caption = 'actCerrar'
+      OnExecute = actCerrarExecute
+    end
+  end
+  object DADataSource: TDADataSource
+    Left = 168
+    Top = 16
+  end
+end

Source/Modulos/Contactos/Views/uEditorProcedenciasCliente.pas

@@ -0,0 +1,179 @@
+{
+===============================================================================
+  Copyright (©) 2006. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 22-05-2006
+  Versión actual: 1.0.0
+  Fecha versión actual: 22-05-2006
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uEditorProcedenciasCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
+  uIEditorProcedenciasCliente, uCustomEditor, uGUIBase, ExtCtrls,
+  ComCtrls, uBizProcedenciasCliente, uProcedenciasClienteController, uDAInterfaces;
+
+type
+  TfEditorProcedenciasCliente = class(TCustomEditor, IEditorProcedenciasCliente)
+    ActionList1: TActionList;
+    DADataSource: TDADataSource;
+    ListaProcedenciasCliente: TDBLookupListBox;
+    editProcedenciaCliente: TEdit;
+    bAnadir: TButton;
+    actAnadir: TAction;
+    actEliminar: TAction;
+    bEliminar: TButton;
+    actAceptar: TAction;
+    actCancelar: TAction;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    actCerrar: TAction;
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    GroupBox1: TGroupBox;
+    Label1: TLabel;
+    procedure FormShow(Sender: TObject);
+    procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+
+    procedure actAnadirExecute(Sender: TObject);
+    procedure actEliminarExecute(Sender: TObject);
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+    procedure actCerrarExecute(Sender: TObject);
+    procedure actAnadirUpdate(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
+  protected
+    FProcedenciasCliente: IBizProcedenciaCliente;
+    FController: IProcedenciasClienteController;
+    function GetProcedenciasCliente: IBizProcedenciaCliente;
+    procedure SetProcedenciasCliente(const Value: IBizProcedenciaCliente);
+    function GetController : IProcedenciasClienteController;
+    procedure SetController (const Value : IProcedenciasClienteController);
+  public
+    property ProcedenciasCliente: IBizProcedenciaCliente read GetProcedenciasCliente write SetProcedenciasCliente;
+    property Controller : IProcedenciasClienteController read GetController write SetController;
+  end;
+
+
+implementation
+{$R *.dfm}
+
+{ TfEditorProcedenciasCliente }
+
+uses
+  uDialogUtils;
+
+
+function TfEditorProcedenciasCliente.GetController: IProcedenciasClienteController;
+begin
+  Result := FController;
+end;
+
+function TfEditorProcedenciasCliente.GetProcedenciasCliente: IBizProcedenciaCliente;
+begin
+  Result := FProcedenciasCliente;
+end;
+
+procedure TfEditorProcedenciasCliente.SetController(const Value: IProcedenciasClienteController);
+begin
+  FController := Value;
+end;
+
+procedure TfEditorProcedenciasCliente.SetProcedenciasCliente(const Value: IBizProcedenciaCliente);
+begin
+  FProcedenciasCliente := Value;
+  DADataSource.DataTable := (FProcedenciasCliente as IBizProcedenciaCliente).DataTable;
+  DADataSource.DataTable.Open;
+end;
+
+procedure TfEditorProcedenciasCliente.actAnadirExecute(Sender: TObject);
+begin
+  if not FController.Localizar(ProcedenciasCliente, editProcedenciaCliente.Text) then
+  begin
+    ProcedenciasCliente.Append;
+    ProcedenciasCliente.DESCRIPCION := editProcedenciaCliente.Text;
+    ProcedenciasCliente.Post;
+    editProcedenciaCliente.Clear;
+    ListaProcedenciasCliente.SetFocus;
+  end
+  else
+    ShowErrorMessage('Ya existe la procedencia ' + editProcedenciaCliente.Text,
+      'Ya existe la procedencia de cliente ''' + editProcedenciaCliente.Text + ''' en la lista.');
+end;
+
+procedure TfEditorProcedenciasCliente.actEliminarExecute(Sender: TObject);
+begin
+  ProcedenciasCliente.Delete;
+  ListaProcedenciasCliente.SetFocus;
+end;
+
+procedure TfEditorProcedenciasCliente.actEliminarUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := (FProcedenciasCliente.DataTable.RecordCount > 0) and
+                                  (Length(ListaProcedenciasCliente.SelectedItem) > 0);
+
+end;
+
+procedure TfEditorProcedenciasCliente.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+begin
+  FProcedenciasCliente := Nil;
+  FController := Nil;
+end;
+
+procedure TfEditorProcedenciasCliente.actAceptarExecute(Sender: TObject);
+begin
+  try
+    ProcedenciasCliente.DataTable.ApplyUpdates;
+  except
+    on E : Exception do begin
+      ProcedenciasCliente.DataTable.CancelUpdates;
+      ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
+      exit;
+    end;
+  end;
+  actCerrar.Execute;
+end;
+
+procedure TfEditorProcedenciasCliente.actCancelarExecute(Sender: TObject);
+begin
+  ProcedenciasCliente.DataTable.CancelUpdates;
+  actCerrar.Execute;
+end;
+
+procedure TfEditorProcedenciasCliente.actCerrarExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfEditorProcedenciasCliente.actAnadirUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := (Length(editProcedenciaCliente.Text) > 0)
+end;
+
+procedure TfEditorProcedenciasCliente.FormShow(Sender: TObject);
+begin
+  if not FProcedenciasCliente.DataTable.Active then
+     FProcedenciasCliente.DataTable.Active := true;
+
+  editProcedenciaCliente.SetFocus;
+end;
+
+end.

Source/Modulos/Contactos/Views/uViewCliente.dfm

@@ -1,29 +1,29 @@
 inherited frViewCliente: TfrViewCliente
   Width = 646
-  Height = 470
+  Height = 534
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
   ExplicitWidth = 646
-  ExplicitHeight = 470
+  ExplicitHeight = 534
   inherited dxLayoutControlContacto: TdxLayoutControl
     Width = 646
-    Height = 470
+    Height = 534
     ExplicitWidth = 646
     ExplicitHeight = 470
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 585
+      Left = 601
-      ExplicitLeft = 585
+      ExplicitLeft = 601
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 585
+      Left = 601
-      ExplicitLeft = 585
+      ExplicitLeft = 601
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 585
+      Left = 601
-      ExplicitLeft = 585
+      ExplicitLeft = 601
     end
     object Label1: TLabel [3]
-      Left = 372
+      Left = 382
       Top = 280
       Width = 269
       Height = 39
@@ -35,42 +35,42 @@ inherited frViewCliente: TfrViewCliente
     end
     inherited eCalle: TcxDBTextEdit
       Left = 132
-      Top = 220
+      Top = 247
-      TabOrder = 7
+      TabOrder = 8
       ExplicitLeft = 132
-      ExplicitTop = 220
+      ExplicitTop = 247
       ExplicitWidth = 175
       Width = 175
     end
     inherited eProvincia: TcxDBTextEdit
       Left = 132
-      Top = 274
+      Top = 301
-      TabOrder = 10
+      TabOrder = 11
       ExplicitLeft = 132
-      ExplicitTop = 274
+      ExplicitTop = 301
       ExplicitWidth = 167
       Width = 167
     end
     inherited ePoblacion: TcxDBTextEdit
       Left = 132
-      Top = 247
+      Top = 274
-      TabOrder = 8
+      TabOrder = 9
       ExplicitLeft = 132
-      ExplicitTop = 247
+      ExplicitTop = 274
       ExplicitWidth = 71
       Width = 71
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 277
+      Left = 287
-      Top = 247
+      Top = 274
-      TabOrder = 9
+      TabOrder = 10
-      ExplicitLeft = 277
+      ExplicitLeft = 287
-      ExplicitTop = 247
+      ExplicitTop = 274
     end
     inherited eObservaciones: TcxDBMemo
-      Top = 415
+      Top = 442
-      TabOrder = 21
+      TabOrder = 22
-      ExplicitTop = 415
+      ExplicitTop = 442
       ExplicitWidth = 609
       ExplicitHeight = 42
       Height = 42
@@ -98,7 +98,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object cbClienteBloqueado: TcxDBCheckBox [10]
       Left = 22
-      Top = 331
+      Top = 358
       Action = actBloqueoCliente
       DataBinding.DataField = 'BLOQUEADO'
       DataBinding.DataSource = dsContacto
@@ -117,7 +117,7 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 11
+      TabOrder = 12
       Width = 163
     end
     object cbGrupoCliente: TcxDBComboBox [11]
@@ -146,7 +146,7 @@ inherited frViewCliente: TfrViewCliente
     end
     object eBloqueo: TcxDBTextEdit [12]
       Left = 132
-      Top = 358
+      Top = 385
       DataBinding.DataField = 'MOTIVO_BLOQUEO'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -160,11 +160,11 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
+      TabOrder = 13
       Width = 113
     end
     object cxDBCheckBox1: TcxDBCheckBox [13]
-      Left = 372
+      Left = 382
       Top = 325
       Caption = 'Permitir el acceso de este cliente a la tienda web'
       DataBinding.DataField = 'TIENDA_WEB'
@@ -185,44 +185,24 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 20
+      TabOrder = 21
       Width = 236
     end
     inherited eTlfParticular: TcxDBTextEdit
-      Left = 467
+      Left = 477
-      TabOrder = 14
+      TabOrder = 15
-      ExplicitLeft = 467
+      ExplicitLeft = 477
       ExplicitWidth = 157
       Width = 157
     end
     inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 467
+      Left = 477
-      TabOrder = 13
+      TabOrder = 14
-      ExplicitLeft = 467
+      ExplicitLeft = 477
       ExplicitWidth = 157
       Width = 157
     end
-    inherited eTlfMovil: TcxDBTextEdit
+    object eCodigoAsignado: TcxDBTextEdit [16]
-      Left = 467
-      TabOrder = 15
-      ExplicitLeft = 467
-      ExplicitWidth = 157
-      Width = 157
-    end
-    inherited eFax: TcxDBTextEdit
-      Left = 467
-      TabOrder = 16
-      ExplicitLeft = 467
-      ExplicitWidth = 157
-      Width = 157
-    end
-    inherited eNombre: TcxDBTextEdit
-      Left = 132
-      ExplicitLeft = 132
-      ExplicitWidth = 135
-      Width = 135
-    end
-    object eCodigoAsignado: TcxDBTextEdit [19]
       Left = 132
       Top = 109
       DataBinding.DataField = 'CODIGO_ASIGNADO'
@@ -242,45 +222,91 @@ inherited frViewCliente: TfrViewCliente
       TabOrder = 4
       Width = 227
     end
+    inherited eTlfMovil: TcxDBTextEdit
+      Left = 477
+      TabOrder = 16
+      ExplicitLeft = 477
+      ExplicitWidth = 157
+      Width = 157
+    end
+    inherited eFax: TcxDBTextEdit
+      Left = 477
+      TabOrder = 17
+      ExplicitLeft = 477
+      ExplicitWidth = 157
+      Width = 157
+    end
+    inherited eNombre: TcxDBTextEdit
+      Left = 132
+      ExplicitLeft = 132
+      ExplicitWidth = 135
+      Width = 135
+    end
     inherited eNIFCIF: TcxDBTextEdit
-      Left = 283
-      ExplicitLeft = 283
       ExplicitWidth = 58
       Width = 58
     end
     inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 467
+      Left = 477
       Properties.Prefix = 'mailto:'
-      TabOrder = 17
+      TabOrder = 18
-      ExplicitLeft = 467
+      ExplicitLeft = 477
       ExplicitWidth = 128
       Width = 128
     end
     inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 467
+      Left = 477
       Properties.Prefix = 'mailto:'
-      TabOrder = 18
+      TabOrder = 19
-      ExplicitLeft = 467
+      ExplicitLeft = 477
       ExplicitWidth = 128
       Width = 128
     end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 467
+      Left = 477
-      TabOrder = 19
+      TabOrder = 20
-      ExplicitLeft = 467
+      ExplicitLeft = 477
       ExplicitWidth = 128
       Width = 128
     end
     inherited eReferencia: TcxDBTextEdit
       Left = 132
       ExplicitLeft = 132
+      ExplicitWidth = 38
+      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
       Left = 132
-      Top = 193
+      Top = 220
-      TabOrder = 6
+      TabOrder = 7
       ExplicitLeft = 132
-      ExplicitTop = 193
+      ExplicitTop = 220
+      ExplicitWidth = 256
+      Width = 256
+    end
+    object cbProcedenciaCliente: TcxDBComboBox [26]
+      Left = 132
+      Top = 163
+      DataBinding.DataField = 'PROCEDENCIA_CLIENTE'
+      DataBinding.DataSource = dsContacto
+      Properties.ImmediatePost = True
+      Properties.OnInitPopup = cbProcedenciaClientePropertiesInitPopup
+      Properties.OnValidate = cbProcedenciaClientePropertiesValidate
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 6
+      Width = 211
     end
     inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
       AutoAligns = [aaHorizontal]
@@ -307,6 +333,11 @@ inherited frViewCliente: TfrViewCliente
               Control = cbGrupoCliente
               ControlOptions.ShowBorder = False
             end
+            object dxLayoutControlContactoItem23: TdxLayoutItem
+              Caption = 'Procedencia cliente:'
+              Control = cbProcedenciaCliente
+              ControlOptions.ShowBorder = False
+            end
           end
           inherited dxLayoutControlContactoGroup3: TdxLayoutGroup
             Caption = 'Domicilio fiscal'

Source/Modulos/Contactos/Views/uViewCliente.pas

@@ -11,7 +11,7 @@ uses
   dxLayoutControl, cxMemo, cxHyperLinkEdit, ImgList, ActnList, Buttons,
   PngSpeedButton, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
   cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uGruposClienteController,
-  cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
+  uProcedenciasClienteController, cxCheckBox, cxSpinEdit, Grids, DBGrids, uDAInterfaces;
 
 type
   IViewCliente = interface(IViewContacto)
@@ -36,14 +36,20 @@ type
     Label1: TLabel;
     dxLayoutControlContactoItem22: TdxLayoutItem;
     eCodigoAsignado: TcxDBTextEdit;
+    dxLayoutControlContactoItem23: TdxLayoutItem;
+    cbProcedenciaCliente: TcxDBComboBox;
     procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
     procedure cbGrupoClientePropertiesValidate(Sender: TObject;
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure actBloqueoClienteExecute(Sender: TObject);
+    procedure cbProcedenciaClientePropertiesInitPopup(Sender: TObject);
+    procedure cbProcedenciaClientePropertiesValidate(Sender: TObject;
+      var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
   protected
     FGrupoController: IGruposClienteController;
+    FProcedenciaController: IProcedenciasClienteController;
     procedure SetContacto(const Value: IBizContacto); override;
   end;
 
@@ -52,7 +58,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uBizGruposCliente;
+  uBizGruposCliente, uBizProcedenciasCliente;
 
 { TfrViewCliente }
 
@@ -104,15 +110,58 @@ begin
   end;
 end;
 
+procedure TfrViewCliente.cbProcedenciaClientePropertiesInitPopup(Sender: TObject);
+begin
+  inherited;
+  with cbProcedenciaCliente.Properties.Items do
+  begin
+    BeginUpdate;
+    try
+      Clear;
+      AddStrings(FProcedenciaController.DarListaProcedenciasCliente);
+    finally
+      EndUpdate;
+    end;
+  end;
+end;
+
+procedure TfrViewCliente.cbProcedenciaClientePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
+var
+  AProcedencia : IBizProcedenciaCliente;
+begin
+  inherited;
+  with (Sender as TcxDBComboBox) do
+  begin
+    if (Length(DisplayValue) > 0) and (DisplayValue <> (Contacto as IBizCliente).PROCEDENCIA_CLIENTE) then
+      if Properties.LookupItems.IndexOf(DisplayValue) < 0 then
+      begin
+        Properties.LookupItems.BeginUpdate;
+        AProcedencia := FProcedenciaController.BuscarTodos;
+        AProcedencia.DataTable.Active := True;
+        try
+          FProcedenciaController.Anadir(AProcedencia);
+          AProcedencia.DESCRIPCION := DisplayValue;
+          FProcedenciaController.Guardar(AProcedencia);
+          Properties.LookupItems.Add(DisplayValue);
+        finally
+          Properties.LookupItems.EndUpdate;
+          AProcedencia := NIL;
+        end;
+      end;
+  end;
+end;
+
 procedure TfrViewCliente.CustomViewCreate(Sender: TObject);
 begin
   inherited;
   FGrupoController := TGruposClienteController.Create;
+  FProcedenciaController := TProcedenciasClienteController.Create;  
 end;
 
 procedure TfrViewCliente.CustomViewDestroy(Sender: TObject);
 begin
   FGrupoController := NIL;
+  FProcedenciaController := NIL;  
   inherited;
 end;
 

Source/Servidor/FactuGES_Server.dpr

@@ -81,8 +81,6 @@ uses
   schEjerciciosClient_Intf in '..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas',
   srvContabilidad_Impl in '..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas' {srvContabilidad: TDataAbstractService},
   uBizPagosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas',
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
   schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@@ -110,7 +108,9 @@ uses
   schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
   schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
-  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,233 +1,235 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
+  <PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
+    <MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
+    <DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
+  </PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
+    <Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
+    <DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-	</PropertyGroup>
+  </PropertyGroup>
-	<ProjectExtensions>
+  <ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
+    <Borland.ProjectType />
-		<BorlandProject>
+    <BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+      
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+      
-	</ProjectExtensions>
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	<ItemGroup>
+  </ProjectExtensions>
-		<DelphiCompile Include="FactuGES_Server.dpr">
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-			<MainSource>MainSource</MainSource>
+  <ItemGroup>
-		</DelphiCompile>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas"/>
+      <MainSource>MainSource</MainSource>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas"/>
+    </DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosClient_Intf.pas" />
-		<DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\schEjerciciosServer_Intf.pas" />
-			<Form>srvEjercicios</Form>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Model\uBizEjerciciosServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\ApplicationBase\Ejercicios\Servidor\srvEjercicios_Impl.pas">
-		</DCCReference>
+      <Form>srvEjercicios</Form>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-			<Form>srvEmpresas</Form>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-		</DCCReference>
+      <Form>srvEmpresas</Form>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-			<Form>srvAlbaranesCliente</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvAlbaranesCliente</Form>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-			<Form>srvAlbaranesProveedor</Form>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvAlbaranesProveedor</Form>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-			<Form>srvAlmacenes</Form>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-		</DCCReference>
+      <Form>srvAlmacenes</Form>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-		<DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadClient_Intf.pas" />
-			<Form>srvContabilidad</Form>
+    <DCCReference Include="..\Modulos\Contabilidad\Model\schContabilidadServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Contabilidad\Servidor\srvContabilidad_Impl.pas">
-		</DCCReference>
+      <Form>srvContabilidad</Form>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-			<Form>srvContactos</Form>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-		</DCCReference>
+      <Form>srvContactos</Form>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-			<Form>srvFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvFacturasCliente</Form>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-			<Form>srvFacturasProveedor</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvFacturasProveedor</Form>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-			<Form>srvHistoricoMovimientos</Form>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-		</DCCReference>
+      <Form>srvHistoricoMovimientos</Form>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-			<Form>srvInventario</Form>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-		</DCCReference>
+      <Form>srvInventario</Form>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-			<Form>srvPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvPedidosProveedor</Form>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-			<Form>RptPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+      <Form>RptPresupuestosCliente</Form>
-			<Form>srvPresupuestosCliente</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvPresupuestosCliente</Form>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\uBizPagosClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvRecibosCliente</Form>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-			<Form>srvRecibosProveedor</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\uBizPagosProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvRecibosProveedor</Form>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-			<Form>srvRemesasCliente</Form>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-		</DCCReference>
+      <Form>srvRemesasCliente</Form>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-			<Form>srvRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvRemesasProveedor</Form>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-			<Form>srvUnidadesMedida</Form>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-		</DCCReference>
+      <Form>srvUnidadesMedida</Form>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    </DCCReference>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-		</DCCReference>
+      <Form>srvConfiguracion</Form>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>frConexionBD</Form>
+    </DCCReference>
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-		</DCCReference>
+      <Form>frConexionBD</Form>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+      <DesignClass>TFrame</DesignClass>
-			<Form>frConfGeneral</Form>
+    </DCCReference>
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-		</DCCReference>
+      <Form>frConfGeneral</Form>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+      <DesignClass>TFrame</DesignClass>
-			<Form>fConfiguracion</Form>
+    </DCCReference>
-			<DesignClass>TForm</DesignClass>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-		</DCCReference>
+      <Form>fConfiguracion</Form>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+      <DesignClass>TForm</DesignClass>
-			<Form>FrameConfiguracion</Form>
+    </DCCReference>
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-		</DCCReference>
+      <Form>FrameConfiguracion</Form>
-		<DCCReference Include="srvLogin_Impl.pas">
+      <DesignClass>TFrame</DesignClass>
-			<Form>srvLogin</Form>
+    </DCCReference>
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="srvLogin_Impl.pas">
-		</DCCReference>
+      <Form>srvLogin</Form>
-		<DCCReference Include="srvReferencias_Impl.pas">
+      <DesignClass>TDARemoteService</DesignClass>
-			<Form>srvReferencias</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="srvReferencias_Impl.pas">
-		</DCCReference>
+      <Form>srvReferencias</Form>
-		<DCCReference Include="uAcercaDe.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>fAcercaDe</Form>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="uAcercaDe.pas">
-		<DCCReference Include="uDataModuleServer.pas">
+      <Form>fAcercaDe</Form>
-			<Form>dmServer</Form>
+    </DCCReference>
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="uDataModuleServer.pas">
-		</DCCReference>
+      <Form>dmServer</Form>
-		<DCCReference Include="uServerMainForm.pas">
+      <DesignClass>TDataModule</DesignClass>
-			<Form>fServerForm</Form>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+      <Form>fServerForm</Form>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+    <DCCReference Include="Utiles\RegExpr.pas" />
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
-	</ItemGroup>
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]