Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

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

@@ -734,36 +734,50 @@
                                                     </div>
                                                 </div>
                                             </div>
-
                                             <asp:UpdatePanel ID="UPPContable" runat="server" UpdateMode="Conditional">
                                                 <ContentTemplate>
-
+                                                    <div id="divCuentas" runat="server" visible="false">
-                                                    <div class="portlet-title">
+                                                        <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
-                                                        <div class="caption font-green">
+                                                            <ContentTemplate>
-                                                            <i class="icon-user-following font-green"></i>
+                                                                <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
-                                                            <span class="caption-subject bold uppercase">Contable:</span>
+                                                                    <Columns>
-                                                        </div>
+                                                                        <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
-                                                        <div class="actions">
+                                                                        <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
-                                                            <div class="btn-group">
+                                                                    </Columns>
-                                                                <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
+                                                                </asp:GridView>
-                                                                <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
+                                                            </ContentTemplate>
-                                                            </div>
+                                                        </asp:UpdatePanel>
-                                                        </div>
                                                     </div>
-                                                    <div class="portlet-body form">
+
-                                                        <div class="form-group input-iconright">
+                                                    <div id="divCuentasContp" runat="server" visible="false">
-                                                            <label for="<%= DdlViaticos.ClientID.ToString()%>">Viáticos:</label>
+                                                        <div class="portlet-title">
-                                                            <asp:DropDownList Width="100%" ID="DdlViaticos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
+                                                            <div class="caption font-green">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                <i class="icon-user-following font-green"></i>
-                                                            </asp:DropDownList>
+                                                                <span class="caption-subject bold uppercase">Contable:</span>
-                                                            <i></i>
+                                                            </div>
-                                                        </div>
+                                                                <div class="actions">
-                                                        <div class="form-group input-iconright">
+                                                                    <div class="btn-group">
-                                                            <label for="<%= DdlPrestamos.ClientID.ToString()%>">Préstamos:</label>
+                                                                        <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
-                                                            <asp:DropDownList Width="100%" ID="DdlPrestamos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
+                                                                        <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                    </div>
-                                                            </asp:DropDownList>
+                                                                </div>
-                                                        </div>
+                                                            </div>
+                                                            <div class="portlet-body form">
+                                                                <div class="form-group input-iconright">
+                                                                    <label for="<%= DdlViaticos.ClientID.ToString()%>">Viáticos:</label>
+                                                                    <asp:DropDownList Width="100%" ID="DdlViaticos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
+                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                    <i></i>
+
+                                                                </div>
+                                                                <div class="form-group input-iconright">
+                                                                    <label for="<%= DdlPrestamos.ClientID.ToString()%>">Préstamos:</label>
+                                                                    <asp:DropDownList Width="100%" ID="DdlPrestamos" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control input-sm ">
+                                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                </div>
+                                                            </div>
                                                     </div>
                                                 </ContentTemplate>
                                             </asp:UpdatePanel>

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