From 5d315a79c8ee46b1e93d86804a52362de87c36d7 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 22 Jan 2008 18:35:33 +0000
Subject: [PATCH] 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
---
 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;