From fd5962a6e740f23e94637527cd98e6033a8d38e2 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 20 Jun 2023 10:16:38 -0700 Subject: [PATCH 1/5] Ajustes columnas rep personal DIM --- Nomina/RepPersonalDIM.aspx | 796 +++++++++++++++++++++++++++++++++- Nomina/RepPersonalDIM.aspx.vb | 37 ++ 2 files changed, 820 insertions(+), 13 deletions(-) diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index 169f12671..ed5119b95 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -4,6 +4,23 @@ @@ -55,28 +72,781 @@ - - - -
- - - - - + + + + + Mes inicial + + + + + + Mes final + + + + + + RFC + + + + + + CURP + + + + + + Apellido paterno + + + + + + Apellido materno + + + + + + Nombre + + + + + + Área geográfica + + + + + + Si el patrón realizó cálculo anual + + + + + + Tarifa utilizada del ejercicio + + + + + + Tarifa 1991 + + + + + + Proporción del subsidio + + + + + + Sindicalizado + + + + + + Si es asimilado a salarios + + + + + + Entidad Federativa + + + + + + RFC otros patrones1 + + + + + + RFC otros patrones2 + + + + + + RFC otros patrones3 + + + + + + RFC otros patrones4 + + + + + + RFC otros patrones5 + + + + + + RFC otros patrones6 + + + + + + RFC otros patrones7 + + + + + + RFC otros patrones8 + + + + + + RFC otros patrones9 + + + + + + RFC otros patrones10 + + + + + + Pagos por separación + + + + + + Asimilados a salarios + + + + + + Pagos del patrón efectuados a sus trab + + + + + + + <%-- + CvePersonal + + + --%> + + Ingresos totales por pago en parcialidades + + + + + + Monto diario percibido por jubilaciones + + + + + + Cantidad que se hubiera percibido + + + + + + Monto total del pago en una sola exhibición + + + + + + Días + + + + + + Ingresos exentos + + + + + + Ingresos gravables + + + + + + Ingresos acumulables + + + + + + Ingresos no acumulables + + + + + + Impuesto retenido + + + + + + Monto total pagado de otros pagos + + + + + + Número de años de servicio + + + + + + Ingresos exentos + + + + + + Ingresos gravados + + + + + + Ingresos acumulables (mes) + + + + + + Impuesto correspondiente(mes) + + + + + + Ingresos no acumulables + + + + + + Impuesto retenido + + + + + + + + + + + Sueldos, salarios, rayas y jornales (Gravado) + + + + + + Sueldos, salarios, rayas y jornales (Exento) + + + + + + Gratificación anual (Gravado) + + + + + + Gratificación anual (Exento) + + + + + + Viáticos y gastos de viaje (Gravado) + + + + + + Viáticos y gastos de viaje (Exento) + + + + + + Tiempo extraordinario (Gravado) + + + + + + Tiempo extraordinario (Exento) + + + + + + Prima vacacional (Gravado) + + + + + + Prima vacacional (Exento) + + + + + + Prima dominical (Gravado) + + + + + + Prima dominical (Exento) + + + + + + PTU (Gravado) + + + + + + PTU (Exento) + + + + + + Reembolso de gastos médicos,(Gravado) + + + + + + Reembolso de gastos médicos,(Exento) + + + + + + Fondo de ahorro (Gravado) + + + + + + Fondo de ahorro (Exento) + + + + + + Caja de ahorro (Gravado) + + + + + + Caja de ahorro (Exento) + + + + + + Vales para despensa (Gravado) + + + + + + Vales para despensa (Exento) + + + + + + Ayuda para gastos de funeral (Gravado) + + + + + + Ayuda para gastos de funeral (Exento) + + + + + + Contribuciones a cargo del trab(Gravado) + + + + + + Contribuciones a cargo del trab(Exento) + + + + + + Premios por puntualidad (Gravado) + + + + + + Premios por puntualidad (Exento) + + + + + + Prima de seguro de vida (Gravado) + + + + + + Prima de seguro de vida (Exento) + + + + + + Seguro de gastos médicos mayores (Gravado) + + + + + + Seguro de gastos médicos mayores (Exento) + + + + + + Vales para restaurante (Gravado) + + + + + + Vales para restaurante (Exento) + + + + + + Vales para gasolina (Gravado) + + + + + + Vales para gasolina (Exento) + + + + + + Vales para ropa (Gravado) + + + + + + Vales para ropa (Exento) + + + + + + Ayuda para renta(Gravado) + + + + + + Ayuda para renta(Exento) + + + + + + Ayuda para artículos escolares (Gravado) + + + + + + Ayuda para artículos escolares (Exento) + + + + + + Dotación o ayuda para anteojos (Gravado) + + + + + + Dotación o ayuda para anteojos (Exento) + + + + + + Ayuda para transporte (Gravado) + + + + + + Ayuda para transporte (Exento) + + + + + + Cuotas sindicales pagadas patron(Gravado) + + + + + + Cuotas sindicales pagadas patron(Exento) + + + + + + Subsidios por incapacidad (Gravado) + + + + + + Subsidios por incapacidad (Exento) + + + + + + + + + Pagos efectuados por otros empleadores(Gravado) + + + + + + Pagos efectuados por otros empleadores(Exento) + + + + + + Otros ingresos por salarios (Gravado) + + + + + + Otros ingresos por salarios (Exento) + + + + + + Suma del ingreso GRAVADO + + + + + + Suma del ingreso EXENTO + + + + + + + + + P046G + + + + + P046E + + + + + + + + Impuesto retenido durante el ejercicio + + + + + + Impuesto retenido por otro(s) patrón(es) + + + + + + Saldo a favor en el ejercicio que declara que el patrón compensará durante el siguiente ejercicio + + + + + + Saldo a favor del ejercicio anterior no compensado durante el ejercicio que declara ++ + + + + + Suma de las cantidades que por concepto de crédito al salario le correspondió al trabajador + + + + + + Crédito al salario entregado en efectivo + + + + + + Monto total de ingresos obtenidos Prev Social + + + + + + Exentos Previsión social + + + + + + Suma de ingresos por sueldos y salarios + + + + + + Monto del impuesto local a los ingresos por sueldos y salarios + + + + + + Monto del subsidio para el empleo entregado en el ejercicio + + + + + + Total de las aportaciones voluntarias deducibles + + + + + + Impuesto conforme a la tarifa anual + + + + + + Monto del subsidio acreditable (No aplica) + + + + + + Monto del subsidio no acreditable (No aplica) + + + + + + Impuesto sobre ingresos acumulables + + + + + + Impuesto sobre ingresos no acumulables + + + + + + Impuesto local a los ingresos por sueldos, salarios y en general + + + + + + Monto del subsidio para el empleo que le correspondió al trabajador durante el ejercicio + + + + + + + + - -
diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index df4b99ab2..27444a59c 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -141,9 +141,46 @@ Partial Class Nomina_RepPersonalDIM #End Region + Protected Sub GvDatos_DataBound(sender As Object, e As EventArgs) + + 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 + row.Controls.Add(cell) + cell = New TableHeaderCell() + cell.ColumnSpan = 16 + cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + cell = New TableHeaderCell() + cell.ColumnSpan = 2 + cell.Text = " ANEXO 1 ASIM SAL-> " + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + + cell = New TableHeaderCell() + cell.ColumnSpan = 58 + cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->" + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + cell = New TableHeaderCell() + cell.ColumnSpan = 19 + cell.Text = "ANEXO 1 IMPUESTO SOBRE LA RENTA (RESUMEN) ->" + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) + + 'row.BackColor = ColorTranslator.FromHtml("#3AC0F2") + GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) + + End Sub End Class From 08b8d3de9eb7d8b27a2663033039ebe52894fd8d Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 20 Jun 2023 14:57:19 -0700 Subject: [PATCH 2/5] Rep Personal DIM saltos delinea en titulos de cabecera --- Nomina/RepPersonalDIM.aspx | 1511 ++++++++++++++++++++++----------- Nomina/RepPersonalDIM.aspx.vb | 62 +- 2 files changed, 1044 insertions(+), 529 deletions(-) diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index ed5119b95..d1e60d6e8 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -5,7 +5,7 @@ @@ -30,13 +38,23 @@ + + + +
  • + Descarga Excel +
    • +
  • + Descarga Archivo +
    • + +     + + + + +     -
  • - Generar Excel -
    • -
  • - Descarga Archivo -
    • @@ -76,769 +94,1258 @@
    - + - - - Mes inicial - + + + + Mes inicial + - + + - - Mes final - + + + Mes final + - + + - - RFC - + + + RFC + - + + - - CURP - + + + CURP + - + + - - Apellido paterno - + + + Apellido
    + paterno +     - + +     - - Apellido materno - + + + Apellido
    + materno +     - + +     - - Nombre - + + + Nombre + - + + - - Área geográfica - + + + Área
    + geográfica +     - + +     - - Si el patrón realizó cálculo anual - + + + Si el patrón
    + realizó
    + cálculo anual +     - + +     - - Tarifa utilizada del ejercicio - + + + Tarifa
    + utilizada del
    + ejercicio +     - + +     - - Tarifa 1991 - + + + Tarifa 1991 + - + + - - Proporción del subsidio - + + + Proporción
    + del subsidio +     - + +     - - Sindicalizado - + + + Sindicalizado + - + + - - Si es asimilado a salarios - + + + Si es
    + asimilado a
    + salarios +     - + +     - - Entidad Federativa - + + + Entidad
    + Federativa +     - + +     - - RFC otros patrones1 - + + + RFC otros
    + patrones1 +     - + +     - - RFC otros patrones2 - + + + RFC otros
    + patrones2 +     - + +     - - RFC otros patrones3 - + + + RFC otros
    + patrones3 +     - + +     - - RFC otros patrones4 - + + + RFC otros
    + patrones4 +     - + +     - - RFC otros patrones5 - + + + RFC otros
    + patrones5 +     - + +     - - RFC otros patrones6 - + + + RFC otros
    + patrones6 +     - + +     - - RFC otros patrones7 - + + + RFC otros
    + patrones7 +     - + +     - - RFC otros patrones8 - + + + RFC otros
    + patrones8 +     - + +     - - RFC otros patrones9 - + + + RFC otros
    + patrones9 +     - + +     - - RFC otros patrones10 - + + + RFC otros
    + patrones10 +     - + +     - - Pagos por separación - + + + Pagos por
    + separación +     - + +     - - Asimilados a salarios - + + + Asimilados a
    + salarios +     - + +     - - Pagos del patrón efectuados a sus trab - + + + Pagos del
    + patrón +
    + efectuados
    + a sus trab +     - + +     - <%-- + <%-- CvePersonal --%> - - Ingresos totales por pago en parcialidades - + + + Ingresos
    + totales por
    + pago en
    + parcialidades +     - + +     - - Monto diario percibido por jubilaciones - + + + Monto
    + diario
    + percibido
    + por jubilaciones +     - + +     - - Cantidad que se hubiera percibido - + + + Cantidad
    + que se
    + hubiera
    + percibido +     - + +     - - Monto total del pago en una sola exhibición - + + + Monto total
    + del pago en
    + una sola
    + exhibición +     - + +     - - Días - + + + Días + - + + - - Ingresos exentos - + + + Ingresos
    + exentos +     - + +     - - Ingresos gravables - + + + Ingresos
    + gravables +     - + +     - - Ingresos acumulables - + + + Ingresos
    + acumulables +     - + +     - - Ingresos no acumulables - + + + Ingresos no
    + acumulables +     - + +     - - Impuesto retenido - + + + Impuesto
    + retenido +     - + +     - - Monto total pagado de otros pagos - + + + Monto total
    + pagado de
    + otros pagos +     - + +     - - Número de años de servicio - + + + Número de
    + años de
    + servicio +     - + +     - - Ingresos exentos - + + + Ingresos
    + exentos +     - + +     - - Ingresos gravados - + + + Ingresos
    + gravados +     - + +     - - Ingresos acumulables (mes) - + + + Ingresos
    + acumulables (mes) +     - + +     - - Impuesto correspondiente(mes) - + + + Impuesto
    + correspondiente(mes) +     - + +     - - Ingresos no acumulables - + + + Ingresos no
    + acumulables +     - + +     - - Impuesto retenido - + + + Impuesto
    + retenido +     - + +     - - - Sueldos, salarios, rayas y jornales (Gravado) - + + + + Sueldos,
    + salarios,
    + rayas y
    + jornales (Gravado) +     - + +     - - Sueldos, salarios, rayas y jornales (Exento) - + + + Sueldos,
    + salarios,
    + rayas y
    + jornales (Exento) +     - + +     - - Gratificación anual (Gravado) - + + + Gratificación anual (Gravado) + - + + - - Gratificación anual (Exento) - + + + Gratificación
    + anual (Exento) +     - + +     - - Viáticos y gastos de viaje (Gravado) - + + + Viáticos y
    + gastos de
    + viaje (Gravado) +     - + +     - - Viáticos y gastos de viaje (Exento) - + + + Viáticos y
    + gastos de
    + viaje (Exento) +     - + +     - - Tiempo extraordinario (Gravado) - + + + Tiempo
    + extraordinario
    + (Gravado) +     - + +     - - Tiempo extraordinario (Exento) - + + + Tiempo
    + extraordinario
    + (Exento) +     - + +     - - Prima vacacional (Gravado) - + + + Prima
    + vacacional
    + (Gravado) +     - + +     - - Prima vacacional (Exento) - + + + Prima
    + vacacional
    + (Exento) +     - + +     - - Prima dominical (Gravado) - + + + Prima
    + dominical
    + (Gravado) +     - + +     - - Prima dominical (Exento) - + + + Prima
    + dominical
    + (Exento) +     - + +     - - PTU (Gravado) - + + + PTU
    + (Gravado) +     - + +     - - PTU (Exento) - + + + PTU
    + (Exento) +     - + +     - - Reembolso de gastos médicos,(Gravado) - + + + Reembolso
    + de gastos
    + médicos,
    + (Gravado) +     - + +     - - Reembolso de gastos médicos,(Exento) - + + + Reembolso
    + de gastos
    + médicos,
    + (Exento) +     - + +     - - Fondo de ahorro (Gravado) - + + + Fondo de
    + ahorro
    + (Gravado) +     - + +     - - Fondo de ahorro (Exento) - + + + Fondo de
    + ahorro
    + (Exento) +     - + +     - - Caja de ahorro (Gravado) - + + + Caja de
    + ahorro
    + (Gravado) +     - + +     - - Caja de ahorro (Exento) - + + + Caja de
    + ahorro
    + (Exento) +     - + +     - - Vales para despensa (Gravado) - + + + Vales para
    + despensa
    + (Gravado) +     - + +     - - Vales para despensa (Exento) - + + + Vales para
    + despensa
    + (Exento) +     - + +     - - Ayuda para gastos de funeral (Gravado) - + + + Ayuda para
    + gastos de
    + funeral
    + (Gravado) +     - + +     - - Ayuda para gastos de funeral (Exento) - + + + Ayuda para
    + gastos de
    + funeral
    + (Exento) +     - + +     - - Contribuciones a cargo del trab(Gravado) - + + + Contribuciones
    + a cargo del
    + trab(Gravado) +     - + +     - - Contribuciones a cargo del trab(Exento) - + + + Contribuciones
    + a cargo del
    + trab(Exento) +     - + +     - - Premios por puntualidad (Gravado) - + + + Premios por
    + puntualidad
    + (Gravado) +     - + +     - - Premios por puntualidad (Exento) - + + + Premios por
    + puntualidad
    + (Exento) +     - + +     - - Prima de seguro de vida (Gravado) - + + + Prima de
    + seguro de
    + vida (Gravado) +     - + +     - - Prima de seguro de vida (Exento) - + + + Prima de
    + seguro de
    + vida (Exento) +     - + +     - - Seguro de gastos médicos mayores (Gravado) - + + + Seguro de
    + gastos médicos
    + mayores (Gravado) +     - + +     - - Seguro de gastos médicos mayores (Exento) - + + + Seguro de
    + gastos médicos
    + mayores (Exento) +     - + +     - - Vales para restaurante (Gravado) - + + + Vales para
    + restaurante
    + (Gravado) +     - + +     - - Vales para restaurante (Exento) - + + + Vales para
    + restaurante +
    + (Exento) +     - + +     - - Vales para gasolina (Gravado) - + + + Vales para
    + gasolina
    + (Gravado) +     - + +     - - Vales para gasolina (Exento) - + + + Vales para
    + gasolina
    + (Exento) +     - + +     - - Vales para ropa (Gravado) - + + + Vales para
    + ropa (Gravado) +     - + +     - - Vales para ropa (Exento) - + + + Vales para
    + ropa (Exento) +     - + +     - - Ayuda para renta(Gravado) - + + + Ayuda para
    + renta(Gravado) +     - + +     - - Ayuda para renta(Exento) - + + + Ayuda para
    + renta(Exento) +     - + +     - - Ayuda para artículos escolares (Gravado) - + + + Ayuda para
    + artículos +
    + escolares (Gravado) +     - + +     - - Ayuda para artículos escolares (Exento) - + + + Ayuda para
    + artículos
    + escolares (Exento) +     - + +     - - Dotación o ayuda para anteojos (Gravado) - + + + Dotación o
    + ayuda para
    + anteojos (Gravado) +     - + +     - - Dotación o ayuda para anteojos (Exento) - + + + Dotación o
    + ayuda para
    + anteojos (Exento) +     - + +     - - Ayuda para transporte (Gravado) - + + + Ayuda para
    + transporte (Gravado) +     - + +     - - Ayuda para transporte (Exento) - + + + Ayuda par
    + a transporte (Exento) +     - + +     - - Cuotas sindicales pagadas patron(Gravado) - + + + Cuotas sindicales
    + pagadas patron(Gravado) +     - + +     - - Cuotas sindicales pagadas patron(Exento) - + + + Cuotas sindicales
    + pagadas patron(Exento) +     - + +     - - Subsidios por incapacidad (Gravado) - + + + Subsidios por
    + incapacidad (Gravado) +     - + +     - - Subsidios por incapacidad (Exento) - + + + Subsidios por
    + incapacidad (Exento) +     - + +     - - Pagos efectuados por otros empleadores(Gravado) - + + + Pagos
    + efectuados
    + por otros
    + empleadores
    + (Gravado) +     - + +     - - Pagos efectuados por otros empleadores(Exento) - + + + Pagos
    + efectuados
    + por otros
    + empleadores
    + (Exento) +     - + +     - - Otros ingresos por salarios (Gravado) - + + + Otros
    + ingresos por
    + salarios
    + (Gravado) +     - + +     - - Otros ingresos por salarios (Exento) - + + + Otros
    + ingresos por
    + salarios
    + (Exento) +     - + +     - - Suma del ingreso GRAVADO - + + + Suma del
    + ingreso
    + GRAVADO +     - + +     - - Suma del ingreso EXENTO - + + + Suma del
    + ingreso
    + EXENTO +     - + +     - + P046G - + + - + P046E - + + - - - - - Impuesto retenido durante el ejercicio - + + + + + + Impuesto
    + retenido
    + durante el
    + ejercicio +     - + +     - - Impuesto retenido por otro(s) patrón(es) - + + + Impuesto
    + retenido por
    + otro(s)
    + patrón(es) +     - + +     - - Saldo a favor en el ejercicio que declara que el patrón compensará durante el siguiente ejercicio - + + + Saldo a favor
    + en el ejercicio
    + que declara +
    + que el patrón +
    + compensará durante
    + el siguiente
    + ejercicio +     - + +     - - Saldo a favor del ejercicio anterior no compensado durante el ejercicio que declara -+ + + + Saldo a favor
    + del ejercicio anterior
    + no compensado
    + durante el
    + ejercicio que
    + declara ++ +     - + +     - - Suma de las cantidades que por concepto de crédito al salario le correspondió al trabajador - + + + Suma de las
    + cantidades +
    + que por concepto
    + de crédito al +
    + salario le +
    + correspondió +
    + al trabajador +     - + +     - - Crédito al salario entregado en efectivo - + + + Crédito al
    + salario
    + entregado
    + en efectivo +     - + +     - - Monto total de ingresos obtenidos Prev Social - + + + Monto total
    + de ingresos
    + obtenidos +
    + Prev Social +     - + +     - - Exentos Previsión social - + + + Exentos +
    + Previsión
    + social +     - + +     - - Suma de ingresos por sueldos y salarios - + + + Suma de ingresos por sueldos y salarios + - + + - - Monto del impuesto local a los ingresos por sueldos y salarios - + + + Monto del
    + impuesto local
    + a los ingresos
    + por sueldos
    + y salarios +     - + +     - - Monto del subsidio para el empleo entregado en el ejercicio - + + + Monto del
    + subsidio para
    + el empleo
    + entregado en
    + el ejercicio +     - + +     - - Total de las aportaciones voluntarias deducibles - + + + Total de
    + las aportaciones
    + voluntarias
    + deducibles +     - + +     - - Impuesto conforme a la tarifa anual - + + + Impuesto
    + conforme a la
    + tarifa anual +     - + +     - - Monto del subsidio acreditable (No aplica) - + + + Monto del
    + subsidio +
    + acreditable +
    + (No aplica) +     - + +     - - Monto del subsidio no acreditable (No aplica) - + + + Monto del
    + subsidio no
    + acreditable +
    + (No aplica) +     - + +     - - Impuesto sobre ingresos acumulables - + + + Impuesto sobre
    + ingresos
    + acumulables +     - + +     - - Impuesto sobre ingresos no acumulables - + + + Impuesto sobre
    + ingresos
    + no acumulables +     - + +     - - Impuesto local a los ingresos por sueldos, salarios y en general - + + + Impuesto local
    + a los ingresos
    + por sueldos,
    + salarios +
    + y en general +     - + +     - - Monto del subsidio para el empleo que le correspondió al trabajador durante el ejercicio - + + + Monto del
    + subsidio para
    + el empleo
    + que le correspondió +
    + al trabajador +
    + durante +
    + el ejercicio +     - + +     diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index 27444a59c..3a4c7f605 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -85,6 +85,8 @@ Partial Class Nomina_RepPersonalDIM GvDatos.DataBind() + UpAcciones.Update() + UpGvCargaDatos.Update() End Sub @@ -105,38 +107,44 @@ 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 ' Reemplaza esto con tu método para obtener la tabla + Dim tabla As DataTable = Dt_Datos - Dim contenido As String = ConvertirTablaATexto(tabla) + Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirTablaATexto(tabla)) - ' Guardar el archivo en el servidor - Dim nombreArchivo As String = "tabla.txt" - Dim rutaArchivo As String = Server.MapPath("~/Descargas/" & nombreArchivo) - File.WriteAllText(rutaArchivo, contenido) + Using memoryStream As New MemoryStream(contenidoBytes) + Response.Clear() + Response.ContentType = "text/plain" + Response.AddHeader("Content-Disposition", $"attachment; filename=RepPersonalDIM{DdlEjercicio.SelectedItem.Text}.txt") + memoryStream.WriteTo(Response.OutputStream) + End Using - ' Descargar el archivo - Response.ContentType = "text/plain" - Response.AppendHeader("Content-Disposition", "attachment; filename=" & nombreArchivo) - Response.TransmitFile(rutaArchivo) Response.End() + End Sub Public Function ConvertirTablaATexto(ByVal tabla As DataTable) As String + + 'Dim sb As New StringBuilder() + 'For Each GvRow As GridViewRow In GvDatos.Rows + ' For Each GvCell As TableCell In GvRow.Cells + ' sb.Append(GvCell.ID & "|") + ' Next + ' sb.AppendLine() + 'Next + 'Return sb.ToString() + Dim sb As New StringBuilder() - - For Each fila As DataRow In tabla.Rows - For i As Integer = 0 To tabla.Columns.Count - 1 - sb.Append(fila(i).ToString()) - - If i < tabla.Columns.Count - 1 Then - sb.Append("|") ' Agrega el separador de pipes - End If + For Each gvRow As GridViewRow In GvDatos.Rows + For Each gvCell As TableCell In gvRow.Cells + Dim columnIndex As Integer = gvRow.Cells.GetCellIndex(gvCell) + Dim rowIndex As Integer = gvRow.RowIndex + Dim cellID As String = "cell_" & rowIndex.ToString() & "_" & columnIndex.ToString() + sb.Append(gvRow.Cells(columnIndex).Controls(0).ClientID & "|") Next - - sb.AppendLine() ' Agrega un salto de línea al final de cada fila + sb.AppendLine() Next - Return sb.ToString() + End Function #End Region @@ -153,17 +161,17 @@ Partial Class Nomina_RepPersonalDIM cell = New TableHeaderCell() - cell.ColumnSpan = 16 + cell.ColumnSpan = 18 cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->" cell.HorizontalAlign = HorizontalAlign.Left row.Controls.Add(cell) - cell = New TableHeaderCell() - cell.ColumnSpan = 2 - cell.Text = " ANEXO 1 ASIM SAL-> " - cell.HorizontalAlign = HorizontalAlign.Left - row.Controls.Add(cell) + 'cell = New TableHeaderCell() + 'cell.ColumnSpan = 2 + 'cell.Text = " ANEXO 1 ASIM SAL-> " + 'cell.HorizontalAlign = HorizontalAlign.Left + 'row.Controls.Add(cell) cell = New TableHeaderCell() From c2347ce2c09e52e2820c8d53103aad612f526410 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 20 Jun 2023 15:28:17 -0700 Subject: [PATCH 3/5] Rep Personal Dim, ajuste columnas y descarga txt --- Nomina/RepPersonalDIM.aspx | 35 ++++++++++++++------------ Nomina/RepPersonalDIM.aspx.vb | 46 ++++++++++++++++++++++------------- 2 files changed, 48 insertions(+), 33 deletions(-) diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index d1e60d6e8..6fbc9d46c 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -1030,6 +1030,24 @@     + + + Becas para
    trabajadores
    (Gravado) +     + + + +     + + + Becas para
    trabajadores
    (Exento) +     + + + +     + + @@ -1096,22 +1114,7 @@ - - - - - - P046G - - - - - - P046E - - - - +     diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index 3a4c7f605..dcb0cdc1f 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -4,6 +4,7 @@ Option Strict On Imports System.Data Imports System.Drawing Imports System.IO +Imports CrystalDecisions.CrystalReports.Engine Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms @@ -122,28 +123,39 @@ Partial Class Nomina_RepPersonalDIM End Sub - Public Function ConvertirTablaATexto(ByVal tabla As DataTable) As String + Public Function ConvertirTablaATexto(ByVal DT As DataTable) As String - 'Dim sb As New StringBuilder() - 'For Each GvRow As GridViewRow In GvDatos.Rows - ' For Each GvCell As TableCell In GvRow.Cells - ' sb.Append(GvCell.ID & "|") - ' Next - ' sb.AppendLine() - 'Next - 'Return sb.ToString() + Dim DTDatos As DataTable = DT.Copy() - Dim sb As New StringBuilder() - For Each gvRow As GridViewRow In GvDatos.Rows - For Each gvCell As TableCell In gvRow.Cells - Dim columnIndex As Integer = gvRow.Cells.GetCellIndex(gvCell) - Dim rowIndex As Integer = gvRow.RowIndex - Dim cellID As String = "cell_" & rowIndex.ToString() & "_" & columnIndex.ToString() - sb.Append(gvRow.Cells(columnIndex).Controls(0).ClientID & "|") + 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() + + 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() Next - Return sb.ToString() + + Return sb.tostring End Function From 0570bde1ba37ebe8a9dea328920939cb0760fd01 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 20 Jun 2023 16:22:13 -0700 Subject: [PATCH 4/5] Rep Personal DIM ajuestecolumnas --- Nomina/RepPersonalDIM.aspx | 444 +++++++++++++++++----------------- Nomina/RepPersonalDIM.aspx.vb | 255 ++++++++++++++++++- 2 files changed, 469 insertions(+), 230 deletions(-) diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index 6fbc9d46c..b16f700cb 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -101,7 +101,7 @@ Style="margin-top: -10px; text-align: center;" GridLines="None"> - + Mes inicial @@ -109,7 +109,7 @@ - + Mes final @@ -117,7 +117,7 @@ - + RFC @@ -125,7 +125,7 @@ - + CURP @@ -133,7 +133,7 @@ - + Apellido
    paterno @@ -142,7 +142,7 @@     - + Apellido
    materno @@ -151,7 +151,7 @@     - + Nombre @@ -159,7 +159,7 @@ - + Área
    geográfica @@ -168,7 +168,7 @@     - + Si el patrón
    realizó
    @@ -178,7 +178,7 @@     - + Tarifa
    utilizada del
    @@ -188,7 +188,7 @@     - + Tarifa 1991 @@ -196,7 +196,7 @@ - + Proporción
    del subsidio @@ -205,7 +205,7 @@     - + Sindicalizado @@ -213,7 +213,7 @@ - + Si es
    asimilado a
    @@ -223,7 +223,7 @@     - + Entidad
    Federativa @@ -232,7 +232,7 @@     - + RFC otros
    patrones1 @@ -241,7 +241,7 @@     - + RFC otros
    patrones2 @@ -250,7 +250,7 @@     - + RFC otros
    patrones3 @@ -259,7 +259,7 @@     - + RFC otros
    patrones4 @@ -268,7 +268,7 @@     - + RFC otros
    patrones5 @@ -277,7 +277,7 @@     - + RFC otros
    patrones6 @@ -286,7 +286,7 @@     - + RFC otros
    patrones7 @@ -295,7 +295,7 @@     - + RFC otros
    patrones8 @@ -304,7 +304,7 @@     - + RFC otros
    patrones9 @@ -313,7 +313,7 @@     - + RFC otros
    patrones10 @@ -322,25 +322,25 @@     - + Pagos por
    separación     - +     - + Asimilados a
    salarios     - +     - + Pagos del
    patrón @@ -349,17 +349,17 @@ a sus trab     - +     - <%-- + <%-- CvePersonal --%> - + Ingresos
    totales por
    @@ -367,10 +367,10 @@ parcialidades     - +     - + Monto
    diario
    @@ -378,10 +378,10 @@ por jubilaciones     - +     - + Cantidad
    que se
    @@ -389,10 +389,10 @@ percibido     - +     - + Monto total
    del pago en
    @@ -400,10 +400,10 @@ exhibición     - +     - + Días @@ -411,123 +411,123 @@ - + Ingresos
    exentos     - +     - + Ingresos
    gravables     - +     - + Ingresos
    acumulables     - +     - + Ingresos no
    acumulables     - +     - + Impuesto
    retenido     - +     - + Monto total
    pagado de
    otros pagos     - +     - + Número de
    años de
    servicio     - +     - + Ingresos
    exentos     - +     - + Ingresos
    gravados     - +     - + Ingresos
    acumulables (mes)     - +     - + Impuesto
    correspondiente(mes)     - +     - + Ingresos no
    acumulables     - +     - + Impuesto
    retenido     - +     @@ -535,7 +535,7 @@ - + Sueldos,
    salarios,
    @@ -543,10 +543,10 @@ jornales (Gravado)     - +     - + Sueldos,
    salarios,
    @@ -554,125 +554,125 @@ jornales (Exento)     - +     - + Gratificación anual (Gravado) - + - + Gratificación
    anual (Exento)     - +     - + Viáticos y
    gastos de
    viaje (Gravado)     - +     - + Viáticos y
    gastos de
    viaje (Exento)     - +     - + Tiempo
    extraordinario
    (Gravado)     - +     - + Tiempo
    extraordinario
    (Exento)     - +     - + Prima
    vacacional
    (Gravado)     - +     - + Prima
    vacacional
    (Exento)     - +     - + Prima
    dominical
    (Gravado)     - +     - + Prima
    dominical
    (Exento)     - +     - + PTU
    (Gravado)     - +     - + PTU
    (Exento)     - +     - + Reembolso
    de gastos
    @@ -680,10 +680,10 @@ (Gravado)     - +     - + Reembolso
    de gastos
    @@ -691,70 +691,70 @@ (Exento)     - +     - + Fondo de
    ahorro
    (Gravado)     - +     - + Fondo de
    ahorro
    (Exento)     - +     - + Caja de
    ahorro
    (Gravado)     - +     - + Caja de
    ahorro
    (Exento)     - +     - + Vales para
    despensa
    (Gravado)     - +     - + Vales para
    despensa
    (Exento)     - +     - + Ayuda para
    gastos de
    @@ -762,10 +762,10 @@ (Gravado)     - +     - + Ayuda para
    gastos de
    @@ -773,100 +773,100 @@ (Exento)     - +     - + Contribuciones
    a cargo del
    trab(Gravado)     - +     - + Contribuciones
    a cargo del
    trab(Exento)     - +     - + Premios por
    puntualidad
    (Gravado)     - +     - + Premios por
    puntualidad
    (Exento)     - +     - + Prima de
    seguro de
    vida (Gravado)     - +     - + Prima de
    seguro de
    vida (Exento)     - +     - + Seguro de
    gastos médicos
    mayores (Gravado)     - +     - + Seguro de
    gastos médicos
    mayores (Exento)     - +     - + Vales para
    restaurante
    (Gravado)     - +     - + Vales para
    restaurante @@ -874,66 +874,66 @@ (Exento)     - +     - + Vales para
    gasolina
    (Gravado)     - +     - + Vales para
    gasolina
    (Exento)     - +     - + Vales para
    ropa (Gravado)     - +     - + Vales para
    ropa (Exento)     - +     - + Ayuda para
    renta(Gravado)     - +     - + Ayuda para
    renta(Exento)     - +     - + Ayuda para
    artículos @@ -941,115 +941,115 @@ escolares (Gravado)     - +     - + Ayuda para
    artículos
    escolares (Exento)     - +     - + Dotación o
    ayuda para
    anteojos (Gravado)     - +     - + Dotación o
    ayuda para
    anteojos (Exento)     - +     - + Ayuda para
    transporte (Gravado)     - +     - + Ayuda par
    a transporte (Exento)     - +     - + Cuotas sindicales
    pagadas patron(Gravado)     - +     - + Cuotas sindicales
    pagadas patron(Exento)     - +     - + Subsidios por
    incapacidad (Gravado)     - +     - + Subsidios por
    incapacidad (Exento)     - +     - + Becas para
    trabajadores
    (Gravado)     - +     - + Becas para
    trabajadores
    (Exento)     - +     - + Pagos
    efectuados
    @@ -1058,10 +1058,10 @@ (Gravado)     - +     - + Pagos
    efectuados
    @@ -1070,10 +1070,10 @@ (Exento)     - +     - + Otros
    ingresos por
    @@ -1081,10 +1081,10 @@ (Gravado)     - +     - + Otros
    ingresos por
    @@ -1092,33 +1092,33 @@ (Exento)     - +     - + Suma del
    ingreso
    GRAVADO     - +     - + Suma del
    ingreso
    EXENTO     - +     - + Impuesto
    retenido
    @@ -1126,10 +1126,10 @@ ejercicio     - +     - + Impuesto
    retenido por
    @@ -1137,10 +1137,10 @@ patrón(es)     - +     - + Saldo a favor
    en el ejercicio
    @@ -1153,10 +1153,10 @@ ejercicio     - +     - + Saldo a favor
    del ejercicio anterior
    @@ -1167,10 +1167,10 @@ +     - +     - + Suma de las
    cantidades @@ -1185,10 +1185,10 @@ al trabajador     - +     - + Crédito al
    salario
    @@ -1196,10 +1196,10 @@ en efectivo     - +     - + Monto total
    de ingresos
    @@ -1208,10 +1208,10 @@ Prev Social     - +     - + Exentos
    @@ -1219,18 +1219,18 @@ social     - +     - + - Suma de ingresos por sueldos y salarios + Suma de
    ingresos
    por sueldos
    y salarios     - +     - + Monto del
    impuesto local
    @@ -1239,10 +1239,10 @@ y salarios     - +     - + Monto del
    subsidio para
    @@ -1251,10 +1251,10 @@ el ejercicio     - +     - + Total de
    las aportaciones
    @@ -1262,20 +1262,20 @@ deducibles     - +     - + Impuesto
    conforme a la
    tarifa anual     - +     - + Monto del
    subsidio @@ -1285,10 +1285,10 @@ (No aplica)     - +     - + Monto del
    subsidio no
    @@ -1297,30 +1297,30 @@ (No aplica)     - +     - + Impuesto sobre
    ingresos
    acumulables     - +     - + Impuesto sobre
    ingresos
    no acumulables     - +     - + Impuesto local
    a los ingresos
    @@ -1330,10 +1330,10 @@ y en general     - +     - + Monto del
    subsidio para
    @@ -1347,7 +1347,7 @@ el ejercicio     - +     diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index dcb0cdc1f..d264bf3ac 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -100,10 +100,8 @@ Partial Class Nomina_RepPersonalDIM End Sub Private Sub Imprimir(Optional reporte As String = "PDF") - GvDatos.ExportToExcelGembox("RepPersonalDIM", UsuarioActual, "Reporte Personal ", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") - + ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") End Sub - Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) End Sub @@ -179,11 +177,11 @@ Partial Class Nomina_RepPersonalDIM row.Controls.Add(cell) - 'cell = New TableHeaderCell() - 'cell.ColumnSpan = 2 - 'cell.Text = " ANEXO 1 ASIM SAL-> " - 'cell.HorizontalAlign = HorizontalAlign.Left - 'row.Controls.Add(cell) + cell = New TableHeaderCell() + cell.ColumnSpan = 2 + cell.Text = " ANEXO 1 ASIM SAL-> " + cell.HorizontalAlign = HorizontalAlign.Left + row.Controls.Add(cell) cell = New TableHeaderCell() @@ -202,5 +200,246 @@ Partial Class Nomina_RepPersonalDIM GvDatos.HeaderRow.Parent.Controls.AddAt(0, row) End Sub + + + + + Public Sub ExportToExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing) + + Dim sw1 As New StringWriter() + Dim htw1 As New HtmlTextWriter(sw1) + GridView.RenderControl(htw1) + + Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault + + Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString())) + + htmlStream1.Position = 0 + Dim sr1 As New StreamReader(htmlStream1) + Dim myStr1 = sr1.ReadToEnd() + sr1.Dispose() + htmlStream1.Dispose() + sw1.Dispose() + + Dim HtmlCompleto As String = myStr1 + + HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") + + Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) + + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) + + Dim excel As GemBox.Spreadsheet.ExcelFile + + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) + + If Usuario IsNot Nothing Then + + Dim TotalRowHeader As Integer = 6 + Dim TotalRowFooter As Integer = 2 + + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + If DatoTituloExtra.Length > 0 Then + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = DatoTituloExtra + RangoDatoTituloExtra.Style.Font.Size = 20 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + End If + + If DatosFiltros.Length > 0 Then + + Dim Arreglo As String() = DatosFiltros.Split("|"c) + worksheet.Rows.InsertEmpty(TotalRowHeader, Arreglo.Count) + For Each TextoFiltro As String In Arreglo + Dim RangoDatoTituloExtra = worksheet.Cells.GetSubrangeAbsolute(TotalRowHeader, celdasConTexto.FirstColumnIndex, TotalRowHeader, celdasConTexto.LastColumnIndex) + RangoDatoTituloExtra.Merged = True + RangoDatoTituloExtra.Value = TextoFiltro + RangoDatoTituloExtra.Style.Font.Size = 12 * 20 + RangoDatoTituloExtra.Style.Font.Name = "Calibri Light" + RangoDatoTituloExtra.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left + RangoDatoTituloExtra.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + TotalRowHeader += 1 + + Next + End If + + ' TotalRowHeader += 2 + + 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.Center + worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + 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) + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + + Next + + Dim IndexEndTable As Integer = GridView.Rows.Count + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(1).Value = "Usuario Imprimió" + worksheet.Rows(IndexEndTable + 1).Cells(1).Value = Usuario.Nombre + + worksheet.Rows(IndexEndTable).Cells(3).Value = "Fecha Impresión" + worksheet.Rows(IndexEndTable + 1).Cells(3).Value = DateTime.Now.ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + + + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + If I > 0 Then + + If 1 = 1 Then + worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" + Else + worksheet.Columns(I + 1).Style.NumberFormat = "#,##" + End If + + Try + worksheet.Columns(I).AutoFit(1) + Catch ex As Exception + End Try + + End If + Next + + + + If DTExtra IsNot Nothing Then + + Dim NombreTabla As String = "" + + If DTExtra.TableName IsNot Nothing Then + NombreTabla = DTExtra.TableName + End If + + If NombreTabla.Trim = "" Then + NombreTabla = "hoja2" + End If + + 'excel.Worksheets.Add(NombreTabla) + + Dim workbookDTExtra = New ExcelFile + Dim worksheetDTExtra = workbookDTExtra.Worksheets.Add(NombreTabla) + + + worksheetDTExtra.InsertDataTable(DTExtra, + New InsertDataTableOptions() With + { + .ColumnHeaders = True, + .StartRow = 0 + }) + + + + Dim columnCount = worksheetDTExtra.CalculateMaxUsedColumns() + For i As Integer = 0 To columnCount - 1 + worksheetDTExtra.Columns(i).AutoFit(1, worksheetDTExtra.Rows(1), worksheetDTExtra.Rows(worksheetDTExtra.Rows.Count - 1)) + worksheetDTExtra.Cells(0, i).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#4b77be")) + worksheetDTExtra.Cells(0, i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + Next + + + excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra) + excel.Worksheets(0).Name = Titulo + End If + + + + Dim indexRow As Integer = 8 + Dim indexRowGV As Integer = 0 + Dim cssClassRow As String = "" + + Dim CountRowFiltros As Integer = -1 + If DatosFiltros.Trim.Length > 0 Then + CountRowFiltros = 0 + End If + + For indexRow = 8 To worksheet.Rows.Count - 4 + + Try + cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim() + + Select Case cssClassRow + + Case "Totales" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#67809f")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#ddd") + Exit Select + Case "SubTotales2" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077") + Exit Select + Case "SubTotales" + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd")) + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000 + worksheet.Cells.GetSubrangeRelative(indexRow + CountRowFiltros, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F") + Exit Select + Case Else + Exit Select + End Select + + Catch ex As Exception + End Try + + indexRowGV += 1 + Next + + + + End If + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + + + End Sub End Class From 94c0c697ac3eb30e7850cabe90786afe80e00fb5 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 20 Jun 2023 17:31:06 -0700 Subject: [PATCH 5/5] Correciones RepPeresonal --- .../Reportes/RepSituacionFinanciera.rdlc | 5 +- .../Reportes/_RepSituacionFinanciera.rdlc | 3080 +++++++++++++++++ Nomina/RepPersonalDIM.aspx | 40 +- 3 files changed, 3101 insertions(+), 24 deletions(-) create mode 100644 Contabilidad2/Reportes/_RepSituacionFinanciera.rdlc diff --git a/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc b/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc index a9df55f06..c19542d96 100644 --- a/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc +++ b/Contabilidad2/Reportes/RepSituacionFinanciera.rdlc @@ -2078,7 +2078,7 @@ Textbox45 6.53528cm 18.55801cm - 0.6cm + 0.63528cm 1.91058cm 15 @@ -3043,7 +3043,7 @@ =Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Fields!ImporteAnterior.Value, 0), "DataSet1") - =Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo", + =Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo", Fields!ImporteActual.Value, 0), "DataSet1") @@ -3063,6 +3063,7 @@ Fields!ImporteActual.Value, 0),"DataSet1") =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteAnterior.Value, 0),"DataSet1") + true =Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1") diff --git a/Contabilidad2/Reportes/_RepSituacionFinanciera.rdlc b/Contabilidad2/Reportes/_RepSituacionFinanciera.rdlc new file mode 100644 index 000000000..cc86af55a --- /dev/null +++ b/Contabilidad2/Reportes/_RepSituacionFinanciera.rdlc @@ -0,0 +1,3080 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 3560db3f-20af-4776-9f09-85925745c52f + + + + + + DataSet1 + /* Local Query */ + + + + Nombre + System.String + + + ImporteActual + System.Int16 + + + ImporteAnterior + System.Int16 + + + CtaMayor + System.Int16 + + + Orden + System.String + + + Tipo + System.String + + + Sup + System.String + + + Level + System.Int16 + + + TipoCuenta + System.Int16 + + + + DataSet1 + c:\users\caudillo\documents\visual studio 2013\Projects\WebApplication1\WebApplication1\DataSet1.xsd + ActivoCirculante + + + + + + + + + + + + + + + 5.36361cm + + + 2.86585cm + + + 2.19558cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + + + + + TOTAL ACTIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!TipoCuenta.Value + Equal + + 1 + + + + 2.6512cm + 0.31432cm + 1.65cm + 10.42504cm + + + Verdana + 8pt + + + + + + + 5.36361cm + + + 2.86585cm + + + 2.19558cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum( Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + In + + =CStr("A,B,C").Split(",") + + + + =Fields!TipoCuenta.Value + Equal + + 2 + + + + 4.74417cm + 0.31432cm + 1.65cm + 10.42504cm + 1 + + + Verdana + 8pt + + + + + + + 5.21467cm + + + 2.56871cm + + + 1.91058cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!TipoCuenta.Value + Equal + + 3 + + + + 2.6512cm + 10.77464cm + 1.65cm + 9.69396cm + 2 + + + Verdana + 8pt + + + + + + + 5.21467cm + + + 2.56871cm + + + 1.91058cm + + + + + 0.6cm + + + + + true + true + + + + + PASIVO NO CIRCULANTE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL PASIVO NO CIRCULANTE + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + D + + + + =Fields!TipoCuenta.Value + Equal + + 4 + + + + 4.74417cm + 10.77464cm + 1.65cm + 9.69396cm + 3 + + + Verdana + 8pt + + + + true + true + + + + + ACTIVO + + + + + + + Textbox28 + 1.91009cm + 0.31432cm + 0.6cm + 10.46032cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + PASIVO + + + + + + + Textbox28 + 1.91009cm + 10.77464cm + 0.6cm + 9.69395cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.21467cm + + + 2.56871cm + + + 1.91058cm + + + + + 0.6cm + + + + + true + true + + + + + CAPITAL CONTABLE + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL CAPITAL + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!Tipo.Value + Equal + + F + + + + =Fields!TipoCuenta.Value + In + + 5 + 6 + 7 + 8 + + + + 8.30193cm + 10.77464cm + 1.65cm + 9.69396cm + 6 + + + Verdana + 8pt + + + + true + true + + + + + CAPITAL + + + + + + + Textbox28 + 7.52554cm + 10.77464cm + 0.6cm + 9.69395cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total CAPITAL + + + + + + + Textbox45 + 10.22837cm + 10.77464cm + 0.6cm + 4.89717cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPatrimonioHActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total Pasivo y Patrimonio + + + + + + + Textbox45 + 11.12267cm + 10.77464cm + 0.6cm + 4.89717cm + 11 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalpasivoYHaciendaActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Total del Pasivo: + + + + + + + Textbox45 + 6.57056cm + 10.77464cm + 0.6cm + 5.21467cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalPasivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Iif( Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2) <.005,"" ,"La suma de los totales estan descuadradas." & Round(Math.Abs(Variables!TotalActivoActual.Value-Variables!TotalpasivoYHaciendaActual.Value),2)) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + = Parameters!pImg.Value + FitProportional + 0.03141cm + 0.31432cm + 1.5cm + 5.36361cm + 18 + + + + + + true + true + + + + + =Parameters!pEmp.Value + + + + + + + Textbox1 + 0.03141cm + 5.67793cm + 0.81167cm + 10.31137cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Estado de Situación Financiera + + + + =Parameters!periodo.Value + + + + + + + Textbox5 + 0.89924cm + 5.67793cm + 0.6cm + 10.31137cm + 20 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.07056cm + 15.98931cm + 0.81167cm + 4.47928cm + 21 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 5.36361cm + + + 2.86585cm + + + 2.19558cm + + + + + 0.6cm + + + + + true + true + + + + + ACTIVO DIFERIDO + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 3 + + + + + + + + 0.45cm + + + + + true + + + + + =Fields!Nombre.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TOTAL ACTIVO DIFERIDO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteActual.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Sum(Fields!ImporteAnterior.Value) + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + true + + + + + + Before + + + + DataSet1 + + + =Fields!TipoCuenta.Value + Equal + + 9 + + + + 6.92554cm + 0.31432cm + 1.65cm + 10.42504cm + 22 + + + Verdana + 8pt + + + + true + true + + + + + Total del Activo + + + + + + + Textbox45 + 11.12267cm + 0.31432cm + 0.6cm + 5.36361cm + 23 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoAnterior.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Variables!TotalActivoActual.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 4.88706in + + + + =Parameters!pFechaFin.Value + + + + + + + Textbox5 + 3.454cm + 0.6cm + 12.91455cm + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Fecha Impresión:" & vbcrlf & Format( Globals!ExecutionTime,"dd/MM/yyyy") + + + + + + + Textbox8 + 0.02088cm + 16.62517cm + 0.57912cm + 3.49249cm + 1 + + = (Globals.PageNumber=1) + + + + 2pt + 2pt + + + + + + + + + 2.46062cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 1.86062cm + 16.37931cm + 0.6cm + 3.95896cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma2.Value + + + + Textbox2 + 0.10583cm + 1.71666cm + 0.99688cm + 8.02269cm + 1 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma2.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!pFirma1.Value + + + + Textbox2 + 1.46374cm + 6.03938cm + 0.99688cm + 8.02269cm + 2 + + = Iif((Globals.PageNumber=Globals.TotalPages) and (Parameters!pFirma1.Value <> ""),false,true) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + Textbox2 + 0.10582cm + 10.37435cm + 0.99688cm + 8.02269cm + 3 + + =Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value <> ""), False, True) + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm +