From 06cf284ee2c8db588896b0ac876c05dc8956cfd2 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 16 Apr 2021 18:25:44 -0700 Subject: [PATCH 1/5] Ajuste --- Bancos/DepositosCaja.aspx | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index a343d0e94..ab57d8fba 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -227,7 +227,6 @@ var ValorTotalSeleccionado = 0 var comision = 0; - var comisionNegativa = 0; function FnSuma(chk, cantidad) { var saldo = ToDouble($('#C_lblValorTotal').text()); @@ -244,6 +243,7 @@ function txtSuma(txt) { var saldo = ToDouble($('#C_lblValorTotal').text()); var comision2 = ToDouble($('#C_TxtComision').val()); + var comisionNegativa = 0; if (comision2 < 0) { comisionNegativa = comision2 * -1 } @@ -251,8 +251,7 @@ $('#C_TxtComision').val(comision) alert("No es posible poner una comision superior a lo seleccionado") } else { - comision2 = comision2 - comision - saldo = saldo + comision2; + saldo = ValorTotalSeleccionado + comision2; $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); comision = ToDouble($('#C_TxtComision').val()) } From f1ba48c0613ab722a057c6c5dc0f4cb9b6043cef Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 16 Apr 2021 18:26:30 -0700 Subject: [PATCH 2/5] Agregar a el filtro medio de captacion el valor de todos --- CRM/CatEmpresasCRM.aspx.cs | 1 + 1 file changed, 1 insertion(+) diff --git a/CRM/CatEmpresasCRM.aspx.cs b/CRM/CatEmpresasCRM.aspx.cs index 61451a357..3f91131e8 100644 --- a/CRM/CatEmpresasCRM.aspx.cs +++ b/CRM/CatEmpresasCRM.aspx.cs @@ -64,6 +64,7 @@ public partial class CRM_CatEmpresasCRM : ClsPaginas { DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue)); DdlMedioCaptacion.DataBind(); + DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos", "-1")); } ObjCRM.Dispose(); } From 8fbd82bf9e32d04fc841c9776a67a760a8ff2455 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Mon, 19 Apr 2021 01:00:27 -0700 Subject: [PATCH 3/5] Descuento --- Bancos/DepositosCaja.aspx | 47 ++++++++++++++++++++++++++++++++---- Bancos/DepositosCaja.aspx.vb | 34 ++++++++++++++++++++------ 2 files changed, 69 insertions(+), 12 deletions(-) diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index ab57d8fba..dbbec3d15 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -137,13 +137,15 @@
- -
+
+ +
+ - +
+
+
+
+ +
+ + + + +
+
@@ -255,8 +274,12 @@ $('#C_lblValorTotal').text(FormatoNumero(saldo, 2)); comision = ToDouble($('#C_TxtComision').val()) } + + } - if (comision != 0) { + function CheckFaltante(chk) { + if (chk.checked == true) { + $('#DivComision').css("display", "block"); $('#LblSubproyecto').css("display", "block"); $('#divSubProyecto').css("display", "block"); $('#LblClasificacion').css("display", "block"); @@ -265,16 +288,30 @@ debugger; } else { + $('#DivComision').css("display", "none"); $('#LblSubproyecto').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"); + $('#LblClasificacionDescuento').css("display", "block"); + $('#divClasificacionDescuento').css("display", "block"); + debugger; + + } else { + $('#DivDescuento').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 d04585cfc..675996c41 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -24,6 +24,9 @@ Partial Class Bancos_DepositosCaja TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);") CargaCuentas() + ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") + ChkDescuento.Attributes.Add("onclick", "CheckDescuento(this);") + End If End Sub @@ -40,9 +43,13 @@ Partial Class Bancos_DepositosCaja DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyectoDeposito.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")) + End Sub Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click @@ -64,14 +71,15 @@ Partial Class Bancos_DepositosCaja GvFacturas.DataBind() lblValorTotal.Text = "0.00" divLabelTotal.Visible = True - DivComision.Visible = True End Sub Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click Dim TotalImporte As Decimal = 0 Dim TotalImportePrePoliza As Decimal - Dim Comision As Decimal = TxtComision.Text.Todecimal + Dim Comision As Decimal = TxtComision.Text.ToDecimal + Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal + For Each Gvr As GridViewRow In GvFacturas.Rows If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal @@ -84,8 +92,9 @@ Partial Class Bancos_DepositosCaja TotalImportePrePoliza = TotalImporte If Comision <> 0 Then - TotalImporte = TotalImporte + Comision + TotalImporte = TotalImporte + Comision + Descuento 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 Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia) Exit Sub @@ -111,6 +120,8 @@ Partial Class Bancos_DepositosCaja 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 documentos As String = "Los Depósitos se realizaron exitósamente

" Dim imprimirFolios As String = "" If drOrigen IsNot Nothing Then @@ -137,13 +148,22 @@ Partial Class Bancos_DepositosCaja documentos += String.Format("Depósito: {1}    
", CveIEOrigen, FolioIE) - If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, 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, CveCuenta:=CveCuentaBancariaOrigen) Then - If Comision <> 0 Then + If ChkFaltante.Checked Then CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero CveClasificacion = DdlClasificacion.SelectedValue.ToEntero - If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Comision, "Comisión", 51, "Depósito Bancario ", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Comision, DdlClasificacion.SelectedItem.Text, 51, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then + OcurrioError = True + End If + End If + + If ChkDescuento.Checked Then + CveSubProyecto = DdlSubProyectoDeposito.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 OcurrioError = True End If End If @@ -172,7 +192,7 @@ Partial Class Bancos_DepositosCaja 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, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then + 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 End If From ef2ee4d324a68736bcf03a51f92cd655da1acadc Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 19 Apr 2021 10:32:43 -0700 Subject: [PATCH 4/5] Compras Contratos --- Compras/Compras.aspx | 87 +++++++++++++++-------- Compras/Compras.aspx.vb | 124 ++++++++++++++++++++++++++++++++- Contratos/ContratoObra.aspx.vb | 2 +- 3 files changed, 181 insertions(+), 32 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7064cbbec..f0c780a36 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -122,6 +122,19 @@ + + <%--2021-04-15 contratos de obra--%> + + + +
  • + +
    • +     + +     + + @@ -5332,16 +5345,12 @@
    --%> - - - - - -