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:
rrene
2023-10-30 10:48:50 -07:00
parent 857cfaafa9 b9ade8198d
commit a72e131f89
13 changed files with 198 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
App_Code/ClsNominas.vb
View File

@@ -2064,6 +2064,25 @@ Public Class ClsNominas
End Function
#End Region
Public Function GetSubTipoPeriodo(CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_SubTipoPeriodo")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los Períodos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
End Function
#Region "Periodos"
Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean
@@ -2108,7 +2127,7 @@ Public Class ClsNominas
End Function
Public Function AddPeriodo(CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer, FechaInicio As Date, FechaFin As Date,
EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer) As Boolean
EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer, CveSubTipoPeriodo As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_PeriodosAdd")
@@ -2131,6 +2150,7 @@ Public Class ClsNominas
.Add("@CveTurno", SqlDbType.Int).Value = CveTurno
.Add("@CveUsuario", SqlDbType.VarChar).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
End With
Try
@@ -2151,7 +2171,7 @@ Public Class ClsNominas
Public Function UpdatePeriodo(FechaInicio As Date, FechaFin As Date, EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean,
EsInicioAño As Boolean, EsFinAño As Boolean, FueCalculado As Boolean, CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer,
Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer) As Boolean
Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer, CveSubTipoPeriodo As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -2177,6 +2197,7 @@ Public Class ClsNominas
.Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
.Add("@CveTurno", SqlDbType.Int).Value = CveTurno
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
End With
Try

6
App_Code/ClsRH.vb
View File

@@ -1942,7 +1942,7 @@ Public Class ClsRH
NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
CveJornada As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1") As Boolean
Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean
Dim Retorno As Boolean = False
Dim noguardoXcurp As Boolean = False
@@ -2032,6 +2032,7 @@ Public Class ClsRH
.Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
.Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
@@ -2073,7 +2074,7 @@ Public Class ClsRH
Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1,
Optional TipoSangre As String = "-1") As Boolean
Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -2168,6 +2169,7 @@ Public Class ClsRH
.Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
.Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
.Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
.Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
End With

10
Inicio.aspx
View File

@@ -1941,16 +1941,10 @@
} else {
} else {
$("#<%=LnkTituloLink.ClientID%>").css("display", "");
if (event.CveTipoEvento == 1) {
$("#<%=LnkTituloLink.ClientID%>").text("Tarea: " + event.title);
$("#<%=LnkTituloLink.ClientID%>").attr("href", "/OI/TareaDetalle.aspx?CveTipoEvento=1&CveEvento=" + event.id);
} else {
$("#<%=LnkTituloLink.ClientID%>").css("display", "none");
}
$("#<%=LnkTituloLink.ClientID%>").attr("href", "/OI/TareaDetalle.aspx?CveTipoEvento="+event.CveTipoEvento+"&CveEvento=" + event.id);
}

6
Nomina/CatPeriodos.aspx
View File

@@ -184,7 +184,7 @@
</tr>
</thead>
</table>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus, CveTurno"
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo,CveSubTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus, CveTurno"
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvDatos" data-tableheader=".tableheader" EmptyDataText="No se encontraron Periodos Registrados"
GridLines="None" data-rows="0" ShowHeader="false">
<Columns>
@@ -367,6 +367,10 @@
<asp:DropDownList ID="DdlTipoPeriodoAdd" CssClass="select2me form-control" runat="server" DataValueField="CveTipoPeriodo" DataTextField="TipoPeriodo" Width="100%"></asp:DropDownList>
<asp:HiddenField runat="server" ID="hdnCvePerido" Value="" />
</div>
<div class="col-xs-2" style="text-align: left">Subtipo Periodo:</div>
<div class="col-xs-4">
<asp:TextBox ID="TxtCveSubTipoPeriodoAdd" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
</div>
</div>
<br />
<div class="row">

12
Nomina/CatPeriodos.aspx.vb
View File

@@ -217,6 +217,7 @@ Partial Class Nomina_CatPeriodos
Private Sub LnkAddPeriodo_Click(sender As Object, e As EventArgs) Handles LnkAddPeriodo.Click
LimpiarModal()
Comando = "Agregar"
TxtCveSubTipoPeriodoAdd.Text = "1"
lblTiulomodal.Text = "Agregar Periodo"
RegistraScript("$('#divAddPeriodo').modal('show');")
End Sub
@@ -238,7 +239,10 @@ Partial Class Nomina_CatPeriodos
Dim CveTipoPeriodo As Integer = DdlTipoPeriodoAdd.SelectedValue.ToEntero()
Dim Estatus As Integer = DdlEstatusAdd.SelectedValue.ToEntero()
Dim CvePeriodo As Integer = hdnCvePerido.Value.ToEntero()
Dim CveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoAdd.Text.ToEntero()
If CveSubTipoPeriodo <= 1 Then
CveSubTipoPeriodo = 1
End If
For Each item As ListItem In CBLchk.Items
Select Case item.Value.ToEntero()
Case 1
@@ -259,7 +263,7 @@ Partial Class Nomina_CatPeriodos
Next
If Comando = "Agregar" Then
If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero()) Then
If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
Alert("El nuevo Periodo se guardó correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update()
@@ -275,7 +279,7 @@ Partial Class Nomina_CatPeriodos
End If
ElseIf Comando = "Actualizar" Then
If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero()) Then
If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
UpDatos.Update()
@@ -312,6 +316,8 @@ Partial Class Nomina_CatPeriodos
TxtFechaFinAdd.Text = GvRow.DataKey("FechaFin").ToString()
DdlEstatusAdd.SelectedValueExist(GvRow.DataKey("Estatus").ToString().ToEntero())
hdnCvePerido.Value = GvRow.DataKey("CvePeriodo").ToString()
TxtCveSubTipoPeriodoAdd.Text = GvRow.DataKey("CveSubTipoPeriodo").ToString()
For Each item As ListItem In CBLchk.Items
Select Case item.Value.ToEntero()
Case 1

2
Nomina/Finiquito.aspx
View File

@@ -366,7 +366,7 @@
<div class="portlet-title">
<div class="caption ">
<i class="fa fa-bookmark font-yellow-gold"></i>
<span class="caption-subject bold uppercase font-yellow-gold">Finiquito (Ordinario)</span>
<span class="caption-subject bold uppercase font-yellow-gold">Finiquito (Ordinario) <asp:Label ID="LtlFiniquitoOrdinario" runat="server" ></asp:Label></span>
</div>
<div class="tools">
<a href="javascript:;" class="collapse" data-original-title="" title=""></a>

139
Nomina/Finiquito.aspx.cs
View File

@@ -36,11 +36,11 @@ public partial class Nomina_Finiquito : ClsPaginas
get { return ViewState["CvePersonalAltas"] != null ? ViewState["CvePersonalAltas"].ToString().ToEntero() : 0; }
set { ViewState["CvePersonalAltas"] = value; }
}
/*private int CvePeriodoIndemnizacion
private int CvePeriodoIndemnizacion
{
get { return ViewState["CvePeriodoIndemnizacion"] != null ? ViewState["CvePeriodoIndemnizacion"].ToString().ToEntero() : 0; }
set { ViewState["CvePeriodoIndemnizacion"] = value; }
}*/
}
private int CvePeriodoFiniquito
{
get { return ViewState["CvePeriodoFiniquito"] != null ? ViewState["CvePeriodoFiniquito"].ToString().ToEntero() : 0; }
@@ -88,6 +88,40 @@ public partial class Nomina_Finiquito : ClsPaginas
set { ViewState["dtempleados"] = value; }
}
private DataTable dtConceptosIndemnizacion
{
get
{
if (ViewState["dtConceptosIndemnizacion"] == null) { return null; }
else { return (DataTable)ViewState["dtConceptosIndemnizacion"]; }
}
set { ViewState["dtConceptosIndemnizacion"] = value; }
}
private DataTable dtempleadosConceptosIndemnizacion
{
get
{
if (ViewState["dtempleadosConceptosIndemnizacion"] == null) { return null; }
else { return (DataTable)ViewState["dtempleadosConceptosIndemnizacion"]; }
}
set { ViewState["dtempleadosConceptosIndemnizacion"] = value; }
}
private DataTable dtempleadosIndemnizacion
{
get
{
if (ViewState["dtempleadosIndemnizacion"] == null) { return null; }
else { return (DataTable)ViewState["dtempleadosIndemnizacion"]; }
}
set { ViewState["dtempleadosIndemnizacion"] = value; }
}
#endregion
protected void Page_Load(object sender, EventArgs e)
{
@@ -183,7 +217,7 @@ public partial class Nomina_Finiquito : ClsPaginas
DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]);
TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}";
ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE");
//CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero();
if (CvePeriodoFiniquito > 0)
{
@@ -720,7 +754,7 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar && ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked, TxtObservaciones.Text) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
{
DataRow da = ObjPersonal.DtResultados.Rows[0];
//CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero();
// Alert(string.Format("{0}: {1}", CvePeriodoIndemnizacion, CvePeriodoFiniquito));
}
@@ -763,7 +797,7 @@ public partial class Nomina_Finiquito : ClsPaginas
if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
{
DataRow da = ObjPersonal.DtResultados.Rows[0];
//CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero();
// Alert(string.Format("{0}: {1}", CvePeriodoIndemnizacion, CvePeriodoFiniquito));
}
@@ -822,6 +856,8 @@ public partial class Nomina_Finiquito : ClsPaginas
List<NConcepto> finindem = null;
dtempleadosConceptos = null;
dtempleados = null;
dtempleadosConceptos = null;
dtempleados = null;
LnkAutorizar.Visible = true;
if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal, Neto: 1) && objnom.DTSetResultados.Tables.Count > 1)
{
@@ -835,13 +871,37 @@ public partial class Nomina_Finiquito : ClsPaginas
UpAcciones.Update();
dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
dtConceptos = objnom.DTSetResultados.Tables[0];
LnkCancelar.Visible = !LnkAutorizar.Visible? false: LnkCancelar.Visible;
LnkGuardarDatos.Visible = !LnkAutorizar.Visible?false: LnkGuardarDatos.Visible;
LnkCancelar.Visible = !LnkAutorizar.Visible ? false : LnkCancelar.Visible;
LnkGuardarDatos.Visible = !LnkAutorizar.Visible ? false : LnkGuardarDatos.Visible;
LtlFiniquitoOrdinario.Text = $"";
DataRow dre = dtempleados.FiltroPrimero(string.Format(" CvePersonal ={0}", CvePersonal));
if (dre != null)
{
LtlFiniquitoOrdinario.Text = string.Format(" del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} {0}", (dre["CveTipoPeriodo"].ToString()=="6"? "Extraordinario" : "Ordinario"), dre["FechaInicio"], dre["FechaFin"]);
}
}
if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoIndemnizacion, UsuarioActual.CveEmpresa, 1, 3, CvePersonal, Neto: 1) && objnom.DTSetResultados.Tables.Count > 1)
{
dtempleadosIndemnizacion = objnom.DTSetResultados.Tables[3];
dtempleadosConceptosIndemnizacion = objnom.DTSetResultados.Tables[4];
dtConceptosIndemnizacion = objnom.DTSetResultados.Tables[0];
LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", string.Format("NomAutorizado =0 AND CvePersonal ={0}", CvePersonal)) > 0);
NominaAutorizada = !LnkAutorizar.Visible;
LnkFormatoRenuncia.Visible = true;
LnkGuardarDatos.Enabled = LnkAutorizar.Visible;
LnkTimbrar.Visible = !(LnkAutorizar.Visible) && (dtempleados.COUNT("CvePersonal", string.Format("SeTimbro=0 AND CvePersonal ={0}", CvePersonal)) > 0);
LnkCancelarNomina.Visible = !LnkAutorizar.Visible && LnkTimbrar.Visible;
UpAcciones.Update();
LnkCancelar.Visible = !LnkAutorizar.Visible ? false : LnkCancelar.Visible;
LnkGuardarDatos.Visible = !LnkAutorizar.Visible ? false : LnkGuardarDatos.Visible;
}
if (dtConceptos != null && dtempleadosConceptos != null && dtempleados != null)
{
finordin = cargasobrericiboconceptos(dtConceptos, dtempleadosConceptos, dtempleados);
finindem = cargasobrericiboconceptosIndemnizacion(dtConceptos, dtempleadosConceptos, dtempleados);
finordin = cargasobrericiboconceptos(dtConceptos, dtempleadosConceptos, dtempleados);
}
if (dtConceptosIndemnizacion != null && dtempleadosConceptosIndemnizacion != null && dtempleadosIndemnizacion != null)
{
finindem = cargasobrericiboconceptosIndemnizacion(dtConceptosIndemnizacion, dtempleadosConceptosIndemnizacion, dtempleadosIndemnizacion);
}
GvFinOrdinario.DataSource = finordin;
@@ -860,30 +920,9 @@ public partial class Nomina_Finiquito : ClsPaginas
private List<NConcepto> cargasobrericiboconceptos(DataTable dtConceptos, DataTable dtempleadosConceptos, DataTable dtempleados)
{
int SRCvePersonal = this.CvePersonal;
DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema NOT IN(10,11,32) ");
DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema NOT IN( 47,101)");
double percepcionesindem = 0;
double deduccionesindem = 0;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows)
{
int CveConcepto = row["CveConcepto"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString();
string Codigo = row["Codigo"].ToString();
//bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
percepcionesindem += Importe;
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema =47").Rows)
{
int CveConcepto = row["CveConcepto"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString();
string Codigo = row["Codigo"].ToString();
//bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
deduccionesindem += Importe;
}
DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ");
DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 ");
dtper.Columns.Add("BorradoLogico", typeof(int));
dtded.Columns.Add("BorradoLogico", typeof(int));
@@ -967,14 +1006,14 @@ public partial class Nomina_Finiquito : ClsPaginas
SubTotales.CveConceptoP = 0;
SubTotales.ConceptoP = "Total Percepciones";
SubTotales.EstatusP = -2;
SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - percepcionesindem;
SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) ;
///Alert(SubTotales.ImporteP.ToString());
SubTotales.CveConceptoD = 0;
SubTotales.ConceptoD = "Total Deducciones";
SubTotales.EstatusD = -2;
SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - deduccionesindem;
SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) ;
double neto = SubTotales.ImporteP - SubTotales.ImporteD;
NConcepto Totales = new NConcepto();
@@ -992,28 +1031,9 @@ public partial class Nomina_Finiquito : ClsPaginas
private List<NConcepto> cargasobrericiboconceptosIndemnizacion(DataTable dtConceptos, DataTable dtempleadosConceptos, DataTable dtempleados)
{
int SRCvePersonal = this.CvePersonal;
DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 AND CveSistema IN(10,11,32) ");
DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema = 47");
double percepcionesindem = 0;
double deduccionesindem = 0;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows)
{
int CveConcepto = row["CveConcepto"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString();
string Codigo = row["Codigo"].ToString();
//bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
percepcionesindem += Importe;
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema =47").Rows)
{
int CveConcepto = row["CveConcepto"].ToString().ToEntero();
string Concepto = row["Concepto"].ToString();
string Codigo = row["Codigo"].ToString();
//bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
deduccionesindem += Importe;
}
DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1");
DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1");
dtper.Columns.Add("BorradoLogico", typeof(int));
dtded.Columns.Add("BorradoLogico", typeof(int));
@@ -1096,14 +1116,15 @@ public partial class Nomina_Finiquito : ClsPaginas
SubTotales.CveConceptoP = 0;
SubTotales.ConceptoP = "Total Percepciones";
SubTotales.EstatusP = -2;
SubTotales.ImporteP = percepcionesindem;
SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal));
///Alert(SubTotales.ImporteP.ToString());
SubTotales.CveConceptoD = 0;
SubTotales.ConceptoD = "Total Deducciones";
SubTotales.EstatusD = -2;
SubTotales.ImporteD = deduccionesindem;
SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal));
double neto = SubTotales.ImporteP - SubTotales.ImporteD;
NConcepto Totales = new NConcepto();

2
OI/TareaDetalle.aspx.cs
View File

@@ -510,7 +510,7 @@ public partial class OI_TareaDetalle : ClsPaginas
else if (CveCompra > 0)
{
titulo = "Compra ";
link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra);
link = string.Format("<a href=\"/Compras/Compras.aspx?CveCompra={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra);
}
else if (CvePersonal > 0)

15
RH/Asistencias.aspx.vb
View File

@@ -5,6 +5,14 @@ Imports Microsoft.Reporting.WebForms
Partial Class RH_Asistencias
Inherits ClsPaginas
Private Property dTAsistenciasInasistencias As DataTable
Get
Return DirectCast(ViewState("dTAsistenciasInasistencias"), DataTable)
End Get
Set(value As DataTable)
ViewState("dTAsistenciasInasistencias") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -13,6 +21,8 @@ Partial Class RH_Asistencias
CargaSuperioresOrganigrama()
CargaProyecto()
CargaTurnos()
dTAsistenciasInasistencias = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
divCliente.Visible = False
LblCliente.Visible = False
@@ -93,6 +103,9 @@ Partial Class RH_Asistencias
ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
End If
'If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
' dt = dt.FiltraParametros("", "Tipo")
'End If
GV.DataSource = dt
Else
GV.DataSource = Nothing
@@ -175,7 +188,7 @@ Partial Class RH_Asistencias
e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
'Carga Tipos de Asistencia
e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = dTAsistenciasInasistencias
e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")

12
RH/Personal.aspx
View File

@@ -1481,14 +1481,22 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" Width="100%" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:DropDownList ID="DdlTipoPeriodo" runat="server" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" Width="100%" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo" Text="Tipo de Período:"></asp:Label>
<asp:RequiredFieldValidator ID="RFVTipoPeriodo" runat="server" ControlToValidate="DdlTipoPeriodo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Periodo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
<div id="divSubTipoPeriodo" runat="server" class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="ddlSubTipoPeriodo" runat="server" Width="100%" DataTextField="CveSubTipoPeriodo" DataValueField="CveSubTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo" Text="Tipo de Período:"></asp:Label>
<asp:RequiredFieldValidator ID="rfvddlSubTipoPeriodo" runat="server" ControlToValidate="ddlSubTipoPeriodo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Periodo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<i></i>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DDlTipoSalario" runat="server" CssClass="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">

46
RH/Personal.aspx.vb
View File

@@ -30,6 +30,20 @@ Partial Class RH_Personal
ViewState("salarioVariable") = value
End Set
End Property
Property CveSubTipoPeriodo As Integer
Get
If ViewState("CveSubTipoPeriodo") Is Nothing Then
Return -1
Else
Return DirectCast(ViewState("CveSubTipoPeriodo"), Integer)
End If
End Get
Set(value As Integer)
ViewState("CveSubTipoPeriodo") = value
End Set
End Property
Property CcveMovtoPermanente As Integer
Get
If ViewState("CcveMovtoPermanente") Is Nothing Then
@@ -246,6 +260,14 @@ Partial Class RH_Personal
End Property
Private Property dtSubTipoPeriodo As Data.DataTable
Get
Return CType(ViewState("dtSubTipoPeriodo"), DataTable)
End Get
Set(value As Data.DataTable)
ViewState("dtSubTipoPeriodo") = value
End Set
End Property
Private Property dtNomConceptos As Data.DataTable
Get
Return CType(ViewState("dtNomConceptos"), DataTable)
@@ -893,7 +915,10 @@ Partial Class RH_Personal
Using objno As New ClsNominas
objno.GetConceptos()
dtNomConceptos = objno.DtResultados
objno.GetSubTipoPeriodo(UsuarioActual.CveEmpresa)
dtSubTipoPeriodo = objno.DtResultados
End Using
divSubTipoPeriodo.Visible = False
PnlSalarios.Visible = showsalarios
ViewState("Orden") = ""
@@ -1056,6 +1081,7 @@ Partial Class RH_Personal
DdlRegimenContratacion.SelectedValueExist(1)
DdlMetodoPago.SelectedValueExist(1)
DdlTipoPeriodo.SelectedValueExist(1)
DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
DdlTipoContrato.SelectedValueExist(2)
DdlJornada.SelectedValueExist(6)
DdlPuesto.SelectedIndex = 1
@@ -1658,6 +1684,7 @@ Partial Class RH_Personal
If ObjPersonal.DtResultados.Rows.Count > 0 Then
Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
Retorno = True
CveSubTipoPeriodo = drow("CveSubTipoPeriodo").ToString().ToEntero()
ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
@@ -1817,6 +1844,7 @@ Partial Class RH_Personal
'Carga Nómina
TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString()
DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
TxtNumeroSS.Text = ObjPersonal.NumeroSS
ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS
TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
@@ -1996,6 +2024,7 @@ Partial Class RH_Personal
If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
TxtSalarioCotizado.Text = TxtSDI.Text
End If
CveSubTipoPeriodo = ddlSubTipoPeriodo.SelectedValue.ToEntero()
If CvePersonal = -1 Then
URL = ""
@@ -2021,7 +2050,7 @@ Partial Class RH_Personal
UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(),
CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then
If Archivo.Exists Then
@@ -2107,7 +2136,7 @@ Partial Class RH_Personal
TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0),
Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then
'Funcion usa RH Familiares
If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -8004,6 +8033,19 @@ Partial Class RH_Personal
End Sub
Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
Dim dt As DataTable = dtSubTipoPeriodo.FiltraParametros(String.Format("CveTipoPeriodo ={0}", DdlTipoPeriodo.SelectedValue.ToEntero()))
divSubTipoPeriodo.Visible = dt.Rows.Count > 1
ddlSubTipoPeriodo.DataSource = dt
ddlSubTipoPeriodo.DataBind()
If dt.Rows.Count > 0 Then
ddlSubTipoPeriodo.SelectedIndex = 0
End If
ddlSubTipoPeriodo.SelectedValueExist(CveSubTipoPeriodo.ToString())
UpDatos.Update()
End Sub
End Class

2
Sistemas/Empresa.aspx
View File

@@ -1272,7 +1272,7 @@
<div class="col-md-12">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control"></asp:TextBox>
<asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control" TextMode="SingleLine"></asp:TextBox>
<label for="<%= TxtAsuntoCotizacion.ClientID.ToString()%>">Asunto:</label>
<i></i>
</div>

8
Sistemas/Empresa.aspx.vb
View File

@@ -305,8 +305,8 @@ Partial Class Sistemas_Empresa
TxtPlantillaVenta.Text = .PlantillaMailVenta
TxtAsunto.Text = .AsuntoPlantillaMailVenta
TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion
TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion
TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
'NUEVOS
TxtAreaGeografica.Text = .AreaGeografica
@@ -652,8 +652,8 @@ Partial Class Sistemas_Empresa
UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
'TxtPlantillaVenta.Text = ""
'TxtAsunto.Text = ""