Cambios para mostar informacion dependiendo del tipo de contabilidad

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)

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

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)

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()

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

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

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
 

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()

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()

Ventas/Clientes.aspx.vb

@@ -1716,11 +1716,20 @@ 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
+                ElseIf UsuarioActual.Empresa.TipoContabilidad = 2 Then
                     divCuentas.Visible = False
                     divCuentasContp.Visible = True
                 End If