eFacturas correciones decargas sustitucion de pdf

AF/AF.aspx.vb

@@ -4947,4 +4947,39 @@ Partial Class AF_AF
         RegistraScript("$('#ModalContaCuenta').modal('show');")
 
     End Sub
+
+
+    'Private Sub CargaDocumentacion()
+
+    '    If CveActivoFijo > 0 Then
+    '        Dim objRH As New ClsEdocumentacion()
+
+    '        If objRH.DocumentacionElectronicaGet(CvePersonal, -1, -1, UsuarioActual.Empresa.CveEmpresa, -1) Then
+    '            DTDocumentacion = objRH.DtResultados
+    '        End If
+
+    '        If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ").Rows.Count > 0 Then
+    '            GvDocumentosFirma.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ")
+    '        Else
+    '            GvDocumentosFirma.DataSource = Nothing
+    '        End If
+
+
+    '        If DTDocumentacion.FiltraParametros(" Modulo =  7 ").Rows.Count > 0 Then
+    '            GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo =  7 ")
+    '        Else
+    '            GVMaterialidad.DataSource = Nothing
+    '        End If
+
+    '        GVMaterialidad.DataBind()
+    '        GvDocumentosFirma.DataBind()
+
+    '        UpMaterialidad.Update()
+    '        UPGvDocumentosFirma.Update()
+    '        UpGvDocumentosFirma2.Update()
+    '    End If
+
+    'End Sub
+
+
 End Class