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}