diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index dbbec3d15..20e230d4d 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -141,7 +141,7 @@
-
+
@@ -157,16 +157,21 @@
-
+
+
+
@@ -246,21 +251,22 @@
var ValorTotalSeleccionado = 0
var comision = 0;
+ var descuento = 0;
+ var saldo = 0;
function FnSuma(chk, cantidad) {
- var saldo = ToDouble($('#C_lblValorTotal').text());
+ var saldoInicial = ToDouble($('#C_lblValorTotal').text());
if (chk.checked == false) {
cantidad = cantidad * -1;
}
- saldo = saldo + cantidad;
- $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
- $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
- ValorTotalSeleccionado = saldo
+ saldoInicial = saldoInicial + cantidad;
+ $('#C_lblValorTotal').text(FormatoNumero(saldoInicial, 2));
+ $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldoInicial, 2));
+ ValorTotalSeleccionado = saldoInicial
}
function txtSuma(txt) {
- var saldo = ToDouble($('#C_lblValorTotal').text());
var comision2 = ToDouble($('#C_TxtComision').val());
var comisionNegativa = 0;
if (comision2 < 0) {
@@ -270,13 +276,32 @@
$('#C_TxtComision').val(comision)
alert("No es posible poner una comision superior a lo seleccionado")
} else {
- saldo = ValorTotalSeleccionado + comision2;
+ saldo = ValorTotalSeleccionado + comision2 + descuento;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
comision = ToDouble($('#C_TxtComision').val())
+ debugger;
}
}
+ function txtSumaDescuento(txt) {
+ var comision2 = ToDouble($('#C_TxtDescuento').val());
+ var comisionNegativa = 0;
+ if (comision2 < 0) {
+ comisionNegativa = comision2 * -1
+ }
+ if (comisionNegativa > ValorTotalSeleccionado) {
+ $('#C_TxtDescuento').val(descuento)
+ alert("No es posible poner una comision superior a lo seleccionado")
+ } else {
+ saldo = ValorTotalSeleccionado + comision2 + comision;
+ $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+ descuento = ToDouble($('#C_TxtDescuento').val())
+ debugger;
+ }
+
+ }
+
function CheckFaltante(chk) {
if (chk.checked == true) {
$('#DivComision').css("display", "block");
@@ -284,32 +309,29 @@
$('#divSubProyecto').css("display", "block");
$('#LblClasificacion').css("display", "block");
$('#divClasificacion').css("display", "block");
-
- debugger;
-
} else {
$('#DivComision').css("display", "none");
- $('#LblSubproyecto').css("display", "none");
+ $('#divSubProyecto').css("display", "none");
$('#divSubProyecto').css("display", "none");
$('#LblClasificacion').css("display", "none");
$('#divClasificacion').css("display", "none");
- debugger;
}
}
function CheckDescuento(chk) {
if (chk.checked == true) {
$('#DivDescuento').css("display", "block");
+ $('#LblSubproyectoDescuento').css("display", "block");
+ $('#divSubProyectoDescuento').css("display", "block");
$('#LblClasificacionDescuento').css("display", "block");
$('#divClasificacionDescuento').css("display", "block");
-
- debugger;
-
} else {
+
$('#DivDescuento').css("display", "none");
+ $('#LblSubproyectoDescuento').css("display", "none");
+ $('#divSubProyectoDescuento').css("display", "none");
$('#LblClasificacionDescuento').css("display", "none");
$('#divClasificacionDescuento').css("display", "none");
- debugger;
}
}
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index cd06f1e44..1d7742e10 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -22,6 +22,7 @@ Partial Class Bancos_DepositosCaja
txtFechaI.Text = Now.AddDays(-1).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
+ TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(event);")
CargaCuentas()
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
@@ -41,15 +42,22 @@ Partial Class Bancos_DepositosCaja
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+ DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
DdlSubProyectoDeposito.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
+ DdlSubProyectoDescuento.DataBind()
+ DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
DdlClasificacion.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
+ DdlClasificacionDescuento.DataBind()
+ DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
End Sub
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -119,9 +127,10 @@ Partial Class Bancos_DepositosCaja
Dim CveCuentaBancariaDestino As Integer = 0
Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
- Dim CveSubProyecto As Integer = 0
- Dim CveClasificacion As Integer = 0
- Dim CveClasificacionDescuento As Integer = 0
+ Dim CveSubProyecto As Integer = -1
+ Dim CveSubProyectoDescuento As Integer = -1
+ Dim CveClasificacion As Integer = -1
+ Dim CveClasificacionDescuento As Integer = -1
Dim documentos As String = "Los Depósitos se realizaron exitósamente
"
Dim imprimirFolios As String = ""
If drOrigen IsNot Nothing Then
@@ -160,7 +169,7 @@ Partial Class Bancos_DepositosCaja
End If
If ChkDescuento.Checked Then
- CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
+ CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 401384bb9..bf272f6be 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7248,7 +7248,7 @@ Partial Class Compras_Compras
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
- Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+ Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal ' RMF. falta aplicar si está generada su TC de la última fluctuación
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
IdCtaContable = CtaProveedorExtranjera