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
2020-08-17 15:33:03 -07:00
parent 196e695461
commit 9b4fccd311
8 changed files with 117 additions and 111 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
RH/MiPerfil.aspx.vb
View File

@@ -1576,9 +1576,13 @@ end_of_for:
BtnEliminar.Visible = True
If (EnviarCorreoNuevaSolicitud()) Then
Dim Destinatario As String = ""
If (UsuarioActual.CveEmpresa.Contiene(72)) Then
Destinatario = "recursoshumanos@compuproveedores.com"
End If
If Destinatario.Length > 0 AndAlso (EnviarCorreoNuevaSolicitud(Destinatario)) Then
Dim Destinatario As String = GlobalDTUsuarios(1781, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Mensaje.AppendLine(String.Format("<br /><br />Se ha notificado al correo <b>{0}</b>", Destinatario))
End If
Alert(Mensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion)
@@ -1635,7 +1639,7 @@ end_of_for:
End If
End Sub
Protected Function EnviarCorreoNuevaSolicitud() As Boolean
Protected Function EnviarCorreoNuevaSolicitud(Destinatario As String) As Boolean
Dim Correo As New ClsSisMail()
Dim Asunto As String = String.Format("{0} Nueva Solicitud de Viáticos: {1}", UsuarioActual.Empresa.NombreCorto, TxtFolio.Text)
Dim Cuerpo As New StringBuilder()
@@ -1647,14 +1651,8 @@ end_of_for:
If (UsuarioActual.CveEmpresa.Contiene(72, 1, 2)) Then
Dim Destinatario As String = ""
If (UsuarioActual.CveEmpresa.Contiene(72)) Then
Destinatario = "recursoshumanos@compuproveedores.com"
End If
If (Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())) Then
If Destinatario.Length > 0 AndAlso (Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())) Then
MensajeEnviado = True
@@ -1831,9 +1829,12 @@ end_of_for:
BtnEliminar.Visible = True
If (EnviarCorreoNuevaSolicitud()) Then
Dim Destinatario As String = ""
If (UsuarioActual.CveEmpresa.Contiene(72)) Then
Dim Destinatario As String = GlobalDTUsuarios(1781, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Destinatario = "recursoshumanos@compuproveedores.com"
End If
If Destinatario.Length > 0 AndAlso (EnviarCorreoNuevaSolicitud(Destinatario)) Then
Mensaje.AppendLine(String.Format("<br /><br />Se ha notificado al correo <b>{0}</b>", Destinatario))
End If
Alert(Mensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion)

6
RH/Personal.aspx
View File

@@ -791,7 +791,7 @@
<asp:UpdatePanel ID="UpGvUniformes" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvUniforme" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de uniforme" ToolTip="Uniformes"
<asp:GridView ID="GvUniforme" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Resguardo" ToolTip="Resguardos"
CssClass="table table-hover table-advance Widthall" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Fecha">
@@ -857,7 +857,7 @@
<asp:BoundField runat="server" DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:###,###}" />
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Opciones">
<ItemTemplate>
<asp:LinkButton ID="LnkLiberar" runat="server" Enabled='<%# If(CInt(Eval("LiberadoConfirm")) > 0, False, True)%>' OnClick="LbLiberarUniforme" Style='<%# If(CInt(Eval("LiberadoConfirm")) > 0, "color:red", "color:#337ab7")%>' Text='<%# If(CInt(Eval("LiberadoConfirm")) > 0, "Devuelto", "Liberar")%>' data-toggle='<%# If(CInt(Eval("LiberadoConfirm")) > 0, "collapse", "confirmation")%>' data-popout="true" data-original-title="¿Esta seguro que desea liberar el uniforme?" data-btn-ok-label="si"></asp:LinkButton>
<asp:LinkButton ID="LnkLiberar" runat="server" Enabled='<%# If(CInt(Eval("LiberadoConfirm")) > 0, False, True)%>' OnClick="LbLiberarUniforme" Style='<%# If(CInt(Eval("LiberadoConfirm")) > 0, "color:red", "color:#337ab7")%>' Text='<%# If(CInt(Eval("LiberadoConfirm")) > 0, "Devuelto", "Liberar")%>' data-toggle='<%# If(CInt(Eval("LiberadoConfirm")) > 0, "collapse", "confirmation")%>' data-popout="true" data-original-title="¿Esta seguro que desea liberar el Resguardo?" data-btn-ok-label="si"></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
@@ -3858,7 +3858,7 @@
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Liberar Uniforme</h4>
<h4 class="modal-title">Liberar Resguardo</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UPPLiberarUniforme" UpdateMode="Conditional">

2
RH/Personal.aspx.vb
View File

@@ -5176,7 +5176,7 @@ Partial Class RH_Personal
If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
ObjInventario.Commit()
Alert("Uniforme liberado")
Alert("El resguardo se liberó correctamente")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
CargaUniformesPersonal()
Else

19
RH/SolicitudViaticos.aspx.cs
View File

@@ -519,9 +519,14 @@ public partial class RH_SolicitudViaticos : ClsPaginas
BtnEliminar.Visible = true;
if (EnviarCorreoNuevaSolicitud())
string Destinatario = "";
if (UsuarioActual.CveEmpresa.Contiene(72))
{
String Destinatario = get_GlobalDTUsuarios(1781, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo");
Destinatario = "recursoshumanos@compuproveedores.com";
}
if (EnviarCorreoNuevaSolicitud(Destinatario))
{
Mensaje.AppendLine(String.Format("<br /><br />Se ha notificado al correo <b>{0}</b>", Destinatario));
}
Alert(Mensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion);
@@ -745,7 +750,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
#endregion
#region "ENVIO DE CORREOS"
protected Boolean EnviarCorreoNuevaSolicitud()
protected Boolean EnviarCorreoNuevaSolicitud(string Destinatario)
{
ClsSisMail Correo = new ClsSisMail();
String Asunto = String.Format("{0} Nueva Solicitud de Viáticos: {1}", UsuarioActual.Empresa.NombreCorto, TxtFolio.Text);
@@ -758,14 +763,8 @@ public partial class RH_SolicitudViaticos : ClsPaginas
if (UsuarioActual.CveEmpresa.Contiene(72, 1, 2))
{
String Destinatario = "";
if (UsuarioActual.CveEmpresa.Contiene(72))
{
Destinatario = "recursoshumanos@compuproveedores.com";
}
if (Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()))
if (Destinatario.Length > 0 && Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()))
{
MensajeEnviado = true;
}