validacion doc electronica

2021-09-24 12:19:35 -07:00
parent c8f9433c8b
commit 5f09b0a2a9
1 changed files with 10 additions and 7 deletions
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1036,6 +1036,7 @@ Partial Class Inventarios_EntregaAlmacen
    End Sub

    Private Sub CargaDocumentos(tCveVenta As Integer)
+        If tCveVenta > 0 Then
            Dim objInv As New ClsEdocumentacion

            If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then
@@ -1043,6 +1044,8 @@ Partial Class Inventarios_EntregaAlmacen
            End If
            objInv.Dispose()
            GvDocs.DataBind()
+        End If
+
    End Sub