Usuarios: Arreglado un fallo con cadenas SQL que contienen caracteres UTF-8.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@120 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-01-22 18:35:33 +00:00
parent a300a6bd73
commit 5d315a79c8

View File

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