validacion doc electronica

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