Ventas/Clientes.aspx.vb

@@ -7017,18 +7017,22 @@ Partial Class Clientes
 #Region "D O C U M E N T A C I O N   "
 
     Private Sub CargaDocumentacionCliente()
-        Dim objRH As New ClsEdocumentacion()
-
+        Dim objRH As New ClsEdocumentacion()
+
         If objRH.DocumentacionElectronicaGet(-1, If(CveCliente = -1, 0, CveCliente), -1, UsuarioActual.Empresa.CveEmpresa, -1, Modulo:=2) Then
             DTDocumentacion = objRH.DtResultados
             GvDocumentosCliente.DataSource = objRH.DtResultados
         End If
+        If objRH.DocumentacionElectronicaGet(-1, If(CveCliente = -1, 0, CveCliente), -1, UsuarioActual.Empresa.CveEmpresa, -1, Modulo:=-2) Then
+            GVDocMaterialidad.DataSource = objRH.DtResultados.FiltraParametros("Modulo IN (5,6)")
+        End If
         objRH.Dispose()
         'If DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ").Rows.Count > 0 Then
         '    GvDocumentosCliente.DataSource = DTDocumentacion.FiltraParametros(" CveDocumentacionTipo =  7 ")
         'Else
         '    GvDocumentosCliente.DataSource = Nothing
         'End If
+        GVDocMaterialidad.DataBind()
         GvDocumentosCliente.DataBind()
 
         UPGvDocumentosCliente.Update()
@@ -10908,5 +10912,33 @@ Partial Class Clientes
     Private Sub RecargaGlobalDTVendedorSucursal()
         GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing
     End Sub
+
+    Protected Sub LnkGuardarMaterialidad_Click(sender As Object, e As EventArgs)
+        Using objRH As New ClsEdocumentacion()
+
+            For Each gvrow As GridViewRow In GVDocMaterialidad.Rows
+                Dim CveDocumentacionElectronica As Integer = gvrow.DataKey("CveDocumentacionElectronica").ToEntero()
+                Dim CveDocumentacion As Integer = gvrow.DataKey("CveDocumentacion").ToEntero()
+                Dim FechaLimite As Date = gvrow.FCTextBox("TxtFechaLimite").Text.ToDate()
+                Dim estatus As Boolean = gvrow.FCCheckBox("chkEstatus").Checked
+
+                If estatus Then
+                    If CveDocumentacionElectronica = -1 Then
+                        If objRH.DocumentacionElectronicaAdd(CveDocumentacion, -1, CveCliente, -1, 1, ObservacionDocumentacion, "", UsuarioActual.CveUsuario, FechaLimite) > 0 Then
+
+                        End If
+                    End If
+                Else
+                    If CveDocumentacionElectronica > 1 Then
+                        If objRH.DocumentacionElectronicaRemove(CveDocumentacionElectronica, -1) Then
+
+                        End If
+                    End If
+                End If
+            Next
+            Alert("Los cambios se guardaron satisfactoriamente.")
+        End Using
+
+    End Sub
 End Class