From ed338b15bcb96b092414a28b23c8910cb9821cdb Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Sat, 27 Feb 2021 12:57:53 -0700 Subject: [PATCH] Cambios para mostar informacion dependiendo del tipo de contabilidad --- App_Code/ClsContabilidad.vb | 3 ++- Compras/Proveedores.aspx.vb | 4 ++-- Contabilidad2/CatCuentas.aspx.vb | 11 ++++++++++ Contabilidad2/RepAnexoCatalogo.aspx.vb | 5 +++++ Contabilidad2/RepBalanceGeneral.aspx.vb | 4 ++++ Contabilidad2/RepBalanzaComprobacion.aspx.vb | 5 +++++ Contabilidad2/RepEstadoResultados.aspx.vb | 4 ++++ .../RepMovimientosAuxiliaresCatalogo.aspx.vb | 5 +++++ RH/Personal.aspx.vb | 20 +++++++++++++++++++ Ventas/Clientes.aspx.vb | 19 +++++++++++++----- 10 files changed, 72 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 22cb58671..9707af1a5 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1604,7 +1604,7 @@ Public Class ClsContabilidad #End Region - Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean + Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1, Optional CvePersonal As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_CuentasConceptosGet") With SqlAdapter.SelectCommand.Parameters @@ -1614,6 +1614,7 @@ Public Class ClsContabilidad .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal End With Try SqlAdapter.Fill(Data) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index d0c99d4d9..25346b21c 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -852,11 +852,11 @@ Partial Class Compras_Proveedores DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais) TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad - If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 1 Then CargaCuentasConceptos() divCuentas.Visible = True divCuentasContp.Visible = False - Else + ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then divCuentas.Visible = False divCuentasContp.Visible = True End If diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb index 1f9f6f9d5..40341986f 100644 --- a/Contabilidad2/CatCuentas.aspx.vb +++ b/Contabilidad2/CatCuentas.aspx.vb @@ -303,6 +303,16 @@ Partial Class Contabilidad2_CatCuentas CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa) + If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, + DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then + ObjContaEmpresa.Dispose() + ObjConta.Dispose() + Exit Sub + End If + End If + Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") If UsuarioActual.Empresa.TipoContabilidad <> 1 Then @@ -341,6 +351,7 @@ Partial Class Contabilidad2_CatCuentas updatos.Update() Alert("La cuenta se guardo correctamente") + End If Else Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError) diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 62c309b16..680266bcf 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -73,6 +73,11 @@ Partial Class AC2_RepAnexoCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx") + End If + Dim ErrorParametros = True DtDatos = Nothing CargaTipoCuentas() diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb b/Contabilidad2/RepBalanceGeneral.aspx.vb index 6bd9126a9..c65a7af4f 100644 --- a/Contabilidad2/RepBalanceGeneral.aspx.vb +++ b/Contabilidad2/RepBalanceGeneral.aspx.vb @@ -166,6 +166,10 @@ Partial Class Contabilidad2_RepBalanceGeneral Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx") + End If + 'If UsuarioActual.Empresa.UsaAC Then ' TipoReporte = -1 'Else diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb index f02d4a6a7..525bea3b5 100644 --- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb @@ -57,6 +57,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx") + End If + Dim ErrorParametros = True ModoImpresion = False TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 04957a446..87b1df7e3 100644 --- a/Contabilidad2/RepEstadoResultados.aspx.vb +++ b/Contabilidad2/RepEstadoResultados.aspx.vb @@ -127,6 +127,10 @@ Partial Class Contabilidad2_RepEstadoResultados Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepEstadoResultados.aspx") + End If + 'tdTipoReporte.Visible = True TipoReporte = 1 diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index 77d5c0459..520d31421 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -96,6 +96,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Response.Redirect($"/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx") + End If + Dim ErrorParametros = True CargaTipoCuentas() diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index fcd911134..6353dd2ca 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -15,6 +15,7 @@ Partial Class RH_Personal Inherits ClsPaginas #Region "P R O P I E D A D E S" + Private Property DTCuentasBancos As DataTable Get Return CType(ViewState("DTCuentasBancos"), DataTable) @@ -1612,6 +1613,15 @@ Partial Class RH_Personal DdlAlmacenDestinoLiberarUniforme.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 19") DdlAlmacenDestinoLiberarUniforme.DataBind() + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + CargaCuentasConceptos() + divCuentas.Visible = True + divCuentasContp.Visible = False + ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then + divCuentas.Visible = False + divCuentasContp.Visible = True + End If + Else Alert("El Personal Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False @@ -1620,6 +1630,16 @@ Partial Class RH_Personal ObjPersonal.Dispose() End Sub + Private Sub CargaCuentasConceptos() + Dim ObjConta As New ClsContabilidad + If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then + GvCta.DataSource = ObjConta.DtResultados + End If + ObjConta.Dispose() + GvCta.DataBind() + UpCuentaConceptos.Update() + End Sub + Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click 'System.Threading.Thread.Sleep(3000) Dim ObjPersonal As New ClsRH() diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f61818a4b..f65900d88 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1716,13 +1716,22 @@ Partial Class Clientes End If CargaEventoBitacora() - If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + 'If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then + ' CargaCuentasConceptos() + ' divCuentas.Visible = True + ' divCuentasContp.Visible = False + 'Else + ' divCuentas.Visible = False + ' divCuentasContp.Visible = True + 'End If + + If UsuarioActual.Empresa.TipoContabilidad = 1 Then CargaCuentasConceptos() divCuentas.Visible = True - divCuentasContp.Visible = False - Else - divCuentas.Visible = False - divCuentasContp.Visible = True + divCuentasContp.Visible = False + ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then + divCuentas.Visible = False + divCuentasContp.Visible = True End If