From eb34fdc0b62b316be1181cf9cb7621ae4821d0a6 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 30 Jul 2022 12:33:55 -0700
Subject: [PATCH] Folio fiscal de complemento de pago al cancelar IE

---
 Bancos/IE.aspx.vb | 55 +++++++++++++++++++++++++++++++++--------------
 1 file changed, 39 insertions(+), 16 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 0a8ec268e..832844d53 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -4503,37 +4503,60 @@ Partial Class Bancos_IE
 
                     If CveMotivoCancelacion > 0 AndAlso CveSATMotivoCancelacion > 0 Then
 
-                        Dim ObjCancelacion As New Timbrado
-                        If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+                        Dim DtComplementos As DataTable = Nothing
+                        If CveIE > 0 AndAlso Banc.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
+                            DtComplementos = Banc.DtResultados.FiltraParametros(" Estatus IN(1,3) ")
+                        End If
 
-                            If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
-                                CargaComplementosPago()
-                                RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
-                                ErrorCancelarComplemento = False
-                                Alert("El complemento se cancelo correctamente.")
-                            End If
+                        For Each RowComplemento As DataRow In DtComplementos.Rows
 
-                        Else
-                            Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
-                            If respCancelacion.Verificado Then
+                            CveComplementoPagoCancelar = RowComplemento("CveComplementoPago").ToString().ToEntero()
+                            FolioFiscalCancelar = RowComplemento("FolioFiscal").ToString()
+                            '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
+                            RFCReceptorCancelar = RowComplemento("RFCReceptor").ToString()
+                            CvePACCancelacion = RowComplemento("CvePAC").ToString().ToEntero()
 
-                                If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+                            Dim ObjCancelacion As New Timbrado
+                            If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+                                If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, Date.Now, "", 1) Then
                                     CargaComplementosPago()
                                     RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                     ErrorCancelarComplemento = False
                                     Alert("El complemento se cancelo correctamente.")
+                                Else
+                                    ErrorCancelarComplemento = True
                                 End If
 
                             Else
-                                Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                                Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
+                                If respCancelacion.Verificado Then
+
+                                    If Banc.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) 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)
+                                    ErrorCancelarComplemento = True
+                                End If
+
                             End If
 
+                        Next
+
+                        If DtComplementos IsNot Nothing Then
+                            DtComplementos.Dispose()
+                            DtComplementos = Nothing
                         End If
+
+                    Else
+                        ErrorCancelarComplemento = True
                     End If
 
-
-
-
                 Else
                     ErrorCancelarComplemento = False
                 End If