AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

validacion doc electronica

Browse Source
This commit is contained in:
rrene
2021-09-24 12:19:35 -07:00
parent c8f9433c8b
commit 5f09b0a2a9
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1036,13 +1036,16 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub CargaDocumentos(tCveVenta As Integer) Private Sub CargaDocumentos(tCveVenta As Integer)
Dim objInv As New ClsEdocumentacion 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 <> ''") If objInv.DocumentacionElectronicaGet(-1, -1, -1, UsuarioActual.CveEmpresa, -1, tCveVenta) Then
End If GvDocs.DataSource = objInv.DtResultados.FiltraParametros("Adjunto <> ''")
objInv.Dispose() End If
GvDocs.DataBind() objInv.Dispose()
GvDocs.DataBind()
End If
End Sub End Sub