From 66a6cb4a911667e830dd7d4c4c01c99e3bc95eac Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 28 Aug 2008 09:04:03 +0000
Subject: [PATCH] =?UTF-8?q?uDataModuleConfiguracion.pas=20->=20rectificaci?=
 =?UTF-8?q?=C3=B3n=20en=20la=20llamada=20al=20servicio=20de=20configuraci?=
 =?UTF-8?q?=C3=B3n.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@544 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/Configuracion/uDataModuleConfiguracion.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Base/Configuracion/uDataModuleConfiguracion.pas b/Source/Base/Configuracion/uDataModuleConfiguracion.pas
index 6585de94..1ba6b9fd 100644
--- a/Source/Base/Configuracion/uDataModuleConfiguracion.pas
+++ b/Source/Base/Configuracion/uDataModuleConfiguracion.pas
@@ -16,7 +16,7 @@ type
   private
     FIniFile : TIniFile;
   public
-    function DarValor(const CODIGO: String): Variant;
+    function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
     procedure LeerConfiguracion;
     procedure SalvarConfiguracion;
     constructor Create(AOwner: TComponent); override;
@@ -53,11 +53,11 @@ begin
   FIniFile := TIniFile.Create(AIniFile + CONFIG_INI_FILE);
 end;
 
-function TdmConfiguracion.DarValor(const CODIGO: String): Variant;
+function TdmConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
 begin
   RORemoteService.Channel := dmConexion.ROChannel;
   RORemoteService.Message := dmConexion.ROMessage;
-  Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO);
+  Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO, ValorPorDefecto);
 end;
 
 destructor TdmConfiguracion.Destroy;