From 1a30e207c056fc79025c3894714aaf6b4a8f4cba Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 11 May 2023 09:30:52 -0700 Subject: [PATCH] Rep situacion Fianciera SAT, Rep estado actividades Consolidado, Balance General Consolidado --- App_Code/ClsBancos.vb | 1 + App_Code/ClsContabilidad.vb | 6 +- App_Code/ClsEncuestas.vb | 1 + Contabilidad2/RepEstadoActividades.aspx | 36 ++++++++---- Contabilidad2/RepEstadoActividades.aspx.vb | 9 ++- Contabilidad2/RepSituacionFinanciera.aspx | 9 +++ Contabilidad2/RepSituacionFinanciera.aspx.vb | 2 +- Nomina/Nomina.aspx.cs | 2 +- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 43 ++++++++++++-- RH/Reclutamiento.aspx | 61 +++++++++++++------- Ventas/Ventas.aspx.vb | 2 +- 12 files changed, 129 insertions(+), 45 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 8b1f062b8..3ea032dad 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4926,6 +4926,7 @@ Public Class ClsBancos Dim Retorno As Boolean = False DataAdapter("PA_Banc_PagosNoBancarios") + SqlAdapter.SelectCommand.CommandTimeout = 0 With SqlAdapter.SelectCommand.Parameters .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 51106972c..85e7c1fb4 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3627,7 +3627,7 @@ Public Class ClsContabilidad - Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As String, TipoMovtos As Integer, Optional SAT As Integer = 0) As Boolean + Public Function GetSituacionFinanciera(FechaI As Date, FechaF As Date, CveEmpresa As Integer, CveSubProyecto As String, TipoMovtos As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean Dim Retorno = False 'SqlAdapter.SelectCommand.t @@ -3641,6 +3641,7 @@ Public Class ClsContabilidad .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@SAT", SqlDbType.Int).Value = SAT + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With SqlAdapter.SelectCommand.CommandTimeout = 0 @@ -3851,7 +3852,7 @@ Public Class ClsContabilidad End Function 'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean - Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean + Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0, Optional Opcion As Integer = 1) As Boolean Dim Retorno = False DataAdapter("PA_Conta_EstadoActividadesGet") @@ -3864,6 +3865,7 @@ Public Class ClsContabilidad .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@SAT", SqlDbType.Int).Value = SAT + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With SqlAdapter.SelectCommand.CommandTimeout = 0 diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb index 5aeff458a..fb9c893d5 100644 --- a/App_Code/ClsEncuestas.vb +++ b/App_Code/ClsEncuestas.vb @@ -568,6 +568,7 @@ Public Class ClsEncuestas .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Fecha", SqlDbType.Date).Value = Now .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEncuestaAplicada", SqlDbType.Int).Direction = ParameterDirection.Output End With Try diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx index 24eae304f..f65afe649 100644 --- a/Contabilidad2/RepEstadoActividades.aspx +++ b/Contabilidad2/RepEstadoActividades.aspx @@ -30,13 +30,14 @@
- -
+ +
- -
+ + +
@@ -53,25 +54,38 @@
- Proyecto: -
+ Proyecto: +
+ SubProyecto: -
+
-
  • Tipo: - + +
    + + Normal + Consolidado + +
    + + + +
    + -
    • - +
    + + +
    diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 6d7b33fa3..67463cddb 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -86,7 +86,8 @@ Partial Class AC_RepEstadoActividades ReporteComplementario = False Else ReporteComplementario = False - liTipoReporte.Visible = False + DivTipo1.Visible = False + DivTipo2.Visible = False LtTitulo.Text = "Estado de Resultados" End If @@ -136,7 +137,7 @@ Partial Class AC_RepEstadoActividades 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing @@ -331,6 +332,10 @@ Partial Class AC_RepEstadoActividades params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text)) ImprimirPDF("AC/Reportes/RepEstadoActividades.rdlc", lrds, params, "EstadoActividades", Formato) + + + ' UsuarioActual.Empresa.GrupoEmpresa + End Sub End Class diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index 525852a24..6233683c5 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -63,6 +63,15 @@
    + + +
    + + Normal + Consolidado + +
    +
    diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb b/Contabilidad2/RepSituacionFinanciera.aspx.vb index 477cbc9a4..459796aae 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb @@ -195,7 +195,7 @@ Partial Class AC2_SituacionFinanciera Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString - If ObjConta.GetSituacionFinanciera("01/01/1900".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, CveSubProyecto, TipoReporte) Then + If ObjConta.GetSituacionFinanciera("01/01/1900".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, CveSubProyecto, TipoReporte, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then DtDatos = ObjConta.DtResultados CargaGrids() diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index ed4d5bb5b..9f2c97e57 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -9293,7 +9293,7 @@ public partial class Nomina_Nomina2 : ClsPaginas DdlCuenta.Items.Clear(); DataTable DTCuentas = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta <> 1 AND UsaLayout = 'True' AND LEN(ConvenioPagoElectronico) > 0 "); DTCuentas.CaseSensitive = false; - DdlCuenta.DataSource = DTCuentas.FiltraParametros(" Banco IN('BANCOMER','BANORTE')"); + DdlCuenta.DataSource = DTCuentas.FiltraParametros(" Banco IN('BANCOMER','BANORTE','BBVA Bancomer','BBVA')"); DdlCuenta.DataBind(); DdlCuenta.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlCuenta.SelectedValueExist("-1"); diff --git a/RH/Personal.aspx b/RH/Personal.aspx index e32b4fe3c..9f87b141b 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -570,7 +570,7 @@ -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    +
    + + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> +
    @@ -1002,10 +1017,7 @@
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    + @@ -1075,16 +1087,19 @@
    + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> +
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    + @@ -1156,6 +1171,12 @@
    + + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info">
    @@ -1163,10 +1184,7 @@
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    + ').show(); } else { $('#<%= btnNext.ClientID %>').hide(); - } + } - } - } + } + } - - + \ No newline at end of file diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index de144aa72..6e78662b5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -10068,7 +10068,7 @@ Partial Class Ventas Try If AutoConta Then - If idCuentaContabilizacion > 0 Then + If idCuentaContabilizacion > 0 Or UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then If ObjContPaq IsNot Nothing Then ObjContPaq.Commit() Else