@@ -887,7 +888,7 @@
|
-
+
@@ -1029,8 +1030,8 @@
-
-
+
+
@@ -1042,7 +1043,7 @@
-
+
@@ -1066,8 +1067,8 @@
Agregar
--%>
-
-
+
+
@@ -1252,8 +1253,39 @@
+
+
+
+
+
+
+
+ Cancelar Complemento
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
@@ -1563,13 +1594,6 @@
- <%--
¿Cual de las siguientes acciones es la que desea realizar?
-
-
- Cancelar Complemento
- Cancelar Pago y Complemento
- --%>
-
@@ -1630,7 +1654,8 @@
-
@@ -1800,7 +1825,7 @@
function ValidarCantidad(t, c) {
var Ot = 0.00;
// considera importe de OT ingresos, para que se peuda exceder
- if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value);}
+ if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
t.value = (ToDouble(t.value) > ToDouble(c) + Ot ? c : t.value)
}
@@ -1814,10 +1839,10 @@
}
- function SelectorNotas(Chk) {
+ function SelectorNotas(Chk) {
$(`.CssSelector input[type=checkbox]`).each(function () {
- $(this).prop('checked', Chk.checked);
+ $(this).prop('checked', Chk.checked);
});
FCSumaTotalesNotas()
@@ -1830,7 +1855,7 @@
$(`.CssSelector input[type=checkbox]`).each(function () {
if ($(this).is(":checked")) {
Total += parseFloat($(this).attr("data-saldo"));
- }
+ }
});
@@ -1838,22 +1863,22 @@
$(`#TxtImporte`).val(Total);
- FormatoMoneda( $get("TxtImporte"));
+ FormatoMoneda($get("TxtImporte"));
} else {
$(`#TxtImporte`).val("");
- }
+ }
}
- function DeshabilitarTxt(){
+ function DeshabilitarTxt() {
return false;
}
function CambiaTCPagoOC() {
-
+
$("#LnkActualizaTCOC").click();
}
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index e845a08e3..22d6a995d 100644
--- a/Bancos/IE.aspx.vb
+++ b/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