From c6e5b4960492135ab4de7ff1d21d149489e004eb Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 15 Feb 2010 17:48:40 +0000
Subject: [PATCH] =?UTF-8?q?Se=20arregla=20error=20en=20el=20m=C3=B3dulo=20?=
 =?UTF-8?q?de=20referencias?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@507 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Referencias/Controller/uReferenciasController.pas | 11 +++++++++--
 .../Referencias/Servidor/srvReferencias_Impl.dfm      |  3 +--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/Source/Modulos/Referencias/Controller/uReferenciasController.pas b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
index 609aaf46..80fb014b 100644
--- a/Source/Modulos/Referencias/Controller/uReferenciasController.pas
+++ b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
@@ -60,6 +60,9 @@ end;
 procedure TReferenciasController.FiltrarEmpresa(AReferencias: IBizReferencia);
 var
   Condicion: TDAWhereExpression;
+  Condicion1: TDAWhereExpression;
+  Condicion2: TDAWhereExpression;
+
 begin
   if AReferencias.DataTable.Active then
     AReferencias.DataTable.Active := False;
@@ -67,9 +70,13 @@ begin
   // Filtrar las facturas actuales por empresa
   with AReferencias.DataTable.DynamicWhere do
   begin
-    // (ID_EMPRESA >= ID)
-    Condicion := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA),
+    // (ID_EMPRESA = ID)
+    Condicion1 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA),
       NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+    // (ID_EMPRESA = NULL)
+    Condicion2 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA), NewNull(), dboEqual);
+
+    Condicion := NewBinaryExpression(Condicion1, Condicion2, dboOr);
 
     if IsEmpty then
        Expression := Condicion
diff --git a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm
index 4a246f99..70cc04d2 100644
--- a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm
+++ b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm
@@ -22,8 +22,7 @@ object srvReferencias: TsrvReferencias
             Name = 'IBX'
             SQL = 
               'SELECT '#10'    ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCIO' +
-              'N'#10'  FROM'#10'    REFERENCIAS'#10'  WHERE ID_EMPRESA IS NULL'#10'  OR {Where}' +
-              #10
+              'N'#10'  FROM'#10'    REFERENCIAS'#10'  WHERE {Where}'#10
             StatementType = stSQL
             ColumnMappings = <
               item