Cancelacion de complemento junto con el IE

Bancos/IE.aspx.vb

@@ -1120,7 +1120,8 @@ Partial Class Bancos_IE
                 End If
 
                 'LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+                'LnkCancelarComplementoImporte.Visible = False
+                DivCancelarComplemento.Visible = False
                 UppEliminarIE.Update()
 
 
@@ -1296,7 +1297,8 @@ Partial Class Bancos_IE
                     'LnkCancelar.Visible = False
 
                     'LnkCancelarComplemento.Visible = True
-                    LnkCancelarComplementoImporte.Visible = True
+                    'LnkCancelarComplementoImporte.Visible = True
+                    DivCancelarComplemento.Visible = True
 
                 End If
 
@@ -1304,7 +1306,8 @@ Partial Class Bancos_IE
             Else
                 BtnEditar.Visible = False
                 ' LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+                'LnkCancelarComplementoImporte.Visible = False
+                DivCancelarComplemento.Visible = False
                 DVGenerarComplementoModal.Visible = False
             End If
 
@@ -4453,13 +4456,12 @@ Partial Class Bancos_IE
     Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivCancelarIE').modal('hide');")
         Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
-
-        If Not ExistenComplementosVigentes Then
-            CancelarIE()
-        Else
-            Alert("No se puede cancelar documento con complementos de pago vigentes", TipoMensaje.MsgError)
+        If ExistenComplementosVigentes AndAlso DdlMotivoCancelacion.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un motivo de cancelación", TipoMensaje.MsgError)
+            Exit Sub
         End If
 
+        CancelarIE(CancelarComplemento:=ExistenComplementosVigentes)
 
     End Sub
 
@@ -4681,23 +4683,23 @@ Partial Class Bancos_IE
                         Dim ObjCancelacion As New Timbrado
                         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
-                                Alert("El complemento se cancelo correctamente.")
-                            End If
+                            'If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+                            '    CargaComplementosPago()
+                            '    RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+                            '    ErrorCancelarComplemento = False
+                            '    Alert("El complemento se cancelo correctamente.")
+                            'End If
 
                         Else
                             Dim respCancelacion = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
                             If respCancelacion.Verificado Then
 
-                                If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
-                                    CargaComplementosPago()
-                                    RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
-                                    ErrorCancelarComplemento = False
-                                    Alert("El complemento se cancelo correctamente.")
-                                End If
+                                'If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, 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)
@@ -5937,7 +5939,7 @@ Partial Class Bancos_IE
                     End If
 
                     If ObjBancos.DtResultados.FiltraParametros(" Estatus IN (1,3) ").Rows.Count = 1 And Tipo.ToUpper = "CARGO" And CveCliente > 0 And CveEstatusIE <> 2 Then
-                        DVmotivoCancelacion.Visible = True
+                        DivCancelarComplemento.Visible = True
                     End If
 
 
@@ -6758,20 +6760,20 @@ Partial Class Bancos_IE
 
         If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
 
-            If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
-                CargaComplementosPago()
-                Alert("El complemento se cancelo correctamente.")
-            End If
+            'If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
+            '    CargaComplementosPago()
+            '    Alert("El complemento se cancelo correctamente.")
+            'End If
 
         Else
 
             Dim resp = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
             If resp.Verificado Then
 
-                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+                'If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
-                    Alert("El complemento se cancelo correctamente.")
-                End If
+                '    Alert("El complemento se cancelo correctamente.")
+                'End If
             Else
                 Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
             End If
@@ -6791,7 +6793,7 @@ Partial Class Bancos_IE
             Exit Sub
         End If
 
-        TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
+        'TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
         CancelarIE(True)
 
     End Sub
@@ -6822,10 +6824,10 @@ Partial Class Bancos_IE
             CvePACCancelacion = DTComplementos.Rows(0)("CvePAC").ToString.ToEntero
 
             RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
-            DivFechaCancelación.Visible = True
+            'DivFechaCancelación.Visible = True
             CargaComplementosPago()
 
-            UpModalCancelarComplemetno.Update()
+            'UpModalCancelarComplemetno.Update()
 
         Else
             If DTComplementos.Rows.Count = 0 Then