Merge branch 'master' of http://192.168.10.111:8383/SIG

Compras/eFacturas.aspx

@@ -1107,6 +1107,19 @@
                                                             <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+
+                                                    <asp:TemplateField HeaderText="" Visible="false">
+                                                        <ItemTemplate>
+                                                            <asp:LinkButton ID="LnkRemoveSolicitud" runat="server" OnClick="LnkRemoveSolicitud_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" 
+                                                                data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la solicitud?" data-btn-ok-label="si" />
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+
+                                                    
+ 
+
+
+
                                                 </Columns>
                                             </asp:GridView>
                                         </div>

Compras/eFacturas.aspx.vb

@@ -781,6 +781,11 @@ Partial Class Compras_eFacturas
             CargaGvBitacora()
             CargaDatos()
             MostrarSolcitudesSAT()
+
+            If UsuarioActual.CveRol = 1 Then
+                GVSolicitudesPendientes.Columns(8).Visible = True
+            End If
+
         End If
         removeasincevent()
     End Sub
@@ -5033,6 +5038,26 @@ Partial Class Compras_eFacturas
         RegistraScript("$('#DvmodalPersonalizar').modal('show');")
 
     End Sub
+
+    Protected Sub LnkRemoveSolicitud_Click(sender As Object, e As EventArgs)
+
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        Dim ProcesoOk As Boolean = False
+
+        Dim CveSolicitud = gvRow.DataKey("CveSolicitud").ToEntero
+        Dim Folio = gvRow.DataKey("Folio").ToEntero
+
+        Using nom As ClsNominas = New ClsNominas()
+            ProcesoOk = nom.SolicitudesCancelar(CveSolicitud, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
+        End Using
+
+        If ProcesoOk Then
+            Alert($"Solicitud {Folio} cancelada correctamente.")
+            cargasolicitudes()
+        End If
+
+
+    End Sub
 End Class
 
 
@@ -5052,6 +5077,12 @@ Public Class GeneralesAPIeFacturas
     Public Function VerificaSolicitudesNominas(CveEmpresa As Integer, CveTipoSolicitud As Integer, CveSolicitud As Integer) As Object
         Return getData(Of Object)($"VerificaSolicitudesNominas/{CveEmpresa}/{CveTipoSolicitud}/{CveSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
     End Function
+
+    Public Function CancelarSolicitud(CveEmpresa As Integer, CveSolicitud As Integer, CveUsuario As Integer) As Object
+        Return getData(Of Object)($"CancelarSolicitud/{CveEmpresa}/{CveSolicitud}/{CveUsuario}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
+    End Function
+
+
 End Class