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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-09-05 16:24:03 -07:00
parent 6b5ec7f1ee
commit 7312ce4e68
9 changed files with 564 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/PopUpVerFactura.aspx.vb
View File

@@ -562,6 +562,10 @@ Partial Class PopUpVerFactura
If Not IsNothing(Request("cvePersonal")) Then
cvePersonal = Request("cvePersonal").ToString.ToEntero()
End If
If Not IsNothing(Request("cveSubProyecto")) Then
cveSubProyecto = Request("cveSubProyecto").ToString.ToEntero()
End If
Dim params As New List(Of ReportParameter)
Dim lrds As New List(Of ReportDataSource)
Using objnom As New ClsNominas

2
Contratos/ContratoObra.aspx
View File

@@ -2808,8 +2808,8 @@
</div>
<div class="form-group form-md-line-input input-iconright">
<ADS:Dropdownlost runat="server" ID="DdlProductows" CssStyle="width: 100%;" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label for="<%= DdlProductows.ClientID.ToString()%>">Producto:</label>
<ADS:Dropdownlost runat="server" ID="DdlProductows" CssStyle="width: 100%;" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>

725
GPS/ReciboNom.rdlc
View File

File diff suppressed because it is too large Load Diff

11
Nomina/Nomina.aspx
View File

@@ -2263,11 +2263,11 @@
<div id="ModalViewCorreo" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog " runat="server" ID="UpviewCorreos" UpdateMode="Conditional">
<asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UpviewCorreos" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header ">
<h4 class="modal-title">Registrode Correos</h4>
<h4 class="modal-title">Registro de correos</h4>
</div>
<div class="modal-body">
@@ -2284,14 +2284,9 @@
<asp:Label runat="server" Text='<%# Eval("NombreCompleto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Periodo" Visible="false" ItemStyle-CssClass="text-left">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("PeriodoTexto")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha" ItemStyle-CssClass="text-left">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
<asp:Label runat="server" Text='<%# Eval("Fecha","{0:dd/MM/yyyy HH:MM}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Se envio a" ItemStyle-CssClass="text-left">

3
Nomina/Nomina.aspx.cs
View File

@@ -1427,7 +1427,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
UsuarioActual = this.UsuarioActual;
}*/
string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual,(UsuarioActual.CveUsuario==100?3:4));
if (Msg != null && Msg.Length > 0)
{ Alert(string.Format("El empleado no se pudo timbrar, el sat nos devolvio el siguiente mensaje:<br/>{0}", Msg), TipoMensaje.MsgAdvertencia); }
else
@@ -7350,6 +7350,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
TxtSRINCfolio.Text = "";
TxtSRINCfechaInicio.Text = "";
TxtSRINCdiasAutorizados.Text = "";
TxtDiasPagoEmpresa.Text = UsuarioActual.CveEmpresa ==141?"3":"";
DdlSRINCcveTipodeIncidencia.SelectedValue = "-1";
DdlSRINCcveRamoSeguro.SelectedValue = "-1";
DdlSRINCcveTipoRiesgo.SelectedValue = "-1";

8
RH/ActualizacionMasiva.aspx.vb
View File

@@ -102,11 +102,17 @@ Partial Class RH_ActualizacionMasiva
End Sub
Private Sub CargaSuperioresOrganigrama()
Using objbase As New ClsClaseBase
Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM RH_Organigrama )", UsuarioActual.CveEmpresa)
If (objbase.runQuerystr(strquery)) Then
DdlSupervisor.DataSource = objbase.DtResultados
End If
End Using
Dim ObjRH As New ClsRH
If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
ViewState("dtSupervisores") = ObjRH.DtResultados
DdlSupervisor.DataSource = ObjRH.DtResultados
Else
DdlSupervisor.DataSource = Nothing
Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")

24
RH/Asistencias.aspx.vb
View File

@@ -25,15 +25,23 @@ Partial Class RH_Asistencias
#Region " ORGANIGRAMA "
Private Sub CargaSuperioresOrganigrama()
Dim ObjRH As New ClsRH
'Dim ObjRH As New ClsRH
If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
Else
DdlSupervisorOrganigrama.DataSource = Nothing
Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
End If
ObjRH.Dispose()
'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
' DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
'Else
' DdlSupervisorOrganigrama.DataSource = Nothing
' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
'End If
'ObjRH.Dispose()
Using objbase As New ClsClaseBase
Dim strquery As String = String.Format("SELECT CvePersonal,NombreCompleto FROM RH_Personal WHERE CveEmpresa = {0} AND CvePersonal IN (SELECT CvePersonalPadre FROM RH_Organigrama )", UsuarioActual.CveEmpresa)
If (objbase.runQuerystr(strquery)) Then
DdlSupervisorOrganigrama.DataSource = objbase.DtResultados
End If
End Using
If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
DdlSupervisorOrganigrama.DataBind()

1
RH/Personal.aspx.vb
View File

@@ -7297,6 +7297,7 @@ Partial Class RH_Personal
TxtSRINCfolio.Text = ""
TxtSRINCfechaInicio.Text = ""
TxtSRINCdiasAutorizados.Text = ""
TxtDiasPagoEmpresa.Text = If(UsuarioActual.CveEmpresa = 141, "3", "")
DdlSRINCcveTipodeIncidencia.SelectedValue = "-1"
DdlSRINCcveRamoSeguro.SelectedValue = "-1"
DdlSRINCcveTipoRiesgo.SelectedValue = "-1"

8
vwd.webinfo
View File

@@ -538,6 +538,14 @@