diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 9ccf49d07..f9fe5c1e1 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -365,7 +365,15 @@ Public Class Timbrado
If resultadoCancelacion.Exitoso Then
CancelacionMensaje = resultadoCancelacion.Descripcion
Dim xmlDoc As New System.Xml.XmlDocument()
- xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml)))
+
+ Try
+ xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml)))
+ Catch ex As Exception
+ xmlDoc.LoadXml(resp.Xml)
+ End Try
+
+
+
Dim xpath As String = "Acuse/Folios"
Dim nodes = xmlDoc.SelectNodes(xpath)
CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 0e5e68162..53489d4c4 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1185,12 +1185,19 @@
-
+ <%--
+
+
+
+ --%>
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 5f49dda1f..21a8f8590 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -501,6 +501,7 @@ Partial Class Bancos_IE
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
If Not IsPostBack Then
Folio = ""
@@ -3916,9 +3917,10 @@ Partial Class Bancos_IE
If CancelarComplemento Then
Dim ObjCancelacion As New Timbrado
'Dim ObjBanco As New ClsBancos
- If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
- If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+ If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+ If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
CargaComplementosPago()
RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
ErrorCancelarComplemento = False
@@ -3926,8 +3928,22 @@ Partial Class Bancos_IE
End If
Else
- Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+ If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+
+ If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+ CargaComplementosPago()
+ RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+ ErrorCancelarComplemento = False
+ Alert("El complemento se cancelo correctamente.")
+ End If
+
+ Else
+ Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+ End If
+
End If
+
+
Else
ErrorCancelarComplemento = False
End If
@@ -5538,39 +5554,34 @@ Partial Class Bancos_IE
RFCReceptorCancelar = GvRow.DataKey("RFCReceptor")
CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero
-
Dim ObjCancelacion As New Timbrado
Dim ObjBanco As New ClsBancos
- If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
- If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+ If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+ If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
CargaComplementosPago()
-
- ' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
Alert("El complemento se cancelo correctamente.")
End If
Else
- Alert("Se presento un error al cancelar el complemento.")
+
+ If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+
+ If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+ Alert("El complemento se cancelo correctamente.")
+ End If
+ Else
+ Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+ End If
+
End If
ObjBanco.Dispose()
-
-
- '' INICIO Version 2
- 'CveComplementoPagoCancelar = GvRow.DataKey("CveComplementoPago").ToEntero
- 'FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString
- '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
- 'RFCReceptorCancelar = GvRow.DataKey("RFCReceptor")
- 'CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero
-
- 'RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
-
- 'RdlCancelarComplemento.SelectedValue = "1"
- 'DivFechaCancelación.Visible = False
- 'UpModalCancelarComplemetno.Update()
- '' FIN Version 2
+ CargaComplementosPago()
End Sub
@@ -5703,4 +5714,44 @@ Partial Class Bancos_IE
End Sub
+ 'Protected Sub LnkEstatusSAT_Click(sender As Object, e As EventArgs)
+
+ ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+
+ ' Dim FolioFiscal As String = GvRow.DataKey("FolioFiscal").ToString
+ ' Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor")
+
+
+ ' EstatusSATCancelado(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor)
+
+ ' 'Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, "0", True)
+
+ ' 'If Vigencia IsNot Nothing Then
+ ' ' Alert($"Estatus SAT: { Vigencia.Estado }")
+ ' 'End If
+
+ 'End Sub
+
+
+ Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean
+
+ Dim respuesta As Boolean = False
+
+ Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True)
+
+ If Vigencia IsNot Nothing Then
+ If Vigencia.Estado.ToUpper = "CANCELADO" Then
+ respuesta = True
+ Else
+ respuesta = False
+ End If
+ Else
+ respuesta = False
+ End If
+
+
+
+ Return respuesta
+ End Function
+
End Class
\ No newline at end of file
diff --git a/LogMail.txt b/LogMail.txt
index b29b0397b..00f4b2bed 100644
--- a/LogMail.txt
+++ b/LogMail.txt
@@ -1 +1,7 @@
-
28/08/2019:04:44 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 79
28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'x@x.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' - CCP: '' - Adjuntos: 1
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-23' - CCP: '' - Adjuntos: 1
\ No newline at end of file
+
28/08/2019:04:44 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 79
28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'x@x.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' - CCP: '' - Adjuntos: 1
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-23' - CCP: '' - Adjuntos: 1
05/09/2019:11:02 a. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2
+ - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
+ en System.Net.Mail.SmtpClient.Send(MailMessage message)
+ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129
05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2
+ - Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
+ en System.Net.Mail.SmtpClient.Send(MailMessage message)
+ en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129
\ No newline at end of file
diff --git a/LogTimbrado.txt b/LogTimbrado.txt
index 7e80f243d..65aaf8d76 100644
--- a/LogTimbrado.txt
+++ b/LogTimbrado.txt
@@ -6,3 +6,7 @@
.. PAC: 2 - Verificado : (200) 200 Armado: (398) 598 Guardado: (564) 1162 Timbrado: (2342) 3504 Actualizado: (456) 3960 ..02/09/2019:11:00 a. m.
.. PAC: 2 - Verificado : (170) 170 Armado: (285) 455 Guardado: (333) 788 Timbrado: (1949) 2737 Actualizado: (20) 2757 ..02/09/2019:11:00 a. m.
+
+ .. PAC: 3 - Verificado : (37) 37 Armado: (43) 80 Genera: (0) 80 Timbrado: (7893) 7973 Actualizado: (19) 7992 ..05/09/2019:11:02 a. m.
+
+ .. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688 ..05/09/2019:12:31 p. m.