diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index a113abc55..de1251359 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -1008,202 +1008,275 @@
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
- Solicitar información al sat
-
-
+
+
+
+
+
+
-
-
-
-
-
-
-
-
- Solicitudes pendientes de respuesta del SAT
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- solicitudes respondidas por el sat
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+ --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index dc6f3a20b..59c5509b8 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,220 @@ 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
+
+
+
+ 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
+
+
#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
@@ -4768,12 +4966,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/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx
index 6e51ee435..7af0d0881 100644
--- a/SAT/SolicitudesIngresoSat.aspx
+++ b/SAT/SolicitudesIngresoSat.aspx
@@ -617,7 +617,7 @@
+ DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,Folio,CveTipoSolicitud,TipoDescargaStr">
diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs
index d20e6b35d..d1912d7a1 100644
--- a/SAT/SolicitudesIngresoSat.aspx.cs
+++ b/SAT/SolicitudesIngresoSat.aspx.cs
@@ -255,12 +255,10 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
}
protected void LnkverificarSolicitudes_Click(object sender, EventArgs e)
- {
-
+ {
try
- {
-
+ {
StringBuilder sbResultado = new StringBuilder();
@@ -581,10 +579,18 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas
}
}
- e.Row.Attributes.Add("data-html", "true");
- e.Row.Attributes.Add("data-toggle", "tooltip");
- e.Row.Attributes.Add("data-placement", "top");
- e.Row.Attributes.Add("title", e.Row.DataKey("Observaciones"));
+ Label lblobservaciones = e.Row.FCLabel("lblobservaciones");
+ Label lBLTipoDescarga = 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"));
}
}