Usuarios: Arreglado un fallo con consultas SQL con texto en UTF-8.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@237 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-22 18:40:53 +00:00
parent 1881460cc0
commit a14d5dc633

View File

@ -149,8 +149,11 @@ begin
end; end;
procedure TUCROConn.UCExecSQL(FSQL: String); procedure TUCROConn.UCExecSQL(FSQL: String);
var
ASQL : String;
begin begin
(FRemoteService as IsrvUsuarios).SQLExecuteCommand(FSQL); ASQL := AnsiToUtf8(FSQL);
(FRemoteService as IsrvUsuarios).SQLExecuteCommand(ASQL);
end; end;
function TUCROConn.UCFindDataConnection: Boolean; function TUCROConn.UCFindDataConnection: Boolean;