From 783c39633e2b825669ea442fa21aa9dcbcba0b35 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 15 Mar 2023 15:07:22 -0700 Subject: [PATCH 1/8] -- mejora en etiquetas para meses en ajuste --- Ventas/PV.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 15461fbff..b23d73cab 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -7422,7 +7422,7 @@ Partial Class PV Alert("No se ha especificado producto de ajuste a entregar") Exit Sub End If - If TxtEtiqueta.Text <> "" OrElse TxtEtiqueta.Text.Length <> 4 Then + If TxtEtiqueta.Text = "" OrElse TxtEtiqueta.Text.Length <> 4 Then Alert("No se ha especificado la etiqueta.") Exit Sub End If @@ -7441,8 +7441,8 @@ Partial Class PV If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then If ObjAcum.DtResultados.Rows.Count > 0 Then ''obtener siempre y cuando la fecha de inicio sea mayor - Dim strDate As Date = ($"01/{TxtEtiqueta.Text.Substring(0, 2)}/{TxtEtiqueta.Text.Substring(2, 2)}").ToDate - Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# > FechaInicioVigencia ", "FechaInicioVigencia") + Dim strDate As Date = ($"20{TxtEtiqueta.Text.Substring(2, 2)}/{TxtEtiqueta.Text.Substring(0, 2)}/01").ToDate + Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# >= FechaInicioVigencia ", "FechaInicioVigencia DESC") If drg IsNot Nothing Then TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString From 4bb51a8ca2c5a254d4fe0595713631969d9e2148 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 17 Mar 2023 08:41:53 -0700 Subject: [PATCH 2/8] --- Nomina/Finiquito.aspx.cs | 2 +- Nomina/Nomina.aspx.cs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 7e940ecd9..8e4aefa2b 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -776,7 +776,7 @@ public partial class Nomina_Finiquito : ClsPaginas NombreCompleto = drow["NombreCompleto"].ToString(); RFC = drow["RFC"].ToString(); CURP = drow["CURP"].ToString(); - FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]); + FechaFin = TxtFechaBaja.Text;//string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]); TipoPeriodo = drow["TipoPeriodo"].ToString(); NSS = drow["NSS"].ToString(); } diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 0a10319c1..7e9e0147c 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -259,7 +259,7 @@ public partial class Nomina_Nomina2 : ClsPaginas if (!IsPostBack) { - enviarCorreoEnTimbrado = (UsuarioActual.CveEmpresa == 141 ? false : true); + enviarCorreoEnTimbrado = (UsuarioActual.CveEmpresa == 141 ? true : true); LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") || (UsuarioActual.CveRol == 1); if (UsuarioActual.CveEmpresa == 141) { ddlfiniquito.SelectedValueExist("2"); } using (ClsRH objrh = new ClsRH()) @@ -2999,7 +2999,7 @@ public partial class Nomina_Nomina2 : ClsPaginas decimal HorasDobles = drow["HorasDobles"].ToString().ToDecimal(); decimal HorasTriples = drow["HorasTriples"].ToString().ToDecimal(); decimal ImporteHora = drow["SalarioDiario"].ToString().ToDecimal() / 8; - decimal Semanaslaboradas = Decimal.Truncate((drow["DiasLaborados"].ToString().ToDecimal() / 7M)); + decimal Semanaslaboradas = Decimal.Truncate((drow["DiasPeriodo"].ToString().ToDecimal() / 7M)); bool seExentandobles = !(drow["SalarioDiario"].ToString().ToDecimal() > drow["SalarioMinimo"].ToString().ToDecimal()); decimal TopeHorasDobles = Semanaslaboradas * 9M; decimal HorasExcentas = HorasDobles > TopeHorasDobles ? TopeHorasDobles : HorasDobles; From 56b1750348c5c434db501a796a45c32faa9144e6 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 17 Mar 2023 08:46:45 -0700 Subject: [PATCH 3/8] --- CGame/CatHuerta.aspx | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/CGame/CatHuerta.aspx b/CGame/CatHuerta.aspx index cbc803bae..3ee892959 100644 --- a/CGame/CatHuerta.aspx +++ b/CGame/CatHuerta.aspx @@ -69,13 +69,18 @@
+ DataKeyNames="CveHuerta,Huerta,CveOrigen,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound"> + + + + + @@ -144,6 +149,11 @@
+
+ + + +
From b06f2aa25a88cb79dcc77b9d103b34ba1e5989b2 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 Mar 2023 14:16:30 -0700 Subject: [PATCH 4/8] =?UTF-8?q?--=20Correcci=C3=B3n=20regeneracion=20globa?= =?UTF-8?q?ldtempresas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/Empresa.aspx.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 3b0e210b9..4fc40d192 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -655,7 +655,7 @@ Partial Class Sistemas_Empresa 'RECARGA EMPRESA If TextoError = "" Then If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then - GlobalDTEmpresas(CveEmpresa) = ObjEmpresas.DtResultados + GlobalDTEmpresas(CveEmpresa) = Nothing 'verifico si existe la carpeta de la empresa, sino la crea For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows @@ -665,9 +665,8 @@ Partial Class Sistemas_Empresa Next End If - If ObjGral.GetClasificacionPorcentaje(CveEmpresa) Then - GlobalDTClasificacionPorcentaje(CveEmpresa) = ObjGral.DtResultados - End If + GlobalDTClasificacionPorcentaje(CveEmpresa) = Nothing + End If 'AGREGAR FUNCIONALIDADES From 57d5cc61642c03595df374a0f96cfea2a57baa55 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 Mar 2023 14:17:38 -0700 Subject: [PATCH 5/8] -- maxlengh 30 a regimensociedad --- Ventas/Clientes.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 44ebba569..e72160b41 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -386,7 +386,7 @@
- + <%----%> From 764e8ff7869586cb305ff99c162a1c2bed5d508b Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 Mar 2023 14:17:45 -0700 Subject: [PATCH 6/8] -- mejora visual --- Inventarios/RecepcionAlmacen.aspx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 77a4a4701..cb3cc4163 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -537,9 +537,9 @@ - - - + + + From 7b287e6726f00c911d2d97c5deabe8a9c69e33b8 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 Mar 2023 14:18:03 -0700 Subject: [PATCH 7/8] =?UTF-8?q?-=20correcci=C3=B3n=20concepto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/DepositosCaja.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 01c04feba..55497f36b 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -291,7 +291,7 @@ Partial Class Bancos_DepositosCaja CveSubProyectoComision = DdlSubProyectoDeposito.SelectedValue.ToEntero CveClasificacionComision = 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:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then + If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Comision, DdlClasificacion.SelectedItem.Text, 78, DdlClasificacion.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionComision, CveSubProyecto:=CveSubProyectoComision, ImporteMX:=Comision * TipoCambio) Then OcurrioError = True End If End If From d25cad300e2a37a3b1dfeb701685c6f31a89856c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 Mar 2023 14:18:24 -0700 Subject: [PATCH 8/8] =?UTF-8?q?--=20cambios=20nombre=20m=C3=B3dulo=20en=20?= =?UTF-8?q?prep=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- Inventarios/RecepcionUsados.aspx.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 3de1b14ea..3ce600fa2 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -2377,7 +2377,7 @@ Partial Class Inventarios_RecepcionAlmacen If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = ConceptoPoliza - Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePrePoliza = ObjConta.AddPrePolizas("RecepAlm", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero Dim tCveConcepto As Integer = 69 diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 46d2c1d8c..2b7aa1210 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1452,7 +1452,7 @@ Partial Class Inventarios_RecepcionUsados If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = ConceptoPoliza - Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados2", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero Dim tCveConcepto As Integer = 278 @@ -2123,7 +2123,7 @@ Partial Class Inventarios_RecepcionUsados If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = $" {TxtObservaciones.Text}" - Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, $"F: {HplVenta.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, $"F: {HplVenta.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If HdnCveOrdenCompra.Value.ToEntero > 0 Then MovAlmacen = False