From a14d5dc63344f80fcd9337ff1330935ccda92704 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 22 Jan 2008 18:40:53 +0000
Subject: [PATCH] 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
---
 Source/ApplicationBase/Usuarios/Data/uUCROConn.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas
index c1ed45ba..2561f3c9 100644
--- a/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas
+++ b/Source/ApplicationBase/Usuarios/Data/uUCROConn.pas
@@ -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;