AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rakcsle
2021-03-01 15:16:17 -07:00
parent 07ffac282c 1187dc576c
commit 03e1e3d233
11 changed files with 113 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsContabilidad.vb
View File

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

4
Compras/Proveedores.aspx.vb
View File

@@ -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

11
Contabilidad2/CatCuentas.aspx.vb
View File

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

5
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

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

4
Contabilidad2/RepBalanceGeneral.aspx.vb
View File

@@ -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

5
Contabilidad2/RepBalanzaComprobacion.aspx.vb
View File

@@ -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

4
Contabilidad2/RepEstadoResultados.aspx.vb
View File

@@ -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

5
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

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

68
RH/Personal.aspx
View File

@@ -734,36 +734,50 @@
</div>
</div>
</div>
<asp:UpdatePanel ID="UPPContable" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-user-following font-green"></i>
<span class="caption-subject bold uppercase">Contable:</span>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
</div>
</div>
<div id="divCuentas" runat="server" visible="false">
<asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
<ContentTemplate>
<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">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</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 id="divCuentasContp" runat="server" visible="false">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-user-following font-green"></i>
<span class="caption-subject bold uppercase">Contable:</span>
</div>
<div class="actions">
<div class="btn-group">
<asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" CssClass="help-block errorimput" class="btn btn-success" Style="display: none;" />
<asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
</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>

20
RH/Personal.aspx.vb
View File

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

19
Ventas/Clientes.aspx.vb
View File

@@ -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