-autorizaciones de anticipos

Ventas/Ventas.aspx.vb

@@ -16836,10 +16836,11 @@ Partial Class Ventas
             If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then
                 If e.Row.DBCampo("Tipo").ToString() = "Ant" AndAlso Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
                     e.Row.FCCheckBox("Chk" & e.Row.RowIndex).Enabled = False
+                    e.Row.FCCheckBox("Chk" & e.Row.RowIndex).ToolTip = "Anticipo Bloqueado"
+                    e.Row.FCLinkButton("LnkSolicitarActivarAnticipo").Visible = True
                 End If
             End If
 
-
             If e.Row.DBCampo("CveMoneda").ToString().ToEntero() = DdlMoneda.SelectedValue.ToEntero() Then
                 e.Row.FCTextBox("TxtTC" & e.Row.RowIndex).Visible = False
             End If
@@ -38422,11 +38423,32 @@ Partial Class Ventas
     End Function
 
 
-
+#Region "Activa Anticipos"
     Protected Sub LnkRecargaAnticipos_Click(sender As Object, e As EventArgs)
         If CveCliente > 0 Then
             CargaAnticipos(CveCliente)
         End If
     End Sub
+
+    Protected Sub LnkSolicitarActivarAnticipo_Click(sender As Object, e As EventArgs)
+        'falta sacar a los usuarios a notificar.
+        Dim gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+        Dim Folio As String = gvr.DataKey("Folio")
+        Dim ObjProceso As New ClsSisProcesos
+        Dim dtt As DataTable = Nothing
+
+        If ObjProceso.GetUsuariosconProceso(379, UsuarioActual.CveEmpresa) Then 'proceso para autorizar
+            dtt = ObjProceso.DtResultados
+        End If
+        ObjProceso.Dispose()
+        If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+            For Each dr As DataRow In dtt.Rows
+                ClsSisNotificaciones.EnviarAlerta("Solicitud de Anticipo", $"Solicitud de activación de anticipo Folio: {Folio} <br/><a href='/Ventas/Clientes.aspx?CveCliente={CveCliente}&op=ant'>Ir Activar</a>", dr("CveUsuario").ToString, Tipo:=TipoNotificacion.ToastInformacionB)
+            Next
+        End If
+
+    End Sub
+#End Region
+
 End Class