-merge

Bancos/IE.aspx.vb

@@ -1128,7 +1128,8 @@ Partial Class Bancos_IE
                 End If
 
                 'LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+                'LnkCancelarComplementoImporte.Visible = False
+                DivCancelarComplemento.Visible = False
                 UppEliminarIE.Update()
 
 
@@ -1304,7 +1305,8 @@ Partial Class Bancos_IE
                     'LnkCancelar.Visible = False
 
                     'LnkCancelarComplemento.Visible = True
-                    LnkCancelarComplementoImporte.Visible = True
+                    'LnkCancelarComplementoImporte.Visible = True
+                    DivCancelarComplemento.Visible = True
 
                 End If
 
@@ -1312,7 +1314,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
 
@@ -4275,13 +4278,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
 
@@ -5760,7 +5762,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
 
 
@@ -6593,16 +6595,16 @@ Partial Class Bancos_IE
 
                 If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
-                    Alert("El complemento se cancelo correctamente.")
+                    '    Alert("El complemento se cancelo correctamente.")
+                    'End If
+                Else
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
                 End If
-            Else
-                Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+
             End If
 
-        End If
-
-        ObjBanco.Dispose()
-        CargaComplementosPago()
+            ObjBanco.Dispose()
+            CargaComplementosPago()
 
     End Sub
 
@@ -6614,7 +6616,7 @@ Partial Class Bancos_IE
             Exit Sub
         End If
 
-        TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
+        'TxtFechaCancelacion.Text = TxtFechaCancelarComplemento.Text
         CancelarIE(True)
 
     End Sub
@@ -6645,10 +6647,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