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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-02-16 08:49:03 -07:00
parent 9dfd9c5bf9 6105a9de33
commit 1939b4fdcc
118 changed files with 6812 additions and 20175 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Nomina/CatPeriodos.aspx.vb
View File

@@ -82,7 +82,7 @@ Partial Class Nomina_CatPeriodos
End Sub
Private Sub CargaTurnos()
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
DdlTurno.DataBind()
DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub

6
Nomina/ChecadorAsistencia.aspx.cs
View File

@@ -23,7 +23,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
{
if (!IsPostBack)
{
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
DdlTurno.DataBind();
CargaTiposPeriodo();
@@ -47,7 +47,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
DdlmcPersonal.DataBind();
}
}
DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
DdlMotivoHoraExtra.DataSource = get_GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa);
DdlMotivoHoraExtra.DataBind();
cargaChecadores();
CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto);
@@ -351,7 +351,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
DdlTurno.SelectedValueExist(drow["CveTurno"].ToString());
}
TxtFechalabel.Text = string.Format("{0:dd/MM/yyyy}", fechai);
DataTable dtTurno = GlobalDTTurno.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
DataTable dtTurno = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
using (ClsNominas objnom = new ClsNominas())
{

2
Nomina/Finiquito.aspx.cs
View File

@@ -115,7 +115,7 @@ public partial class Nomina_Finiquito : ClsPaginas
}
private void CargaMotivoBaja()
{
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
DdlMotivoBaja.DataSource = get_GlobalDTMotivoBaja(UsuarioActual.CveEmpresa);
DdlMotivoBaja.DataBind();
}
private void CargaDdlPersonal()

2
Nomina/ListaAsistencias.aspx.vb
View File

@@ -45,7 +45,7 @@ Partial Class Nomina_ListaAsistencias
End Sub
Private Sub CargaTurnos()
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
DdlTurno.DataBind()
End Sub

2
Nomina/Nomina.aspx.cs
View File

@@ -313,7 +313,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
cargaEjercicios();
CargaTiposPeriodo();
cargaPeriodos();
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
DdlTurno.DataBind();
DdlMetodoPago.DataSource = GlobalDTMetodosPago;

2
Nomina/PreNomina.aspx.vb
View File

@@ -77,7 +77,7 @@ Partial Class Nomina_PreNomina
End Sub
Private Sub CargaTurnos()
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
DdlTurno.DataBind()
End Sub

2
Nomina/PreNominaHistorial.aspx.vb
View File

@@ -57,7 +57,7 @@ Partial Class Nomina_PreNominaHistorial
End Sub
Private Sub CargaTurnos()
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
DdlTurno.DataBind()
End Sub

169
Nomina/RepConceptosAcumulados.aspx
View File

@@ -1,169 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepConceptosAcumulados.aspx.vb" Inherits="Nomina_RepConceptosAcumulados" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style>
th[align="left"]{
text-align :left !important;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<asp:ImageButton ID="ImgImprimir" runat="server" ImageUrl="/Imagenes/btnImprimir.gif" Width="17px" Height="17px" Visible="false" Enabled="false" />
<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte Conceptos Acumulados
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<script>$('body').removeClass('rhumanosbody').addClass('rhumanosbody');</script>
<br />
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1">Concepto:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlConcepto" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Concepto" DataValueField="CveConcepto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Ejercicio:</label>
<div class="col-md-1">
<asp:DropDownList ID="DDlEjercicio" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Text="2016" Value="2016"></asp:ListItem>
<asp:ListItem Text="2017" Value="2017"></asp:ListItem>
<asp:ListItem Text="2018" Value="2018"></asp:ListItem>
<asp:ListItem Text="2019" Value="2019"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Tipo Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1">Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlPeriodo" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="50%">
<fieldset>
<legend><b>Datos del Concepto</b></legend>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>Tipo: </td>
<td>
<asp:Label ID="LblTipo" runat="server"></asp:Label></td>
<td width="80px">Codigo: </td>
<td width="140px">
<asp:Label ID="LblCodigo" runat="server"></asp:Label></td>
</tr>
<tr>
<td colspan ="4">
<asp:Label ID="LblFormula" runat="server" Visible="False"></asp:Label></td>
</tr>
</table>
</fieldset>
</td>
<td width="50%"></td>
<td width="50%" style="display :none;">
<fieldset>
<legend><b>Datos del Periodo</b></legend>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="80px"> </td>
<td>
</td>
</tr>
<tr>
<td width="80px"> </td>
<td>
</td>
</tr>
<tr>
<td width="80px"> </td>
<td width="140px"></td>
</tr>
</table>
</fieldset>
</td>
</tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover ScrollAD Widthall"
EmptyDataText="No se encontraron Movimientos de Percepciones y/o Deduciones" data-rows="2" ToolTip="Listado de Percepciones y/o Deducciones" GridLines="None">
<Columns>
<asp:TemplateField>
<HeaderTemplate>
Nombre
</HeaderTemplate>
<HeaderStyle HorizontalAlign="Left" />
<ItemTemplate>
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Acumulado Actual
</HeaderTemplate>
<HeaderStyle Width="140px" />
<ItemTemplate>
<asp:Literal ID="LtlActual" runat="server" Text='<%# Eval("Actual", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right"/>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Acumulado Anterior
</HeaderTemplate>
<HeaderStyle Width="150px" />
<ItemTemplate>
<asp:Literal ID="LtlAnterior" runat="server" Text='<%# Eval("Anterior", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Acumulado Anual
</HeaderTemplate>
<HeaderStyle Width="140px" />
<ItemTemplate>
<asp:Literal ID="LtlAnual" runat="server" Text='<%# Eval("Anual", "{0:N2}")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

133
Nomina/RepConceptosAcumulados.aspx.vb
View File

@@ -1,133 +0,0 @@
Option Explicit On
Option Strict On
Imports Extensiones
Imports System.Data
Partial Class Nomina_RepConceptosAcumulados
Inherits ClsPaginas
#Region "Propiedades"
Private ReadOnly Property CveConcepto As Integer
Get
Return ViewState("CveConcepto").ToString.ToEntero
End Get
End Property
Private ReadOnly Property CveTipoPeriodo As Integer
Get
Return ViewState("CveTipoPeriodo").ToString.ToEntero
End Get
End Property
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
CargaConceptos()
CargaTiposPeriodos()
If Request("CveConcepto") IsNot Nothing AndAlso IsNumeric(Request("CveConcepto")) AndAlso Request("CveConcepto").ToEntero > 0 Then
ViewState("CveConcepto") = Request("CveConcepto")
DdlConcepto.SelectedValue = CveConcepto.ToString
Else
ViewState("CveConcepto") = -1
End If
If Request("CveTipoPeriodo") IsNot Nothing AndAlso IsNumeric(Request("CveTipoPeriodo")) AndAlso Request("CveTipoPeriodo").ToEntero > 0 Then
ViewState("CveTipoPeriodo") = Request("CveTipoPeriodo")
DdlTipoPeriodo.SelectedValue = CveTipoPeriodo.ToString
Else
ViewState("CveTipoPeriodo") = -1
End If
CargaDatos()
End If
End Sub
Private Sub CargaConceptos()
DdlConcepto.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("", "Concepto")
DdlConcepto.DataBind()
End Sub
Private Sub CargaTiposPeriodos()
Dim ObjTiposPeriodos As New ClsNominas
If ObjTiposPeriodos.GetTiposPeriodos() Then
DdlTipoPeriodo.DataSource = ObjTiposPeriodos.DtResultados
End If
ObjTiposPeriodos.Dispose()
DdlTipoPeriodo.DataBind()
End Sub
Private Sub CargaDatos()
If CveConcepto > 0 And CveTipoPeriodo > 0 Then
Dim ObjNomina As New ClsNominas()
If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatos.DataSource = ObjNomina.DtResultados
Else
GvDatos.DataSource = Nothing
End If
ObjNomina.Dispose()
GvDatos.DataBind()
UPDatos.Update()
End If
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
Dim Css As String = "Texto"
If e.Row.RowIndex = 0 Then
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
'e.Row.Cells(0).Width = Unit.Pixel(200)
'e.Row.Cells(1).Width = Unit.Pixel(100)
'e.Row.Cells(2).Width = Unit.Pixel(100)
'e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.CssClass = "Totales"
Css = "Totales"
End If
End If
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
GvDatos.ExportToExcel("ReporteConceptosAcumulados" & Now.ToShortDateString)
End Sub
Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPeriodo.SelectedIndexChanged
ViewState("CveTipoPeriodo") = DdlTipoPeriodo.SelectedValue
'Saca el periodo activo
CargaPeriodos(DDlEjercicio.SelectedValue.ToEntero, DdlTipoPeriodo.SelectedValue.ToEntero)
CargaDatos()
End Sub
Private Sub CargaPeriodos(Ejercicio As Integer, CveTipoPeriodo As Integer)
Dim ObjTiposPeriodos As New ClsNominas
If ObjTiposPeriodos.GetPeriodos(CveTipoPeriodo, UsuarioActual.CveEmpresa, Ejercicio, -1, -1) Then
DdlPeriodo.DataSource = ObjTiposPeriodos.DtResultados
End If
ObjTiposPeriodos.Dispose()
DdlPeriodo.DataBind()
End Sub
Protected Sub DdlConcepto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConcepto.SelectedIndexChanged
ViewState("CveConcepto") = DdlConcepto.SelectedValue
Dim Concepto As DataRow = GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros("CveConcepto = " & CveConcepto)(0)
LblCodigo.Text = Concepto("Codigo").ToString
LblFormula.Text = Concepto("Formula").ToString
LblTipo.Text = Concepto("TipoD").ToString
CargaDatos()
End Sub
Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
CargaDatos()
End Sub
End Class

2
Nomina/RepInversiondeNomina.aspx.cs
View File

@@ -96,7 +96,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas
DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1);
DdlSubProyecto.DataBind();
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(string.Format("CveEmpresa ={0} AND Departamento <> 'Seleccione' ", UsuarioActual.CveEmpresa));
DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " );
DdlDepartamento.DataBind();
DdlDepartamento.Items.Insert(0, new ListItem("Todos", "-1"));