From a94fd238792e1d2c2d890639ef87c73793674331 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 3 Dec 2007 18:49:46 +0000
Subject: [PATCH] Cambio en el onvalidate del porte porque peta cuando es null,
 hay que hacer una busqueda masiva de varisnull(displayvalue).

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@180 c93665c3-c93d-084d-9b98-7d5f4a9c3376
---
 .../Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm      | 2 +-
 .../Pedidos a proveedor/Views/uEditorPedidoProveedor.pas      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
index 3e70b29f..454b1697 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm	
@@ -6,7 +6,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
   ClientWidth = 765
   OnClose = CustomEditorClose
   ExplicitWidth = 773
-  ExplicitHeight = 651
+  ExplicitHeight = 644
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
index 92f6ee10..c4328935 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas	
@@ -147,8 +147,8 @@ procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(
   var Error: Boolean);
 begin
   inherited;
-  if not VarIsNull(DisplayValue) then
-    FPedido.IMPORTE_PORTE := DisplayValue
+  if (not VarIsNull(DisplayValue)) and (VarToStr(DisplayValue) <> '') then
+    FPedido.IMPORTE_PORTE :=  DisplayValue
   else
     FPedido.IMPORTE_PORTE := 0;