From ca0f706b97b64b983555b1e5a059fa04d3fcf155 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 23 Sep 2022 18:29:18 -0700 Subject: [PATCH 1/2] --- Nomina/Nomina.aspx.cs | 16 +++++++++------- vwd.webinfo | 4 ++++ 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index dc10e0fef..511d4f3c6 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -7226,14 +7226,15 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Cell(Fila, 19).Value = "SIG";//RetiroSIG libro.Cell(Fila, 20).Value = "SUA";//RetiroSUA libro.Cell(Fila, 21).Value = "SIG";//RetiroSIG + libro.Cell(Fila, 22).Value = "Motivo";//Motivo - libro.Range(3, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(3, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - libro.Range(4, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(4, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); - libro.Range(5, 1, 4, 21).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; - libro.Range(5, 1, 4, 21).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(3, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(3, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(4, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(4, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); + libro.Range(5, 1, 4, 22).Style.Font.FontColor = ClosedXML.Excel.XLColor.White; + libro.Range(5, 1, 4, 22).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189)); foreach (DataRow erow in DtSuaProcesado.Rows) { @@ -7259,6 +7260,7 @@ public partial class Nomina_Nomina2 : ClsPaginas libro.Cell(Fila, 19).Value = erow["GuarderiaSIG"].ToString().ToDecimal(); libro.Cell(Fila, 20).Value = erow["RetiroSUA"].ToString().ToDecimal(); libro.Cell(Fila, 21).Value = erow["RetiroSIG"].ToString().ToDecimal(); + libro.Cell(Fila, 22).Value = erow["Motivo"].ToString(); decimal VSUA = erow["SalarioSUA"].ToString().ToDecimal(); decimal VSIG = erow["SalarioSIG"].ToString().ToDecimal(); @@ -7294,7 +7296,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } libro.SheetView.Freeze(4, 1); - libro.Range(4, 20, Fila, 21).SetAutoFilter(true); + libro.Range(4, 1, Fila, 22).SetAutoFilter(true); libro.Range(5, 20, Fila, 21).SetDataType(ClosedXML.Excel.XLDataType.Number); //libro.Row(2).SetAutoFilter(); diff --git a/vwd.webinfo b/vwd.webinfo index 81c9ef656..1c5a6a070 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -560,6 +560,10 @@ + + + + From a9cd34d4d8e82c561053de207635c93d2487bbe3 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 26 Sep 2022 08:19:11 -0700 Subject: [PATCH 2/2] RepEstadoResultadosHorizontal Porcentajes --- Contabilidad2/RepAnexoCatalogoAnual.aspx | 20 +- Contabilidad2/RepAnexoCatalogoAnual.aspx.vb | 25 +- Contabilidad2/RepAnexoCatalogoCC.aspx | 14 + Contabilidad2/RepAnexoCatalogoCC.aspx.vb | 54 +- Contabilidad2/RepAnexoCatalogoMensual.aspx | 23 +- Contabilidad2/RepAnexoCatalogoMensual.aspx.vb | 48 +- .../RepEstadoResultadosHorizontal.aspx | 1301 +++++++++-------- .../RepEstadoResultadosHorizontal.aspx.vb | 628 +++++--- Empresas/32/Formatos/Factura.rdlc | 10 +- 9 files changed, 1265 insertions(+), 858 deletions(-) diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 8789e9f31..fc12ba75c 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -56,16 +56,16 @@ diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb index ef64e84a7..f88da1720 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb @@ -137,9 +137,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) - DdlPeriodo.SelectedValueExist(Periodo) - - CargaDatos() + DdlPeriodo.SelectedValueExist(Periodo) + + If CveCuenta > 0 Then + DdlCuentas.SelectedValueExist(CveCuenta) + CargaDatos() + End If End If End Sub @@ -158,9 +161,21 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual Else DdlEjercicio.DataSource = Nothing DdlEjercicio2.DataSource = Nothing + End If + + Dim strGlobal As String = "" + + If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") + If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString + DdlCuentas.DataSource = Conta.DtResultados End If + + Conta.Dispose() + DdlCuentas.DataBind() + DdlEjercicio.DataBind() DdlEjercicio2.DataBind() @@ -181,8 +196,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual Private Sub CargaDatos() - If CveCuenta <= -1 Then - Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia) + If Not DdlCuentas.SelectedValue.ToEntero > 0 Then + Alert("Debe de seleccionar una cuenta.") Exit Sub End If diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 0a34338fd..fce33e0af 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -88,6 +88,20 @@ + +
  • Cuenta: +
    • +
  • + + + + + + + +
    • + + diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index 55871e9f4..50a086700 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -106,10 +106,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString) DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) - DdlPeriodo.SelectedValueExist(Periodo) - - CargaDatos() - + DdlPeriodo.SelectedValueExist(Periodo) + + + If CveCuenta > 0 Then + DdlCuentas.SelectedValueExist(CveCuenta) + CargaDatos() + End If + + + End If End Sub @@ -125,18 +131,38 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC DdlEjercicio.DataSource = Conta.DtResultados Else DdlEjercicio.DataSource = Nothing + End If + + Dim strGlobal As String = "" + + If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") + If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString + DdlCuentas.DataSource = Conta.DtResultados End If + + Conta.Dispose() DdlEjercicio.DataBind() - DdlEjercicio.SelectedValueExist(Now.Year.ToString) - - 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - 'DdlSubProyecto.DataBind() - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - 'DdlSubProyecto.SelectedValue = "-1" - + DdlEjercicio.SelectedValueExist(Now.Year.ToString) + + DdlCuentas.DataBind() + + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + 'DdlSubProyecto.DataBind() + 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + 'DdlSubProyecto.SelectedValue = "-1" + + + + + End Sub + + + + #End Region @@ -147,6 +173,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC Private Sub CargaDatos() + + If Not DdlCuentas.SelectedValue.ToEntero > 0 Then + Alert("Debe de seleccionar una cuenta.") + Exit Sub + End If + DTHeaders = New DataTable DTDatos = New DataTable Dim Conta As New ClsContabilidad diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index dd41e2feb..b83546560 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -56,16 +56,17 @@
    +
    • Ejercicio: - +
    • - + - + @@ -83,7 +84,7 @@
    • SubProyecto: - +
    • Divisor: @@ -102,6 +103,20 @@
      • +
    • Cuenta: +
      • +
    • + + + + + + + +
      • + + + diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb index ed9732f15..ab5fb1a91 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb @@ -70,11 +70,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) DdlPeriodo.SelectedValueExist(Periodo) - DdlTri.SelectedValueExist(TRCU) - - - CargaDatos() - + DdlTri.SelectedValueExist(TRCU) + + If CveCuenta > 0 Then + DdlCuentas.SelectedValueExist(CveCuenta) + CargaDatos() + End If + + + + End If End Sub @@ -85,14 +90,28 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual End Sub Private Sub CargaCombos() + + Dim Conta As New ClsContabilidad If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then DdlEjercicio.DataSource = Conta.DtResultados Else DdlEjercicio.DataSource = Nothing + End If + + Dim strGlobal As String = "" + + If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") + If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString + DdlCuentas.DataSource = Conta.DtResultados End If + + Conta.Dispose() + DdlCuentas.DataBind() + DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(Now.Year.ToString) @@ -101,18 +120,27 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.SelectedValue = "-1" - End Sub + + + End Sub #End Region - - + + #Region " CARGA DATOS " Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click CargaDatos() End Sub - Private Sub CargaDatos() + Private Sub CargaDatos() + + + If Not DdlCuentas.SelectedValue.ToEntero > 0 Then + Alert("Debe de seleccionar una cuenta.") + Exit Sub + End If + Dim Conta As New ClsContabilidad - If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then + If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then GvMensual2.DataSource = Conta.DtResultados Else GvMensual2.DataSource = Nothing diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index b30462cd0..76e29e41b 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -66,21 +66,21 @@
        - +
        - +
        - -
        - + +
        +
        - -
        - + +
        + @@ -97,29 +97,29 @@
        -