Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

uDataModuleConfiguracion.pas -> rectificación en la llamada al servicio de configuración.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@544 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-08-28 09:04:03 +00:00
parent 2c1785c23b
commit 66a6cb4a91
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Base/Configuracion/uDataModuleConfiguracion.pas
View File

@ -16,7 +16,7 @@ type
private private
FIniFile : TIniFile; FIniFile : TIniFile;
public public
function DarValor(const CODIGO: String): Variant; function DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
procedure LeerConfiguracion; procedure LeerConfiguracion;
procedure SalvarConfiguracion; procedure SalvarConfiguracion;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -53,11 +53,11 @@ begin
FIniFile := TIniFile.Create(AIniFile + CONFIG_INI_FILE); FIniFile := TIniFile.Create(AIniFile + CONFIG_INI_FILE);
end; end;
function TdmConfiguracion.DarValor(const CODIGO: String): Variant; function TdmConfiguracion.DarValor(const CODIGO: String; const ValorPorDefecto: String = ''): Variant;
begin begin
RORemoteService.Channel := dmConexion.ROChannel; RORemoteService.Channel := dmConexion.ROChannel;
RORemoteService.Message := dmConexion.ROMessage; RORemoteService.Message := dmConexion.ROMessage;
Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO); Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO, ValorPorDefecto);
end; end;
destructor TdmConfiguracion.Destroy; destructor TdmConfiguracion.Destroy;