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:
rakcsle
2022-09-05 21:40:46 -07:00
parent ad58baa437 682333baf7
commit 7c1421dcb8
9 changed files with 560 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 If Not IsNothing(Request("cvePersonal")) Then
cvePersonal = Request("cvePersonal").ToString.ToEntero() cvePersonal = Request("cvePersonal").ToString.ToEntero()
End If End If
If Not IsNothing(Request("cveSubProyecto")) Then
cveSubProyecto = Request("cveSubProyecto").ToString.ToEntero()
End If
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
Dim lrds As New List(Of ReportDataSource) Dim lrds As New List(Of ReportDataSource)
Using objnom As New ClsNominas Using objnom As New ClsNominas

2
Contratos/ContratoObra.aspx
View File

@@ -2808,8 +2808,8 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <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> <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> </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"> <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> <ContentTemplate>
<div class="modal-content"> <div class="modal-content">
<div class="modal-header "> <div class="modal-header ">
<h4 class="modal-title">Registrode Correos</h4> <h4 class="modal-title">Registro de correos</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
@@ -2284,14 +2284,9 @@
<asp:Label runat="server" Text='<%# Eval("NombreCompleto")%>'> </asp:Label> <asp:Label runat="server" Text='<%# Eval("NombreCompleto")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </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"> <asp:TemplateField HeaderText="Fecha" ItemStyle-CssClass="text-left">
<ItemTemplate> <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> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Se envio a" ItemStyle-CssClass="text-left"> <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; 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) 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); } { Alert(string.Format("El empleado no se pudo timbrar, el sat nos devolvio el siguiente mensaje:<br/>{0}", Msg), TipoMensaje.MsgAdvertencia); }
else else
@@ -7350,6 +7350,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
TxtSRINCfolio.Text = ""; TxtSRINCfolio.Text = "";
TxtSRINCfechaInicio.Text = ""; TxtSRINCfechaInicio.Text = "";
TxtSRINCdiasAutorizados.Text = ""; TxtSRINCdiasAutorizados.Text = "";
TxtDiasPagoEmpresa.Text = UsuarioActual.CveEmpresa ==141?"3":"";
DdlSRINCcveTipodeIncidencia.SelectedValue = "-1"; DdlSRINCcveTipodeIncidencia.SelectedValue = "-1";
DdlSRINCcveRamoSeguro.SelectedValue = "-1"; DdlSRINCcveRamoSeguro.SelectedValue = "-1";
DdlSRINCcveTipoRiesgo.SelectedValue = "-1"; DdlSRINCcveTipoRiesgo.SelectedValue = "-1";

8
RH/ActualizacionMasiva.aspx.vb
View File

@@ -102,11 +102,17 @@ Partial Class RH_ActualizacionMasiva
End Sub End Sub
Private Sub CargaSuperioresOrganigrama() 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 Dim ObjRH As New ClsRH
If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
ViewState("dtSupervisores") = ObjRH.DtResultados ViewState("dtSupervisores") = ObjRH.DtResultados
DdlSupervisor.DataSource = ObjRH.DtResultados
Else Else
DdlSupervisor.DataSource = Nothing DdlSupervisor.DataSource = Nothing
Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos") 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 " #Region " ORGANIGRAMA "
Private Sub CargaSuperioresOrganigrama() Private Sub CargaSuperioresOrganigrama()
Dim ObjRH As New ClsRH 'Dim ObjRH As New ClsRH
If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then 'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados ' DdlSupervisorOrganigrama.DataSource = ObjRH.DtResultados
Else 'Else
DdlSupervisorOrganigrama.DataSource = Nothing ' DdlSupervisorOrganigrama.DataSource = Nothing
Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos") ' Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
End If 'End If
ObjRH.Dispose() '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 If DdlSupervisorOrganigrama.DataSource IsNot Nothing Then
DdlSupervisorOrganigrama.DataBind() DdlSupervisorOrganigrama.DataBind()

1
RH/Personal.aspx.vb
View File

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

4
vwd.webinfo
View File

@@ -546,6 +546,10 @@