From e41e182ef8b8edcac4e840bd0f366ad1f306c190 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 28 Feb 2025 09:47:44 -0700 Subject: [PATCH 1/3] =?UTF-8?q?--=20E189,=20que=20genere=20folio=20al=20in?= =?UTF-8?q?icial=20la=20p=C3=A1gina?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Promociones.aspx.vb | 34 +++++++++++++++++++++------------- 1 file changed, 21 insertions(+), 13 deletions(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 92791155f..16c5f2b0a 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -329,6 +329,7 @@ Partial Class Ventas_Promociones TxtPromocion.Enabled = False TxtPromocion.ReadOnly = True + CargaFolio() End If @@ -1577,20 +1578,27 @@ Partial Class Ventas_Promociones Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) - If Me.CvePromocion <= 0 Then - Dim ObjFolios As New ClsGralFolios() - If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then - Dim DT As DataTable = ObjFolios.DtResultados - If DT.Rows.Count > 0 Then - TxtPromocion.Text = String.Format("{0}-{1}", DT.Rows(0)("Serie"), DT.Rows(0)("FActual")) - Else - TxtPromocion.Text = "" - End If - DT.Dispose() - End If - ObjFolios.Dispose() + CargaFolio() + End Sub - UpGenerales.Update() + Private Sub CargaFolio() + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Me.CvePromocion <= 0 Then + Dim ObjFolios As New ClsGralFolios() + If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then + Dim DT As DataTable = ObjFolios.DtResultados + If DT.Rows.Count > 0 Then + TxtPromocion.Text = String.Format("{0}-{1}", DT.Rows(0)("Serie"), DT.Rows(0)("FActual")) + Else + TxtPromocion.Text = "" + End If + DT.Dispose() + End If + ObjFolios.Dispose() + + UpGenerales.Update() + End If End If + End Sub End Class \ No newline at end of file From b2977510e2c75217791d52d0dd5b00fcf664e543 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 28 Feb 2025 18:08:13 -0700 Subject: [PATCH 2/3] =?UTF-8?q?--=20correcci=C3=B3n=20de=20parametro?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Nomina/CalculoISRAnual.aspx.cs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Nomina/CalculoISRAnual.aspx.cs b/Nomina/CalculoISRAnual.aspx.cs index 439360031..10d74468e 100644 --- a/Nomina/CalculoISRAnual.aspx.cs +++ b/Nomina/CalculoISRAnual.aspx.cs @@ -252,8 +252,8 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas { XElement xempleado = new XElement("empleado"); xempleado.SetAttributeValue("CvePersonal", item.DataKey("CvePersonal")); - xempleado.SetAttributeValue("ACarago", item.DataKey("Acargo")); - xempleado.SetAttributeValue("ACompensar", item.DataKey("Acompensar")); + xempleado.SetAttributeValue("ACargo", item.DataKey("Acargo").ToDecimal().RoundSQL(2)); + xempleado.SetAttributeValue("ACompensar", item.DataKey("Acompensar").ToDecimal().RoundSQL(2)); xfolder.Add(xempleado); } From 5f588ec52dfa8ed68e4cf61f33c9c5f46f5e4dc9 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 28 Feb 2025 19:01:33 -0700 Subject: [PATCH 3/3] Tarea programada ajustes viusuales reporte diario --- Ashx/TareasProgramadas.ashx | 52 ++++++++++++++++++++++++++++++------- 1 file changed, 42 insertions(+), 10 deletions(-) diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index 95eba56b4..3c318652f 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -1394,21 +1394,53 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState sbTablas.AppendLine($"
- + - +

Reporte Diario

{DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss")}

") If objGenerales.GetReporteDiario(CveEmpresa) Then - Dim TablaActual As Integer = 1 - For Each tabla As DataTable In objGenerales.DSResultados.Tables - sbTablas.AppendLine(ConvertDataTableToHtml(tabla)) - TablaActual += 1 - sbTablas.Append("
") - sbTablas.Append("
") - Next + If objGenerales.DSResultados.Tables(0).Rows.Count > 0 AndAlso objGenerales.DSResultados.Tables(0).Columns.Count > 0 Then + sbTablas.AppendLine($" +

VENTA ACUMULADA

+

Mes actual: ${objGenerales.DSResultados.Tables(0).Rows(0)(1).ToString.ToDecimal.ToString("###,###,###.00")}M.N.

+

Año actual: ${objGenerales.DSResultados.Tables(0).Rows(0)(2).ToString.ToDecimal.ToString("###,###,###.00")}M.N.

+ ") + End If + + sbTablas.AppendLine($"
") + sbTablas.AppendLine("
") + + sbTablas.AppendLine(ConvertDataTableToHtml(objGenerales.DSResultados.Tables(4))) + sbTablas.AppendLine($"
") + sbTablas.AppendLine("
") + + + sbTablas.AppendLine($" + + + +
{ConvertDataTableToHtml(objGenerales.DSResultados.Tables(1))}{ConvertDataTableToHtml(objGenerales.DSResultados.Tables(3))}
+ ") + + sbTablas.AppendLine($" + + + +
{ConvertDataTableToHtml(objGenerales.DSResultados.Tables(2))}
+ ") + sbTablas.AppendLine($"
") + sbTablas.AppendLine("
") + + 'Dim TablaActual As Integer = 1 + 'For Each tabla As DataTable In objGenerales.DSResultados.Tables + ' sbTablas.AppendLine(ConvertDataTableToHtml(tabla)) + ' TablaActual += 1 + ' sbTablas.Append("
") + ' sbTablas.Append("
") + 'Next Else respuesta = False End If @@ -1428,7 +1460,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState Dim html As StringBuilder = New StringBuilder() Dim ColumnaTitulo As String = "Titulo" html.Append("") - If table.Columns(0).ColumnName = ColumnaTitulo AndAlso table.Rows.Count > 0 Then html.AppendFormat(" ", table.Rows(0)(ColumnaTitulo)) + If table.Columns(0).ColumnName = ColumnaTitulo AndAlso table.Rows.Count > 0 Then html.AppendFormat("", table.Rows(0)(ColumnaTitulo)) html.Append("") For Each column As DataColumn In table.Columns
{0}

{0}