eFacturas solicitudes sat formato Solicitudes ingresos
This commit is contained in:
Oscar Irigoyen
@@ -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)}<br/>")
|
||||
' Else
|
||||
' sbResultado.Append($"Solicitud Generada Correctamente")
|
||||
' sbResultado.Append($"Se presento un error al verificar las solicitudes <br/> {resultSolicitud(1)} <br>")
|
||||
' 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) <br/>")
|
||||
' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
' End If
|
||||
|
||||
' If SeVerifico AndAlso resultVerificacion.Count = 4 Then
|
||||
|
||||
' If ResultadoVerificaionOK Then
|
||||
' sbResultado.Append($"{resultVerificacion(1)}<br>")
|
||||
' Else
|
||||
' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>")
|
||||
' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
' End If
|
||||
' Else
|
||||
' sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) <br/>")
|
||||
' 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)}<br/>")
|
||||
Else
|
||||
sbResultado.Append($"Solicitud Generada Correctamente")
|
||||
sbResultado.Append($"Se presento un error al verificar las solicitudes <br/> {resultSolicitud(1)} <br>")
|
||||
End If
|
||||
Else
|
||||
sbResultado.Append($"{resultSolicitud(1)}")
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
End If
|
||||
sbResultado.Append($"Solicitud registrada. {resultSolicitud(1)}<br> Folio: {Folio}")
|
||||
Else
|
||||
sbResultado.AppendLine("Se presento un error al generar la solicitud (API) <br/>")
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
End If
|
||||
|
||||
If SeVerifico AndAlso resultVerificacion.Count = 4 Then
|
||||
|
||||
If ResultadoVerificaionOK Then
|
||||
sbResultado.Append($"{resultVerificacion(1)}<br>")
|
||||
If ObjApiSolicitud IsNot Nothing AndAlso resultSolicitud.Count = 4 Then
|
||||
sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT <br> Folio: {Folio} <br>({resultSolicitud(1)})<br>")
|
||||
Else
|
||||
sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>")
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
sbResultado.Append($"Solicitud registrada, pendiente de verificar en SAT <br> Folio: {Folio}")
|
||||
End If
|
||||
Else
|
||||
sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) <br/>")
|
||||
|
||||
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)}<br/>")
|
||||
' Else
|
||||
' sbResultado.Append($"Solicitud Generada Correctamente")
|
||||
' sbResultado.Append($"Se presento un error al verificar las solicitudes <br/> {resultSolicitud(1)} <br>")
|
||||
' 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) <br/>")
|
||||
' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
' End If
|
||||
|
||||
' If SeVerifico AndAlso resultVerificacion.Count = 4 Then
|
||||
|
||||
' If ResultadoVerificaionOK Then
|
||||
' sbResultado.Append($"{resultVerificacion(1)}<br>")
|
||||
' Else
|
||||
' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>")
|
||||
' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
' End If
|
||||
' Else
|
||||
' sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) <br/>")
|
||||
' 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)}<br/>")
|
||||
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.<br>")
|
||||
Else
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
End If
|
||||
Else
|
||||
sbResultado.Append($"Solicitud Generada Correctamente")
|
||||
sbResultado.Append($"Se presento un error al verificar las solicitudes <br/> {resultSolicitud(1)} <br>")
|
||||
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) <br/>")
|
||||
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)}<br>")
|
||||
Else
|
||||
sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>")
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
End If
|
||||
Else
|
||||
sbResultado.AppendLine("Se presento un error al verificar las solicitudes (API) <br/>")
|
||||
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)})<br> Folio:{Folio} <br> ")
|
||||
Else
|
||||
sbResultado.Append($"Solicitud pendiente de verificar en SAT <br> Folio:{Folio} <br>")
|
||||
End If
|
||||
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
End If
|
||||
|
||||
If SeVerifico AndAlso resultVerificacion.Count = 4 Then
|
||||
|
||||
If ResultadoVerificaionOK Then
|
||||
sbResultado.Append($"Solicitud procesada.<br> Folio: {Folio} <br> {resultVerificacion(1)}")
|
||||
Else
|
||||
sbResultado.Append($"Solicitud no verificada <br> Folio: {Folio}{resultVerificacion(1)}.<br>")
|
||||
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
|
||||
End If
|
||||
Else
|
||||
sbResultado.Append($"Se presento un error al verificar la solicitud <br> 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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user