From 2dc9346e259e880ab36ade54c8b313b30d2b15af Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 15 Jun 2023 17:52:50 -0700 Subject: [PATCH 01/37] Correcion en aplicacion de anticipos con descuentos, filtro de subproyectos --- Ventas/Ventas.aspx.vb | 34 +++++++++++++++++++++++++--------- 1 file changed, 25 insertions(+), 9 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 61dbf6af5..986cfb108 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6320,7 +6320,7 @@ Partial Class Ventas UpINV.Update() End Sub - Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1) + Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1, Optional FiltraPorProyecto As Boolean = False) 'DdlSubProyecto.Items.Clear() 'DdlSubProyecto.SelectedValue = Nothing 'If DdlProyecto.SelectedValue.ToEntero() > 0 Then @@ -6329,6 +6329,20 @@ Partial Class Ventas 'End If 'DdlSubProyecto.DataBind() 'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) + + If FiltraPorProyecto Then + DdlSubProyecto.Items.Clear() + + Using ObjSubP As New ClsSubProyectos + If ObjSubP.GetSubProyectos(UsuarioActual.CveEmpresa) Then + DdlSubProyecto.DataSource = ObjSubP.DtResultados.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue)) + End If + End Using + + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) + End If + If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto) End Sub @@ -18089,7 +18103,7 @@ Partial Class Ventas End If End Sub Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged - CargaSubProyecto() + CargaSubProyecto(FiltraPorProyecto:=True) End Sub #End Region @@ -30131,11 +30145,7 @@ Partial Class Ventas For Each Dr As DataRow In DtImpuestosLocal.Rows FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString().ToDecimal, Dr("PorcentajeRetIVA").ToString().ToDecimal, Dr("PorcentajeRetISR").ToString().ToDecimal, Dr("PorcentajeIEPS").ToString().ToDecimal, Dr("CveSubProyecto")) Dim importePuTemp As Decimal = 0 - If AplicaDescuentos Then - importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr))) - Else - importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr))) - End If + importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr))) If Not AplicaImpuestosLocales Then importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal @@ -30154,10 +30164,13 @@ Partial Class Ventas Dr("ImporteRetIVA") = (importePuTemp * Dr("PorcentajeRetIVA").ToString().ToDecimal()) Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal()) - Dr("ImportePU") = importePuTemp If AplicaDescuentos Then + Dr("ImportePU") = importePuTemp + TmpDT.SUMD("Descuento", FiltroStr) Dr("Descuento") = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr) + Dr("ImporteTotal") = Dr("ImportePU").ToString().ToDecimal().RoundSQL(2) + Else + Dr("ImportePU") = importePuTemp End If If AplicaRedondeo Then @@ -30172,11 +30185,14 @@ Partial Class Ventas End If End If - Next Dim importeNC = (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR")) + If AplicaDescuentos Then + importeNC -= DtImpuestosLocal.SUMD("Descuento") + End If + If AplicaImpuestosLocales Then Importe = Importe + TotalImpuestosLocalesRecalculado End If From 6ebbe2e2374f711e4d74c36d82946be37f6a5d63 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 15 Jun 2023 18:40:06 -0700 Subject: [PATCH 02/37] --Correciones en validaciones de publico general --- Ventas/Ventas.aspx.vb | 24 ++++++++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 986cfb108..b3aca70b0 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2326,6 +2326,15 @@ Partial Class Ventas ViewState("HabilitaRemisionPublicoGeneral") = value End Set End Property + + Private Property TieneBloqueoPorAutorizacion As Integer + Get + Return IfNull(ViewState("TieneBloqueoPorAutorizacion"), "0", ViewState("TieneBloqueoPorAutorizacion")).ToString().ToEntero() + End Get + Set(value As Integer) + ViewState("TieneBloqueoPorAutorizacion") = value + End Set + End Property #End Region '#Region "AuxiliarConta" @@ -6977,6 +6986,11 @@ Partial Class Ventas HabilitaRemisionPublicoGeneral = 1 End If + 'SI TUVO HABILITADO EL BLOQUEO POR AUTORIZACION PERO DESPUES SE CAMBIO MANUAL A REMISION + If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso TieneBloqueoPorAutorizacion = 1 Then + HabilitaRemisionPublicoGeneral = 1 + End If + 'SI TIENE LA HABILITACION DE REMISION ACTIVA Y LA SUCURSAL NO LO PERMITE If Not DeshabilitarAutorizacion AndAlso HabilitaRemisionPublicoGeneral = 1 Then HabilitaRemisionPublicoGeneral = 0 @@ -6997,7 +7011,7 @@ Partial Class Ventas Private Function ValidaImportePublicoGeneral() As Boolean Dim retorno As Boolean = False - If DdlTipoComprobante.SelectedValue = "Rem" AndAlso HabilitaRemisionPublicoGeneral = 1 Then + If DdlTipoComprobante.SelectedValue = "Rem" AndAlso HabilitaRemisionPublicoGeneral = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(381).Trim() = CveCliente.ToString() Then Dim Total As Decimal = TxtTotal.Text.ToDecimal() If DdlMoneda.SelectedValue = "1" Then @@ -7209,6 +7223,8 @@ Partial Class Ventas Else DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización") DdlTipoComprobante.SelectedValue = "PA" + + TieneBloqueoPorAutorizacion = 1 End If TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString @@ -7271,6 +7287,8 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(531) <> "1" Then DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización") DdlTipoComprobante.SelectedValue = "PA" + + TieneBloqueoPorAutorizacion = 1 End If End If @@ -7398,6 +7416,8 @@ Partial Class Ventas UPCondicionesPago.Update() DdlTipoComprobante.SelectedValueExistInsert("PA", "Autorización") DdlTipoComprobante.SelectedValue = "PA" + TieneBloqueoPorAutorizacion = 1 + TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString 'si llegó por la opción de cotización no debe de restringuir If IfNull(Request("Op"), "").ToString() = "Cot" OrElse (DdlTipoComprobante.SelectedValue = "Cot" AndAlso CveVenta > 0) Then DdlTipoComprobante.SelectedValue = "Cot" @@ -7550,7 +7570,7 @@ Partial Class Ventas DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2")) End If End If - HabilitaRemisionPublicoGeneral = 0 + HabilitarRemisionesPublicoGeneral() End If From 4930efb938918350f7ef4a70472a9ca0db00bf93 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 15 Jun 2023 18:43:00 -0700 Subject: [PATCH 03/37] =?UTF-8?q?--=20tama=C3=B1o=20texto=20asistenca?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Nomina/Nomina.aspx | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index c6f01e8bc..6199599af 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -2240,19 +2240,19 @@ % Pago - + Hrs Dob. - + Hrs Trip. - + @@ -2266,7 +2266,7 @@ Obs. - + From d5e26f429ec2ba4c70affe9909c3cd52d074f726 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 16 Jun 2023 14:27:04 -0700 Subject: [PATCH 04/37] -- pub general 5000 --- Planeacion/CatSubProyectos.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Planeacion/CatSubProyectos.aspx b/Planeacion/CatSubProyectos.aspx index fb428da68..90295d72b 100644 --- a/Planeacion/CatSubProyectos.aspx +++ b/Planeacion/CatSubProyectos.aspx @@ -224,7 +224,7 @@
- +
From 4d63280ac467b7d29565a8eac401fe0288d302ce Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 16 Jun 2023 14:28:28 -0700 Subject: [PATCH 05/37] -- otros ingresos con moneda diferente --- Ventas/ClientesAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index ec9df92c6..2286cfb44 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1010,7 +1010,7 @@ Partial Class Ventas_ClientesAbonar End If tipoCambioPago = Pago.TCPago - If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal + If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal * Pago.TCPago 'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then ' EsAnticipoEspecial = True From 9bf9fbbd5a626eb210c18589017aba770da6e174 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 16 Jun 2023 20:46:16 -0700 Subject: [PATCH 06/37] Correciones y redondeos para aplicacion de NC por anticipos con descuentos --- Ventas/Ventas.aspx.vb | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b3aca70b0..dfed40166 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14287,6 +14287,7 @@ Partial Class Ventas If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then Dim DescuentosAnticipos As Decimal = row2.DataKey("Descuentos").ToDecimal ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / (row2.DataKey("TotalAnticipo").ToDecimal - DescuentosAnticipos) * row2.DataKey("SubTotalAnticipo").ToDecimal + ImporteAnticipo = ImporteAnticipo.RoundSQL(2) End If Dim Importe11MX As Decimal = ImporteAnticipo @@ -30167,6 +30168,11 @@ Partial Class Ventas Dim importePuTemp As Decimal = 0 importePuTemp = (Porcentaje * (TmpDT.SUMD("TotalImporte", FiltroStr) - TmpDT.SUMD("Descuento", FiltroStr))) + Dim DescuentoAplicado As Decimal = 0 + If AplicaDescuentos Then + DescuentoAplicado = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr) + End If + If Not AplicaImpuestosLocales Then importePuTemp = importePuTemp - TotalImpuestosLocalesVentaOriginal End If @@ -30186,8 +30192,8 @@ Partial Class Ventas Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal()) If AplicaDescuentos Then - Dr("ImportePU") = importePuTemp + TmpDT.SUMD("Descuento", FiltroStr) - Dr("Descuento") = Porcentaje * TmpDT.SUMD("Descuento", FiltroStr) + Dr("ImportePU") = importePuTemp + DescuentoAplicado + Dr("Descuento") = DescuentoAplicado Dr("ImporteTotal") = Dr("ImportePU").ToString().ToDecimal().RoundSQL(2) Else Dr("ImportePU") = importePuTemp From ea5ea34ad06007e579b0199901e24ee9693a888a Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 17 Jun 2023 12:27:10 -0700 Subject: [PATCH 07/37] RecepcionAlmacen.aspx.vb igualar a productivo --- Inventarios/RecepcionAlmacen.aspx.vb | 50 ++++++++++++++++------------ 1 file changed, 28 insertions(+), 22 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 3ce600fa2..cff3c95ad 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3,6 +3,7 @@ Option Explicit On Imports System.Data Imports System.IO +Imports System.Text Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms @@ -2299,36 +2300,41 @@ Partial Class Inventarios_RecepcionAlmacen 'VERIFICA EXISTENCIAS If TipoMovimiento > 1 Then - Dim MensajeExistencias As New StringBuilder - Dim ObjInventarios As New ClsInventarios - For Each gvr As GridViewRow In GvInv.Rows - Dim ExistenciaActual = DtInv.SUM("CantidadSurtidaPantalla", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero} ") + Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimeroValor("CveTipoAlmacen", "").ToEntero + Dim ValidaExistencia As Boolean = True + If CveTipoAlmacen.Contiene(6, 21) AndAlso UsuarioActual.CveEmpresa = 140 Then ValidaExistencia = False ' si es garantia no valida existencia + If ValidaExistencia Then + Dim MensajeExistencias As New StringBuilder + Dim ObjInventarios As New ClsInventarios + For Each gvr As GridViewRow In GvInv.Rows + Dim ExistenciaActual = DtInv.SUM("CantidadSurtidaPantalla", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero} ") - If TipoMovimiento = 2 Then - 'If gvr.DataKey("CantidadC").ToString.ToDecimal <> ExistenciaActual Then - ' Alert("La devolución debe de ser completa.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If + If TipoMovimiento = 2 Then + 'If gvr.DataKey("CantidadC").ToString.ToDecimal <> ExistenciaActual Then + ' Alert("La devolución debe de ser completa.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If - If DtExistencias.SUM("Existencia", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero}") < ExistenciaActual Then + If DtExistencias.SUM("Existencia", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero}") < ExistenciaActual Then + MensajeExistencias.Append($"Producto: {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}.
") + Continue For + End If + End If + + Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm")) + If Existencia < ExistenciaActual Then MensajeExistencias.Append($"Producto: {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}.
") Continue For End If + Next + ObjInventarios.Dispose() + + If MensajeExistencias.ToString <> "" Then + Alert($"Los siguientes productos no cuentan con la existencia suficiente para hacer la devolución.

{MensajeExistencias.ToString}", TipoMensaje.MsgAdvertencia) + Return False End If - Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:= (TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm")) - If Existencia < ExistenciaActual Then - MensajeExistencias.Append($"Producto: {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}.
") - Continue For - End If - Next - ObjInventarios.Dispose() - - If MensajeExistencias.ToString <> "" Then - Alert($"Los siguientes productos no cuentan con la existencia suficiente para hacer la devolución.

{MensajeExistencias.ToString}", TipoMensaje.MsgAdvertencia) - Return False End If - End If Return True From b873136dbd0b8f7d0b6ae6b1b1ae62a5dd0c5008 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 17 Jun 2023 12:41:56 -0700 Subject: [PATCH 08/37] =?UTF-8?q?--=20se=20quit=C3=B3=20llamado=20a=20cont?= =?UTF-8?q?paq,=20en=20guarda=20=20importaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 33 +++++++++++----------------- 1 file changed, 13 insertions(+), 20 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 3ce600fa2..ee356f67d 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3926,7 +3926,6 @@ Partial Class Inventarios_RecepcionAlmacen Dim ObjCompras As New ClsCompras(ObjInventario.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ObjOC As New ClsOC(ObjInventario.IniciaTransacSQL()) - Dim ObjContaAC As ClsContPAQi = Nothing 'ENTRADA ALMACÉN CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6") @@ -4075,9 +4074,6 @@ Partial Class Inventarios_RecepcionAlmacen ImporteAbono = SubTotalPartida ImporteAbonoME = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal) - SubTotalPartida End If - - - If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then ' si tiene valor es que hay complementaria If ImporteAbonoME > 0 Then @@ -4092,7 +4088,6 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - 'DOCUMENTOS RELACIONADOS AL MOVIMIENTO If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then @@ -4100,8 +4095,6 @@ Partial Class Inventarios_RecepcionAlmacen Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError) End If End If - - Else ErrorMovInv = True End If @@ -4114,16 +4107,16 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaAC.IniciaTransacSQL() - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then - MensajeError = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" - Else - ErrorMovInv = True - MensajeError = "Error al contabilizar los conceptos contables" - End If - End If + 'If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + ' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + ' ObjContaAC.IniciaTransacSQL() + ' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then + ' MensajeError = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" + ' Else + ' ErrorMovInv = True + ' MensajeError = "Error al contabilizar los conceptos contables" + ' End If + 'End If If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then @@ -4145,7 +4138,7 @@ Partial Class Inventarios_RecepcionAlmacen 'FINAL If Not ErrorMovInv Then ObjInventario.Commit() ' aplica los movimientos insertados - If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() + ' If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() RegistraScript("playsonidito('beep-07.wav')") Dim Msg As New StringBuilder @@ -4158,14 +4151,14 @@ Partial Class Inventarios_RecepcionAlmacen Limpia() Else ObjInventario.RollBack() - If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() + ' If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") GuardaLog(MensajeError) Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError) End If ObjInventario.Dispose() - If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() + ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() End Sub Private Sub Limpia() CveCompraSurtir = -1 From c35883fdc882b8bdf5ba3704cc93e3a14cde5dbe Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jun 2023 10:09:34 -0700 Subject: [PATCH 09/37] =?UTF-8?q?--=20cambios=20-=20ocultar=20columna=20de?= =?UTF-8?q?=20amortizac=C3=B3n=20-=20columna=20de=20descuentos,=20sale=20s?= =?UTF-8?q?olo=20si=20tiene=20datos=20-=20columna=20de=20ieps,=20se=20visu?= =?UTF-8?q?aliza=20si=20la=20empresa=20la=20deduce=20--=20repventasetalle,?= =?UTF-8?q?=20reacomodo=20a=20modal=20de=20perosnalizar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentaDetalle.aspx | 36 ++++------- Ventas/RepVentaDetalle.aspx.vb | 16 ++--- Ventas/RepVentas.aspx | 4 +- Ventas/RepVentas.aspx.vb | 106 ++++++++------------------------- 4 files changed, 44 insertions(+), 118 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 670edb5c3..91ec23517 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -379,7 +379,7 @@ - + @@ -580,8 +580,7 @@ - - + @@ -592,8 +591,7 @@ - - + @@ -605,8 +603,7 @@ - - + @@ -618,8 +615,7 @@ - - + @@ -630,8 +626,7 @@ - - + @@ -642,8 +637,7 @@ - - + @@ -654,8 +648,7 @@ - - + @@ -665,23 +658,16 @@ - - - + + - - + - - - - -
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 5eb5470d5..188b6390e 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -56,7 +56,6 @@ Partial Class RepVentaDetalle End Set End Property - Private Property TipoCliente As Integer Get If ViewState("TipoCliente") Is Nothing Then @@ -64,16 +63,12 @@ Partial Class RepVentaDetalle Else Return ViewState("TipoCliente").ToString.ToEntero End If - End Get - Set(value As Integer) ViewState("TipoCliente") = value End Set End Property - - Private Property TCEspecifico As Decimal Get Return ViewState("TCEspecifico").ToString.ToDecimal @@ -110,6 +105,7 @@ Partial Class RepVentaDetalle Personalizo = 0 CargaCombos() InicializaValores() + ConfiguraEmpresa() CargaDatos() If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then @@ -370,7 +366,6 @@ Partial Class RepVentaDetalle #Region "CONSULTAR" Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() - ConfiguraEmpresa() UPDatos.Update() End Sub Private Sub CargaDatos() @@ -423,6 +418,7 @@ Partial Class RepVentaDetalle End If ObjVentas.Dispose() + If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io Agrupador = DdlGrupo.SelectedItem.Text GvDatos.DataBind() @@ -451,12 +447,12 @@ Partial Class RepVentaDetalle End Function Private Sub ConfiguraEmpresa() - 'Dim ObjEmpresa As New ClsEmpresas() - 'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then + If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False - 'End If - 'ObjEmpresa.Dispose() + + ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS + End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index b9eee6313..4335aa294 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -356,12 +356,12 @@ - + - + diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 5fd05be8a..0ae957414 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -78,8 +78,9 @@ Partial Class Ventas_RepVentas TipoCambio = 1 TCEspecifico = -1 CargaCombos() - - 'MODALIDADES + ConfiguraEmpresa() + + 'MODALIDADES If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then Opcion = Request("Op").ToString Else @@ -155,6 +156,7 @@ Partial Class Ventas_RepVentas Private Sub ConfiguraEmpresa() ' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False + ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS End Sub Private Sub CargaCombos() @@ -210,9 +212,9 @@ Partial Class Ventas_RepVentas #End Region #Region " CARGA DATOS " - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click - CargaDatos() - ConfiguraEmpresa() + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + + CargaDatos() Personaliza() UPDatos.Update() 'XmlConf(UsuarioActual.CveUsuario, 9) @@ -252,6 +254,8 @@ Partial Class Ventas_RepVentas GvDatos.DataSource = Nothing End If + If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io + Agrupador = DdlGrupo.SelectedItem.Text CveProyecto = DdlProyecto.SelectedValue.ToEntero ObjVentas.Dispose() @@ -474,82 +478,22 @@ Partial Class Ventas_RepVentas Personaliza() End Sub - Private Sub Personaliza() - - If ChkSubTotal2.Checked Then - GvDatos.Columns(5).Visible = True - Else - GvDatos.Columns(5).Visible = False - End If - - If ChkIEPS.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkRetIVA.Checked Then - GvDatos.Columns(8).Visible = True - Else - GvDatos.Columns(8).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkImpLoc.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkMinSub.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkAVGSub.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If - - If ChkMaxSub.Checked Then - GvDatos.Columns(14).Visible = True - Else - GvDatos.Columns(14).Visible = False - End If - - If ChkMinTot.Checked Then - GvDatos.Columns(17).Visible = True - Else - GvDatos.Columns(17).Visible = False - End If - - If ChkAvgTot.Checked Then - GvDatos.Columns(16).Visible = True - Else - GvDatos.Columns(16).Visible = False - End If - - If ChkMaxTot.Checked Then - GvDatos.Columns(15).Visible = True - Else - GvDatos.Columns(15).Visible = False - End If - - If CheckRefacturado.Checked Then - GvDatos.Columns(18).Visible = True - Else - GvDatos.Columns(18).Visible = False - End If - - - + Private Sub Personaliza() + + GvDatos.Columns(5).Visible = ChkSubTotal2.Checked + GvDatos.Columns(7).Visible = ChkIEPS.Checked + GvDatos.Columns(8).Visible = ChkRetIVA.Checked + GvDatos.Columns(9).Visible = ChkRetISR.Checked + GvDatos.Columns(10).Visible = ChkImpLoc.Checked + GvDatos.Columns(12).Visible = ChkMinSub.Checked + GvDatos.Columns(13).Visible = ChkAVGSub.Checked + GvDatos.Columns(14).Visible = ChkMaxSub.Checked + GvDatos.Columns(15).Visible = ChkMaxTot.Checked + GvDatos.Columns(16).Visible = ChkAvgTot.Checked + GvDatos.Columns(17).Visible = ChkMinTot.Checked + GvDatos.Columns(18).Visible = CheckRefacturado.Checked + + UPDatos.Update() End Sub #End Region From 06fa4ff05573d9e9b776e493a822ff853aeab325 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jun 2023 10:29:34 -0700 Subject: [PATCH 10/37] =?UTF-8?q?--=20mostrar=20el=20folio=20de=20la=20p?= =?UTF-8?q?=C3=B3liza?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/ContabilizacionCompras.aspx | 2 +- Contabilidad/ContabilizacionCompras.aspx.cs | 1 + Contabilidad/ContabilizacionVentas.aspx | 2 +- Contabilidad/ContabilizacionVentas.aspx.cs | 11 ++++++++++- 4 files changed, 13 insertions(+), 3 deletions(-) diff --git a/Contabilidad/ContabilizacionCompras.aspx b/Contabilidad/ContabilizacionCompras.aspx index 9f2eaf940..38d109764 100644 --- a/Contabilidad/ContabilizacionCompras.aspx +++ b/Contabilidad/ContabilizacionCompras.aspx @@ -191,7 +191,7 @@ - + diff --git a/Contabilidad/ContabilizacionCompras.aspx.cs b/Contabilidad/ContabilizacionCompras.aspx.cs index aed42c95a..1217aa139 100644 --- a/Contabilidad/ContabilizacionCompras.aspx.cs +++ b/Contabilidad/ContabilizacionCompras.aspx.cs @@ -144,6 +144,7 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas if (UsuarioActual.Empresa.TipoContabilidad == 1) // conta SIG { e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; + e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}"; e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; } else diff --git a/Contabilidad/ContabilizacionVentas.aspx b/Contabilidad/ContabilizacionVentas.aspx index 3bd4788a6..cb4705728 100644 --- a/Contabilidad/ContabilizacionVentas.aspx +++ b/Contabilidad/ContabilizacionVentas.aspx @@ -158,7 +158,7 @@ - + diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs index 42f262ef1..0a7d03748 100644 --- a/Contabilidad/ContabilizacionVentas.aspx.cs +++ b/Contabilidad/ContabilizacionVentas.aspx.cs @@ -129,7 +129,16 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas e.Row.FCHyperLink("HplEdicion").Visible = true; } - e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; + if (UsuarioActual.Empresa.TipoContabilidad == 1) + { + e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("FolioPoliza").ToEntero() > 0; + e.Row.FCHyperLink("HLPoliza").Text = $"Póliza: {e.Row.DBCampo("FolioPoliza")}" ; + e.Row.FCHyperLink("HLPoliza").NavigateUrl = $"/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}"; + } + else + { + e.Row.FCHyperLink("HLPoliza").Visible = TienePermisoVerPoliza & e.Row.DBCampo("IdPoliza").ToEntero() > 0; + } contP.Dispose(); GvD.DataBind(); From adbd4bb959b24d5fbebd184f0274a1b43eb92240 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 19 Jun 2023 11:07:35 -0700 Subject: [PATCH 11/37] =?UTF-8?q?--=20correcci=C3=B3n=20del=20cambio=20ant?= =?UTF-8?q?erior?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepVentaDetalle.aspx | 4 +- Ventas/RepVentaDetalle.aspx.vb | 335 +++------------------------------ 2 files changed, 31 insertions(+), 308 deletions(-) diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 91ec23517..c6a069f88 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -582,13 +582,13 @@ - + - + diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 188b6390e..4e097c201 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -114,8 +114,6 @@ Partial Class RepVentaDetalle DVServicioDomicilio.Visible = True End If - - End If End Sub @@ -452,6 +450,7 @@ Partial Class RepVentaDetalle If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS + GvDatos.Columns(9).Visible = ChkIEPS.Checked End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -482,24 +481,6 @@ Partial Class RepVentaDetalle e.Row.FCLiteral("LtlFacturaCotizacion").Text = "" & e.Row.DBCampo("FolioVenta") & "" End If - 'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(10).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(11).HorizontalAlign = HorizontalAlign.Right - 'e.Row.Cells(12).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(13).HorizontalAlign = HorizontalAlign.Left - 'e.Row.Cells(14).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(15).HorizontalAlign = HorizontalAlign.Center - 'e.Row.Cells(20).HorizontalAlign = HorizontalAlign.Left - If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "-" If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "-" @@ -550,178 +531,38 @@ Partial Class RepVentaDetalle Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkFolio.Checked Then - GvDatos.Columns(1).Visible = True - Else - GvDatos.Columns(1).Visible = False - End If - - If ChkFecha.Checked Then - GvDatos.Columns(2).Visible = True - - Else - GvDatos.Columns(2).Visible = False - End If - - If ChkCliente.Checked Then - GvDatos.Columns(3).Visible = True - Else - GvDatos.Columns(3).Visible = False - End If - - If ChkSubTotal.Checked Then - GvDatos.Columns(4).Visible = True - Else - GvDatos.Columns(4).Visible = False - End If - - If ChkDescuento.Checked Then - GvDatos.Columns(5).Visible = True - Else - GvDatos.Columns(5).Visible = False - End If - - If ChlMotivoDescuento.Checked Then - GvDatos.Columns(6).Visible = True - Else - GvDatos.Columns(6).Visible = False - End If - - If ChkAmortizacion.Checked Then - GvDatos.Columns(7).Visible = True - Else - GvDatos.Columns(7).Visible = False - End If - - If ChkIVA.Checked Then - GvDatos.Columns(8).Visible = True - Else - GvDatos.Columns(8).Visible = False - End If - - If ChkIEPS.Checked Then - GvDatos.Columns(9).Visible = True - Else - GvDatos.Columns(9).Visible = False - End If - - If ChkRetIVA.Checked Then - GvDatos.Columns(10).Visible = True - Else - GvDatos.Columns(10).Visible = False - End If - - If ChkRetISR.Checked Then - GvDatos.Columns(11).Visible = True - Else - GvDatos.Columns(11).Visible = False - End If - - If ChkTotalImpuestos.Checked Then - GvDatos.Columns(12).Visible = True - Else - GvDatos.Columns(12).Visible = False - End If - - If ChkTotal.Checked Then - GvDatos.Columns(13).Visible = True - Else - GvDatos.Columns(13).Visible = False - End If + GvDatos.Columns(1).Visible = ChkFolio.Checked + GvDatos.Columns(2).Visible = ChkFecha.Checked + GvDatos.Columns(3).Visible = ChkCliente.Checked + GvDatos.Columns(4).Visible = ChkSubTotal.Checked + GvDatos.Columns(5).Visible = ChkDescuento.Checked + GvDatos.Columns(6).Visible = ChlMotivoDescuento.Checked + GvDatos.Columns(7).Visible = ChkAmortizacion.Checked + GvDatos.Columns(8).Visible = ChkIVA.Checked + GvDatos.Columns(9).Visible = ChkIEPS.Checked + GvDatos.Columns(10).Visible = ChkRetIVA.Checked + GvDatos.Columns(11).Visible = ChkRetISR.Checked + GvDatos.Columns(12).Visible = ChkTotalImpuestos.Checked + GvDatos.Columns(13).Visible = ChkTotal.Checked GvDatos.Columns(14).Visible = ChkMoneda.Checked - - If ChkSucursal.Checked Then - GvDatos.Columns(15).Visible = True - Else - GvDatos.Columns(15).Visible = False - End If - - If ChkSucursalEjecucion.Checked Then - GvDatos.Columns(16).Visible = True - Else - GvDatos.Columns(16).Visible = False - End If - - If ChkCodigo.Checked Then - GvDatos.Columns(17).Visible = True - Else - GvDatos.Columns(17).Visible = False - End If - - If ChkSucursalCliente.Checked Then - GvDatos.Columns(18).Visible = True - Else - GvDatos.Columns(18).Visible = False - End If - - If ChkSucursalCobranza.Checked Then - GvDatos.Columns(19).Visible = True - Else - GvDatos.Columns(19).Visible = False - End If - - If ChkSucursalEjecucion.Checked Then - GvDatos.Columns(20).Visible = True - Else - GvDatos.Columns(20).Visible = False - End If - - If ChkVendedor.Checked Then - GvDatos.Columns(21).Visible = True - Else - GvDatos.Columns(21).Visible = False - End If - - If ChkEstatusFactura.Checked Then - GvDatos.Columns(22).Visible = True - Else - GvDatos.Columns(22).Visible = False - End If - - If ChkMotivoCancelacion.Checked Then - GvDatos.Columns(23).Visible = True - Else - GvDatos.Columns(23).Visible = False - End If - - If ChkSeTimbro.Checked Then - GvDatos.Columns(24).Visible = True - Else - GvDatos.Columns(24).Visible = False - End If - - If ChkSeEnvioMail.Checked Then - GvDatos.Columns(25).Visible = True - Else - GvDatos.Columns(25).Visible = False - End If - - If ChkCuentaContable.Checked Then - GvDatos.Columns(26).Visible = True - Else - GvDatos.Columns(26).Visible = False - End If - - If ChkUsuario.Checked Then - GvDatos.Columns(27).Visible = True - Else - GvDatos.Columns(27).Visible = False - End If - - If ChkObservaciones.Checked Then - GvDatos.Columns(28).Visible = True - Else - GvDatos.Columns(28).Visible = False - End If - + GvDatos.Columns(15).Visible = ChkSucursal.Checked + GvDatos.Columns(16).Visible = ChkSucursalEjecucion.Checked + GvDatos.Columns(17).Visible = ChkCodigo.Checked + GvDatos.Columns(18).Visible = ChkSucursalCliente.Checked + GvDatos.Columns(19).Visible = ChkSucursalCobranza.Checked + GvDatos.Columns(20).Visible = ChkSucursalEjecucion.Checked + GvDatos.Columns(21).Visible = ChkVendedor.Checked + GvDatos.Columns(22).Visible = ChkEstatusFactura.Checked + GvDatos.Columns(23).Visible = ChkMotivoCancelacion.Checked + GvDatos.Columns(24).Visible = ChkSeTimbro.Checked + GvDatos.Columns(25).Visible = ChkSeEnvioMail.Checked + GvDatos.Columns(26).Visible = ChkCuentaContable.Checked + GvDatos.Columns(27).Visible = ChkUsuario.Checked + GvDatos.Columns(28).Visible = ChkObservaciones.Checked GvDatos.Columns(29).Visible = ChkFolioFiscal.Checked - GvDatos.Columns(30).Visible = ChkMailCliente.Checked - - GvDatos.Columns(31).Visible = True = ChkEstatusFacturacion.Checked - + GvDatos.Columns(31).Visible = ChkEstatusFacturacion.Checked GvDatos.Columns(32).Visible = ChkFolioFacturacion.Checked - GvDatos.Columns(33).Visible = ChkSaldo.Checked Personalizo = 1 @@ -966,124 +807,6 @@ Partial Class RepVentaDetalle Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte() Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario) - 'Dim ObjVentas As New ClsVentas - 'Dim Vta As Modelos.Factura = Nothing - - 'Dim TmpDTImpuestos = New DataTable - 'TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) - 'TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) - 'TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) - - 'If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - ' Dim dtVentas As DataTable = ObjVentas.DtResultados - - ' ' se rellenan los campos de la factura - ' Vta = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, Server.MapPath("/")) - - ' Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString - ' 'se rellena la sucursal - ' Vta.Cliente.Sucursal = New Modelos.ClienteModel(dtVentas(0)("CveCliente").ToString.ToEntero, UsuarioActual.CveEmpresa) - ' Vta.Cliente = New Modelos.ClienteModel - ' Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString - ' Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString - ' Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString - ' Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString - ' Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString - ' Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString - ' Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString - ' Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString - ' Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString - ' Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString - ' Vta.AtencionA = dtVentas(0)("AtencionA").ToString - ' Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString - ' Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString - ' Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString - ' Vta.Cliente.Mail = dtVentas(0)("Mail").ToString - ' Vta.RefDocto = dtVentas(0)("Ref").ToString - ' Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero - - - ' Vta.ClienteSucursal = New Modelos.SucursalModel - ' Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString - ' Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString - ' Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString - ' Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString - ' Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString - ' Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString - ' Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString - ' Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString - ' Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString - ' Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString - ' Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString - ' Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString - - ' Vta.EnviarA = New Modelos.EnviarAModel - ' Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero - ' Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString - ' Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString - ' Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString - ' Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString - ' Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString - - ' Dim DR As DataRow = TmpDTImpuestos.NewRow() - ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then - ' If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("IVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR) - - ' 'solo para eclipse, que muesre un subtotal debajo de IVA - ' If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 1000 : TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' End If - - ' If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra - ' Vta.DtDetalle = ObjVentas.DtResultados - ' End If - - ' If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then - ' If UsuarioActual.CveEmpresa.Contiene(1, 5, 15, 17, 72, 66, 79, 81, 109, 110, 111, 76) Then - ' Dim dtImpuesto As DataTable = ObjVentas.DtResultados - ' If dtImpuesto.Rows.Count > 0 Then - ' For Each Row As DataRow In dtImpuesto.Rows - ' Dim Orden = 80 - ' If Row("Importe").ToString.ToDouble <> 0 Then - ' DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString - ' DR("Importe") = Row("Importe").ToString.ToDouble - ' DR("Orden") = Orden - ' TmpDTImpuestos.Rows.Add(DR) - ' DR = TmpDTImpuestos.NewRow() - ' Orden = Orden + 1 - ' End If - ' Next - ' End If - ' Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC") - ' Else - ' Vta.DtDeduccion = ObjVentas.DtResultados - ' End If - ' End If - - ' If ObjVentas.GetVentasFirmas(CveVenta) Then - ' Vta.DtFirmas = ObjVentas.DtResultados - ' End If - 'End If - 'ObjVentas.Dispose() - - 'If Not IsNothing(Vta) Then - ' PdfFactura(Vta) - ' Vta = Nothing - 'End If End Function From a45cd102c125791680881c7858ba10d67e74d178 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 19 Jun 2023 11:23:50 -0700 Subject: [PATCH 12/37] Formato remision E119 --- Empresas/119/Formatos/Remision.rdlc | 38 +++++++++++++++++++++++++---- 1 file changed, 33 insertions(+), 5 deletions(-) diff --git a/Empresas/119/Formatos/Remision.rdlc b/Empresas/119/Formatos/Remision.rdlc index 3294ad6ef..20118437f 100644 --- a/Empresas/119/Formatos/Remision.rdlc +++ b/Empresas/119/Formatos/Remision.rdlc @@ -685,11 +685,39 @@ Right + + + + Moneda: + + + + + + + + =Parameters!MonedaAbreviatura.Value + + + + + Textbox4 0.04117in 5.62784in - 0.99993in + 1.12493in 2.66068in 2 + + + + + Reporte Personal DIM + + + + +
  • + Generar Excel +
    • +
  • + Descarga Archivo +
    • +     + + + + +
    +
    +
    + + +
    +
    +
    +
    + + +
    + + +
    + + + +
    +
    +
    +
    + +
    +     +     + + + + + + +
    +
    + + + + + + + + + + + + + +
    +
    + + + + + + + + + + + +     + + + + diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb new file mode 100644 index 000000000..df4b99ab2 --- /dev/null +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -0,0 +1,149 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Drawing +Imports System.IO +Imports Extensiones +Imports GemBox.Spreadsheet +Imports Microsoft.Reporting.WebForms + +Partial Class Nomina_RepPersonalDIM + Inherits ClsPaginas + + Public Property Dt_Datos As DataTable + Get + If ViewState("Dt_Datos") Is Nothing Then + ViewState("Dt_Datos") = New DataTable + End If + Return DirectCast(ViewState("Dt_Datos"), DataTable) + End Get + Set(value As DataTable) + ViewState("Dt_Datos") = value + End Set + + End Property + + Protected Sub Nomina_RepPersonalDIM(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + CargaEjercicios() + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) + + End If + End Sub + + + Private Sub CargaEjercicios() + 'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ClsConta As New ClsContabilidad + If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then + DdlEjercicio.DataSource = ClsConta.DtResultados + Else + DdlEjercicio.DataSource = Nothing + End If + ClsConta.Dispose() + DdlEjercicio.DataBind() + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + + If DdlEjercicio.Items.Count = 0 Then + DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) + End If + + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub + + + Private Sub CargaDatos() + + Dt_Datos = New DataTable + LnkDescargaArchivo.Visible = False + LnkExportar.Visible = False + + Dim ObjNom As New ClsNominas + + + If ObjNom.GetRepPersonalDIM(Ejercicio:=DdlEjercicio.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjNom.DtResultados + Dt_Datos = ObjNom.DtResultados + + If Dt_Datos.Rows.Count > 0 Then + LnkDescargaArchivo.Visible = True + LnkExportar.Visible = True + End If + + + Else + GvDatos.DataSource = Nothing + End If + + ObjNom.Dispose() + + GvDatos.DataBind() + + + + End Sub + + +#Region "DESCARGA EXCEL" + + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + Imprimir("Excel") + End Sub + + Private Sub Imprimir(Optional reporte As String = "PDF") + GvDatos.ExportToExcelGembox("RepPersonalDIM", UsuarioActual, "Reporte Personal ", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") + + End Sub + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + 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 contenido As String = 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) + + ' 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 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 + Next + + sb.AppendLine() ' Agrega un salto de línea al final de cada fila + Next + + Return sb.ToString() + End Function + +#End Region + + + + + +End Class + From fd5962a6e740f23e94637527cd98e6033a8d38e2 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Tue, 20 Jun 2023 10:16:38 -0700 Subject: [PATCH 20/37] 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 21/37] 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 22/37] 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 23/37] 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 70321b772928489bb67ea202e2436c635d55662b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 20 Jun 2023 16:23:06 -0700 Subject: [PATCH 24/37] -- mejora visual --- Bancos/RepProgramarRecursos.aspx | 29 +++++++++++++++++++---------- 1 file changed, 19 insertions(+), 10 deletions(-) diff --git a/Bancos/RepProgramarRecursos.aspx b/Bancos/RepProgramarRecursos.aspx index c8073cca1..909bba2e7 100644 --- a/Bancos/RepProgramarRecursos.aspx +++ b/Bancos/RepProgramarRecursos.aspx @@ -3,7 +3,14 @@ <%@ Import Namespace="Extensiones" %> - + + + + + + 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 + + + + Comparativo compras + + + + + + +
  • + Excel +
    • +     + + + +     +     + + + + + +
    +
    +
    +
    + +
    + + + + + +
    + +
    +
    + + + + + + + + +
    +
    + +
    + <%----%> +
    + + + + + + + + +
    +
    +
    +
    +
    + + +
    +
    + +
    +     +     + + +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + +
    +
    +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"> +
    +
    +
    +
    +
    + + + + + + + + + + + <%-- + + + + --%> + + + + + + + + + + + <%-- + + + + --%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + +
    +     +     +     + + + diff --git a/SAT/SolicitudesRecibidasSAT.aspx.vb b/SAT/SolicitudesRecibidasSAT.aspx.vb new file mode 100644 index 000000000..8c8e6834b --- /dev/null +++ b/SAT/SolicitudesRecibidasSAT.aspx.vb @@ -0,0 +1,222 @@ +Imports Extensiones + +Partial Class SAT_SolicitudesRecibidasSAT + Inherits ClsPaginas + + Public Property clasegrid As String + Get + + If ViewState("clasegrid") Is Nothing Then + Return "" + Else + Return ViewState("clasegrid").ToString() + End If + End Get + Set(ByVal value As String) + ViewState("clasegrid") = value + End Set + End Property + + Public Property fechaInicio As String + Get + + If ViewState("fechaInicio") Is Nothing Then + Return "" + Else + Return ViewState("fechaInicio").ToString() + End If + End Get + Set(ByVal value As String) + ViewState("fechaInicio") = value + End Set + End Property + + Public Property fechaFin As String + Get + + If ViewState("fechaFin") Is Nothing Then + Return "" + Else + Return ViewState("fechaFin").ToString() + End If + End Get + Set(ByVal value As String) + ViewState("fechaFin") = value + End Set + End Property + + Public Property TipoDescarga As Integer + Get + + If ViewState("TipoDescarga") Is Nothing Then + Return 0 + Else + Return ViewState("TipoDescarga").ToString().ToEntero() + End If + End Get + Set(ByVal value As Integer) + ViewState("TipoDescarga") = CInt(value) + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + TxtRpdFechaInicio.Text = String.Format("01/{0:MM/yyyy}", DateTime.Now.AddMonths(-1)) + TxtRpdFechaFin.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now.AddMonths(-1).LastDayOfMonth()) + End If + + End Sub + + + Protected Sub LnkDownloadExcel_Click(sender As Object, e As EventArgs) + If TipoDescarga = 1 Then + GvResumen.ExportToExcel2($"Resumen{DateTime.Now.ToString("yyyyMMddhhmmss")}") + End If + + If TipoDescarga = 2 Then + GvDatos.ExportToExcel2($"PorComprobante{DateTime.Now.ToString("yyyyMMddhhmmss")}") + End If + End Sub + Protected Sub GvResumen_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("Fecha") = "" Then + e.Row.Attributes.Add("class", "Totales") + End If + End If + End Sub + Protected Sub GvDatos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DataKey("UUID") = "Totales" Then + e.Row.Font.Bold = True + e.Row.Cells(1).Text = e.Row.DataKey("CountRegistrosSIG") + e.Row.Cells(2).Text = e.Row.DataKey("CountRegistrosSAT") + e.Row.Attributes.Add("class", "Totales") + End If + + If e.Row.DataKey("UUID").ToUpper() <> "TOTALES" Then + Dim SBMsgToolTip As StringBuilder = New StringBuilder() + + If e.Row.DataKey("DifImporte").ToDecimal() <> 0 OrElse (e.Row.DataKey("Abreviatura").ToUpper().Trim() <> e.Row.DataKey("CBTMoneda").ToUpper().Trim()) Then + e.Row.CssClass = "bg-yellow-casablanca bg-font-yellow-casablanca" + End If + + e.Row.Attributes.Add("data-html", "true") + e.Row.Attributes.Add("data-toggle", "tooltip") + e.Row.Attributes.Add("data-placement", "top") + + If e.Row.DataKey("Sistema").ToUpper() = "NO" OrElse e.Row.DataKey("CFDIData").ToUpper() = "NO" Then + + If e.Row.DataKey("Sistema").ToUpper() = "NO" Then + SBMsgToolTip.AppendLine("Comprobante no se encuentra en SIG.
    ") + End If + + If e.Row.DataKey("CFDIData").ToUpper() = "NO" Then + SBMsgToolTip.AppendLine("Comprobante no encontrado.
    ") + End If + Else + + If e.Row.DataKey("DifImporte").ToDecimal() <> 0 Then + SBMsgToolTip.AppendLine($" Diferencia importes {e.Row.DataKey("DifImporte").ToDecimal().ToString("###,###,###.00")}") + End If + + If e.Row.DataKey("Abreviatura").ToUpper().Trim() <> e.Row.DataKey("CBTMoneda").ToUpper().Trim() Then + SBMsgToolTip.AppendLine($"Diferencia en monedas.") + End If + End If + + If SBMsgToolTip.ToString().Length > 0 Then + e.Row.Attributes.Add("title", SBMsgToolTip.ToString()) + End If + + Dim LnkCFDIData As LinkButton = e.Row.FCLinkButton("LnkCFDIData") + + If (e.Row.DataKey("CFDIData").ToUpper() = "SI") Then + ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkCFDIData) + LnkCFDIData.CssClass = "Texto" + Else + LnkCFDIData.PostBackUrl = "#" + End If + End If + End If + + If e.Row.RowType = DataControlRowType.Header Then + e.Row.Cells(1).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(2).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(3).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(4).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(5).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(6).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(7).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(8).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(9).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(10).BackColor = System.Drawing.Color.FromName("#3598dc") + e.Row.Cells(11).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(12).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(13).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(14).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(15).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(16).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(17).BackColor = System.Drawing.Color.FromName("#C46B06") + e.Row.Cells(1).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(2).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(3).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(4).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(5).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(6).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(7).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(8).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(9).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(10).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(11).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(12).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(13).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(14).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(15).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(16).ForeColor = System.Drawing.Color.FromName("white") + e.Row.Cells(17).ForeColor = System.Drawing.Color.FromName("white") + End If + End Sub + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + DvDatos1.Visible = False + DvDatos2.Visible = False + DVResumen1.Visible = False + DVResumen2.Visible = False + + TipoDescarga = 0 + + LnkDownloadExcel.Visible = False + + If (DdlReporte.SelectedValue.ToEntero() = 1 OrElse DdlReporte.SelectedValue.ToEntero() = 3) Then + DVResumen1.Visible = True + DVResumen2.Visible = True + DvDatos1.Visible = False + DvDatos2.Visible = False + Else + DVResumen1.Visible = False + DVResumen2.Visible = False + DvDatos1.Visible = True + DvDatos2.Visible = True + End If + + Using ObjCompras As New ClsCompras + If ObjCompras.GetRepSATSolicitudesRecibidas(UsuarioActual.CveEmpresa, TxtRpdFechaInicio.Text.ToDate(), TxtRpdFechaFin.Text.ToDate(), DdlReporte.SelectedValue.ToEntero(), -1) Then + If DdlReporte.SelectedValue.ToEntero() = 1 OrElse DdlReporte.SelectedValue.ToEntero() = 3 Then + GvResumen.DataSource = ObjCompras.DtResultados + TipoDescarga = If(ObjCompras.DtResultados.Rows.Count > 0, 1, 0) + LnkDownloadExcel.Visible = True + ElseIf DdlReporte.SelectedValue.ToEntero() = 2 Then + GvDatos.DataSource = ObjCompras.DtResultados + TipoDescarga = If(ObjCompras.DtResultados.Rows.Count > 0, 2, 0) + LnkDownloadExcel.Visible = True + End If + End If + End Using + + GvResumen.DataBind() + GvDatos.DataBind() + UpDatos.Update() + UpAcciones.Update() + End Sub +End Class From a08bb81b0d95ae5c5c7ce189d508b1774f58a48e Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 21 Jun 2023 07:54:59 -0700 Subject: [PATCH 29/37] Ajustes excel Rep Personal DIM --- Nomina/RepPersonalDIM.aspx | 30 +++++++++++++++--------------- Nomina/RepPersonalDIM.aspx.vb | 31 ++++++++++++++++++++++--------- 2 files changed, 37 insertions(+), 24 deletions(-) diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx index 9260aaf08..182031f62 100644 --- a/Nomina/RepPersonalDIM.aspx +++ b/Nomina/RepPersonalDIM.aspx @@ -506,7 +506,7 @@ Impuesto
    - correspondiente(mes) + correspondiente
    (mes)     @@ -574,7 +574,7 @@     - Gratificación anual (Gravado) + Gratificación
    anual (Gravado)     @@ -593,7 +593,7 @@ Viáticos y
    gastos de
    - viaje (Gravado) + viaje
    (Gravado)     @@ -603,7 +603,7 @@ Viáticos y
    gastos de
    - viaje (Exento) + viaje
    (Exento)     @@ -855,7 +855,7 @@ Seguro de
    gastos médicos
    - mayores (Gravado) + mayores
    (Gravado)     @@ -865,7 +865,7 @@ Seguro de
    gastos médicos
    - mayores (Exento) + mayores
    (Exento)     @@ -963,7 +963,7 @@ Ayuda para
    artículos
    - escolares (Exento) + escolares
    (Exento)     @@ -973,7 +973,7 @@ Dotación o
    ayuda para
    - anteojos (Gravado) + anteojos
    (Gravado)     @@ -983,7 +983,7 @@ Dotación o
    ayuda para
    - anteojos (Exento) + anteojos
    (Exento)     @@ -992,7 +992,7 @@ Ayuda para
    - transporte (Gravado) + transporte
    (Gravado)     @@ -1001,7 +1001,7 @@ Ayuda par
    - a transporte (Exento) + a transporte
    (Exento)     @@ -1010,7 +1010,7 @@ Cuotas sindicales
    - pagadas patron(Gravado) + pagadas patron
    (Gravado)     @@ -1019,7 +1019,7 @@ Cuotas sindicales
    - pagadas patron(Exento) + pagadas patron
    (Exento)     @@ -1028,7 +1028,7 @@ Subsidios por
    - incapacidad (Gravado) + incapacidad
    (Gravado)     @@ -1037,7 +1037,7 @@ Subsidios por
    - incapacidad (Exento) + incapacidad
    (Exento)     diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index d264bf3ac..6d39fa266 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -295,8 +295,8 @@ Partial Class Nomina_RepPersonalDIM 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.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) @@ -330,21 +330,34 @@ Partial Class Nomina_RepPersonalDIM End If + worksheet.Columns(0).Width = 4000 + worksheet.Columns(1).Width = 4000 + worksheet.Columns(2).Width = 5500 + worksheet.Columns(3).Width = 10000 + worksheet.Columns(4).Width = 5000 + worksheet.Columns(5).Width = 5000 + worksheet.Columns(6).Width = 10000 + worksheet.Columns(7).Width = 5000 + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - If I > 0 Then + If I > 7 Then - If 1 = 1 Then - worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" - Else - worksheet.Columns(I + 1).Style.NumberFormat = "#,##" - End If + '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) + ' worksheet.Columns(I).AutoFit(1) + worksheet.Columns(I).Width = 4500 Catch ex As Exception End Try + + + End If Next From 240a0f55761461a4fdeca9e216209318edb4a567 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 21 Jun 2023 09:03:07 -0700 Subject: [PATCH 30/37] Rep persoanl DIM Ajustes excel --- Nomina/RepPersonalDIM.aspx.vb | 64 +++++++++++++++++++++++++---------- 1 file changed, 47 insertions(+), 17 deletions(-) diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb index 6d39fa266..16d37c606 100644 --- a/Nomina/RepPersonalDIM.aspx.vb +++ b/Nomina/RepPersonalDIM.aspx.vb @@ -100,6 +100,44 @@ Partial Class Nomina_RepPersonalDIM End Sub Private Sub Imprimir(Optional reporte As String = "PDF") + + + 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 = 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 = 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) + ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}") End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) @@ -301,6 +339,14 @@ Partial Class Nomina_RepPersonalDIM 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 + 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) + If i > 0 Then Try worksheet.Columns(i).AutoFit(1) @@ -340,24 +386,8 @@ Partial Class Nomina_RepPersonalDIM worksheet.Columns(7).Width = 5000 For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - If I > 7 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) - worksheet.Columns(I).Width = 4500 - Catch ex As Exception - End Try - - - - + worksheet.Columns(I).Width = 4500 End If Next From 5d6f2544f9e912727802a73416d9d165bf17ec9e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 21 Jun 2023 09:14:09 -0700 Subject: [PATCH 31/37] -- columnas de notas - cambio de inactivo a cerrado en los estatus --- Acumuladores/CatFoliosGarantia.aspx | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index 81b12f3db..3c9039c06 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -90,9 +90,9 @@
    - - + +
    @@ -172,6 +172,11 @@     + + + + + Date: Wed, 21 Jun 2023 12:57:43 -0700 Subject: [PATCH 32/37] =?UTF-8?q?-=20activar=20prorrateo=208.5=20en=20comp?= =?UTF-8?q?ra=20registrada=20--=20mover=20botnes=20de=20prorraeo=20al=20di?= =?UTF-8?q?v=20m=C3=A1s=20arriba?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 23 +++++++++-------------- Compras/Compras.aspx.vb | 13 ++++--------- 2 files changed, 13 insertions(+), 23 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 2df209c95..7644e534e 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -854,7 +854,7 @@
    -
    +
    @@ -915,6 +915,12 @@ +
    + + + +
    +
    @@ -976,13 +982,7 @@     - - - - - - - + @@ -1117,12 +1117,7 @@
    - -
    - - - -
    +
    diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 72bb963e5..0478b39c0 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1418,11 +1418,6 @@ Partial Class Compras_Compras End If - - If UsuarioActual.TienePermisoProceso(360) Then - BtnProrateoDeducible.Visible = True - End If - ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then ViewState("CveCompra") = Request("CveCompra") @@ -1462,9 +1457,9 @@ Partial Class Compras_Compras UpLnkPaqueteriaGuias.Update() End If - If Not CveCompra > 0 Then - LIContratos.Visible = True - End If + If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True + + If Not CveCompra > 0 Then LIContratos.Visible = True 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO LblSaldoFactura.Text = If(CveCompra > 0, CompraSaldo.FormatoNumero, TxtTotal.Text.FormatoNumero) @@ -10171,7 +10166,7 @@ Partial Class Compras_Compras CargaGvInv() CargaGVsAF() CargaGvPersonal() - Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.MsgInformacion) + Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.ToastInformacion) End Sub Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then From 79968bdce6a90810140085ccb2d5921f541f9694 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 22 Jun 2023 08:06:30 -0700 Subject: [PATCH 33/37] 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 34/37] 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 +