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;