From 5f09b0a2a99c824690d5b25f65a4596770355dbb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 24 Sep 2021 12:19:35 -0700
Subject: [PATCH] validacion doc electronica

---
 Inventarios/EntregaAlmacen.aspx.vb | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 66f0a2f72..5f5646989 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1036,13 +1036,16 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
     Private Sub CargaDocumentos(tCveVenta As Integer)
-        Dim objInv As New ClsEdocumentacion
-
-        If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then
-            GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''")
-        End If
-        objInv.Dispose()
-        GvDocs.DataBind()
+        If tCveVenta > 0 Then
+            Dim objInv As New ClsEdocumentacion
+
+            If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then
+                GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''")
+            End If
+            objInv.Dispose()
+            GvDocs.DataBind()
+        End If
+
     End Sub