From f36bf6405533bf1a971d93a8a264195a55688587 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 15 Feb 2010 17:50:06 +0000
Subject: [PATCH] Se arregla la gestion de referencias que ha fallado, y se
 oculta el campo posicion

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@994 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Modulos/Referencias/Controller/uReferenciasController.pas   | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/Modulos/Referencias/Controller/uReferenciasController.pas b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
index 5cc9ef62..4bfdde99 100644
--- a/Source/Modulos/Referencias/Controller/uReferenciasController.pas
+++ b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
@@ -72,7 +72,7 @@ begin
     Condicion1 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA),
       NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
     // (ID_EMPRESA = NULL)
-    Condicion2 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA), NewConstant(ID_NULO, datInteger), dboEqual);
+    Condicion2 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA), NewNull(), dboEqual);
 
     Condicion := NewBinaryExpression(Condicion1, Condicion2, dboOr);