Cambios para comisiones negativas

This commit is contained in:
HECTOR RODRIGUEZ
2021-04-15 17:05:10 -07:00
parent e311ba1bf7
commit 3c4e0bf83f
2 changed files with 19 additions and 10 deletions

View File

@@ -230,32 +230,42 @@
var comision = 0; var comision = 0;
function FnSuma(chk, cantidad) { function FnSuma(chk, cantidad) {
debugger;
var saldo = ToDouble($('#C_lblValorTotal').text()); var saldo = ToDouble($('#C_lblValorTotal').text());
debugger;
if (chk.checked == false) { if (chk.checked == false) {
cantidad = cantidad * -1; cantidad = cantidad * -1;
debugger;
} }
saldo = saldo + cantidad; saldo = saldo + cantidad;
debugger;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
$('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2)); $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
ValorTotalSeleccionado = saldo ValorTotalSeleccionado = saldo
debugger;
} }
function txtSuma(txt) { function txtSuma(txt) {
var saldo = ToDouble($('#C_lblValorTotal').text()); var saldo = ToDouble($('#C_lblValorTotal').text());
var comision2 = ToDouble($('#C_TxtComision').val()); var comision2 = ToDouble($('#C_TxtComision').val());
if (comision2 < 0) {
comision2 = comision2 * -1;
debugger;
}
if (comision2 < ValorTotalSeleccionado) { if (comision2 < ValorTotalSeleccionado) {
comision2 = comision2 - comision comision2 = comision2 - comision
saldo = saldo - comision2; saldo = saldo - comision2;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
comision = ToDouble($('#C_TxtComision').val()) comision = ToDouble($('#C_TxtComision').val())
if (comision < 0) {
comision = comision * -1;
debugger;
}
} else { } else {
$('#C_TxtComision').val(comision) var comisionNegativo = ToDouble($('#C_TxtComision').val());
if (comisionNegativo < 0) {
$('#C_TxtComision').val(comision*-1)
debugger;
} else {
$('#C_TxtComision').val(comision)
}
alert("No es posible poner una comision superior a lo seleccionado") alert("No es posible poner una comision superior a lo seleccionado")
} }
@@ -265,14 +275,12 @@
$('#LblClasificacion').css("display", "block"); $('#LblClasificacion').css("display", "block");
$('#divClasificacion').css("display", "block"); $('#divClasificacion').css("display", "block");
debugger;
} else { } else {
$('#LblSubproyecto').css("display", "none"); $('#LblSubproyecto').css("display", "none");
$('#divSubProyecto').css("display", "none"); $('#divSubProyecto').css("display", "none");
$('#LblClasificacion').css("display", "none"); $('#LblClasificacion').css("display", "none");
$('#divClasificacion').css("display", "none"); $('#divClasificacion').css("display", "none");
debugger;
} }

View File

@@ -71,6 +71,7 @@ Partial Class Bancos_DepositosCaja
Dim TotalImporte As Decimal = 0 Dim TotalImporte As Decimal = 0
Dim TotalImportePrePoliza As Decimal Dim TotalImportePrePoliza As Decimal
Dim Comision As Integer = IIf(TxtComision.Text.ToEntero > 0, TxtComision.Text.ToEntero, (TxtComision.Text.ToEntero * -1)).ToString.ToEntero
For Each Gvr As GridViewRow In GvFacturas.Rows For Each Gvr As GridViewRow In GvFacturas.Rows
If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
@@ -82,7 +83,7 @@ Partial Class Bancos_DepositosCaja
End If End If
TotalImportePrePoliza = TotalImporte TotalImportePrePoliza = TotalImporte
If TxtComision.Text.ToEntero > 0 Then If Comision > 0 Then
TotalImporte = TotalImporte - TxtComision.Text.ToEntero TotalImporte = TotalImporte - TxtComision.Text.ToEntero
If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia) Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
@@ -134,7 +135,7 @@ Partial Class Bancos_DepositosCaja
End If End If
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If TxtComision.Text.ToEntero > 0 Then If Comision > 0 Then
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
CveClasificacion = DdlClasificacion.SelectedValue.ToEntero CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then