+
+
+
+
+
+
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index dc6f3a20b..6fc2bdb8f 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2552,51 +2552,160 @@ Partial Class Compras_eFacturas
DTConceptos.Columns.Add("Total", GetType(Double))
End Sub
#End Region
+
+
+
#Region "Sat descargamasiva"
Private Sub cargasolicitudes()
+
+ LnkverificarSolicitudes.Visible = False
+
Using nom As ClsNominas = New ClsNominas()
- If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, 2) Then
- GVSolicitudesPendientes.DataSource = nom.DtResultados.FiltraParametros("Estatus =0")
+ If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=0, Top:=50) Then
+ GVSolicitudesPendientes.DataSource = nom.DtResultados
+
+ If nom.DtResultados.Rows.Count > 0 Then
+ LnkverificarSolicitudes.Visible = True
+ End If
+
GVSolicitudesPendientes.DataBind()
- GVSolicitudesNominas.DataSource = nom.DtResultados.FiltraParametros("Estatus =1")
+ End If
+
+ If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=1, Top:=50) Then
+ GVSolicitudesNominas.DataSource = nom.DtResultados
GVSolicitudesNominas.DataBind()
End If
End Using
UPModalViewSolicitudes.Update()
+
+
End Sub
Protected Sub LnkShowSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
+
+ TabPanel.ActiveTabIndex = 0
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 GeneralesAPIeFacturas()
+ ' ' 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
+
+ ' 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, CveTipoSolicitud:=3)
+ ' End Using
+
+ ' If Continuar Then
+ ' Dim sbResultado As StringBuilder = New StringBuilder()
+ ' Dim api = New GeneralesAPIeFacturas()
+ ' Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken)
+ ' Dim resultSolicitud As List(Of String) = New List(Of String)()
+ ' Dim resultVerificacion As List(Of String) = New List(Of String)()
+ ' Dim ResultadoVerificaionOK = False
+ ' Dim SeVerifico = False
+ ' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+ ' Dim ResultadoSolicitudOK = False
+
+ ' If Not (ObjApiSolicitud Is Nothing) Then
+ ' resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+ ' ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0))
+ ' Else
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+
+ ' If ResultadoSolicitudOK Then
+ ' Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, 3), JToken)
+
+ ' If Not (ObjApiVerificacion Is Nothing) Then
+ ' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+ ' ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
+ ' SeVerifico = True
+ ' Else
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+ ' End If
+
+ ' If resultSolicitud.Count = 4 Then
+
+ ' If ResultadoSolicitudOK Then
+
+ ' If resultSolicitud(1).ToString().Trim().Length > 0 Then
+ ' sbResultado.Append($"{resultSolicitud(1)} ")
+ ' Else
+ ' sbResultado.Append($"Solicitud Generada Correctamente")
+ ' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultSolicitud(1)} ")
+ ' End If
+ ' Else
+ ' sbResultado.Append($"{resultSolicitud(1)}")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+ ' Else
+ ' sbResultado.AppendLine("Se presento un error al generar la solicitud (API) ")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+
+ ' If SeVerifico AndAlso resultVerificacion.Count = 4 Then
+
+ ' If ResultadoVerificaionOK Then
+ ' sbResultado.Append($"{resultVerificacion(1)} ")
+ ' Else
+ ' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)} ")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+ ' Else
+ ' sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) ")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+
+ ' Alert(sbResultado.ToString(), TipoMensaje)
+ ' End If
+
+ ' If Continuar Then
+ ' txtFechaIAdd.Text = ""
+ ' txtFechaFAdd.Text = ""
+ ' Me.RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
+ ' cargasolicitudes()
+ ' End If
+
+ '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 GeneralesAPIeFacturas()
- ' 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
-
+ Dim sbResultado As StringBuilder = New StringBuilder()
Dim idSolicitudCFDI As Integer = 0
Dim idSolicitudMetadata As Integer = 0
Dim estatus As Integer = 0
@@ -2605,20 +2714,23 @@ Partial Class Compras_eFacturas
Dim fechaFin As DateTime = txtFechaFAdd.Text.ToDateTime()
Dim cveUsuarioIng As Integer = UsuarioActual.CveUsuario
Dim cveEmpresa As Integer = UsuarioActual.CveEmpresa
- Dim Continuar As Boolean = False
+ Dim CveSolicitudAgregada As Integer = -1
+ Dim Folio As Integer = -1
Using nom As ClsNominas = New ClsNominas()
- Continuar = nom.SolicitudesAdd(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud:=3)
+ Dim CveTipoSolicitud As Integer = If(ChkMetaDatos.Checked, 202, 2)
+ CveSolicitudAgregada = nom.SolicitudesAdd2(idSolicitudCFDI, idSolicitudMetadata, estatus, observaciones, fechaInicio, fechaFin, cveUsuarioIng, cveEmpresa, CveTipoSolicitud:=CveTipoSolicitud)
+
+ If CveSolicitudAgregada > 0 Then
+ Folio = nom.FolioSolicitud
+ End If
End Using
- If Continuar Then
- Dim sbResultado As StringBuilder = New StringBuilder()
+ If CveSolicitudAgregada > 0 Then
Dim api = New GeneralesAPIeFacturas()
- Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken)
+ Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 2, CveSolicitudAgregada), JToken)
Dim resultSolicitud As List(Of String) = New List(Of String)()
Dim resultVerificacion As List(Of String) = New List(Of String)()
- Dim ResultadoVerificaionOK = False
- Dim SeVerifico = False
Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
Dim ResultadoSolicitudOK = False
@@ -2630,134 +2742,246 @@ Partial Class Compras_eFacturas
End If
If ResultadoSolicitudOK Then
- Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, 3), JToken)
-
- If Not (ObjApiVerificacion Is Nothing) Then
- resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
- ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
- SeVerifico = True
- Else
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
- End If
-
- If resultSolicitud.Count = 4 Then
-
- If ResultadoSolicitudOK Then
-
- If resultSolicitud(1).ToString().Trim().Length > 0 Then
- sbResultado.Append($"{resultSolicitud(1)} ")
- Else
- sbResultado.Append($"Solicitud Generada Correctamente")
- sbResultado.Append($"Se presento un error al verificar las solicitudes {resultSolicitud(1)} ")
- End If
- Else
- sbResultado.Append($"{resultSolicitud(1)}")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
+ sbResultado.Append($"Solicitud registrada. {resultSolicitud(1)} Folio: {Folio}")
Else
- sbResultado.AppendLine("Se presento un error al generar la solicitud (API) ")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
- If SeVerifico AndAlso resultVerificacion.Count = 4 Then
-
- If ResultadoVerificaionOK Then
- sbResultado.Append($"{resultVerificacion(1)} ")
+ If ObjApiSolicitud IsNot Nothing AndAlso resultSolicitud.Count = 4 Then
+ sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT Folio: {Folio} ({resultSolicitud(1)}) ")
Else
- sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)} ")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT Folio: {Folio}")
End If
- Else
- sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) ")
+
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
End If
Alert(sbResultado.ToString(), TipoMensaje)
+ Else
+ Alert("No se puedo registrar la solictud".ToString(), ModExtensiones.TipoMensaje.MsgAdvertencia)
End If
- If Continuar Then
+ If CveSolicitudAgregada > 0 Then
txtFechaIAdd.Text = ""
txtFechaFAdd.Text = ""
- Me.RegistraScript("$('#ModalViewSolicitudes').modal('hide');")
+ ChkMetaDatos.Checked = False
+ Me.RegistraScript("$('#ModalAgregarSolicitud').modal('hide');")
cargasolicitudes()
End If
-
End Sub
+ 'Protected Sub LnkverificarSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
+
+
+
+
+ ' Dim sbResultado As StringBuilder = New StringBuilder()
+ ' Dim api = New GeneralesAPIeFacturas()
+ ' Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken)
+ ' Dim resultSolicitud As List(Of String) = New List(Of String)()
+ ' Dim resultVerificacion As List(Of String) = New List(Of String)()
+ ' Dim ResultadoVerificaionOK = False
+ ' Dim SeVerifico = False
+ ' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+ ' Dim ResultadoSolicitudOK = False
+
+ ' If Not (ObjApiSolicitud Is Nothing) Then
+ ' resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+ ' ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0))
+ ' Else
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+
+ ' If ResultadoSolicitudOK Then
+ ' Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, 3), JToken)
+
+ ' If Not (ObjApiVerificacion Is Nothing) Then
+ ' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+ ' ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
+ ' SeVerifico = True
+ ' Else
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+ ' End If
+
+ ' If resultSolicitud.Count = 4 Then
+
+ ' If ResultadoSolicitudOK Then
+
+ ' If resultSolicitud(2).ToString().Trim().Length > 0 Then
+ ' sbResultado.Append($"{resultSolicitud(2)} ")
+ ' Else
+ ' sbResultado.Append($"Solicitud Generada Correctamente")
+ ' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultSolicitud(1)} ")
+ ' End If
+ ' Else
+ ' sbResultado.Append($"{resultSolicitud(1)}")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+ ' Else
+ ' sbResultado.AppendLine("Se presento un error al generar la solicitud (API) ")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+
+ ' If SeVerifico AndAlso resultVerificacion.Count = 4 Then
+
+ ' If ResultadoVerificaionOK Then
+ ' sbResultado.Append($"{resultVerificacion(1)} ")
+ ' Else
+ ' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)} ")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+ ' Else
+ ' sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) ")
+ ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ ' End If
+
+ ' Alert(sbResultado.ToString(), TipoMensaje)
+ ' cargasolicitudes()
+
+
+
+ 'End Sub
+
+
Protected Sub LnkverificarSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
+ Try
+ Dim sbResultado As StringBuilder = New StringBuilder()
+ For Each GvRow As GridViewRow In GVSolicitudesPendientes.Rows
+ Dim CveSolicitudActual As Integer = GvRow.DataKey("CveSolicitud").ToEntero()
+ Dim idSolicitud As String = GvRow.DataKey("idSolicitud").Trim()
+ Dim CveTipoSolicitud As Integer = GvRow.DataKey("CveTipoSolicitud").ToEntero()
+ Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero()
+ Dim resultSolicitud As List(Of String) = New List(Of String)()
+ Dim resultVerificacion As List(Of String) = New List(Of String)()
+ Dim ResultadoVerificaionOK = False
+ Dim SeVerifico = False
+ Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+ Dim ResultadoSolicitudOK = False
+ Dim api = New GeneralesAPIeFacturas()
+ If idSolicitud.Length = 0 Then
+ Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
-
- Dim sbResultado As StringBuilder = New StringBuilder()
- Dim api = New GeneralesAPIeFacturas()
- Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken)
- Dim resultSolicitud As List(Of String) = New List(Of String)()
- Dim resultVerificacion As List(Of String) = New List(Of String)()
- Dim ResultadoVerificaionOK = False
- Dim SeVerifico = False
- Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
- Dim ResultadoSolicitudOK = False
-
- If Not (ObjApiSolicitud Is Nothing) Then
- resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
- ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0))
- Else
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
-
- If ResultadoSolicitudOK Then
- Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, 3), JToken)
-
- If Not (ObjApiVerificacion Is Nothing) Then
- resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
- ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
- SeVerifico = True
- Else
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
- End If
-
- If resultSolicitud.Count = 4 Then
-
- If ResultadoSolicitudOK Then
-
- If resultSolicitud(2).ToString().Trim().Length > 0 Then
- sbResultado.Append($"{resultSolicitud(2)} ")
+ If Not (ObjApiSolicitud Is Nothing) Then
+ resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+ ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0))
+ sbResultado.Append($"Solicitud {Folio} solicitada a SAT. ")
+ Else
+ TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ End If
Else
- sbResultado.Append($"Solicitud Generada Correctamente")
- sbResultado.Append($"Se presento un error al verificar las solicitudes {resultSolicitud(1)} ")
+ resultSolicitud = New List(Of String)()
+ resultSolicitud.Add("true")
+ resultSolicitud.Add("")
+ resultSolicitud.Add("")
+ resultSolicitud.Add("")
+ ResultadoSolicitudOK = True
End If
- Else
- sbResultado.Append($"{resultSolicitud(1)}")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
- Else
- sbResultado.AppendLine("Se presento un error al generar la solicitud (API) ")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
- If SeVerifico AndAlso resultVerificacion.Count = 4 Then
+ If ResultadoSolicitudOK Then
+ Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
- If ResultadoVerificaionOK Then
- sbResultado.Append($"{resultVerificacion(1)} ")
- Else
- sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)} ")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
- Else
- sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) ")
- TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
- End If
+ If Not (ObjApiVerificacion Is Nothing) Then
+ resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
+ ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
+ SeVerifico = True
+ Else
+ TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ End If
+ Else
- Alert(sbResultado.ToString(), TipoMensaje)
- cargasolicitudes()
+ If resultSolicitud.Count = 4 Then
+ sbResultado.Append($"({resultSolicitud(1)}) Folio:{Folio} ")
+ Else
+ sbResultado.Append($"Solicitud pendiente de verificar en SAT Folio:{Folio} ")
+ End If
+ TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ End If
+ If SeVerifico AndAlso resultVerificacion.Count = 4 Then
+ If ResultadoVerificaionOK Then
+ sbResultado.Append($"Solicitud procesada. Folio: {Folio} {resultVerificacion(1)}")
+ Else
+ sbResultado.Append($"Solicitud no verificada Folio: {Folio}{resultVerificacion(1)}. ")
+ TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ End If
+ Else
+ sbResultado.Append($"Se presento un error al verificar la solicitud Folio: {Folio}.")
+ TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
+ End If
+
+ Alert(sbResultado.ToString(), TipoMensaje)
+ Next
+
+ cargasolicitudes()
+ Catch ex As Exception
+ Alert(ex.StackTrace)
+ End Try
End Sub
+
+
+ Protected Sub LnkAgregarSolictud_Click(ByVal sender As Object, ByVal e As EventArgs)
+ txtFechaIAdd.Text = ""
+ txtFechaFAdd.Text = ""
+ ChkMetaDatos.Checked = False
+ UPModalViewSolicitudesAgregar.Update()
+ Me.RegistraScript("$('#ModalAgregarSolicitud').modal('show');")
+ End Sub
+
+ Protected Sub GVSolicitudesNominas_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+
+ If e.Row.DataKey("ArchivoXML").Length > 0 Then
+ Dim UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"
+
+ If System.IO.File.Exists(UrlDescarga) Then
+ Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML")
+ ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescargaXML)
+ LnkDescargaXML.Visible = True
+ End If
+ End If
+
+ Dim lblobservaciones As Label = e.Row.FCLabel("lblobservaciones")
+ Dim lBLTipoDescarga As Label = e.Row.FCLabel("lBLTipoDescarga")
+
+ lblobservaciones.Attributes.Add("data-html", "true")
+ lblobservaciones.Attributes.Add("data-toggle", "tooltip")
+ lblobservaciones.Attributes.Add("data-placement", "top")
+ lblobservaciones.Attributes.Add("title", e.Row.DataKey("Observaciones"))
+ lBLTipoDescarga.Attributes.Add("data-html", "true")
+ lBLTipoDescarga.Attributes.Add("data-toggle", "tooltip")
+ lBLTipoDescarga.Attributes.Add("data-placement", "top")
+ lBLTipoDescarga.Attributes.Add("title", e.Row.DataKey("TipoDescargaStr"))
+
+ End If
+ End Sub
+
+
+ Protected Sub LnkDescargaXML_Click(ByVal sender As Object, ByVal e As EventArgs)
+ Dim GvRow As GridViewRow = CType((CType(sender, LinkButton)).NamingContainer, GridViewRow)
+ Dim UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"
+ Dim Archivo = New System.IO.FileInfo(UrlDescarga)
+
+ If Archivo.Exists Then
+ Response.Clear()
+ Response.AddHeader("Content-Disposition", "attachment; filename=" & Archivo.Name)
+ Response.AddHeader("Content-Length", Archivo.Length.ToString())
+ Response.ContentType = "text/octet-stream"
+ Response.Flush()
+ Response.TransmitFile(Archivo.FullName)
+ Response.[End]()
+ End If
+ 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
@@ -4196,8 +4420,6 @@ Partial Class Compras_eFacturas
Alert("no se pudo procesar el archivo xml")
End If
End Sub
-
-
Private Sub VinculacionMasivaComplementos()
Dim CountVinculados As Integer = 0
@@ -4546,15 +4768,10 @@ Partial Class Compras_eFacturas
End Sub
-
-
Protected Sub LnkVinculacionMasivaComplementos_Click(sender As Object, e As EventArgs)
VinculacionMasivaComplementos()
End Sub
-
-
-
#Region "TRASLADOS"
@@ -4733,7 +4950,6 @@ Partial Class Compras_eFacturas
#End Region
-
Protected Sub LnkModalPersonalizar_Click(sender As Object, e As EventArgs)
GvD.Columns(11).Visible = ChkModalPersonalzarFolioFiscal.Checked
@@ -4748,9 +4964,6 @@ Partial Class Compras_eFacturas
RegistraScript("$('#DvmodalPersonalizar').modal('hide');")
End Sub
-
-
-
Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DvmodalPersonalizar').modal('show');")
@@ -4768,12 +4981,12 @@ Public Class GeneralesAPIeFacturas
MyBase.New(domainApi, token)
End Sub
- Public Function GeneraSolicitud(CveEmpresa As Integer, CveTipoSolicitud As Integer) As Object
- Return getData(Of Object)($"GeneraSolicitud/{CveEmpresa}/{CveTipoSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
+ Public Function GeneraSolicitud(CveEmpresa As Integer, CveTipoSolicitud As Integer, CveSolicitud As Integer) As Object
+ Return getData(Of Object)($"GeneraSolicitud/{CveEmpresa}/{CveTipoSolicitud}/{CveSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
End Function
- Public Function VerificaSolicitudesNominas(CveEmpresa As Integer, CveTipoSolicitud As Integer) As Object
- Return getData(Of Object)($"VerificaSolicitudesNominas/{CveEmpresa}/{CveTipoSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
+ 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
End Class
diff --git a/Empresas/13/Formatos/ReciboDePago.rdlc b/Empresas/13/Formatos/ReciboDePago.rdlc
index 4e47b8017..36a1aa69e 100644
--- a/Empresas/13/Formatos/ReciboDePago.rdlc
+++ b/Empresas/13/Formatos/ReciboDePago.rdlc
@@ -1514,7 +1514,6 @@
2pt
- true
@@ -1869,7 +1868,6 @@
2pt
- true
@@ -2224,7 +2222,6 @@
2pt
- true
@@ -2579,7 +2576,6 @@
2pt
- true
@@ -2934,7 +2930,6 @@
2pt
- true
@@ -4948,7 +4943,7 @@
- EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V. RFC: EMD950206SRA
+ EXPLORACIONES MINERAS DEL DESIERTO S.A. DE C.V.