Compras/eFacturas.aspx.vb

@@ -2517,7 +2517,59 @@ Partial Class Compras_eFacturas
         DTConceptos.Columns.Add("Total", GetType(Double))
     End Sub
 #End Region
+#Region "Sat descargamasiva"
+    Private Sub cargasolicitudes()
+        Using nom As ClsNominas = New ClsNominas()
 
+            If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, 2) Then
+                GVSolicitudesPendientes.DataSource = nom.DtResultados.FiltraParametros("Estatus =0")
+                GVSolicitudesPendientes.DataBind()
+                GVSolicitudesNominas.DataSource = nom.DtResultados.FiltraParametros("Estatus =1")
+                GVSolicitudesNominas.DataBind()
+            End If
+        End Using
+
+        UPModalViewSolicitudes.Update()
+    End Sub
+    Protected Sub LnkShowSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
+        cargasolicitudes()
+        Me.RegistraScript("$('#ModalViewSolicitudes').modal();")
+    End Sub
+
+    Protected Sub LnkSolicitarSat_Click(ByVal sender As Object, ByVal e As EventArgs)
+        Dim idSolicitudCFDI As Integer = 0
+        Dim idSolicitudMetadata As Integer = 0
+        Dim estatus As Integer = 0
+        Dim observaciones As String = ""
+        Dim fechaInicio As DateTime = txtFechaIAdd.Text.ToDateTime()
+        Dim fechaFin As DateTime = txtFechaFAdd.Text.ToDateTime()
+        Dim cveUsuarioIng As Integer = UsuarioActual.CveUsuario
+        Dim cveEmpresa As Integer = UsuarioActual.CveEmpresa
+        Dim Continuar As Boolean = False
+
+        Using nom As ClsNominas = New ClsNominas()
+            Continuar = nom.SolicitudesAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, 2)
+            'Dim api = New GeneralesAPI()
+            'api.GeneraSolicitud()
+            'api.VerificaSolicitudesNominas()
+        End Using
+
+        If Continuar Then
+            txtFechaIAdd.Text = ""
+            txtFechaFAdd.Text = ""
+            Me.RegistraScript("$('#DModalSolicitudesNominas').modal('hide');")
+            cargasolicitudes()
+            Me.Alert("se a envia la solicitud al sat, le enviaremos un correo en cuanto tengamos una respuesta", ModExtensiones.TipoMensaje.ToastInformacion)
+        End If
+    End Sub
+
+    Protected Sub LnkverificarSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
+        'Dim api = New GeneralesAPI()
+        'api.GeneraSolicitud()
+        'api.VerificaSolicitudesNominas()
+        cargasolicitudes()
+    End Sub
+#End Region
 #Region "D E S C A R G A R  -  F A C T U R A "
     Protected Sub lbDescargar_Click(sender As Object, e As EventArgs) Handles lbDescargar.Click