From 0f22e5b25c3b120fba52ca3fae7d5a6411258a74 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 5 Sep 2019 12:44:21 -0700 Subject: [PATCH] Correcion pack tres cancelacion complementos --- App_Code/Timbrado.vb | 10 ++++- Bancos/IE.aspx | 9 +++- Bancos/IE.aspx.vb | 99 +++++++++++++++++++++++++++++++++----------- LogMail.txt | 8 +++- LogTimbrado.txt | 4 ++ 5 files changed, 103 insertions(+), 27 deletions(-) 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.