Folio fiscal de complemento de pago al cancelar IE

Bancos/IE.aspx.vb

@@ -4503,6 +4503,19 @@ Partial Class Bancos_IE
 
                     If CveMotivoCancelacion > 0 AndAlso CveSATMotivoCancelacion > 0 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
+
+                        For Each RowComplemento As DataRow In DtComplementos.Rows
+
+                            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()
+
                             Dim ObjCancelacion As New Timbrado
                             If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
 
@@ -4511,6 +4524,8 @@ Partial Class Bancos_IE
                                     RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                                     ErrorCancelarComplemento = False
                                     Alert("El complemento se cancelo correctamente.")
+                                Else
+                                    ErrorCancelarComplemento = True
                                 End If
 
                             Else
@@ -4526,13 +4541,21 @@ Partial Class Bancos_IE
 
                                 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