- Tipo Relación:
-
+
+ Tipo Amortización:
+
+
-
-
-
-
-
-
-
-
-
+
+
+ Tipo Relación:
-
+
+
+
+
-
-
-
-
-
-
-
-
- Folio
-
-
-
-
-
- Fecha
-
-
-
-
-
- Saldo
-
-
-
-
-
- Moneda Venta
-
-
-
-
-
- Moneda
-
-
-
-
-
- Atención A
-
-
-
-
-
- Amort. Ant.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Folio
+
+
+
+
+
+ Fecha
+
+
+
+
+
+ Saldo
+
+
+
+
+
+ Moneda Venta
+
+
+
+
+
+ Moneda
+
+
+
+
+
+ Atención A
+
+
+
+
+
+ Amort. Ant.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 23f93b263..34e7e9e20 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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}
Ir Activar", dr("CveUsuario").ToString, Tipo:=TipoNotificacion.ToastInformacionB)
+ Next
+ End If
+
+ End Sub
+#End Region
+
End Class