Version 4.5.4

Cambio en los informes de Contratos de cliente de todas las entidades: Cambio fecha de entrega por fecha expedicion - Solicitado por Próspero
Cambio logo uecko y sellos cabecera en todos los informes de todas las entidades- Solicitado por Noelia
Arreglo para que permita introducir DNI y CIFs raros - Solicitado por Mónica
Las facturas proforma no se tendrán en cuenta en las facturas asociadas a los contratos, listado de contratos - Solicitado por Eva
Se añade comprobación de capitulos para que avise si existe un subtotal sin capitulo correspondiente, ayudará a controlar errores en presupuestos y contratos largos. - Solicitado por Miriam
En los detalles de presupuestos y contratos si eligen un articulo de la tarífa el programa no deja modificar las descripciones (Se ha detectado que lo hen hecho en ocasiones en las tiendas) - Solicitado por Miriam

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@186 93f398dd-4eb6-7a46-baf6-13f46f578da2

Build/Build.fbpInf

@@ -15,7 +15,7 @@
       <![CDATA[]]>
     </Notes>
     <LastBuildRun>00:00:00</LastBuildRun>
-    <LastBuildStart>06/02/2023 20:23:47</LastBuildStart>
+    <LastBuildStart>18/12/2023 12:40:28</LastBuildStart>
     <LastBuildState>False</LastBuildState>
   </properties>
 </project>

Source/ApplicationBase/ApplicationBase.dpk

@@ -132,6 +132,12 @@ contains
   schUsuariosServer_Intf in 'Usuarios\Model\schUsuariosServer_Intf.pas',
   uEditorElegirEjercicios in 'Ejercicios\Views\uEditorElegirEjercicios.pas' {fEditorElegirEjercicios: TCustomEditor},
   uIEditorElegirEjercicios in 'Ejercicios\Controller\View\uIEditorElegirEjercicios.pas',
-  uViewConfiguracionBase in 'Configuracion\Views\uViewConfiguracionBase.pas' {frViewConfiguracionBase: TFrame};
+  uViewConfiguracionBase in 'Configuracion\Views\uViewConfiguracionBase.pas' {frViewConfiguracionBase: TFrame},
+  uBizIdiomas in 'Idiomas\Model\uBizIdiomas.pas',
+  schIdiomasClient_Intf in 'Idiomas\Model\schIdiomasClient_Intf.pas',
+  schIdiomasServer_Intf in 'Idiomas\Model\schIdiomasServer_Intf.pas',
+  uDataModuleIdiomas in 'Idiomas\Data\uDataModuleIdiomas.pas',
+  uIDataModuleIdiomas in 'Idiomas\Model\Data\uIDataModuleIdiomas.pas',
+  uIdiomasController in 'Idiomas\Controller\uIdiomasController.pas';
 
 end.

Source/ApplicationBase/ApplicationBase.dproj

@@ -46,6 +46,21 @@
     <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">False</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="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -56,43 +71,6 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cfpack_d11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxNavBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
     <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
     <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
     <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">
@@ -183,6 +161,49 @@
       <Form>frViewTiendas</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="Idiomas\Controller\adortl.dcp" />
+    <DCCReference Include="Idiomas\Controller\Base.dcp" />
+    <DCCReference Include="Idiomas\Controller\ccpackD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\cfpack_d11.dcp" />
+    <DCCReference Include="Idiomas\Controller\cxDataD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\cxEditorsD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\cxExtEditorsD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\cxLibraryD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Idiomas\Controller\dbrtl.dcp" />
+    <DCCReference Include="Idiomas\Controller\designide.dcp" />
+    <DCCReference Include="Idiomas\Controller\dsnap.dcp" />
+    <DCCReference Include="Idiomas\Controller\dxCoreD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\dxGDIPlusD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\dxNavBarD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\dxThemeD11.dcp" />
+    <DCCReference Include="Idiomas\Controller\GUIBase.dcp" />
+    <DCCReference Include="Idiomas\Controller\GUISDK_D11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\Jcl.dcp" />
+    <DCCReference Include="Idiomas\Controller\JclVcl.dcp" />
+    <DCCReference Include="Idiomas\Controller\JvCoreD11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\JvCtrlsD11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\JvJansD11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\JvMMD11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\JvSystemD11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\PluginSDK_D11R.dcp" />
+    <DCCReference Include="Idiomas\Controller\PngComponentsD10.dcp" />
+    <DCCReference Include="Idiomas\Controller\PNG_D10.dcp" />
+    <DCCReference Include="Idiomas\Controller\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Idiomas\Controller\rtl.dcp" />
+    <DCCReference Include="Idiomas\Controller\uIdiomasController.pas" />
+    <DCCReference Include="Idiomas\Controller\vcl.dcp" />
+    <DCCReference Include="Idiomas\Controller\vclactnband.dcp" />
+    <DCCReference Include="Idiomas\Controller\vcldb.dcp" />
+    <DCCReference Include="Idiomas\Controller\vcljpg.dcp" />
+    <DCCReference Include="Idiomas\Controller\vclx.dcp" />
+    <DCCReference Include="Idiomas\Controller\xmlrtl.dcp" />
+    <DCCReference Include="Idiomas\Data\uDataModuleIdiomas.pas" />
+    <DCCReference Include="Idiomas\Model\Data\uIDataModuleIdiomas.pas" />
+    <DCCReference Include="Idiomas\Model\schIdiomasClient_Intf.pas" />
+    <DCCReference Include="Idiomas\Model\schIdiomasServer_Intf.pas" />
+    <DCCReference Include="Idiomas\Model\uBizIdiomas.pas" />
     <DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
     <DCCReference Include="ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas" />
     <DCCReference Include="uFactuGES_App.pas" />

Source/ApplicationBase/Idiomas/Controller/uIdiomasController.pas

@@ -0,0 +1,259 @@
+unit uIdiomasController;
+
+interface
+
+
+uses
+  Classes, SysUtils, uDADataTable, uEditorDBItem,
+  uIDataModuleIdiomas, uBizIdiomas, uControllerBase;
+
+type
+  IIdiomasController = interface(IControllerBase)
+  ['{A591421F-8F4A-4B4C-ADCD-17070BBA4602}']
+    function BuscarTodos: IBizIdioma;
+    function BuscarTodosMenosDefault: IBizIdioma;    
+//    procedure VerTodos(AIdiomas: IBizIdioma);
+//    procedure Anadir(AFamilia : IBizIdioma);
+//    function Eliminar(AFamilia : IBizIdioma): Boolean;
+//    function Guardar(AFamilia : IBizIdioma): Boolean;
+//    procedure DescartarCambios(AFamilia : IBizIdioma);
+//    function Localizar(AIdiomas: IBizIdioma; ADescripcion:String): Boolean;
+    function DarListaIdiomas: TStringList;
+  end;
+
+  TIdiomasController = class(TControllerBase, IIdiomasController)
+  protected
+    FDataModule : IDataModuleIdiomas;
+
+//    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
+    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
+
+//    function ValidarAlmacen(AFamilia: IBizIdioma): Boolean;
+
+    //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
+    //este controller
+    procedure AsignarDataModule; virtual;
+    procedure ValidarObjetos; virtual;
+
+  public
+    constructor Create; override;
+    destructor Destroy; override;
+
+//    function Eliminar(AFamilia : IBizIdioma): Boolean;
+//    function Guardar(AFamilia : IBizIdioma): Boolean;
+//    procedure DescartarCambios(AFamilia : IBizIdioma); virtual;
+//    procedure Anadir(AFamilia : IBizIdioma);
+    function BuscarTodos: IBizIdioma;
+    function BuscarTodosMenosDefault: IBizIdioma;
+//    procedure VerTodos(AIdiomas: IBizIdioma);
+//    function Localizar(AIdiomas: IBizIdioma; ADescripcion:String): Boolean;
+    function DarListaIdiomas: TStringList;
+  end;
+
+implementation
+
+uses
+  cxControls, DB, uEditorRegistryUtils, schIdiomasClient_Intf,
+  uDataModuleIdiomas,
+//  uIEditorIdiomas,  
+  uDAInterfaces, uDataTableUtils,
+  uDateUtils, uROTypes, DateUtils, Controls, Windows;
+
+{ TIdiomasController }
+{
+procedure TIdiomasController.Anadir(AFamilia: IBizIdioma);
+begin
+  AFamilia.Insert;
+end;
+}
+procedure TIdiomasController.AsignarDataModule;
+begin
+  FDataModule := TDataModuleIdiomas.Create(Nil);
+end;
+
+function TIdiomasController.BuscarTodos: IBizIdioma;
+begin
+  Result := FDataModule.GetItems;
+end;
+
+function TIdiomasController.BuscarTodosMenosDefault: IBizIdioma;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // (REFERENCIA >= Ref)
+      Condicion := NewBinaryExpression(NewField('', fld_IdiomasISO), NewConstant(IDIOMA_DEFAULT, datString), dboNotEqual);
+      if IsEmpty then
+         Expression := Condicion
+      else
+          Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+constructor TIdiomasController.Create;
+begin
+  inherited;
+  AsignarDataModule;
+end;
+
+function TIdiomasController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
+begin
+  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
+end;
+
+function TIdiomasController.DarListaIdiomas: TStringList;
+var
+  AIdiomas: IBizIdioma;
+begin
+  AIdiomas := BuscarTodos;
+  AIdiomas.DataTable.Active := True;
+  Result := TStringList.Create;
+  try
+    with Result do
+    begin
+      AIdiomas.DataTable.First;
+      while not AIdiomas.DataTable.EOF do
+      begin
+        Add(AIdiomas.DESCRIPCION);
+        AIdiomas.DataTable.Next;
+      end;
+    end;
+  finally
+    AIdiomas := NIL;
+  end;
+end;
+{
+procedure TIdiomasController.DescartarCambios(AFamilia: IBizIdioma);
+begin
+  if not Assigned(AFamilia) then
+    raise Exception.Create ('Almacen no asignado');
+
+  ShowHourglassCursor;
+  try
+    if (AFamilia.State in dsEditModes) then
+      AFamilia.Cancel;
+
+    AFamilia.DataTable.CancelUpdates;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+}
+destructor TIdiomasController.Destroy;
+begin
+  FDataModule := Nil;
+  inherited;
+end;
+{
+function TIdiomasController.ValidarAlmacen(AFamilia: IBizIdioma): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AFamilia) then
+    raise Exception.Create ('Familia no asignada');
+
+  if (AFamilia.DataTable.State in dsEditModes) then
+      AFamilia.DataTable.Post;
+
+  Result := True;
+end;
+}
+procedure TIdiomasController.ValidarObjetos;
+begin
+//
+end;
+{
+procedure TIdiomasController.VerTodos(AIdiomas: IBizIdioma);
+var
+  AEditor : IEditorIdiomas;
+begin
+  AEditor := NIL;
+
+  CreateEditor('EditorIdiomas', IEditorIdiomas, AEditor);
+  if Assigned(AEditor) then
+    try
+       AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
+       AEditor.Idiomas := AIdiomas;
+       AEditor.ShowModal;
+    finally
+       AEditor.Release;
+       AEditor := NIL;
+    end;
+end;
+
+function TIdiomasController.Eliminar(AFamilia: IBizIdioma): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AFamilia) then
+    raise Exception.Create ('Almacen no asignada');
+
+  ShowHourglassCursor;
+  try
+    if (AFamilia.State in dsEditModes) then
+      AFamilia.Cancel;
+
+    AFamilia.Delete;
+    AFamilia.DataTable.ApplyUpdates;
+
+    Result := True;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TIdiomasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
+begin
+  inherited;
+//
+end;
+
+function TIdiomasController.Guardar(AFamilia: IBizIdioma): Boolean;
+begin
+  Result := False;
+
+  if not Assigned(AFamilia) then
+    raise Exception.Create ('Familia no asignada');
+
+  ValidarObjetos;
+
+  if ValidarAlmacen(AFamilia) then
+  begin
+    ShowHourglassCursor;
+    try
+      AFamilia.DataTable.ApplyUpdates;
+      Result := True;
+    finally
+      HideHourglassCursor;
+    end;
+  end;
+end;
+
+function TIdiomasController.Localizar(AIdiomas: IBizIdioma; ADescripcion: String): Boolean;
+begin
+  Result := True;
+  ShowHourglassCursor;
+  try
+    with AIdiomas.DataTable do
+    begin
+      DisableControls;
+      First;
+      if not Locate(fld_IdiomasDESCRIPCION, ADescripcion, []) then
+         Result := False;
+      EnableControls;
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+ }
+end.

Source/ApplicationBase/Idiomas/Data/uDataModuleIdiomas.dfm

@@ -0,0 +1,61 @@
+inherited DataModuleIdiomas: TDataModuleIdiomas
+  OnCreate = DAClientDataModuleCreate
+  Height = 370
+  Width = 566
+  object RORemoteService: TRORemoteService
+    Message = dmConexion.ROMessage
+    Channel = dmConexion.ROChannel
+    ServiceName = 'srvIdiomas'
+    Left = 48
+    Top = 24
+  end
+  object rda_Idiomas: TDARemoteDataAdapter
+    DataStreamer = Bin2DataStreamer
+    GetSchemaCall.RemoteService = RORemoteService
+    GetDataCall.RemoteService = RORemoteService
+    UpdateDataCall.RemoteService = RORemoteService
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    Left = 163
+    Top = 23
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 88
+  end
+  object tbl_Idiomas: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ISO'
+        DataType = datString
+        Size = 2
+        Required = True
+      end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+        Required = True
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_Idiomas
+    LogicalName = 'Idiomas'
+    IndexDefs = <>
+    Left = 160
+    Top = 152
+  end
+  object ds_Idiomas: TDADataSource
+    DataSet = tbl_Idiomas.Dataset
+    DataTable = tbl_Idiomas
+    Left = 160
+    Top = 88
+  end
+end

Source/ApplicationBase/Idiomas/Data/uDataModuleIdiomas.pas

@@ -0,0 +1,58 @@
+unit uDataModuleIdiomas;
+
+interface
+
+uses
+  SysUtils, Classes, DB, uIDataModuleIdiomas, uBizIdiomas, uDAInterfaces, uDADataTable,
+  uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
+  uDARemoteDataAdapter, uROClient, uRORemoteService, uDataModuleBase;
+
+type
+  TDataModuleIdiomas = class(TDataModuleBase, IDataModuleIdiomas)
+    RORemoteService: TRORemoteService;
+    rda_Idiomas: TDARemoteDataAdapter;
+    Bin2DataStreamer: TDABin2DataStreamer;
+    tbl_Idiomas: TDAMemDataTable;
+    ds_Idiomas: TDADataSource;
+    procedure DAClientDataModuleCreate(Sender: TObject);
+  protected
+    procedure AsignarClaseNegocio(AIdioma: TDADataTable);
+  public
+    function GetItems : IBizIdioma;
+  end;
+
+implementation
+{$R *.DFM}
+
+uses
+  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
+  schIdiomasClient_Intf;
+
+{ TdmIdiomas }
+
+procedure TDataModuleIdiomas.AsignarClaseNegocio(AIdioma: TDADataTable);
+begin
+  AIdioma.BusinessRulesID := BIZ_CLIENT_IDIOMAS;
+end;
+
+procedure TDataModuleIdiomas.DAClientDataModuleCreate(Sender: TObject);
+begin
+  RORemoteService.Channel := dmConexion.Channel;
+  RORemoteService.Message := dmConexion.Message;
+end;
+
+function TDataModuleIdiomas.GetItems: IBizIdioma;
+var
+  AIdioma : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    AIdioma := CloneDataTable(tbl_Idiomas);
+    AIdioma.BusinessRulesID := BIZ_CLIENT_IDIOMAS;
+    Result := (AIdioma as IBizIdioma);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.

Source/ApplicationBase/Idiomas/Model/Data/uIDataModuleIdiomas.pas

@@ -0,0 +1,15 @@
+unit uIDataModuleIdiomas;
+
+interface
+
+uses  
+  uBizIdiomas;
+
+type
+  IDataModuleIdiomas = interface
+    function GetItems: IBizIdioma;
+  end;
+
+implementation
+
+end.

Source/ApplicationBase/Idiomas/Model/schIdiomasClient_Intf.pas

@@ -0,0 +1,169 @@
+unit schIdiomasClient_Intf;
+
+interface
+
+uses
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, 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_Idiomas = '{4F61C4BD-B1AE-42F0-89C4-61EA8B6FF50C}';
+
+  { Data table names }
+  nme_Idiomas = 'Idiomas';
+
+  { Idiomas fields }
+  fld_IdiomasID = 'ID';
+  fld_IdiomasISO = 'ISO';
+  fld_IdiomasDESCRIPCION = 'DESCRIPCION';
+
+  { Idiomas field indexes }
+  idx_IdiomasID = 0;
+  idx_IdiomasISO = 1;
+  idx_IdiomasDESCRIPCION = 2;
+
+type
+  { IIdiomas }
+  IIdiomas = interface(IDAStronglyTypedDataTable)
+  ['{C5751763-7409-41C0-90DA-36E28E0AAEB6}']
+    { Property getters and setters }
+    function GetIDValue: Integer;
+    procedure SetIDValue(const aValue: Integer);
+    function GetIDIsNull: Boolean;
+    procedure SetIDIsNull(const aValue: Boolean);
+    function GetISOValue: String;
+    procedure SetISOValue(const aValue: String);
+    function GetISOIsNull: Boolean;
+    procedure SetISOIsNull(const aValue: Boolean);
+    function GetDESCRIPCIONValue: String;
+    procedure SetDESCRIPCIONValue(const aValue: String);
+    function GetDESCRIPCIONIsNull: Boolean;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ISO: String read GetISOValue write SetISOValue;
+    property ISOIsNull: Boolean read GetISOIsNull write SetISOIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+  end;
+
+  { TIdiomasDataTableRules }
+  TIdiomasDataTableRules = class(TIntfObjectDADataTableRules, IIdiomas)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    function GetIDIsNull: Boolean; virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetISOValue: String; virtual;
+    procedure SetISOValue(const aValue: String); virtual;
+    function GetISOIsNull: Boolean; virtual;
+    procedure SetISOIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID: Integer read GetIDValue write SetIDValue;
+    property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
+    property ISO: String read GetISOValue write SetISOValue;
+    property ISOIsNull: Boolean read GetISOIsNull write SetISOIsNull;
+    property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
+implementation
+
+uses Variants, uROBinaryHelpers;
+
+{ TIdiomasDataTableRules }
+constructor TIdiomasDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TIdiomasDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TIdiomasDataTableRules.GetIDValue: Integer;
+begin
+  result := DataTable.Fields[idx_IdiomasID].AsInteger;
+end;
+
+procedure TIdiomasDataTableRules.SetIDValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_IdiomasID].AsInteger := aValue;
+end;
+
+function TIdiomasDataTableRules.GetIDIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_IdiomasID].IsNull;
+end;
+
+procedure TIdiomasDataTableRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_IdiomasID].AsVariant := Null;
+end;
+
+function TIdiomasDataTableRules.GetISOValue: String;
+begin
+  result := DataTable.Fields[idx_IdiomasISO].AsString;
+end;
+
+procedure TIdiomasDataTableRules.SetISOValue(const aValue: String);
+begin
+  DataTable.Fields[idx_IdiomasISO].AsString := aValue;
+end;
+
+function TIdiomasDataTableRules.GetISOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_IdiomasISO].IsNull;
+end;
+
+procedure TIdiomasDataTableRules.SetISOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_IdiomasISO].AsVariant := Null;
+end;
+
+function TIdiomasDataTableRules.GetDESCRIPCIONValue: String;
+begin
+  result := DataTable.Fields[idx_IdiomasDESCRIPCION].AsString;
+end;
+
+procedure TIdiomasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_IdiomasDESCRIPCION].AsString := aValue;
+end;
+
+function TIdiomasDataTableRules.GetDESCRIPCIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_IdiomasDESCRIPCION].IsNull;
+end;
+
+procedure TIdiomasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_IdiomasDESCRIPCION].AsVariant := Null;
+end;
+
+
+initialization
+  RegisterDataTableRules(RID_Idiomas, TIdiomasDataTableRules);
+
+end.

Source/ApplicationBase/Idiomas/Model/schIdiomasServer_Intf.pas

@@ -0,0 +1,186 @@
+unit schIdiomasServer_Intf;
+
+interface
+
+uses
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schIdiomasClient_Intf;
+
+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_IdiomasDelta = '{821798BF-142D-4451-88D3-550EBABD7BC3}';
+
+type
+  { IIdiomasDelta }
+  IIdiomasDelta = interface(IIdiomas)
+  ['{821798BF-142D-4451-88D3-550EBABD7BC3}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldISOValue : String;
+    function GetOldDESCRIPCIONValue : String;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldISO : String read GetOldISOValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+  end;
+
+  { TIdiomasBusinessProcessorRules }
+  TIdiomasBusinessProcessorRules = class(TDABusinessProcessorRules, IIdiomas, IIdiomasDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetISOValue: String; virtual;
+    function GetISOIsNull: Boolean; virtual;
+    function GetOldISOValue: String; virtual;
+    function GetOldISOIsNull: Boolean; virtual;
+    procedure SetISOValue(const aValue: String); virtual;
+    procedure SetISOIsNull(const aValue: Boolean); virtual;
+    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 ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property ISO : String read GetISOValue write SetISOValue;
+    property ISOIsNull : Boolean read GetISOIsNull write SetISOIsNull;
+    property OldISO : String read GetOldISOValue;
+    property OldISOIsNull : Boolean read GetOldISOIsNull;
+    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;
+
+implementation
+
+uses
+  Variants, uROBinaryHelpers, uDAInterfaces;
+
+{ TIdiomasBusinessProcessorRules }
+constructor TIdiomasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TIdiomasBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TIdiomasBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID];
+end;
+
+function TIdiomasBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID]);
+end;
+
+function TIdiomasBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasID];
+end;
+
+function TIdiomasBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasID]);
+end;
+
+procedure TIdiomasBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID] := aValue;
+end;
+
+procedure TIdiomasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasID] := Null;
+end;
+
+function TIdiomasBusinessProcessorRules.GetISOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO];
+end;
+
+function TIdiomasBusinessProcessorRules.GetISOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO]);
+end;
+
+function TIdiomasBusinessProcessorRules.GetOldISOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasISO];
+end;
+
+function TIdiomasBusinessProcessorRules.GetOldISOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasISO]);
+end;
+
+procedure TIdiomasBusinessProcessorRules.SetISOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO] := aValue;
+end;
+
+procedure TIdiomasBusinessProcessorRules.SetISOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasISO] := Null;
+end;
+
+function TIdiomasBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION];
+end;
+
+function TIdiomasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION]);
+end;
+
+function TIdiomasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasDESCRIPCION];
+end;
+
+function TIdiomasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_IdiomasDESCRIPCION]);
+end;
+
+procedure TIdiomasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION] := aValue;
+end;
+
+procedure TIdiomasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_IdiomasDESCRIPCION] := Null;
+end;
+
+
+initialization
+  RegisterBusinessProcessorRules(RID_IdiomasDelta, TIdiomasBusinessProcessorRules);
+
+end.

Source/ApplicationBase/Idiomas/Model/uBizIdiomas.pas

@@ -0,0 +1,40 @@
+unit uBizIdiomas;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, schIdiomasClient_Intf;
+
+const
+  BIZ_CLIENT_IDIOMAS = 'Client.Idiomas';
+  IDIOMA_DEFAULT = 'es';
+  CTE_ID_IDIOMA_DEFAULT = 2;
+  PAIS_DEFAULT = 'España';
+
+type
+  IBizIdioma = interface(IIdiomas)
+  ['{8A218E04-95DF-46A4-A53D-4097F2584D41}']
+  end;
+
+  TBizIdioma = class(TIdiomasDataTableRules, IBizIdioma)
+  protected
+    procedure AfterOpen(Sender: TDADataTable); override;
+  end;
+
+implementation
+
+{ TBizIdiomas }
+
+procedure TBizIdioma.AfterOpen(Sender: TDADataTable);
+begin
+  inherited;
+  DataTable.Sort([fld_IdiomasDESCRIPCION], [sdAscending]);
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_IDIOMAS, TBizIdioma);
+
+finalization
+
+end.
+

Source/ApplicationBase/Idiomas/Model/uBizIdiomasServer.pas

@@ -0,0 +1,14 @@
+unit uBizIdiomasServer;
+
+interface
+
+uses
+  uDAInterfaces, uDADelta, uDABusinessProcessor,
+  schIdiomasServer_Intf;
+
+const
+  BIZ_SERVER_IDIOMA = 'Server.Idioma';
+  IDIOMA_EN = 'en';
+
+implementation
+end.

Source/ApplicationBase/Idiomas/Servidor/srvIdiomas_Impl.dfm

@@ -0,0 +1,115 @@
+object srvIdiomas: TsrvIdiomas
+  OldCreateOrder = True
+  SessionManager = dmServer.SessionManager
+  ConnectionName = 'IBX'
+  ServiceSchema = schIdiomas
+  ServiceDataStreamer = Bin2DataStreamer
+  AllowExecuteSQL = True
+  ExportedDataTables = <>
+  Height = 300
+  Width = 300
+  object schIdiomas: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    DataDictionary = DataDictionary
+    Diagrams = Diagrams
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'IDIOMAS'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ISO'
+                TableField = 'ISO'
+              end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end>
+          end>
+        Name = 'Idiomas'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ISO'
+            DataType = datString
+            Size = 2
+            Required = True
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            Required = True
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <
+      item
+        Name = 'Insert Familias'
+        DoUpdate = False
+        DoDelete = False
+        DatasetName = 'Familias'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Update Familias'
+        DoInsert = False
+        DoDelete = False
+        DatasetName = 'Familias'
+        FailureBehavior = fbRaiseException
+      end
+      item
+        Name = 'Delete Familias'
+        DoUpdate = False
+        DoInsert = False
+        DatasetName = 'Familias'
+        FailureBehavior = fbRaiseException
+      end>
+    Version = 0
+    Left = 48
+    Top = 24
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 88
+  end
+  object Diagrams: TDADiagrams
+    Left = 142
+    Top = 90
+    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <
+      item
+        Name = 'Familias_ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_FAMILIAS_ID'
+        Required = True
+        DisplayLabel = 'ID'
+      end
+      item
+        Name = 'Familias_DESCRIPCION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Descripci'#243'n'
+      end>
+    Left = 142
+    Top = 22
+  end
+end

Source/ApplicationBase/Idiomas/Servidor/srvIdiomas_Impl.pas

@@ -0,0 +1,58 @@
+unit srvIdiomas_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+{$I RemObjects.inc}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils,
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Required:} uRORemoteDataModule,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
+  FactuGES_Intf, uDAInterfaces;
+
+type
+  { TsrvIdiomas }
+  TsrvIdiomas = class(TDataAbstractService, IsrvIdiomas)
+    Bin2DataStreamer: TDABin2DataStreamer;
+    Diagrams: TDADiagrams;
+    schIdiomas: TDASchema;
+    DataDictionary: TDADataDictionary;
+  private
+  protected
+    { IsrvIdiomas methods }
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FactuGES_Invk, uDataModuleServer,
+  uDatabaseUtils, schIdiomasClient_Intf, uRestriccionesUsuarioUtils;
+
+procedure Create_srvIdiomas(out anInstance : IUnknown);
+begin
+  anInstance := TsrvIdiomas.Create(nil);
+end;
+
+{ srvIdiomas }
+var
+  fClassFactory: IROClassFactory;
+initialization
+  fClassFactory := TROClassFactory.Create('srvIdiomas', Create_srvIdiomas, TsrvIdiomas_Invoker);
+
+finalization
+  UnRegisterClassFactory(fClassFactory);
+  fClassFactory := nil;
+
+end.

Source/Base/Base.dproj

@@ -44,13 +44,6 @@
     <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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</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><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -65,54 +58,54 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\designide.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contratos de cliente\Views\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contratos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>

Source/Base/Utiles/uSistemaFunc.pas

@@ -51,7 +51,8 @@ function PreguntarFicheroExcelExportar (var Fichero : String) : Boolean;
 function EscapeIllegalChars(AFileName: string): string;
 function FindFile(const filespec: TFileName; attributes: integer = faReadOnly Or faHidden Or faSysFile Or faArchive): TStringList;
 
-function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
+//Directorios informes: EMPRESA, TIENDA, IDIOMA
+function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''; const ADirectorio3: String = ''): Variant;
 
 { Fuentes }
 procedure SetDefaultFonts(const AFont: TFont);
@@ -442,27 +443,39 @@ begin
   Result := DarRutaTemporal + Cadena + '\';
 end;
 
-function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''): Variant;
+function DarRutaFichero(const ARutaIni: String; const AFichero: String; const ADirectorio1: String = ''; const ADirectorio2: String = ''; const ADirectorio3: String = ''): Variant;
 var
   ARutaCompleta: String;
 begin
   Result := Null;
 
-  ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
+  ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + ADirectorio3 + '\' + AFichero;
   if FileExists(ARutaCompleta) then
      Result := ARutaCompleta
   else
   begin
-    ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
+    ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio3 + '\' + AFichero;
     if FileExists(ARutaCompleta) then
        Result := ARutaCompleta
     else
     begin
-      ARutaCompleta := ARutaIni + '\' + AFichero;
+      ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + ADirectorio2 + '\' + AFichero;
       if FileExists(ARutaCompleta) then
          Result := ARutaCompleta
-    end
+      else
-  end
+      begin
+        ARutaCompleta := ARutaIni + '\' + ADirectorio1 + '\' + AFichero;
+        if FileExists(ARutaCompleta) then
+           Result := ARutaCompleta
+        else
+        begin
+          ARutaCompleta := ARutaIni + '\' + AFichero;
+          if FileExists(ARutaCompleta) then
+             Result := ARutaCompleta
+        end;
+      end;
+    end;
+  end;
 end;
 
 

Source/Base/Utiles/uStringsUtils.pas

@@ -95,32 +95,41 @@ function validarCIF (Cif : string) : boolean;
 var
   Suma, Control : integer;
   n : byte;
+  Valido: Boolean;
+
 begin
-  Result:=False;
+  Valido:=False;
-  Cif:=UpperCase(Cif);
+
-  {El cif debe ser de 9 cifras}
+  try
-  if Length(Cif)=9 then
+    Cif:=UpperCase(Cif);
-  begin
+    {El cif debe ser de 9 cifras}
-    Suma:= StrToInt(Cif[3])+
+    if Length(Cif)=9 then
-    StrToInt(Cif[5])+
-    StrToInt(Cif[7]);
-    for n := 1 to 4 do
     begin
-      Suma:=Suma+ ( (2*StrToInt(Cif[2*n])) mod 10 )+
+      Suma:= StrToInt(Cif[3])+
-      ( (2*StrToInt(Cif[2*n])) div 10 );
+      StrToInt(Cif[5])+
-    end;
+      StrToInt(Cif[7]);
-    Control := 10-(Suma mod 10);
+      for n := 1 to 4 do
-    if Pos(Cif[1],'XP') <> 0 then
+      begin
-      {Control tipo letra}
+        Suma:=Suma+ ( (2*StrToInt(Cif[2*n])) mod 10 )+
-      Result:= ( Cif[9] = Chr(64+ Control))
+        ( (2*StrToInt(Cif[2*n])) div 10 );
-    else
+      end;
-    begin
+      Control := 10-(Suma mod 10);
-      {Control tipo número}
+      if Pos(Cif[1],'XP') <> 0 then
-      if Control =10 then
+        {Control tipo letra}
-        Control := 0;
+        Valido:= ( Cif[9] = Chr(64+ Control))
-      Result:= ( StrToInt(Cif[9]) = Control);
+      else
+      begin
+        {Control tipo número}
+        if Control =10 then
+          Control := 0;
+        Valido:= ( StrToInt(Cif[9]) = Control);
+      end;
     end;
+  except
+    Valido := False;
   end;
+
+  Result := Valido;
 end;
 
 function CadLimpiaCar(NIF: String): String;

Source/Cliente/FactuGES.dpr

@@ -1,7 +1,6 @@
 program FactuGES;
 
 uses
-  ExceptionLog,
   Forms,
   Windows,
   SysUtils,

Source/Cliente/FactuGES.dproj

@@ -43,7 +43,7 @@
     <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
     <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
     <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
     <DCC_MapFile>3</DCC_MapFile>
@@ -52,7 +52,8 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">9</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.5.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.5.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
       
       
       
@@ -83,7 +84,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
-Activate=1
+Activate=0
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0

Source/GUIBase/GUIBase.dproj

@@ -58,34 +58,34 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Base.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Base.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\tb2k_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/GUIBase/uEditorPreview.dfm

@@ -10,7 +10,7 @@ inherited fEditorPreview: TfEditorPreview
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Top = 75
+    Top = 79
     Visible = False
     ExplicitTop = 75
     inherited Image1: TImage
@@ -18,14 +18,14 @@ inherited fEditorPreview: TfEditorPreview
     end
   end
   inherited TBXDock: TTBXDock
-    Height = 75
+    Height = 79
-    ExplicitHeight = 75
+    ExplicitHeight = 79
     inherited tbxMain: TTBXToolbar
-      Top = 49
+      Top = 53
       DefaultDock = TBXDock
       Visible = False
-      ExplicitTop = 49
+      ExplicitTop = 53
-      ExplicitWidth = 248
+      ExplicitWidth = 274
     end
     inherited tbxMenu: TTBXToolbar
       DockPos = 0
@@ -122,7 +122,7 @@ inherited fEditorPreview: TfEditorPreview
     end
     object TBXToolbar1: TTBXToolbar
       Left = 0
-      Top = 23
+      Top = 26
       Caption = 'TBXToolbar1'
       DefaultDock = TBXDock
       DragHandleStyle = dhNone
@@ -2478,7 +2478,7 @@ inherited fEditorPreview: TfEditorPreview
     Bitmap = {}
   end
   object frxReport1: TfrxReport
-    Version = '4.3'
+    Version = '4.8.11'
     DotMatrixReport = False
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
@@ -2489,10 +2489,6 @@ inherited fEditorPreview: TfEditorPreview
     ReportOptions.CreateDate = 38658.858023541660000000
     ReportOptions.LastChange = 38658.858023541660000000
     ScriptLanguage = 'PascalScript'
-    ScriptText.Strings = (
-      'begin'
-      ''
-      'end.')
     StoreInDFM = False
     Left = 16
     Top = 200
@@ -2529,6 +2525,7 @@ inherited fEditorPreview: TfEditorPreview
     ShowDialog = False
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     Monochrome = True
     Left = 120
     Top = 384
@@ -2536,13 +2533,21 @@ inherited fEditorPreview: TfEditorPreview
   object frxPDFExport1: TfrxPDFExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     PrintOptimized = True
     Outline = False
+    Background = False
+    HTMLTags = False
     Author = 'FastReport'#174
     Subject = 'FastReport PDF export'
-    Background = False
     Creator = 'FastReport (http://www.fast-report.com)'
-    HTMLTags = False
+    ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
+    HideToolbar = False
+    HideMenubar = False
+    HideWindowUI = False
+    FitWindow = False
+    CenterWindow = False
+    PrintScaling = False
     Left = 160
     Top = 384
   end
@@ -2550,6 +2555,7 @@ inherited fEditorPreview: TfEditorPreview
     ShowDialog = False
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     Monochrome = True
     Left = 192
     Top = 384
@@ -2557,6 +2563,8 @@ inherited fEditorPreview: TfEditorPreview
   object frxXLSExport1: TfrxXLSExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
+    ExportEMF = True
     AsText = False
     Background = True
     FastExport = True
@@ -2569,25 +2577,32 @@ inherited fEditorPreview: TfEditorPreview
   object frxMailExport1: TfrxMailExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     ShowExportDialog = True
     SmtpPort = 25
     UseIniFile = True
+    TimeOut = 60
+    ConfurmReading = False
     Left = 80
     Top = 384
   end
   object frxRTFExport: TfrxRTFExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
+    ExportEMF = True
     Wysiwyg = True
     Creator = 'FastReport http://www.fast-report.com'
     SuppressPageHeadersFooters = False
     HeaderFooterMode = hfText
+    AutoSize = False
     Left = 232
     Top = 384
   end
   object frxSimpleTextExport1: TfrxSimpleTextExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     Frames = False
     EmptyLines = False
     OEMCodepage = False

Source/GUIBase/uEditorPreview.pas

@@ -154,7 +154,7 @@ type
     function GetTitle: string;
     procedure PonerTitulos(const ATitulo: String = ''); override;
     function GetController : IControllerBase;
-    procedure SetController (const Value : IControllerBase);
+    procedure SetController (const Value : IControllerBase); virtual;
     procedure SetListaID (const Value : TIntegerList);
     function GetListaID : TIntegerList;
   public

Source/GUIBase/uViewDetallesBase.dfm

@@ -1,6 +1,6 @@
 inherited frViewDetallesBase: TfrViewDetallesBase
-  Width = 707
+  Width = 451
-  Height = 421
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 707
+    Width = 451
-    Height = 24
+    Height = 46
     AutoSize = True
     ButtonWidth = 63
     Caption = 'ToolBar1'
@@ -25,8 +25,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
     TabOrder = 0
     Transparent = True
     Visible = False
-    ExplicitWidth = 451
-    ExplicitHeight = 46
     object ToolButton1: TToolButton
       Left = 0
       Top = 0
@@ -56,10 +54,11 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       Top = 0
       Action = FontEdit1
       AutoSize = True
+      Wrap = True
     end
     object FontName: TJvFontComboBox
-      Left = 274
+      Left = 0
-      Top = 0
+      Top = 22
       Width = 145
       Height = 22
       DroppedDownWidth = 145
@@ -74,8 +73,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       OnClick = FontNameChange
     end
     object FontSize: TEdit
-      Left = 419
+      Left = 145
-      Top = 0
+      Top = 22
       Width = 26
       Height = 22
       Hint = 'Font Size|Select font size'
@@ -85,8 +84,8 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       OnChange = FontSizeChange
     end
     object UpDown1: TUpDown
-      Left = 445
+      Left = 171
-      Top = 0
+      Top = 22
       Width = 16
       Height = 22
       Associate = FontSize
@@ -94,70 +93,67 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       Visible = False
     end
     object ToolButton13: TToolButton
-      Left = 461
+      Left = 187
-      Top = 0
+      Top = 22
       Width = 8
       Caption = 'ToolButton13'
       ImageIndex = 10
       Style = tbsSeparator
     end
     object ToolButton6: TToolButton
-      Left = 469
+      Left = 195
-      Top = 0
+      Top = 22
       Action = RichEditBold1
       AutoSize = True
     end
     object ToolButton7: TToolButton
-      Left = 503
+      Left = 229
-      Top = 0
+      Top = 22
       Action = RichEditItalic1
       AutoSize = True
     end
     object ToolButton8: TToolButton
-      Left = 537
+      Left = 263
-      Top = 0
+      Top = 22
       Action = RichEditUnderline1
       AutoSize = True
     end
     object ToolButton12: TToolButton
-      Left = 571
+      Left = 297
-      Top = 0
+      Top = 22
       Width = 8
       Caption = 'ToolButton12'
       ImageIndex = 10
       Style = tbsSeparator
     end
     object ToolButton9: TToolButton
-      Left = 579
+      Left = 305
-      Top = 0
+      Top = 22
       Action = RichEditAlignLeft1
       AutoSize = True
     end
     object ToolButton10: TToolButton
-      Left = 613
+      Left = 339
-      Top = 0
+      Top = 22
       Action = RichEditAlignCenter1
       AutoSize = True
     end
     object ToolButton11: TToolButton
-      Left = 647
+      Left = 373
-      Top = 0
+      Top = 22
       Action = RichEditAlignRight1
       AutoSize = True
     end
   end
   object cxGrid: TcxGrid
     Left = 0
-    Top = 50
+    Top = 72
-    Width = 707
+    Width = 451
-    Height = 371
+    Height = 232
     Align = alClient
     TabOrder = 1
     LookAndFeel.Kind = lfStandard
     LookAndFeel.NativeStyle = True
-    ExplicitTop = 72
-    ExplicitWidth = 451
-    ExplicitHeight = 232
     object cxGridView: TcxGridDBTableView
       OnKeyDown = cxGridViewKeyDown
       NavigatorButtons.ConfirmDelete = False
@@ -215,6 +211,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
       object cxGridViewPOSICION: TcxGridDBColumn
         DataBinding.FieldName = 'POSICION'
         Visible = False
+        Options.Editing = False
         SortIndex = 0
         SortOrder = soAscending
         Width = 25
@@ -225,7 +222,9 @@ inherited frViewDetallesBase: TfrViewDetallesBase
         PropertiesClassName = 'TcxImageComboBoxProperties'
         Properties.ImmediatePost = True
         Properties.Items = <>
+        Visible = False
         BestFitMaxWidth = 35
+        VisibleForCustomization = False
         Width = 35
       end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
@@ -390,13 +389,11 @@ inherited frViewDetallesBase: TfrViewDetallesBase
   end
   object TBXDock1: TTBXDock
     Left = 0
-    Top = 24
+    Top = 46
-    Width = 707
+    Width = 451
     Height = 26
     BackgroundOnToolbars = False
     UseParentBackground = True
-    ExplicitTop = 46
-    ExplicitWidth = 451
     object TBXToolbar1: TTBXToolbar
       Left = 0
       Top = 0