diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 7dae4e8..9d7f06c 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -65,55 +65,55 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Configuracion/uDataModuleConfiguracion.pas b/Source/Base/Configuracion/uDataModuleConfiguracion.pas
index 5c543dc..a31decc 100644
--- a/Source/Base/Configuracion/uDataModuleConfiguracion.pas
+++ b/Source/Base/Configuracion/uDataModuleConfiguracion.pas
@@ -19,6 +19,7 @@ type
function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
function DarValorParaEmpresa(const CODIGO: String; const ID_EMPRESA: Integer; const ValorPorDefecto: String = ''): Variant;
procedure GuardarValor(const CODIGO: String; const Valor: Variant);
+ procedure GuardarValorParaEmpresa(const CODIGO: String; const ID_EMPRESA: Integer; const Valor: Variant);
procedure LeerConfiguracion;
procedure SalvarConfiguracion;
constructor Create(AOwner: TComponent); override;
@@ -83,6 +84,14 @@ begin
(RORemoteService as IsrvConfiguracion).GuardarValor(CODIGO, Valor);
end;
+procedure TdmConfiguracion.GuardarValorParaEmpresa(const CODIGO: String;
+ const ID_EMPRESA: Integer; const Valor: Variant);
+begin
+ RORemoteService.Channel := dmConexion.ROChannel;
+ RORemoteService.Message := dmConexion.ROMessage;
+ (RORemoteService as IsrvConfiguracion).guardarValorParaEmpresa(CODIGO, ID_EMPRESA, Valor);
+end;
+
procedure TdmConfiguracion.LeerConfiguracion;
begin
with FIniFile do