From 95014d0b73cfc11bbca5bfc3c1a52ebabb0baa07 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jul 2024 18:27:16 -0700 Subject: [PATCH 1/8] =?UTF-8?q?--=20mejora=20visual=20para=20colores=20--?= =?UTF-8?q?=20limitar=20visibilidad=20de=20vendedores=20=20y=20t=C3=A9cnic?= =?UTF-8?q?os?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/CargaEventos.ashx | 2 +- OS/RepServiciosMedicos.aspx | 7 +++++-- OS/RepServiciosMedicos.aspx.vb | 12 ++++++++++-- 3 files changed, 16 insertions(+), 5 deletions(-) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 75b6ae9e5..8574dd9a6 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -58,7 +58,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Dim FechaF As Date = context.Request("end").ToDate Dim Cvecliente As Integer = -1 'DdlClienteSucursalCliente() Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal() - Dim CveVendedor As Integer = -1 + Dim CveVendedor As Integer = If(context.Request("CveVendedor") IsNot Nothing, context.Request("CveVendedor").ToEntero, -1) Dim CveEstatus As Integer = -1 Dim ObjOS As New ClsOS diff --git a/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx index 7659d6de4..e6698a695 100644 --- a/OS/RepServiciosMedicos.aspx +++ b/OS/RepServiciosMedicos.aspx @@ -151,7 +151,9 @@
- + + +
@@ -758,7 +760,8 @@ E: '<%= UsuarioActual.CveEmpresa %>', METODO: 'servicio_medicos', CveUsuarioPara: $('#DdlTecnico').val(), - CveSubProyecto: $('#DdlSubProyecto').val() + CveSubProyecto: $('#DdlSubProyecto').val(), + CveVendedor: $('#HdnCveVendedor').val() } }, eventDrop: eventDropped, diff --git a/OS/RepServiciosMedicos.aspx.vb b/OS/RepServiciosMedicos.aspx.vb index d6ba29431..13b6520e6 100644 --- a/OS/RepServiciosMedicos.aspx.vb +++ b/OS/RepServiciosMedicos.aspx.vb @@ -259,7 +259,9 @@ Partial Class OS_RepServiciosMedicos CargaUsuariosTecnicos() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta) LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text - ' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text + If UsuarioActual.CveVendedor > 0 Then + HdnCveVendedor.Value = UsuarioActual.CveVendedor.ToString + End If CargaTecnicos() ConsultaOrdenesServiciosNoAsignadas() CargaOrdenesServiciosNoAsignadas() @@ -273,7 +275,7 @@ Partial Class OS_RepServiciosMedicos Private Sub CargaUsuariosTecnicos() - If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub + ' If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub Dim DTTecnicosresultado As DataTable = Nothing DTTecnicos = New DataTable @@ -295,6 +297,8 @@ Partial Class OS_RepServiciosMedicos End If ObjOS.Dispose() + DTTecnicos = DTTecnicos.FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"}) + DdlTecnicoAsignar.DataSource = DTTecnicos DdlTecnicoAsignar.DataBind() DdlTecnicoAsignar.Visible = True @@ -345,6 +349,10 @@ Partial Class OS_RepServiciosMedicos DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) + If UsuarioActual.TienePermisoProceso(376) Then + DdlTecnico.Enabled = False + DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario) + End If End Sub Private Sub CargaTecnicosAsignar() From 641bc3b45b8a6b63e97282ded6f4be9495edd984 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Jul 2024 03:40:15 -0700 Subject: [PATCH 2/8] - mejora para el uso de Zona --- Contabilidad/RepAnexoCatalogo.aspx.vb | 4 +-- .../RepEstadoResultadosHorizontal.aspx.vb | 30 +++++-------------- 2 files changed, 10 insertions(+), 24 deletions(-) diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index ce41eaabc..d2d660bd2 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -118,7 +118,6 @@ Partial Class AC2_RepAnexoCatalogo End If End If - If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then DdlCuenta.SelectedValueExist(Request("CM").ToString) End If @@ -127,6 +126,7 @@ Partial Class AC2_RepAnexoCatalogo CveProyecto = Request("CveProyecto").ToString DdlProyecto.SelectedValueExist(CveProyecto) DdlProyecto_SelectedIndexChanged(Nothing, Nothing) + divProyecto.Visible = True End If If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then @@ -172,7 +172,7 @@ Partial Class AC2_RepAnexoCatalogo DdlCuentas.DataBind() - CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto, VisualizacionReporte:=1) End Sub diff --git a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb index 72712ad98..63bf9822c 100644 --- a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb @@ -2745,7 +2745,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.ControlStyle.Font.Size = 13 End If Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - 'setgraficaCC(e) + setgraficaProy(e) 'Dim CveProyecto As Integer = e.Row.DataKey("CveProyecto").ToEntero If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then @@ -2860,7 +2860,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If End Sub - Public Sub setgraficaProyCC(e As GridViewRowEventArgs) + Public Sub setgraficaProy(e As GridViewRowEventArgs) Dim lista As New List(Of Object) Dim colorindex As Integer = 0 For Each campo As String() In listaCampos @@ -2893,18 +2893,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH) ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH) - ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then - - ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) - + ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_CentroCosto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProyecto:=True) + ElseIf Tab.ActiveTabIndex = 4 AndAlso GvIngresosProyectoH.Rows.Count > 0 Then + ExportToExcelG(GvIngresosProyectoH, GvGastosProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por Proyecto", EsPorSubProyecto:=True) End If End Sub 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) - Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False) + Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProyecto As Boolean = False) Dim sw1 As New StringWriter() Dim htw1 As New HtmlTextWriter(sw1) @@ -3023,7 +3022,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then + If EsPorSubProyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) RangoSubProyecto.Merged = True RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text @@ -3042,9 +3041,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal worksheet.Rows(8).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(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - - - If Not EsPorSubProtyecto Then + If Not EsPorSubProyecto Then worksheet.Rows(8 + Gv1.Rows.Count + 2).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(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) Else @@ -3052,8 +3049,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) End If - - If i > 0 Then Try worksheet.Columns(i).AutoFit(1) @@ -3081,11 +3076,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Using End If - - - - - For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex If I > 0 Then @@ -3108,7 +3098,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) @@ -3117,9 +3106,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region - - - End Class From cf85a20406c466ab80b8ff0fdd0d7bad8dfb5770 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 25 Jul 2024 17:03:54 -0700 Subject: [PATCH 3/8] --- App_Code/ClsNominas.vb | 2 +- Nomina/Nomina.aspx | 475 ++++++++++++++++++++++++----------------- Nomina/Nomina.aspx.cs | 428 +++++++++++++++++++++++++++++++++++++ 3 files changed, 712 insertions(+), 193 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index aff44610d..767eee53e 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -673,7 +673,7 @@ Public Class ClsNominas ' End Try ' Return retorno 'End Function - Public Function GetDispersionnomina(CvePeriodo As Int32, CveEmpresa As Int32, CveSATBanco As Int32) As Boolean + Public Function GetDispersionNomina(CvePeriodo As Int32, CveEmpresa As Int32, CveSATBanco As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_Dispersionnomina", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index fa8c75001..f7fce04d7 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -149,13 +149,14 @@ padding-top: 2px; padding-bottom: 2px; } + #ModalConceptos table.table > tbody > tr > td, #ModalConceptos table.table > tbody > tr > th, #ModalConceptos table.table > thead > tr > td, #ModalConceptos table.table > thead > tr > th { font-size: 11px; padding-top: 2px; - padding-bottom: 2px; + padding-bottom: 2px; } .GvConceptos.table > tbody > tr.ConceptosTotales td { @@ -215,7 +216,7 @@ - +
  • Autorizar
    • @@ -288,6 +289,9 @@
  • Nómina tabular
    • +
  • + Nómina Personalizar +
  • Nómina Fiscal
    • @@ -305,7 +309,8 @@
  • Procesar archivo SUA EBA PDF -
    • <%-- + + <%--
  • CancelarTimbre
    • --%> @@ -1438,7 +1443,7 @@ - +     @@ -3826,8 +3831,8 @@ Cargar - - + + @@ -4929,7 +4934,7 @@ - +