- Nuevas versiones de las librerías

- Adaptar el código a las nuevas versiones
- Incluye VCLFixPack (http://andy.jgknet.de/blog/?page_id=288)

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@921 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Build/Build.fbp5

@@ -683,7 +683,7 @@ source_path
               <Property name="MajorVersion" type="Integer">1</Property>
               <Property MultiValue="0" name="ManifestFile" type="string"></Property>
               <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
-              <Property name="MinorVersion" type="Integer">4</Property>
+              <Property name="MinorVersion" type="Integer">6</Property>
               <Property name="NodeCollapsed" type="Boolean">False</Property>
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
@@ -703,15 +703,15 @@ source_path
               <Property name="UseVersionFromDOF" type="Boolean">True</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
 FileDescription=
-FileVersion=1.4.7.0
+FileVersion=1.6.7.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=1.4.7.0
+ProductVersion=1.6.8.0
 Comments=
-CompileDate=jueves, 27 de noviembre de 2008 16:53
+CompileDate=viernes, 27 de febrero de 2009 11:47
 ]]>
                 </Property>
               <Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@@ -19259,7 +19259,7 @@ Comments=
               <Property name="MajorVersion" type="Integer">1</Property>
               <Property MultiValue="0" name="ManifestFile" type="string"></Property>
               <Property name="MaxRetryAttempts" type="Cardinal">0</Property>
-              <Property name="MinorVersion" type="Integer">4</Property>
+              <Property name="MinorVersion" type="Integer">6</Property>
               <Property name="NodeCollapsed" type="Boolean">False</Property>
               <Property name="PauseInterval" type="Cardinal">0</Property>
               <Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
@@ -19279,13 +19279,13 @@ Comments=
               <Property name="UseVersionFromDOF" type="Boolean">False</Property>
               <Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.4.8.0
+FileVersion=1.6.8.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.4.8.0
+ProductVersion=1.6.8.0
 Comments=
 ]]>
                 </Property>
@@ -19329,7 +19329,7 @@ Comments=
                 <Property name="Optimisation" type="WordBool">False</Property>
                 <Property MultiValue="0" name="OutputDir" type="WideString">%output_path%\Cliente</Property>
                 <Property name="OverflowChecking" type="WordBool">False</Property>
-                <Property MultiValue="0" name="Packages" type="WideString">PluginSDK_D10R;GUISDK_D11;Base;GUIBase;ApplicationBase;</Property>
+                <Property MultiValue="0" name="Packages" type="WideString">PluginSDK_D11R;GUISDK_D11R;Base;GUIBase;ApplicationBase;</Property>
                 <Property name="RangeChecking" type="WordBool">False</Property>
                 <Property name="RecordFieldAlign" type="TFieldAlign">fa8</Property>
                 <Property name="ReferenceInfo" type="WordBool">True</Property>

Installer/librerias.txt

@@ -28,7 +28,7 @@ frxe11.bpl
 frxTee11.bpl
 fs11.bpl
 fsTee11.bpl
-GUISDK_D11.bpl
+GUISDK_D11R.bpl
 Jcl110.bpl
 JclVcl110.bpl
 JSDialog100.bpl

Source/ApplicationBase/ApplicationBase.dpk

@@ -27,7 +27,7 @@ package ApplicationBase;
 
 requires
   JvJansD11R,
-  PluginSDK_D10R,
+  PluginSDK_D11R,
   Base,
   GUIBase;
 

Source/ApplicationBase/ApplicationBase.dproj

@@ -55,6 +55,11 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\JvJansD11R.dcp" />
+    <DCCReference Include="..\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\PluginSDK_D110R.dcp" />
     <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
     <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
     <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@@ -63,11 +68,7 @@
     <DCCReference Include="Empresas\Data\uDataModuleEmpresas.pas">
       <Form>DataModuleEmpresasObj</Form>
     </DCCReference>
-    <DCCReference Include="Empresas\Model\Base.dcp" />
     <DCCReference Include="Empresas\Model\Data\uIDataModuleEmpresas.pas" />
-    <DCCReference Include="Empresas\Model\GUIBase.dcp" />
-    <DCCReference Include="Empresas\Model\JvJansD11R.dcp" />
-    <DCCReference Include="Empresas\Model\PluginSDK_D10R.dcp" />
     <DCCReference Include="Empresas\Model\schEmpresasClient_Intf.pas" />
     <DCCReference Include="Empresas\Model\schEmpresasServer_Intf.pas" />
     <DCCReference Include="Empresas\Model\uBizEmpresas.pas" />
@@ -77,7 +78,7 @@
       <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="Empresas\Views\uEditorEmpresa.pas">
-      <Form>fEditorEmpresa</Form>
+      <Form>fEditorEmpresas</Form>
       <DesignClass>TForm</DesignClass>
     </DCCReference>
     <DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />

Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm

@@ -1,7 +1,6 @@
 object srvEmpresas: TsrvEmpresas
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
   ConnectionName = 'IBX'
   ServiceSchema = schEmpresas
   ServiceDataStreamer = DABin2DataStreamer

Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas

@@ -119,7 +119,7 @@ end;
 
 procedure TsrvEmpresas.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpEmpresas.BusinessRulesID := BIZ_SERVER_EMPRESAS;  
 end;
 

Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm

@@ -1,7 +1,6 @@
 object srvUsuarios: TsrvUsuarios
   OldCreateOrder = True
   OnCreate = DataAbstractServiceCreate
-  SessionManager = dmServer.SessionManager
   ServiceSchema = schUsuarios
   ServiceDataStreamer = Bin2DataStreamer
   AllowExecuteSQL = True

Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.pas

@@ -54,7 +54,7 @@ end;
 
 procedure TsrvUsuarios.DataAbstractServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 initialization

Source/Base/Base.dpk

@@ -30,7 +30,7 @@ requires
   rtl,
   vcl,
   TB2k_D10,
-  GUISDK_D11,
+  GUISDK_D11RR,
   RemObjects_Core_D11,
   DataAbstract_Core_D11,
   vcljpg,

Source/Base/Base.dproj

@@ -54,57 +54,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\adortl.dcp" />
+    <DCCReference Include="..\Cliente\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Cliente\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Cliente\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Cliente\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Cliente\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Cliente\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Cliente\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Cliente\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
+    <DCCReference Include="..\Cliente\designide.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Cliente\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Cliente\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Cliente\GUISDK_D11RR.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Cliente\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Cliente\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Cliente\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Cliente\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Cliente\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Cliente\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Cliente\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Cliente\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Cliente\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Cliente\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Cliente\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
+    <DCCReference Include="..\Cliente\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Cliente\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Cliente\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
+    <DCCReference Include="..\Cliente\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Cliente\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Cliente\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Cliente\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Cliente\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
+    <DCCReference Include="..\Cliente\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
+    <DCCReference Include="..\Cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>

Source/Base/Utiles/uGridClipboardUtils.pas

@@ -273,12 +273,12 @@ begin
 
   try
     AIndex := -1;
-    ACaption := AReader.ReadString;
+    ACaption := AReader.ReadAnsiString;
     NumCols := AReader.ReadInteger; // nº de columnas
     for iContador := 0 to NumCols - 1 do
     begin
-      AValueName := AReader.ReadString;
+      AValueName := AReader.ReadAnsiString;
-      AValueType := AReader.ReadString;
+      AValueType := AReader.ReadAnsiString;
 
       AValueNameList.Add(AValueName);
       AValueTypeList.Add(AValueType);
@@ -380,7 +380,7 @@ begin
 
   AWriter := TcxWriter.Create(AStream);
   try
-    AWriter.WriteString(ACaption);
+    AWriter.WriteAnsiString(ACaption);
 
     AWriter.WriteInteger(AView.ItemCount);
     for i := 0 to AView.ItemCount - 1 do
@@ -396,8 +396,8 @@ begin
 
       AValueType := AView.Items[i].DataBinding.ValueType;
 
-      AWriter.WriteString(AName);
+      AWriter.WriteAnsiString(AName);
-      AWriter.WriteString(AValueType);
+      AWriter.WriteAnsiString(AValueType);
     end;
 
     with AView.DataController do

Source/Base/Utiles/uReferenciasUtils.pas

@@ -12,7 +12,7 @@ function CompararReferencias(const ARef1, ARef2 : String) : Integer;
 implementation
 
 uses
-  JclStrings, cxVariants;
+  JclAnsiStrings, cxVariants;
 
 function CompararReferencias(const ARef1, ARef2 : String) : Integer;
 var

Source/Cliente/FactuGES.dpr

@@ -14,14 +14,14 @@ uses
   uNavPaneUtils in 'Utiles\uNavPaneUtils.pas',
   uMainMenuController in 'uMainMenuController.pas',
   uClienteUtils in 'Utiles\uClienteUtils.pas',
-  uBootStrap in 'uBootStrap.pas';
+  uBootStrap in 'uBootStrap.pas',
+  VCLFixPack in 'VCLFixPack.pas';
 
 {$R *.res}
 
 begin
   Application.Initialize;
 
-
   //ReportMemoryLeaksOnShutdown := True;
 
   // ¡¡¡Fallo en Delphi 2007!!!

Source/Cliente/FactuGES.dproj

@@ -5,7 +5,7 @@
     <MainSource>FactuGES.dpr</MainSource>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_UsePackage>PluginSDK_D10R;GUISDK_D11;Base;GUIBase;ApplicationBase;vclx;vcl;rtl;vclactnband;xmlrtl;JSDialog100</DCC_UsePackage>
+    <DCC_UsePackage>PluginSDK_D11R;GUISDK_D11R;Base;GUIBase;ApplicationBase;vclx;vcl;rtl;vclactnband;xmlrtl;JSDialog100</DCC_UsePackage>
     <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
     <DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\FactuGES.exe</DCC_DependencyCheckOutputName>
     <DCC_EnabledPackages>true</DCC_EnabledPackages>
@@ -41,11 +41,10 @@
     <DCC_HppOutput>.\</DCC_HppOutput>
     <DCC_BplOutput>.\</DCC_BplOutput>
     <DCC_DcpOutput>.\</DCC_DcpOutput>
-    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_UnitSearchPath>
+    <DCC_UnitSearchPath>C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_UnitSearchPath>
-    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
+    <DCC_ResourcePath>C:\JCL\lib\d11\debug;$(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_ObjPath>C:\JCL\lib\d11\debug;$(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_IncludePath>C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG;</DCC_Define>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
     <DCC_SymbolReferenceInfo>2</DCC_SymbolReferenceInfo>
@@ -54,16 +53,7 @@
     <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">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">8</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">1.6.8.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">1.6.8.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">1</VersionInfo><VersionInfo Name="MinorVer">6</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">1.6.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">1.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
-      
-      
-      
-      
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</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>
-    </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
@@ -83,6 +73,7 @@
     <DCCReference Include="Utiles\uClienteUtils.pas" />
     <DCCReference Include="Utiles\uMenuUtils.pas" />
     <DCCReference Include="Utiles\uNavPaneUtils.pas" />
+    <DCCReference Include="VCLFixPack.pas" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/GUIBase/uViewGridBase.pas

@@ -190,14 +190,14 @@ procedure Register;
 implementation
 
 uses
-  CCReg, uDMBase, cxGridBandedTableView, uDBSelectionListUtils,
+  uDMBase, cxGridBandedTableView, uDBSelectionListUtils,
   uSistemaFunc, SHFolder, uAppInfoUtils;
 
 {$R *.dfm}
 
 procedure Register;
 begin
-  RegisterCustomContainer(TfrViewGridBase);
+  //RegisterCustomContainer(TfrViewGridBase);
 end;
 
 { TfrViewGrid }

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -1,7 +1,6 @@
 object srvAlbaranesCliente: TsrvAlbaranesCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schAlbaranesCliente
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -68,7 +68,7 @@ end;
 
 procedure TsrvAlbaranesCliente.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpAlbaranesCliente.BusinessRulesID := BIZ_SERVER_ALBARAN_CLIENTE;
 end;
 

Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm

@@ -1,8 +1,6 @@
 object srvAlbaranesProveedor: TsrvAlbaranesProveedor
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schAlbaranesProveedor
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas

@@ -72,7 +72,7 @@ end;
 
 procedure TsrvAlbaranesProveedor.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpAlbaranesProveedor.BusinessRulesID := BIZ_SERVER_ALBARAN_PROVEEDOR;
 end;
 

Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm

@@ -1,8 +1,6 @@
 object srvAlmacenes: TsrvAlmacenes
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schAlmacenes
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas

@@ -63,7 +63,7 @@ end;
 
 procedure TsrvAlmacenes.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 function TsrvAlmacenes.DarListaAlmacenes(const IDEmpresa: Integer): Binary;

Source/Modulos/Articulos/Plugin/Articulos_plugin.dproj

@@ -89,7 +89,7 @@
     </DelphiCompile>
     <DCCReference Include="Articulos_controller.dcp" />
     <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="PluginSDK_D10R.dcp" />
+    <DCCReference Include="PluginSDK_D11R.dcp" />
     <DCCReference Include="uPluginArticulos.pas" />
   </ItemGroup>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

@@ -1,8 +1,6 @@
 object srvArticulos: TsrvArticulos
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schArticulos
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas

@@ -64,7 +64,7 @@ end;
 
 procedure TsrvArticulos.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpArticulos.BusinessRulesID := BIZ_SERVER_ARTICULOS;
 end;
 

Source/Modulos/Articulos/Views/Articulos_view.dpk

@@ -32,7 +32,7 @@ requires
   UnidadesMedida_controller,
   Contactos_view,
   Fabricantes_controller,
-  GUISDK_D11;
+  GUISDK_D11R;
 
 contains
   uViewArticulos in 'uViewArticulos.pas' {frViewArticulos: TFrame},

Source/Modulos/Articulos/Views/Articulos_view.dproj

@@ -61,7 +61,7 @@
     <DCCReference Include="..\..\..\Servidor\Fabricantes_controller.dcp" />
     <DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" />
     <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUISDK_D11.dcp" />
+    <DCCReference Include="..\..\..\Servidor\GUISDK_D11R.dcp" />
     <DCCReference Include="..\..\..\Servidor\UnidadesMedida_controller.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">

Source/Modulos/Contactos/Controller/Contactos_controller.dpk

@@ -32,7 +32,7 @@ requires
   ApplicationBase,
   Contactos_model,
   Contactos_data,
-  GUISDK_D11,
+  GUISDK_D11R,
   xmlrtl,
   cfpack_d11,
   vclx,

Source/Modulos/Contactos/Controller/Contactos_controller.dproj

@@ -73,7 +73,7 @@
     <DCCReference Include="View\Contactos_model.dcp" />
     <DCCReference Include="View\designide.dcp" />
     <DCCReference Include="View\GUIBase.dcp" />
-    <DCCReference Include="View\GUISDK_D11.dcp" />
+    <DCCReference Include="View\GUISDK_D11R.dcp" />
     <DCCReference Include="View\rtl.dcp" />
     <DCCReference Include="View\uIEditorCliente.pas" />
     <DCCReference Include="View\uIEditorClientes.pas" />

Source/Modulos/Contactos/Plugin/Contactos_plugin.dproj

@@ -53,7 +53,7 @@
     <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_data.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uPluginContactos.pas">

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -1,7 +1,6 @@
 object srvContactos: TsrvContactos
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schContactos
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas

@@ -79,7 +79,7 @@ end;
 
 procedure TsrvContactos.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 
   bpContactos.BusinessRulesID := BIZ_SERVER_CONTACTO;
   bpEmpleados.BusinessRulesID := BIZ_SERVER_EMPLEADO;

Source/Modulos/Contactos/Views/Contactos_view.dpk

@@ -62,7 +62,7 @@ requires
   JclVcl,
   bdertl,
   JvSystemD11R,
-  GUISDK_D11,
+  GUISDK_D11R,
   xmlrtl,
   cfpack_d11,
   designide,

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -75,7 +75,7 @@
     <DCCReference Include="..\FormasPago_controller.dcp" />
     <DCCReference Include="..\FormasPago_model.dcp" />
     <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\GUISDK_D11.dcp" />
+    <DCCReference Include="..\GUISDK_D11R.dcp" />
     <DCCReference Include="..\Jcl.dcp" />
     <DCCReference Include="..\JclVcl.dcp" />
     <DCCReference Include="..\JvCoreD11R.dcp" />

Source/Modulos/Fabricantes/Plugin/Fabricantes_plugin.dproj

@@ -53,7 +53,7 @@
     <DCCReference Include="Fabricantes_model.dcp" />
     <DCCReference Include="Fabricantes_view.dcp" />
     <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="PluginSDK_D10R.dcp" />
+    <DCCReference Include="PluginSDK_D11R.dcp" />
     <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uPluginFabricantes.pas">
       <Form>PluginFabricantes</Form>

Source/Modulos/Fabricantes/Servidor/srvFabricantes_Impl.dfm

@@ -1,8 +1,6 @@
 object srvFabricantes: TsrvFabricantes
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ServiceSchema = schFabricantes
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -1,7 +1,6 @@
 object srvFacturasCliente: TsrvFacturasCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasCliente
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas

@@ -73,7 +73,7 @@ end;
 
 procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
 end;
 

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -1,8 +1,6 @@
 object srvFacturasProveedor: TsrvFacturasProveedor
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasProveedor
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas

@@ -67,7 +67,7 @@ end;
 
 procedure TsrvFacturasProveedor.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpFacturasProveedor.BusinessRulesID := BIZ_SERVER_FACTURAS_PROVEEDOR;
 end;
 

Source/Modulos/Familias/Plugin/Familias_plugin.dproj

@@ -52,7 +52,7 @@
     <DCCReference Include="C:\Documents and Settings\Usuario\Familias_model.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\Familias_view.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
     <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
     <DCCReference Include="uPluginFamilias.pas" />

Source/Modulos/Familias/Servidor/srvFamilias_Impl.dfm

@@ -1,7 +1,6 @@
 object srvFamilias: TsrvFamilias
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schFamilias
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Familias/Servidor/srvFamilias_Impl.pas

@@ -46,7 +46,7 @@ end;
 { srvFamilias }
 procedure TsrvFamilias.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 procedure TsrvFamilias.DataAbstractServiceBeforeAcquireConnection(

Source/Modulos/Formas de pago/Plugin/FormasPago_plugin.dproj

@@ -53,7 +53,7 @@
     <DCCReference Include="..\FormasPago_model.dcp" />
     <DCCReference Include="..\FormasPago_view.dcp" />
     <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\PluginSDK_D11R.dcp" />
     <DCCReference Include="..\rtl.dcp" />
     <DCCReference Include="..\vcl.dcp" />
     <DCCReference Include="uPluginFormasPago.pas" />

Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.dfm

@@ -1,7 +1,6 @@
 object srvFormasPago: TsrvFormasPago
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ServiceSchema = schFormasPago
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>

Source/Modulos/Formas de pago/Servidor/srvFormasPago_Impl.pas

@@ -49,7 +49,7 @@ end;
 { srvFormasPago }
 procedure TsrvFormasPago.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+//  SessionManager := dmServer.SessionManager;
 end;
 
 function TsrvFormasPago.DarListaFormasPago: Binary;

Source/Modulos/Gestor de informes/Servidor/NewService_Impl.dfm

@@ -1,6 +1,5 @@
 object NewService: TNewService
   OldCreateOrder = True
-  SessionManager = dmServer.SessionManager
   ServiceSchema = Schema
   ServiceDataStreamer = DABinDataStreamer1
   ExportedDataTables = <

Source/Modulos/Gestor de informes/Servidor/srvGestorInformes_Impl.dfm

@@ -1,6 +1,5 @@
 object srvGestorInformes: TsrvGestorInformes
   OldCreateOrder = True
-  SessionManager = dmServer.SessionManager
   ServiceSchema = Schema
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <

Source/Modulos/Gestor de informes/Views/GestorInformes_view.dpk

@@ -50,7 +50,7 @@ requires
   JvSystemD11R,
   JvStdCtrlsD11R,
   JvPageCompsD11R,
-  GUISDK_D11,
+  GUISDK_D11R,
   xmlrtl,
   cfpack_d11,
   designide,

Source/Modulos/Gestor de informes/Views/GestorInformes_view.dproj

@@ -59,7 +59,7 @@
     <DCCReference Include="fs11.dcp" />
     <DCCReference Include="GestorInformes_controller.dcp" />
     <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
     <DCCReference Include="Jcl.dcp" />
     <DCCReference Include="JclVcl.dcp" />
     <DCCReference Include="JvCoreD11R.dcp" />

Source/Modulos/Historico de movimientos/Servidor/srvHistoricoMovimientos_Impl.dfm

@@ -1,6 +1,5 @@
 object srvHistoricoMovimientos: TsrvHistoricoMovimientos
   OldCreateOrder = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schHistoricoMovimientos
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm

@@ -1,6 +1,5 @@
 object srvInventario: TsrvInventario
   OldCreateOrder = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schInventario
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Obras/Servidor/srvObras_Impl.dfm

@@ -1,8 +1,6 @@
 object srvObras: TsrvObras
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schObras
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Obras/Servidor/srvObras_Impl.pas

@@ -67,7 +67,7 @@ end;
 
 procedure TsrvObras.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+//  SessionManager := dmServer.SessionManager;
   bpObras.BusinessRulesID := BIZ_SERVER_OBRA;
 end;
 

Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm

@@ -1,7 +1,6 @@
 object srvPedidosProveedor: TsrvPedidosProveedor
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schPedidosProveedor
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas

@@ -76,7 +76,7 @@ end;
 
 procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpPedidosProveedor.BusinessRulesID := BIZ_SERVER_PEDIDOS_PROVEEDOR;
 end;
 

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -1,7 +1,6 @@
 object srvPresupuestosCliente: TsrvPresupuestosCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schPresupuestosCliente
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas

@@ -72,7 +72,7 @@ end;
 
 procedure TsrvPresupuestosCliente.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpPresupuestosCliente.BusinessRulesID := BIZ_SERVER_PRESUPUESTOS_CLIENTE;
 end;
 

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.dfm

@@ -1,8 +1,6 @@
 object srvRecibosCliente: TsrvRecibosCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schRecibosCliente
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas

@@ -68,7 +68,7 @@ end;
 
 procedure TsrvRecibosCliente.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 procedure TsrvRecibosCliente.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm

@@ -1,7 +1,6 @@
 object srvRecibosProveedor: TsrvRecibosProveedor
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schRecibosProveedor
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas

@@ -66,7 +66,7 @@ end;
 
 procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 procedure TsrvRecibosProveedor.DataAbstractServiceBeforeAcquireConnection(

Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm

@@ -1,7 +1,6 @@
 object srvReferencias: TsrvReferencias
   OldCreateOrder = True
   OnCreate = DataAbstractServiceCreate
-  SessionManager = dmServer.SessionManager
   ServiceSchema = schReferencias
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>

Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas

@@ -112,7 +112,7 @@ end;
 
 procedure TsrvReferencias.DataAbstractServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String;

Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm

@@ -1,8 +1,6 @@
 object srvRemesasCliente: TsrvRemesasCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schRemesasCliente
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas

@@ -67,7 +67,7 @@ end;
 
 procedure TsrvRemesasCliente.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpRemesasCliente.BusinessRulesID := BIZ_SERVER_REMESAS_CLIENTE;  
 end;
 

Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm

@@ -1,8 +1,6 @@
 object srvRemesasProveedor: TsrvRemesasProveedor
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schRemesasProveedor
   ServiceDataStreamer = Bin2DataStreamer

Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas

@@ -66,7 +66,7 @@ end;
 
 procedure TsrvRemesasProveedor.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
   bpRemesasProveedor.BusinessRulesID := BIZ_SERVER_REMESAS_PROVEEDOR;  
 end;
 

Source/Modulos/Tipos de IVA/Plugin/TiposIVA_plugin.dproj

@@ -50,7 +50,7 @@
     <DCCReference Include="..\ApplicationBase.dcp" />
     <DCCReference Include="..\Base.dcp" />
     <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\PluginSDK_D11R.dcp" />
     <DCCReference Include="..\rtl.dcp" />
     <DCCReference Include="..\TiposIVA_controller.dcp" />
     <DCCReference Include="..\TiposIVA_model.dcp" />

Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.dfm

@@ -1,8 +1,6 @@
 object srvTiposIVA: TsrvTiposIVA
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ServiceSchema = schTiposIVA
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>

Source/Modulos/Tipos de IVA/Servidor/srvTiposIVA_Impl.pas

@@ -47,7 +47,7 @@ end;
 { srvTiposIVA }
 procedure TsrvTiposIVA.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 function TsrvTiposIVA.DarListaTiposIVA: Binary;

Source/Modulos/Unidades de medida/Plugin/UnidadesMedida_plugin.dproj

@@ -50,7 +50,7 @@
     <DCCReference Include="..\..\..\Cliente\ApplicationBase.dcp" />
     <DCCReference Include="..\..\..\Cliente\Base.dcp" />
     <DCCReference Include="..\..\..\Cliente\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Cliente\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\..\..\Cliente\PluginSDK_D11R.dcp" />
     <DCCReference Include="..\..\..\Cliente\rtl.dcp" />
     <DCCReference Include="..\..\..\Cliente\UnidadesMedida_controller.dcp" />
     <DCCReference Include="..\..\..\Cliente\UnidadesMedida_model.dcp" />

Source/Modulos/Unidades de medida/Servidor/srvUnidadesMedida_Impl.dfm

@@ -1,8 +1,6 @@
 object srvUnidadesMedida: TsrvUnidadesMedida
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
-  SessionManager = dmServer.SessionManager
   ServiceSchema = schUnidadesMedida
   ServiceDataStreamer = Bin2DataStreamer
   ExportedDataTables = <>

Source/Modulos/Unidades de medida/Servidor/srvUnidadesMedida_Impl.pas

@@ -46,7 +46,7 @@ end;
 { srvUnidadesMedida }
 procedure TsrvUnidadesMedida.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 procedure TsrvUnidadesMedida.DataAbstractServiceBeforeAcquireConnection(

Source/Servicios/FactuGES.RODL

@@ -27,13 +27,13 @@
 </Operation>
 <Operation Name="DarListaDescripcionesProveedores" UID="{F3C0D310-7A7D-4944-9E69-B8AC84FEFA00}">
 <Parameters>
-<Parameter Name="Result" DataType="String" Flag="Result">
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
 </Parameter>
 </Parameters>
 </Operation>
 <Operation Name="DarListaContratosEmpleados" UID="{988C2AB6-4815-4F1B-891C-CFBB57E7B85E}">
 <Parameters>
-<Parameter Name="Result" DataType="String" Flag="Result">
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
 </Parameter>
 </Parameters>
 </Operation>
@@ -50,9 +50,9 @@
 <Parameters>
 <Parameter Name="Result" DataType="Boolean" Flag="Result">
 </Parameter>
-<Parameter Name="User" DataType="String" Flag="In" >
+<Parameter Name="User" DataType="AnsiString" Flag="In" >
 </Parameter>
-<Parameter Name="Password" DataType="String" Flag="In" >
+<Parameter Name="Password" DataType="AnsiString" Flag="In" >
 </Parameter>
 <Parameter Name="LoginInfo" DataType="TRdxLoginInfo" Flag="Out" >
 </Parameter>
@@ -116,11 +116,11 @@
 <Operations>
 <Operation Name="darValor" UID="{DC5B2492-2918-4631-9E1A-A89C5C4AEB79}">
 <Parameters>
-<Parameter Name="Result" DataType="String" Flag="Result">
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
 </Parameter>
-<Parameter Name="CODIGO" DataType="String" Flag="In" >
+<Parameter Name="CODIGO" DataType="AnsiString" Flag="In" >
 </Parameter>
-<Parameter Name="ValorPorDefecto" DataType="String" Flag="In" >
+<Parameter Name="ValorPorDefecto" DataType="AnsiString" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -441,15 +441,16 @@
 </Interfaces>
 </Service>
 <Service Name="srvReferencias" UID="{89B1A7B4-E6D5-4520-97BE-52CEA7C97110}" Ancestor="DataAbstractService">
-<Documentation><![CDATA[Para uso interno del servidor. Para modulo de gestion de referencias del cliente]]></Documentation><Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
+<Documentation><![CDATA[Para uso interno del servidor. Para modulo de gestion de referencias del cliente]]></Documentation>
+<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
 <Interfaces>
 <Interface Name="Default" UID="{B957528D-3BE1-412D-A35E-801C97CCD252}">
 <Operations>
 <Operation Name="DarNuevaReferencia" UID="{EA3276C4-2F49-4BFC-A2F8-97C705FC7C4C}">
 <Parameters>
-<Parameter Name="Result" DataType="String" Flag="Result">
+<Parameter Name="Result" DataType="AnsiString" Flag="Result">
 </Parameter>
-<Parameter Name="NombreReferencia" DataType="String" Flag="In" >
+<Parameter Name="NombreReferencia" DataType="AnsiString" Flag="In" >
 </Parameter>
 <Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
 </Parameter>
@@ -459,9 +460,9 @@
 <Parameters>
 <Parameter Name="Result" DataType="Boolean" Flag="Result">
 </Parameter>
-<Parameter Name="NombreReferencia" DataType="String" Flag="In" >
+<Parameter Name="NombreReferencia" DataType="AnsiString" Flag="In" >
 </Parameter>
-<Parameter Name="Valor" DataType="String" Flag="In" >
+<Parameter Name="Valor" DataType="AnsiString" Flag="In" >
 </Parameter>
 <Parameter Name="EmpresaID" DataType="Integer" Flag="In" >
 </Parameter>
@@ -551,7 +552,7 @@
 </Parameter>
 <Parameter Name="ID" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="NombreFichero" DataType="String" Flag="In" >
+<Parameter Name="NombreFichero" DataType="AnsiString" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -563,7 +564,7 @@
 </Parameter>
 <Parameter Name="ID" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="NombreFichero" DataType="String" Flag="In" >
+<Parameter Name="NombreFichero" DataType="AnsiString" Flag="In" >
 </Parameter>
 <Parameter Name="Fichero" DataType="Binary" Flag="In" >
 </Parameter>
@@ -577,7 +578,7 @@
 </Parameter>
 <Parameter Name="ID" DataType="Integer" Flag="In" >
 </Parameter>
-<Parameter Name="NombreFichero" DataType="String" Flag="In" >
+<Parameter Name="NombreFichero" DataType="AnsiString" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -859,9 +860,9 @@
 <Elements>
 <Element Name="UserID" DataType="Integer">
 </Element>
-<Element Name="SessionID" DataType="String">
+<Element Name="SessionID" DataType="AnsiString">
 </Element>
-<Element Name="Usuario" DataType="String">
+<Element Name="Usuario" DataType="AnsiString">
 </Element>
 <Element Name="Perfiles" DataType="StringArray">
 </Element>
@@ -888,5 +889,6 @@
 </Arrays>
 <Uses>
 <Use Name="DataAbstract4" UID="{1E2905B4-36C9-4EAA-9BB9-DF3D3C9BBE75}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
-</Use></Uses>
+</Use>
+</Uses>
 </Library>

Source/Servicios/FactuGES_Intf.pas

@@ -8,7 +8,7 @@ unit FactuGES_Intf;
 { unit is regenerated the next time you compile the project.                 }
 {----------------------------------------------------------------------------}
 
-{$I Remobjects.inc}
+{$I RemObjects.inc}
 
 interface
 
@@ -101,8 +101,8 @@ type
   TRdxLoginInfo = class(TROComplexType)
   private
     fUserID: Integer;
-    fSessionID: String;
+    fSessionID: AnsiString;
-    fUsuario: String;
+    fUsuario: AnsiString;
     fPerfiles: StringArray;
     fEmpresas: TRdxEmpresasArray;
     function GetPerfiles: StringArray;
@@ -113,8 +113,8 @@ type
     procedure WriteComplex(ASerializer: TObject); override;
   published
     property UserID:Integer read fUserID write fUserID;
-    property SessionID:String read fSessionID write fSessionID;
+    property SessionID:AnsiString read fSessionID write fSessionID;
-    property Usuario:String read fUsuario write fUsuario;
+    property Usuario:AnsiString read fUsuario write fUsuario;
     property Perfiles:StringArray read GetPerfiles write fPerfiles;
     property Empresas:TRdxEmpresasArray read GetEmpresas write fEmpresas;
   end;
@@ -204,8 +204,8 @@ type
     ['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}']
     function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
     function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
-    function DarListaDescripcionesProveedores: String;
+    function DarListaDescripcionesProveedores: AnsiString;
-    function DarListaContratosEmpleados: String;
+    function DarListaContratosEmpleados: AnsiString;
   end;
 
   { CosrvContactos }
@@ -220,14 +220,14 @@ type
 
     function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
     function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
-    function DarListaDescripcionesProveedores: String;
+    function DarListaDescripcionesProveedores: AnsiString;
-    function DarListaContratosEmpleados: String;
+    function DarListaContratosEmpleados: AnsiString;
   end;
 
   { IsrvLogin }
   IsrvLogin = interface(IDataAbstractService)
     ['{399F9DB4-1B34-4140-AB6E-3BC10C0A7034}']
-    function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
+    function Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean;
     procedure Logout;
     function Ping: Boolean;
   end;
@@ -242,7 +242,7 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
+    function Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean;
     procedure Logout;
     function Ping: Boolean;
   end;
@@ -305,7 +305,7 @@ type
   { IsrvConfiguracion }
   IsrvConfiguracion = interface(IDataAbstractService)
     ['{0882B8A4-C8AA-424E-8FC1-C6226B670522}']
-    function darValor(const CODIGO: String; const ValorPorDefecto: String): String;
+    function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
   end;
 
   { CosrvConfiguracion }
@@ -318,7 +318,7 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function darValor(const CODIGO: String; const ValorPorDefecto: String): String;
+    function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
   end;
 
   { IsrvFamilias }
@@ -639,8 +639,8 @@ type
       Para uso interno del servidor. Para modulo de gestion de referencias del cliente }
   IsrvReferencias = interface(IDataAbstractService)
     ['{B957528D-3BE1-412D-A35E-801C97CCD252}']
-    function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
+    function DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString;
-    function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
+    function IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean;
   end;
 
   { CosrvReferencias }
@@ -653,8 +653,8 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
+    function DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString;
-    function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
+    function IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean;
   end;
 
   { IsrvUnidadesMedida }
@@ -735,9 +735,9 @@ type
   IsrvGestorDocumentos = interface(IDataAbstractService)
     ['{2FFB4EEA-F314-442C-920A-E1D37F378929}']
     function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
-    function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
+    function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary;
-    function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
+    function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean;
-    function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
+    function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean;
     function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
   end;
 
@@ -752,9 +752,9 @@ type
     function __GetInterfaceName:string; override;
 
     function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray;
-    function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
+    function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary;
-    function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
+    function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean;
-    function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
+    function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean;
     function EliminarID(const Almacen: TRdxAlmacenes; const ID: Integer): Boolean;
   end;
 
@@ -892,9 +892,7 @@ end;
 procedure TRdxEmpresasArray.SetItems(aIndex: integer; const Value: Integer);
 begin
   if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
-  if fItems[aIndex] <> Value then begin
+  fItems[aIndex] := Value;
-    fItems[aIndex] := Value;
-  end;
 end;
 
 procedure TRdxEmpresasArray.Resize(ElementCount: integer);
@@ -1024,9 +1022,7 @@ end;
 procedure TIntegerArray.SetItems(aIndex: integer; const Value: Integer);
 begin
   if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
-  if fItems[aIndex] <> Value then begin
+  fItems[aIndex] := Value;
-    fItems[aIndex] := Value;
-  end;
 end;
 
 procedure TIntegerArray.Resize(ElementCount: integer);
@@ -1125,19 +1121,19 @@ procedure TRdxLoginInfo.ReadComplex(ASerializer: TObject);
 var
   l_Empresas: TRdxEmpresasArray;
   l_Perfiles: StringArray;
-  l_SessionID: String;
+  l_SessionID: AnsiString;
   l_UserID: Integer;
-  l_Usuario: String;
+  l_Usuario: AnsiString;
 begin
   if TROSerializer(ASerializer).RecordStrictOrder then begin
     l_UserID := UserID;
     TROSerializer(ASerializer).ReadInteger('UserID', otSLong, l_UserID);
     UserID := l_UserID;
     l_SessionID := SessionID;
-    TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
     SessionID := l_SessionID;
     l_Usuario := Usuario;
-    TROSerializer(ASerializer).ReadUTF8String('Usuario', l_Usuario);
+    TROSerializer(ASerializer).ReadAnsiString('Usuario', l_Usuario);
     Usuario := l_Usuario;
     l_Perfiles := Perfiles;
     TROSerializer(ASerializer).ReadArray('Perfiles', StringArray, l_Perfiles);
@@ -1158,13 +1154,13 @@ begin
     if Perfiles <> l_Perfiles then Perfiles.Free;
     Perfiles := l_Perfiles;
     l_SessionID := SessionID;
-    TROSerializer(ASerializer).ReadUTF8String('SessionID', l_SessionID);
+    TROSerializer(ASerializer).ReadAnsiString('SessionID', l_SessionID);
     SessionID := l_SessionID;
     l_UserID := UserID;
     TROSerializer(ASerializer).ReadInteger('UserID', otSLong, l_UserID);
     UserID := l_UserID;
     l_Usuario := Usuario;
-    TROSerializer(ASerializer).ReadUTF8String('Usuario', l_Usuario);
+    TROSerializer(ASerializer).ReadAnsiString('Usuario', l_Usuario);
     Usuario := l_Usuario;
   end;
 end;
@@ -1173,18 +1169,18 @@ procedure TRdxLoginInfo.WriteComplex(ASerializer: TObject);
 var
   l_Empresas: TRdxEmpresasArray;
   l_Perfiles: StringArray;
-  l_SessionID: String;
+  l_SessionID: AnsiString;
   l_UserID: Integer;
-  l_Usuario: String;
+  l_Usuario: AnsiString;
 begin
   if TROSerializer(ASerializer).RecordStrictOrder then begin
     TROSerializer(ASerializer).ChangeClass(TRdxLoginInfo);
     l_UserID := UserID;
     TROSerializer(ASerializer).WriteInteger('UserID', otSLong, l_UserID);
     l_SessionID := SessionID;
-    TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
     l_Usuario := Usuario;
-    TROSerializer(ASerializer).WriteUTF8String('Usuario', l_Usuario);
+    TROSerializer(ASerializer).WriteAnsiString('Usuario', l_Usuario);
     l_Perfiles := Perfiles;
     TROSerializer(ASerializer).WriteArray('Perfiles', l_Perfiles, StringArray);
     l_Empresas := Empresas;
@@ -1196,11 +1192,11 @@ begin
     l_Perfiles := Perfiles;
     TROSerializer(ASerializer).WriteArray('Perfiles', l_Perfiles, StringArray);
     l_SessionID := SessionID;
-    TROSerializer(ASerializer).WriteUTF8String('SessionID', l_SessionID);
+    TROSerializer(ASerializer).WriteAnsiString('SessionID', l_SessionID);
     l_UserID := UserID;
     TROSerializer(ASerializer).WriteInteger('UserID', otSLong, l_UserID);
     l_Usuario := Usuario;
-    TROSerializer(ASerializer).WriteUTF8String('Usuario', l_Usuario);
+    TROSerializer(ASerializer).WriteAnsiString('Usuario', l_Usuario);
   end;
 end;
 
@@ -1278,7 +1274,7 @@ begin
   end
 end;
 
-function TsrvContactos_Proxy.DarListaDescripcionesProveedores: String;
+function TsrvContactos_Proxy.DarListaDescripcionesProveedores: AnsiString;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaDescripcionesProveedores');
@@ -1286,14 +1282,14 @@ begin
 
     __TransportChannel.Dispatch(__Message);
 
-    __Message.Read('Result', TypeInfo(String), result, []);
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
   finally
     __Message.UnsetAttributes(__TransportChannel);
     __Message.FreeStream;
   end
 end;
 
-function TsrvContactos_Proxy.DarListaContratosEmpleados: String;
+function TsrvContactos_Proxy.DarListaContratosEmpleados: AnsiString;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaContratosEmpleados');
@@ -1301,7 +1297,7 @@ begin
 
     __TransportChannel.Dispatch(__Message);
 
-    __Message.Read('Result', TypeInfo(String), result, []);
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
   finally
     __Message.UnsetAttributes(__TransportChannel);
     __Message.FreeStream;
@@ -1322,13 +1318,13 @@ begin
   result := 'srvLogin';
 end;
 
-function TsrvLogin_Proxy.Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean;
+function TsrvLogin_Proxy.Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean;
 begin
   try
     LoginInfo := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'Login');
-    __Message.Write('User', TypeInfo(String), User, []);
+    __Message.Write('User', TypeInfo(AnsiString), User, []);
-    __Message.Write('Password', TypeInfo(String), Password, []);
+    __Message.Write('Password', TypeInfo(AnsiString), Password, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1453,17 +1449,17 @@ begin
   result := 'srvConfiguracion';
 end;
 
-function TsrvConfiguracion_Proxy.darValor(const CODIGO: String; const ValorPorDefecto: String): String;
+function TsrvConfiguracion_Proxy.darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'darValor');
-    __Message.Write('CODIGO', TypeInfo(String), CODIGO, []);
+    __Message.Write('CODIGO', TypeInfo(AnsiString), CODIGO, []);
-    __Message.Write('ValorPorDefecto', TypeInfo(String), ValorPorDefecto, []);
+    __Message.Write('ValorPorDefecto', TypeInfo(AnsiString), ValorPorDefecto, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
 
-    __Message.Read('Result', TypeInfo(String), result, []);
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
   finally
     __Message.UnsetAttributes(__TransportChannel);
     __Message.FreeStream;
@@ -2042,29 +2038,29 @@ begin
   result := 'srvReferencias';
 end;
 
-function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String;
+function TsrvReferencias_Proxy.DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNuevaReferencia');
-    __Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
+    __Message.Write('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
     __Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
 
-    __Message.Read('Result', TypeInfo(String), result, []);
+    __Message.Read('Result', TypeInfo(AnsiString), result, []);
   finally
     __Message.UnsetAttributes(__TransportChannel);
     __Message.FreeStream;
   end
 end;
 
-function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean;
+function TsrvReferencias_Proxy.IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'IncrementarValorReferencia');
-    __Message.Write('NombreReferencia', TypeInfo(String), NombreReferencia, []);
+    __Message.Write('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
-    __Message.Write('Valor', TypeInfo(String), Valor, []);
+    __Message.Write('Valor', TypeInfo(AnsiString), Valor, []);
     __Message.Write('EmpresaID', TypeInfo(Integer), EmpresaID, []);
     __Message.Finalize;
 
@@ -2211,14 +2207,14 @@ begin
   end
 end;
 
-function TsrvGestorDocumentos_Proxy.DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary;
+function TsrvGestorDocumentos_Proxy.DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DescargarFichero');
     __Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
     __Message.Write('ID', TypeInfo(Integer), ID, []);
-    __Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
+    __Message.Write('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -2230,13 +2226,13 @@ begin
   end
 end;
 
-function TsrvGestorDocumentos_Proxy.SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
+function TsrvGestorDocumentos_Proxy.SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'SubirFichero');
     __Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
     __Message.Write('ID', TypeInfo(Integer), ID, []);
-    __Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
+    __Message.Write('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
     __Message.Write('Fichero', TypeInfo(Binary), Fichero, []);
     __Message.Finalize;
 
@@ -2249,13 +2245,13 @@ begin
   end
 end;
 
-function TsrvGestorDocumentos_Proxy.EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean;
+function TsrvGestorDocumentos_Proxy.EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean;
 begin
   try
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'EliminarFichero');
     __Message.Write('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
     __Message.Write('ID', TypeInfo(Integer), ID, []);
-    __Message.Write('NombreFichero', TypeInfo(String), NombreFichero, []);
+    __Message.Write('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -8,7 +8,7 @@ unit FactuGES_Invk;
 { unit is regenerated the next time you compile the project.                 }
 {----------------------------------------------------------------------------}
 
-{$I Remobjects.inc}
+{$I RemObjects.inc}
 
 interface
 
@@ -23,6 +23,8 @@ type
   TsrvContactos_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInformeFichaEmpleado(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -33,6 +35,8 @@ type
   TsrvLogin_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -42,18 +46,24 @@ type
   TsrvInventario_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvHistoricoMovimientos_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvEmpresas_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaTiposIVA(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -62,6 +72,8 @@ type
   TsrvConfiguracion_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
@@ -69,30 +81,40 @@ type
   TsrvFamilias_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvFormasPago_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvTiposIVA_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvUsuarios_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvAlmacenes_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarListaAlmacenes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
@@ -100,6 +122,8 @@ type
   TsrvArticulos_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarListaProveedoresConArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
@@ -107,6 +131,8 @@ type
   TsrvRecibosCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
@@ -114,24 +140,32 @@ type
   TsrvRecibosProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvRemesasCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -141,12 +175,16 @@ type
   TsrvFacturasProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvPresupuestosCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -157,6 +195,8 @@ type
   TsrvPedidosProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -166,6 +206,8 @@ type
   TsrvAlbaranesCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -176,6 +218,8 @@ type
   TsrvAlbaranesProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -185,6 +229,8 @@ type
   TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -193,18 +239,24 @@ type
   TsrvUnidadesMedida_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvFabricantes_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
   end;
 
   TsrvObras_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarListaObras(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
@@ -212,6 +264,8 @@ type
   TsrvProvinciasPoblaciones_Invoker = class(TROInvoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -220,6 +274,8 @@ type
   TsrvGestorDocumentos_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_DarListaFicheros(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DescargarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -231,6 +287,8 @@ type
   TsrvGestorInformes_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
+  public
+    constructor Create; override;
   published
     procedure Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerarInformeIVAProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -253,6 +311,12 @@ uses
 
 { TsrvContactos_Invoker }
 
+constructor TsrvContactos_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvContactos_Invoker.Invoke_GenerarInformeFichaEmpleado(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary; }
 var
@@ -314,15 +378,15 @@ begin
 end;
 
 procedure TsrvContactos_Invoker.Invoke_DarListaDescripcionesProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function DarListaDescripcionesProveedores: String; }
+{ function DarListaDescripcionesProveedores: AnsiString; }
 var
-  lResult: String;
+  lResult: AnsiString;
 begin
   try
     lResult := (__Instance as IsrvContactos).DarListaDescripcionesProveedores;
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'DarListaDescripcionesProveedoresResponse');
-    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
 
@@ -331,15 +395,15 @@ begin
 end;
 
 procedure TsrvContactos_Invoker.Invoke_DarListaContratosEmpleados(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function DarListaContratosEmpleados: String; }
+{ function DarListaContratosEmpleados: AnsiString; }
 var
-  lResult: String;
+  lResult: AnsiString;
 begin
   try
     lResult := (__Instance as IsrvContactos).DarListaContratosEmpleados;
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'DarListaContratosEmpleadosResponse');
-    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
 
@@ -349,19 +413,25 @@ end;
 
 { TsrvLogin_Invoker }
 
+constructor TsrvLogin_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvLogin_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function Login(const User: String; const Password: String; out LoginInfo: TRdxLoginInfo): Boolean; }
+{ function Login(const User: AnsiString; const Password: AnsiString; out LoginInfo: TRdxLoginInfo): Boolean; }
 var
-  User: String;
+  User: AnsiString;
-  Password: String;
+  Password: AnsiString;
   LoginInfo: FactuGES_Intf.TRdxLoginInfo;
   lResult: Boolean;
   __lObjectDisposer: TROObjectDisposer;
 begin
   LoginInfo := nil;
   try
-    __Message.Read('User', TypeInfo(String), User, []);
+    __Message.Read('User', TypeInfo(AnsiString), User, []);
-    __Message.Read('Password', TypeInfo(String), Password, []);
+    __Message.Read('Password', TypeInfo(AnsiString), Password, []);
 
     lResult := (__Instance as IsrvLogin).Login(User, Password, LoginInfo);
 
@@ -413,8 +483,30 @@ begin
   end;
 end;
 
+{ TsrvInventario_Invoker }
+
+constructor TsrvInventario_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvHistoricoMovimientos_Invoker }
+
+constructor TsrvHistoricoMovimientos_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 { TsrvEmpresas_Invoker }
 
+constructor TsrvEmpresas_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvEmpresas_Invoker.Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaFormasPago: Binary; }
 var
@@ -467,21 +559,27 @@ end;
 
 { TsrvConfiguracion_Invoker }
 
+constructor TsrvConfiguracion_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvConfiguracion_Invoker.Invoke_darValor(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function darValor(const CODIGO: String; const ValorPorDefecto: String): String; }
+{ function darValor(const CODIGO: AnsiString; const ValorPorDefecto: AnsiString): AnsiString; }
 var
-  CODIGO: String;
+  CODIGO: AnsiString;
-  ValorPorDefecto: String;
+  ValorPorDefecto: AnsiString;
-  lResult: String;
+  lResult: AnsiString;
 begin
   try
-    __Message.Read('CODIGO', TypeInfo(String), CODIGO, []);
+    __Message.Read('CODIGO', TypeInfo(AnsiString), CODIGO, []);
-    __Message.Read('ValorPorDefecto', TypeInfo(String), ValorPorDefecto, []);
+    __Message.Read('ValorPorDefecto', TypeInfo(AnsiString), ValorPorDefecto, []);
 
     lResult := (__Instance as IsrvConfiguracion).darValor(CODIGO, ValorPorDefecto);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvConfiguracion', 'darValorResponse');
-    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
 
@@ -489,8 +587,46 @@ begin
   end;
 end;
 
+{ TsrvFamilias_Invoker }
+
+constructor TsrvFamilias_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvFormasPago_Invoker }
+
+constructor TsrvFormasPago_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvTiposIVA_Invoker }
+
+constructor TsrvTiposIVA_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvUsuarios_Invoker }
+
+constructor TsrvUsuarios_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 { TsrvAlmacenes_Invoker }
 
+constructor TsrvAlmacenes_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvAlmacenes_Invoker.Invoke_DarListaAlmacenes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaAlmacenes(const IDEmpresa: Integer): Binary; }
 var
@@ -521,6 +657,12 @@ end;
 
 { TsrvArticulos_Invoker }
 
+constructor TsrvArticulos_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvArticulos_Invoker.Invoke_DarListaProveedoresConArticulos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaProveedoresConArticulos(const IDEmpresa: Integer): Binary; }
 var
@@ -551,6 +693,12 @@ end;
 
 { TsrvRecibosCliente_Invoker }
 
+constructor TsrvRecibosCliente_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvRecibosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
@@ -581,8 +729,38 @@ begin
   end;
 end;
 
+{ TsrvRecibosProveedor_Invoker }
+
+constructor TsrvRecibosProveedor_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvRemesasCliente_Invoker }
+
+constructor TsrvRemesasCliente_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvRemesasProveedor_Invoker }
+
+constructor TsrvRemesasProveedor_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 { TsrvFacturasCliente_Invoker }
 
+constructor TsrvFacturasCliente_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInforme(const ListaID: TIntegerArray; const VerSello: Boolean): Binary; }
 var
@@ -677,8 +855,22 @@ begin
   end;
 end;
 
+{ TsrvFacturasProveedor_Invoker }
+
+constructor TsrvFacturasProveedor_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 { TsrvPresupuestosCliente_Invoker }
 
+constructor TsrvPresupuestosCliente_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
@@ -797,6 +989,12 @@ end;
 
 { TsrvPedidosProveedor_Invoker }
 
+constructor TsrvPedidosProveedor_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvPedidosProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInforme(const ListaID: TIntegerArray; const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary; }
 var
@@ -899,6 +1097,12 @@ end;
 
 { TsrvAlbaranesCliente_Invoker }
 
+constructor TsrvAlbaranesCliente_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
@@ -1019,6 +1223,12 @@ end;
 
 { TsrvAlbaranesProveedor_Invoker }
 
+constructor TsrvAlbaranesProveedor_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
@@ -1109,21 +1319,27 @@ end;
 
 { TsrvReferencias_Invoker }
 
+constructor TsrvReferencias_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvReferencias_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function DarNuevaReferencia(const NombreReferencia: String; const EmpresaID: Integer): String; }
+{ function DarNuevaReferencia(const NombreReferencia: AnsiString; const EmpresaID: Integer): AnsiString; }
 var
-  NombreReferencia: String;
+  NombreReferencia: AnsiString;
   EmpresaID: Integer;
-  lResult: String;
+  lResult: AnsiString;
 begin
   try
-    __Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
+    __Message.Read('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
     __Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
 
     lResult := (__Instance as IsrvReferencias).DarNuevaReferencia(NombreReferencia, EmpresaID);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvReferencias', 'DarNuevaReferenciaResponse');
-    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Write('Result', TypeInfo(AnsiString), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
 
@@ -1132,16 +1348,16 @@ begin
 end;
 
 procedure TsrvReferencias_Invoker.Invoke_IncrementarValorReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function IncrementarValorReferencia(const NombreReferencia: String; const Valor: String; const EmpresaID: Integer): Boolean; }
+{ function IncrementarValorReferencia(const NombreReferencia: AnsiString; const Valor: AnsiString; const EmpresaID: Integer): Boolean; }
 var
-  NombreReferencia: String;
+  NombreReferencia: AnsiString;
-  Valor: String;
+  Valor: AnsiString;
   EmpresaID: Integer;
   lResult: Boolean;
 begin
   try
-    __Message.Read('NombreReferencia', TypeInfo(String), NombreReferencia, []);
+    __Message.Read('NombreReferencia', TypeInfo(AnsiString), NombreReferencia, []);
-    __Message.Read('Valor', TypeInfo(String), Valor, []);
+    __Message.Read('Valor', TypeInfo(AnsiString), Valor, []);
     __Message.Read('EmpresaID', TypeInfo(Integer), EmpresaID, []);
 
     lResult := (__Instance as IsrvReferencias).IncrementarValorReferencia(NombreReferencia, Valor, EmpresaID);
@@ -1155,8 +1371,30 @@ begin
   end;
 end;
 
+{ TsrvUnidadesMedida_Invoker }
+
+constructor TsrvUnidadesMedida_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
+{ TsrvFabricantes_Invoker }
+
+constructor TsrvFabricantes_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 { TsrvObras_Invoker }
 
+constructor TsrvObras_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvObras_Invoker.Invoke_DarListaObras(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaObras(const IDEmpresa: Integer): Binary; }
 var
@@ -1187,6 +1425,12 @@ end;
 
 { TsrvProvinciasPoblaciones_Invoker }
 
+constructor TsrvProvinciasPoblaciones_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaProvincias: Binary; }
 var
@@ -1242,6 +1486,12 @@ end;
 
 { TsrvGestorDocumentos_Invoker }
 
+constructor TsrvGestorDocumentos_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvGestorDocumentos_Invoker.Invoke_DarListaFicheros(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function DarListaFicheros(const Almacen: TRdxAlmacenes; const ID: Integer): StringArray; }
 var
@@ -1273,11 +1523,11 @@ begin
 end;
 
 procedure TsrvGestorDocumentos_Invoker.Invoke_DescargarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Binary; }
+{ function DescargarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Binary; }
 var
   Almacen: FactuGES_Intf.TRdxAlmacenes;
   ID: Integer;
-  NombreFichero: String;
+  NombreFichero: AnsiString;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -1285,7 +1535,7 @@ begin
   try
     __Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
     __Message.Read('ID', TypeInfo(Integer), ID, []);
-    __Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
+    __Message.Read('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
 
     lResult := (__Instance as IsrvGestorDocumentos).DescargarFichero(Almacen, ID, NombreFichero);
 
@@ -1305,11 +1555,11 @@ begin
 end;
 
 procedure TsrvGestorDocumentos_Invoker.Invoke_SubirFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean; }
+{ function SubirFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString; const Fichero: Binary): Boolean; }
 var
   Almacen: FactuGES_Intf.TRdxAlmacenes;
   ID: Integer;
-  NombreFichero: String;
+  NombreFichero: AnsiString;
   Fichero: Binary;
   lResult: Boolean;
   __lObjectDisposer: TROObjectDisposer;
@@ -1318,7 +1568,7 @@ begin
   try
     __Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
     __Message.Read('ID', TypeInfo(Integer), ID, []);
-    __Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
+    __Message.Read('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
     __Message.Read('Fichero', TypeInfo(Binary), Fichero, []);
 
     lResult := (__Instance as IsrvGestorDocumentos).SubirFichero(Almacen, ID, NombreFichero, Fichero);
@@ -1339,17 +1589,17 @@ begin
 end;
 
 procedure TsrvGestorDocumentos_Invoker.Invoke_EliminarFichero(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: String): Boolean; }
+{ function EliminarFichero(const Almacen: TRdxAlmacenes; const ID: Integer; const NombreFichero: AnsiString): Boolean; }
 var
   Almacen: FactuGES_Intf.TRdxAlmacenes;
   ID: Integer;
-  NombreFichero: String;
+  NombreFichero: AnsiString;
   lResult: Boolean;
 begin
   try
     __Message.Read('Almacen', TypeInfo(FactuGES_Intf.TRdxAlmacenes), Almacen, []);
     __Message.Read('ID', TypeInfo(Integer), ID, []);
-    __Message.Read('NombreFichero', TypeInfo(String), NombreFichero, []);
+    __Message.Read('NombreFichero', TypeInfo(AnsiString), NombreFichero, []);
 
     lResult := (__Instance as IsrvGestorDocumentos).EliminarFichero(Almacen, ID, NombreFichero);
 
@@ -1386,6 +1636,12 @@ end;
 
 { TsrvGestorInformes_Invoker }
 
+constructor TsrvGestorInformes_Invoker.Create;
+begin
+  inherited Create;
+  FAbstract := False;
+end;
+
 procedure TsrvGestorInformes_Invoker.Invoke_GenerarInformeIVAClientes(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function GenerarInformeIVAClientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; 
                                        const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; }

Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm

@@ -1,7 +1,6 @@
 object srvConfiguracion: TsrvConfiguracion
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schConfiguracion
   ServiceDataStreamer = Bin2DataStreamer

Source/Servidor/Configuracion/srvConfiguracion_Impl.pas

@@ -46,7 +46,7 @@ end;
 { srvConfiguracion }
 procedure TsrvConfiguracion.DARemoteServiceCreate(Sender: TObject);
 begin
-  SessionManager := dmServer.SessionManager;
+  //SessionManager := dmServer.SessionManager;
 end;
 
 function TsrvConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): String;

Source/Servidor/Configuracion/uConexionBD.pas

@@ -4,9 +4,9 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
-  Dialogs, StdCtrls, ExtCtrls, cxShellBrowserDialog, cxControls,
+  Dialogs, StdCtrls, ExtCtrls, IBServices,
-  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxButtonEdit, IBServices,
+  DB, IBDatabase, uFrameConfiguracion, cxControls, cxContainer, cxEdit,
-  DB, IBDatabase, uFrameConfiguracion;
+  cxTextEdit, cxMaskEdit, cxButtonEdit;
 
 type
   TfrConexionBD = class(TFrameConfiguracion)

Source/Servidor/FactuGES_Server.dproj

@@ -7,7 +7,7 @@
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
     <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <Version>7.0</Version>
@@ -35,7 +35,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">7</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.6.7.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.6.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 27 de febrero de 2009 11:47</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.6.9.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.6.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de marzo de 2009 17:16</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.6.7.0\0"
               VALUE "ProductVersion", "1.6.7.0\0"
-              VALUE "CompileDate", "martes, 03 de marzo de 2009 14:06\0"
+              VALUE "CompileDate", "martes, 03 de marzo de 2009 17:16\0"
          END
     END
     BLOCK "VarFileInfo"