From 100a6a501e6cc6b51c48b552824b4def2aa7f80a Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 6 Nov 2008 18:57:12 +0000
Subject: [PATCH] =?UTF-8?q?Arreglo=20temporal=20de=20pedido=20de=20proveed?=
 =?UTF-8?q?or=20para=20poder=20hacer=20la=20subida=20ma=C3=B1ana?=
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.Tecsitel_FactuGES2/trunk@740 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Controller/uPedidosProveedorController.pas                | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index 2ad07c23..78638bb5 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -372,7 +372,11 @@ begin
       APedido.DataTable.FieldByName(fld_PedidosProveedorID_ALMACEN).AsVariant := NULL;
 
     if (APedido.ID_OBRA = 0) then
+    begin
+      APedido.DataTable.DisableEventHandlers; //Arreglo temporal
       APedido.DataTable.FieldByName(fld_PedidosProveedorID_OBRA).AsVariant := NULL;
+      APedido.DataTable.EnableEventHandlers; 
+    end;
 
     Result := True;
   finally