diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index 445f02eb9..f84f1a279 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -136,7 +136,7 @@
-
+
@@ -144,10 +144,7 @@
-
+
@@ -155,7 +152,7 @@
-
+
@@ -167,11 +164,11 @@
-
+
-
-
-
+
+
@@ -272,7 +295,8 @@
var comision = 0;
var descuento = 0;
var saldo = 0;
- var IVA = 0
+ var IVA = 0;
+ var ComisionIntermediario = 0;
function FnSuma(chk, cantidad) {
var saldoInicial = ToDouble($('#C_lblValorTotal').text());
@@ -318,26 +342,7 @@
//debugger;
}
}
- var txtcomision = ToDouble($('#C_TxtIVA').val());
- if (txtcomision != 0) {
- var comisionNegativa = 0;
- if (txtcomision < 0) {
- comisionNegativa = txtcomision * -1;
- }
- if (comisionNegativa > saldo) {
- $('#C_TxtIVA').val(0);
- comision = 0;
- descuento = 0;
- txtcomision = 0;
- alert("No es posible poner un importe IVA superior a lo seleccionado");
- saldo = 0;
- $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
- debugger;
- } else {
-
- //debugger;
- }
- }
+
}
if ($('#C_ChkDescuento').attr('checked')) {
var txtdescuento = ToDouble($('#C_TxtDescuento').val());
@@ -363,6 +368,54 @@
}
}
}
+ if ($('#C_ChkIntermediario').attr('checked')) {
+ var txtimporte= ToDouble($('#C_TxtComisionIntermediario').val());
+ if (txtimporte != 0) {
+ var DescuentoNegativa = 0;
+ if (txtimporte > 0) {
+ DescuentoNegativa = txtimporte * -1;
+ }
+ if (DescuentoNegativa > saldo) {
+ $('#C_TxtDescuento').val(0);
+ comision = 0;
+ descuento = 0;
+ IVA = 0;
+ txtimporte = 0;
+ alert("No es posible poner un descuento superior a lo seleccionado");
+ saldo = 0;
+ $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+ debugger;
+ } else {
+ //saldo = ValorTotalSeleccionado + txtdescuento + comision;
+ //$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+ //descuento = ToDouble($('#C_TxtDescuento').val())
+ //debugger;
+ }
+ }
+
+ var txtcomision = ToDouble($('#C_TxtIVA').val());
+ if (txtcomision != 0) {
+ var comisionNegativa = 0;
+ if (txtcomision < 0) {
+ comisionNegativa = txtcomision * -1;
+ }
+ if (comisionNegativa > saldo) {
+ $('#C_TxtIVA').val(0);
+ comision = 0;
+ descuento = 0;
+ IVA = 0;
+ ComisionIntermediario = 0;
+ txtcomision = 0;
+ alert("No es posible poner un importe IVA superior a lo seleccionado");
+ saldo = 0;
+ $('#C_lblValorTotal').text(FormatoNumero(ValorTotalSeleccionado, 2));
+ debugger;
+ } else {
+
+ //debugger;
+ }
+ }
+ }
}
@@ -376,7 +429,7 @@
$('#C_TxtComision').val(0)
alert("No es posible poner una comision superior a lo seleccionado")
} else {
- saldo = ValorTotalSeleccionado + comision2 + descuento + IVA;
+ saldo = ValorTotalSeleccionado + comision2 + descuento - IVA - ComisionIntermediario;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
comision = ToDouble($('#C_TxtComision').val())
}
@@ -393,7 +446,7 @@
$('#C_TxtDescuento').val(descuento)
alert("No es posible poner un descuento superior a lo seleccionado")
} else {
- saldo = ValorTotalSeleccionado + comision2 + comision + IVA;
+ saldo = ValorTotalSeleccionado + comision2 + comision - IVA - ComisionIntermediario;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
descuento = ToDouble($('#C_TxtDescuento').val())
}
@@ -403,21 +456,30 @@
function txtSumaIVA(txt) {
var comision2 = ToDouble($('#C_TxtIVA').val());
- var comisionNegativa = 0;
- if (comision2 < 0) {
- comisionNegativa = comision2 * -1;
- }
- if (comisionNegativa > ValorTotalSeleccionado) {
+ if (comision2 > ValorTotalSeleccionado) {
$('#C_TxtIVA').val(descuento)
alert("No es posible poner un IVA superior a lo seleccionado")
} else {
- saldo = ValorTotalSeleccionado + descuento + comision + comision2;
+ saldo = ValorTotalSeleccionado + descuento + comision - comision2 - ComisionIntermediario;
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
IVA = ToDouble($('#C_TxtIVA').val())
}
}
+ function txtSumaTntermediario(txt) {
+ var comision2 = ToDouble($('#C_TxtComisionIntermediario').val());
+ if (comision2 > ValorTotalSeleccionado) {
+ $('#C_TxtComisionIntermediario').val(descuento)
+ alert("No es posible poner un importe superior a lo seleccionado")
+ } else {
+ saldo = ValorTotalSeleccionado + descuento + comision - comision2 - IVA;
+ $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+ ComisionIntermediario = ToDouble($('#C_TxtComisionIntermediario').val())
+ }
+
+ }
+
function CheckFaltante(chk) {
if (chk.checked == true) {
$('#DivComision').css("display", "block");
@@ -425,7 +487,6 @@
$('#divSubProyecto').css("display", "block");
$('#LblClasificacion').css("display", "block");
$('#divClasificacion').css("display", "block");
- $('#DivIVA').css("display", "block");
} else {
$('#DivComision').css("display", "none");
@@ -433,7 +494,6 @@
$('#divSubProyecto').css("display", "none");
$('#LblClasificacion').css("display", "none");
$('#divClasificacion').css("display", "none");
- $('#DivIVA').css("display", "none");
}
}
@@ -454,6 +514,14 @@
$('#divClasificacionDescuento').css("display", "none");
}
}
+
+ function CheckIntermediario(chk) {
+ if (chk.checked == true) {
+ $('#DivInter').css("display", "block");
+ } else {
+ $('#DivInter').css("display", "none");
+ }
+ }
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index b245a4e7d..d4e89284c 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -24,11 +24,14 @@ Partial Class Bancos_DepositosCaja
TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(event);")
TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(event);")
+ TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(event);")
CargaCuentas()
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);")
+ ChkIntermediario.Attributes.Add("onclick", "CheckIntermediario(this);")
+
End If
End Sub
@@ -46,19 +49,30 @@ Partial Class Bancos_DepositosCaja
DdlSubProyectoDeposito.DataSource = DdlSubProyectos.DataSource
DdlSubProyectoDeposito.DataBind()
- DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlSubProyectoDeposito.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoDescuento.DataSource = DdlSubProyectos.DataSource
DdlSubProyectoDescuento.DataBind()
- DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlSubProyectoDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
DdlClasificacion.DataBind()
- DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClasificacionDescuento.DataSource = DdlClasificacion.DataSource
DdlClasificacionDescuento.DataBind()
- DdlSubProyectos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ 'intermediario
+ DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
+ DdlProveedorIntermediario.DataBind()
+
+ DdlClasificacionIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
+ DdlClasificacionIntermediario.DataBind()
+
+ DdlSubProyectoIntermediario.DataSource = DdlSubProyectos.DataSource
+ DdlSubProyectoIntermediario.DataBind()
+
End Sub
@@ -80,7 +94,7 @@ Partial Class Bancos_DepositosCaja
UpGvFacturas.Update()
GvFacturas.DataBind()
lblValorTotal.Text = "0.00"
- TxtComision.text = ""
+ TxtComision.Text = ""
divLabelTotal.Visible = True
End Sub
@@ -91,6 +105,7 @@ Partial Class Bancos_DepositosCaja
Dim Comision As Decimal = TxtComision.Text.ToDecimal
Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal
Dim IVA As Decimal = TxtIVA.Text.ToDecimal
+ Dim ImporteInter As Decimal = TxtComisionIntermediario.Text.ToDecimal
For Each Gvr As GridViewRow In GvFacturas.Rows
@@ -104,7 +119,8 @@ Partial Class Bancos_DepositosCaja
TotalImportePrePoliza = TotalImporte
If Comision <> 0 Then
- TotalImporte = TotalImporte + Comision + Descuento + IVA
+ TotalImporte = TotalImporte + Comision
+ TotalImporte = TotalImporte - Descuento - IVA - ImporteInter
'Comision = -(Comision) ' se inverte el valor, va cargada
'Descuento = -(Descuento) ' se inverte el valor, va cargada
If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -134,8 +150,12 @@ Partial Class Bancos_DepositosCaja
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 documentos As String = "Los Depósitos se realizaron exitosamente
"
Dim imprimirFolios As String = ""
+ Dim CveSubProyectoIntermediario As Integer = -1
+ Dim CveClasificacionIntermediario As Integer = -1
+ Dim CveProveedorIntermediario As Integer = -1
+
If drOrigen IsNot Nothing Then
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
@@ -150,45 +170,60 @@ Partial Class Bancos_DepositosCaja
NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ If ChkIntermediario.Checked Then
+
+ CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
+ CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
+ CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
+
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, DdlClasificacionIntermediario.SelectedItem.Text, 51, DdlClasificacionIntermediario.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=ImporteInter) Then
+ OcurrioError = True
+ End If
+
+ If IVA <> 0 Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, DdlClasificacionIntermediario.SelectedItem.Text, 14, DdlClasificacionIntermediario.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=IVA, PorcentajeImpuesto:=0.16D) Then
+ OcurrioError = True
+ End If
+ End If
+
+ End If
+
'Entrada a bancos
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 13)
If Not FolioIE > 0 Then
OcurrioError = True
End If
- CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 13, 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(DdlCuentaDeposito.SelectedValue.ToEntero, 13, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)
documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE)
- If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+ If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio) Then
If ChkFaltante.Checked Then
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
If Comision <> 0 Then
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
OcurrioError = True
End If
End If
- If IVA <> 0 Then
- IVA = CDec(0.16)
- If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, IVA, DdlClasificacion.SelectedItem.Text, 14, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
- OcurrioError = True
- End If
- End If
-
End If
If ChkDescuento.Checked Then
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
+ If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
OcurrioError = True
End If
End If
+
+
+
Else
OcurrioError = True
End If
@@ -210,17 +245,20 @@ Partial Class Bancos_DepositosCaja
FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
If Not FolioIE > 0 Then
OcurrioError = True
+ Exit For
End If
CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
OcurrioError = True
+ Exit For
End If
'Asignamos la cuenta Deposito
- If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
+ If Not OcurrioError AndAlso Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
OcurrioError = True
+ Exit For
End If
Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
@@ -243,7 +281,10 @@ Partial Class Bancos_DepositosCaja
End If
-
+ TxtComision.Text = ""
+ TxtDescuento.Text = ""
+ TxtIVA.Text = ""
+ TxtComisionIntermediario.Text = ""
ObjContabilidad.Dispose()
End Sub