From 79968bdce6a90810140085ccb2d5921f541f9694 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 22 Jun 2023 08:06:30 -0700 Subject: [PATCH 1/7] Rep personal Dim ajustes generacion de txt --- App_Code/ClsNominas.vb | 16 +++++++ Compras/eFacturas.aspx | 13 ++++++ Compras/eFacturas.aspx.vb | 31 +++++++++++++ Nomina/RepPersonalDIM.aspx | 5 +++ Nomina/RepPersonalDIM.aspx.vb | 82 ++++++++++++++++++++--------------- 5 files changed, 112 insertions(+), 35 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 500315bf5..9d7a712ec 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3571,6 +3571,22 @@ Public Class ClsNominas retorno = RunQuery("Ocurrió un error al eliminar las Solicitudes de nómina.") Return retorno End Function + + + Public Function SolicitudesCancelar(CveSolicitud As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Gral_SAT_SolicitudesCancelar", CommandType.StoredProcedure) + addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud) + addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa) + addParameters("@CveUsuario", SqlDbType.Int, CveUsuario) + + retorno = RunQuery("Ocurrió un error al cancelar la Solicitude.") + + Return retorno + End Function + + + #End Region #End Region diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 8af65aaa1..e53333212 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -1107,6 +1107,19 @@ + + + + + + + + + + + + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index ce502c1e2..8a138cf63 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -781,6 +781,11 @@ Partial Class Compras_eFacturas CargaGvBitacora() CargaDatos() MostrarSolcitudesSAT() + + If UsuarioActual.CveRol = 1 Then + GVSolicitudesPendientes.Columns(8).Visible = True + End If + End If removeasincevent() End Sub @@ -5033,6 +5038,26 @@ Partial Class Compras_eFacturas RegistraScript("$('#DvmodalPersonalizar').modal('show');") End Sub + + Protected Sub LnkRemoveSolicitud_Click(sender As Object, e As EventArgs) + + Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + Dim ProcesoOk As Boolean = False + + Dim CveSolicitud = gvRow.DataKey("CveSolicitud").ToEntero + Dim Folio = gvRow.DataKey("Folio").ToEntero + + Using nom As ClsNominas = New ClsNominas() + ProcesoOk = nom.SolicitudesCancelar(CveSolicitud, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) + End Using + + If ProcesoOk Then + Alert($"Solicitud {Folio} cancelada correctamente.") + cargasolicitudes() + End If + + + End Sub End Class @@ -5052,6 +5077,12 @@ Public Class GeneralesAPIeFacturas Public Function VerificaSolicitudesNominas(CveEmpresa As Integer, CveTipoSolicitud As Integer, CveSolicitud As Integer) As Object Return getData(Of Object)($"VerificaSolicitudesNominas/{CveEmpresa}/{CveTipoSolicitud}/{CveSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False) End Function + + Public Function CancelarSolicitud(CveEmpresa As Integer, CveSolicitud As Integer, CveUsuario As Integer) As Object + Return getData(Of Object)($"CancelarSolicitud/{CveEmpresa}/{CveSolicitud}/{CveUsuario}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False) + End Function + + End Class diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index 182031f62..4b82ca5f0 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -1350,6 +1350,11 @@ + + + + + diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index 16d37c606..d697818ef 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -144,9 +144,9 @@ Partial Class Nomina_RepPersonalDIM End Sub Protected Sub LnkDescargaArchivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LnkDescargaArchivo.Click - Dim tabla As DataTable = Dt_Datos - Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirTablaATexto(tabla)) + + Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirGVATexto()) Using memoryStream As New MemoryStream(contenidoBytes) Response.Clear() @@ -159,39 +159,27 @@ Partial Class Nomina_RepPersonalDIM End Sub - Public Function ConvertirTablaATexto(ByVal DT As DataTable) As String - - Dim DTDatos As DataTable = DT.Copy() - - Dim columnasARemover As New List(Of DataColumn)() - - - For Each columna As DataColumn In DTDatos.Columns - If columna.ColumnName.Contains("CvePersonal") Then - columnasARemover.Add(columna) - End If - Next - - - For Each columna As DataColumn In columnasARemover - DTDatos.Columns.Remove(columna) - Next - - DTDatos.AcceptChanges() + Public Function ConvertirGVATexto() As String Dim sb As New StringBuilder - For Each fila As DataRow In DTDatos.Rows - For i As Integer = 0 To DTDatos.Columns.Count - 1 - sb.Append(fila(i).ToString()) - If i < DTDatos.Columns.Count - 1 Then - sb.Append("|") - End If - Next - sb.AppendLine() + Dim countRows As Integer = 1 + For Each GvRow As GridViewRow In GvDatos.Rows + + If Not countRows = 1 Then + For Each cell As TableCell In GvRow.Cells + For Each control As Control In cell.Controls + If TypeOf control Is Label Then + Dim label As Label = DirectCast(control, Label) + sb.Append($"{label.Text.Trim.Replace("True", "1").Replace("False", "0")}|") + End If + Next + Next + sb.AppendLine() + End If + countRows = countRows + 1 Next - - Return sb.tostring + Return sb.ToString End Function @@ -330,22 +318,46 @@ Partial Class Nomina_RepPersonalDIM ' TotalRowHeader += 2 + + 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(61, 74, 26), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + + worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + + worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20 worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom - worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + 'worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(0, 0, 0) worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Size = 12 * 20 worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom - worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + ' worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(0, 0, 0) If i > 0 Then Try From 22b74aee81950c76ed4c4b604456dc9547387098 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 22 Jun 2023 17:13:17 -0700 Subject: [PATCH 2/7] RepEstadoActividades.aspx --- AC/Reportes/RepEstadoActividadesConta2.rdlc | 1836 +++++++++++++++++++ Contabilidad2/RepEstadoActividades.aspx | 38 +- Contabilidad2/RepEstadoActividades.aspx.vb | 115 +- 3 files changed, 1975 insertions(+), 14 deletions(-) create mode 100644 AC/Reportes/RepEstadoActividadesConta2.rdlc diff --git a/AC/Reportes/RepEstadoActividadesConta2.rdlc b/AC/Reportes/RepEstadoActividadesConta2.rdlc new file mode 100644 index 000000000..bd76638df --- /dev/null +++ b/AC/Reportes/RepEstadoActividadesConta2.rdlc @@ -0,0 +1,1836 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 3560db3f-20af-4776-9f09-85925745c52f + + + + + + DataSet1 + /* Local Query */ + + + + Orden + System.String + + + Nombre + System.String + + + CustLName + System.String + + + ImporteActual + System.Int16 + + + ImporteAcumulado + System.Int16 + + + CtaMayor + System.Int16 + + + Tipo + System.String + + + Sup + System.String + + + PorcentajeActual + System.Decimal + + + PorcentajeAcumulado + System.Decimal + + + + DataSet1 + c:\users\caudillo\documents\visual studio 2013\Projects\WebApplication1\WebApplication1\DataSet1.xsd + ActivoCirculante + + + + + + + + DataSet1 + /* Local Query */ + + + + Orden + System.String + + + Nombre + System.String + + + CustLName + System.String + + + ImporteActual + System.Int16 + + + ImporteAcumulado + System.Int16 + + + CtaMayor + System.Int16 + + + Tipo + System.String + + + Sup + System.String + + + PorcentajeActual + System.Decimal + + + PorcentajeAcumulado + System.Decimal + + + + DataSet2 + c:\users\caudillo\documents\visual studio 2013\Projects\WebApplication1\WebApplication1\DataSet1.xsd + ActivoCirculante + + + + + + + + + + + + + + + 9.16707cm + + + 3.13952cm + + + 1.09771cm + + + 3.13952cm + + + 1.09771cm + + + + + 0.6cm + + + + + true + true + + + + + INGRESOS Y OTROS BENEFICIOS + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Período Actual + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Período Acumulado + + + + + + + Textbox18 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + + ImporteActual + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorcentajeActual.Value + + + + + + + PorcentajeActual + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + + ImporteAnterior + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorcentajeAcumulado.Value + + + + + + + PorcentajeAcumulado + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL INGRESOS + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =MAX(IIF(Fields!CtaMayor.Value < 0, Fields!ImporteActual.Value, 0)) + + + + + + + ImporteActual1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox29 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =MAX(IIF(Fields!CtaMayor.Value < 0, Fields!ImporteAnterior.Value, 0 )) + + + + + + + Textbox12 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox20 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + true + + + + + =(Fields!CtaMayor.Value="-1") + + + + Before + + + + DataSet1 + 0.74371cm + 1.99074cm + 1.65cm + 17.64153cm + + + + + + + + + 9.16707cm + + + 3.13952cm + + + 1.09771cm + + + 3.13952cm + + + 1.09771cm + + + + + 0.6cm + + + + + true + true + + + + + GASTOS Y OTRAS PÉRDIDAS + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Período Actual + + + + + + + Textbox15 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Período Acumulado + + + + + + + Textbox16 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + % + + + + + + + Textbox21 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + + ImporteActual + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorcentajeActual.Value + + + + + + + PorcentajeActual1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + + ImporteAnterior + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PorcentajeAcumulado.Value + + + + + + + PorcentajeAcumulado1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL GASTOS + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =MAX(IIF(Fields!CtaMayor.Value < 0, Fields!ImporteActual.Value, 0 )) + + + + + + + ImporteActual1 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox30 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =MAX(IIF(Fields!CtaMayor.Value < 0, Fields!ImporteAnterior.Value, 0)) + + + + + + + Textbox12 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox23 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + After + true + + + + + =(Fields!CtaMayor.Value="-1" AND (Fields!Orden.Value <>"600" AND Fields!Orden.Value <> "700" AND Fields!Orden.Value <> "790" )) + + + + Before + + + + DataSet2 + 3.15418cm + 1.99074cm + 1.65cm + 17.64153cm + 1 + + + + + + true + true + + + + + Resultados del ejercicio(Utilidad o pérdida): + + + + + + + Textbox54 + 5.28849cm + 1.99074cm + 0.49417cm + 9.16707cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!lbTotalActual.Value + + + + + + + Textbox56 + 5.28849cm + 11.19309cm + 0.49417cm + 3.13952cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!lbTotalAnterior.Value + + + + + + + Textbox58 + 5.28849cm + 15.39933cm + 0.49417cm + 3.13952cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + 6.51495cm + + + + + + + Textbox8 + 0.06529cm + 16.80162cm + 0.81167cm + 3.13952cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado de Resultado + + + + =Parameters!periodo.Value + + + + + + + + + Centro de Costos: + + + + =Parameters!SubProyecto.Value + + + + + + + Textbox5 + 0.71396cm + 2.94324cm + 1.12049cm + 13.85838cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pEmp.Value + + + + + + + Textbox1 + 0.02577cm + 2.94324cm + 0.54709cm + 13.85838cm + 2 + + =(Globals.PageNumber>1) + + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.06104cm + 1.5cm + 2.94324cm + 3 + + + + + + + + + + + 2.76063cm + true + true + + + true + true + + + + + =Parameters!pFirma1.Value + + + + Textbox2 + 0.49389cm + 10.80759cm + 0.9616cm + 8.02269cm + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma2.Value + + + + Textbox2 + 0.49389cm + 1.24991cm + 0.99688cm + 8.02269cm + 1 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 1.92292cm + 0.62818cm + 0.6cm + 18.2021cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 1cm + 0.5cm + 0.13cm + @@ -90,14 +94,22 @@ + +
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+
- diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index d697818ef..fb2d75c48 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -8,10 +8,43 @@ Imports CrystalDecisions.CrystalReports.Engine Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms +Imports Stimulsoft.Report.Export Partial Class Nomina_RepPersonalDIM Inherits ClsPaginas + + ReadOnly Property color_green_dark As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(77, 179, 162) + End Get + End Property + + ReadOnly Property color_purple_intense As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(135, 117, 167) + End Get + End Property + + ReadOnly Property color_blue As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(53, 152, 220) + End Get + End Property + + ReadOnly Property color_blue_madison As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(87, 142, 190) + End Get + End Property + + ReadOnly Property color_yellow As Drawing.Color + Get + Return System.Drawing.Color.FromArgb(196, 159, 71) + End Get + End Property + + Public Property Dt_Datos As DataTable Get If ViewState("Dt_Datos") Is Nothing Then @@ -54,6 +87,8 @@ Partial Class Nomina_RepPersonalDIM End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaDatos() End Sub @@ -99,20 +134,57 @@ Partial Class Nomina_RepPersonalDIM Imprimir("Excel") End Sub - Private Sub Imprimir(Optional reporte As String = "PDF") + Private Sub ColoresCabeceraGrid() + + + Dim countColumnas As Integer = 0 + For Each gvColumn As DataControlField In GvDatos.Columns + + If countColumnas <= 27 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_green_dark + End If + + If countColumnas > 27 And countColumnas <= 45 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_purple_intense + End If + + If countColumnas > 45 And countColumnas <= 47 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue + End If + + If countColumnas > 47 And countColumnas <= 105 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_blue_madison + End If + + If countColumnas > 105 And countColumnas <= 124 Then + GvDatos.Columns(countColumnas).HeaderStyle.BackColor = color_yellow + End If + countColumnas = countColumnas + 1 + Next + + End Sub + + Private Sub Imprimir(Optional reporte As String = "PDF") + ColoresCabeceraGrid() + Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) Dim cell As New TableHeaderCell() cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->" cell.ColumnSpan = 28 cell.HorizontalAlign = HorizontalAlign.Left + 'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162) + cell.BackColor = color_green_dark row.Controls.Add(cell) + + cell = New TableHeaderCell() cell.ColumnSpan = 18 cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_purple_intense row.Controls.Add(cell) @@ -120,6 +192,7 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 2 cell.Text = " ANEXO 1 ASIM SAL-> " cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue row.Controls.Add(cell) @@ -127,17 +200,21 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 58 cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue_madison row.Controls.Add(cell) cell = New TableHeaderCell() cell.ColumnSpan = 19 cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_yellow row.Controls.Add(cell) 'row.BackColor = ColorTranslator.FromHtml("#3AC0F2") GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) + + ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) @@ -187,11 +264,16 @@ Partial Class Nomina_RepPersonalDIM Protected Sub GvDatos_DataBound(sender As Object, e As EventArgs) + + ColoresCabeceraGrid() + Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal) Dim cell As New TableHeaderCell() cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->" cell.ColumnSpan = 28 cell.HorizontalAlign = HorizontalAlign.Left + 'cell.BackColor = Drawing.Color.FromArgb(77, 179, 162) + cell.BackColor = color_green_dark row.Controls.Add(cell) @@ -200,6 +282,7 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 18 cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_purple_intense row.Controls.Add(cell) @@ -207,6 +290,7 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 2 cell.Text = " ANEXO 1 ASIM SAL-> " cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue row.Controls.Add(cell) @@ -214,17 +298,19 @@ Partial Class Nomina_RepPersonalDIM cell.ColumnSpan = 58 cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_blue_madison row.Controls.Add(cell) cell = New TableHeaderCell() cell.ColumnSpan = 19 cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->" cell.HorizontalAlign = HorizontalAlign.Left + cell.BackColor = color_yellow row.Controls.Add(cell) - 'row.BackColor = ColorTranslator.FromHtml("#3AC0F2") GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) + End Sub @@ -330,15 +416,15 @@ Partial Class Nomina_RepPersonalDIM 'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(77, 179, 162), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(135, 117, 167), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(53, 152, 220), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(87, 142, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(196, 159, 71), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) @@ -498,3 +584,5 @@ Partial Class Nomina_RepPersonalDIM End Sub End Class +Friend Class GridViewColumn +End Class