From f305e59824cb04261c6e232b9d1041615c8a374a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 21:28:10 -0700 Subject: [PATCH 1/4] --globaldtbancoscuentas, filtro de tipocuenta --- App_Code/ClsPaginas.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a1583a93a..09df9fe34 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1490,7 +1490,7 @@ Public Class ClsPaginas ' Application("GlobalDTBancosCuentas") = value ' End Set 'End Property - Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As DataTable + Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa) 'sino existe, recarga los datos @@ -1506,6 +1506,7 @@ Public Class ClsPaginas Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa) If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario) + If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta) If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta) If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo")) From 225d25708b600ed873d95ac89b019f56f4480ca0 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 23:27:19 -0700 Subject: [PATCH 2/4] -- cambio en carga de proyecciones --- Inventarios/KardexAlmacenHorizontal.aspx | 6 +++--- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 6e64d0cb0..3ccaa1725 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -93,7 +93,7 @@ Generar Excel
  • - +
    • @@ -200,8 +200,8 @@
    - - + +
    diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 105d2bca4..9179c58de 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -344,7 +344,7 @@ Partial Class Inventarios_KardexAlmacen End Sub - Protected Sub LnkProyectos_Click(sender As Object, e As EventArgs) + Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion")) End Sub From ba44cd7046e93837b5427077e048d6f991b85b66 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Oct 2020 23:28:04 -0700 Subject: [PATCH 3/4] -- filtro de globaldtbancoscuetnas, filtro por tipo de cuenta -- correcion de error de usaAC, para el registro incompleto de poliza contable --- Ventas/ClientesAbonar.aspx.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 522572c9d..98735344f 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar Private Sub CargaCuentas() DdlCuenta.Items.Clear() - Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) + Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2) If ChkPagarPesos.Checked Then dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) @@ -1730,9 +1730,14 @@ Partial Class Ventas_ClientesAbonar ErrorAC = True End If - ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) + If Not ErrorAC Then + ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza) + End If + + If Not ErrorAC Then + ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) + End If - ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0) End If End If From 7b150c69db0ab012aaff6cab87da9bb360a0bc2e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 23 Oct 2020 12:59:15 -0700 Subject: [PATCH 4/4] --- Nomina/Aguinaldo.aspx.cs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs index 51805038c..c0d0f5939 100644 --- a/Nomina/Aguinaldo.aspx.cs +++ b/Nomina/Aguinaldo.aspx.cs @@ -111,6 +111,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas int CvePeriodo; decimal ImporteGravado = 0; decimal ImporteExento = 0; + decimal ImporteValor = 0; //string NombrePersonal = ""; int CveMetodoPago = 0; int CveNomina = 0; @@ -167,6 +168,8 @@ public partial class Nomina_Aguinaldo : ClsPaginas Importe = row["Aguinaldo"].ToString().ToDecimal(); ImporteGravado = row["AguinaldoGravado"].ToString().ToDecimal(); ImporteExento = Importe - ImporteGravado; + ImporteValor = row["DiasLaborados"].ToString().ToDecimal(); + if (CvePersonal > 0 && Importe>0 && row["CveNomina"].ToString().ToEntero()==0) { @@ -196,7 +199,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas if (CveNomina > 0) { - if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, UsuarioActual.CveUsuario)) + if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario)) { continuar = false; }