-autorizaciones de anticipos

Ventas/Ventas.aspx

@@ -4536,10 +4536,11 @@
             </div>
         </asp:Panel>
     </div>
-    <div id="DivAnticipos" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel runat="server" ID="UpAnticipos" UpdateMode="Conditional" class="modal-dialog">
-            <ContentTemplate>
           
+    <div id="DivAnticipos" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel runat="server" ID="UpAnticipos" UpdateMode="Conditional" RenderMode="Inline">
+            <ContentTemplate>
+                <div class="modal-dialog" >
                     <div class="modal-content">
                         <div class="modal-header ">
                             <button type="button" class="close" data-dismiss="modal">&times;</button>
@@ -4625,12 +4626,13 @@
                                 </div>
                                 <br />
                                 <asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
-                                ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
+                                    ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" data-height="300" Style="text-align: center;" GridLines="None"
                                     DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente,Descuentos">
                                     <Columns>
                                         <asp:TemplateField>
                                             <ItemTemplate>
                                                 <asp:CheckBox ID="Chk" runat="server" />
+                                                <asp:LinkButton ID="LnkSolicitarActivarAnticipo" Visible="false" NavigateUrl="#" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-check'></i>" tooltip="Solicitar activar anticipo" runat="server" OnClick="LnkSolicitarActivarAnticipo_Click" />
                                             </ItemTemplate>
                                         </asp:TemplateField>
                                         <asp:TemplateField>
@@ -4695,6 +4697,7 @@
                             <asp:HiddenField ID="HdnTieneAnticiposVinculados" ClientIDMode="Static" Value="0" runat="server" />
                         </div>
                     </div>
+                </div>
                 </ContentTemplate>
         </asp:UpdatePanel>
     </div>

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