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;