-
-
+
+
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 9ef01b59d..d44ee8d3a 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -185,7 +185,9 @@ Partial Class Inventarios_TraspasoAlmacen
If UsuarioActual.CveEmpresa = 119 Then
divGastoIndirecto.Visible = False
+ LblGastoIndirecto.Visible = False
divResponsable.Visible = False
+ LblResponsable.Visible = False
End If
@@ -204,7 +206,10 @@ Partial Class Inventarios_TraspasoAlmacen
End If
If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")
- If UsuarioActual.CveEmpresa.Contiene(1, 119) Then DivEmitirTimbrado.Visible = True
+ If UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+ DivEmitirTimbrado.Visible = True
+ LblEmitirTimbrado.Visible = True
+ End If
CantidadTotal = 0
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 01bba28d1..94f7e4907 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -266,7 +266,7 @@ Partial Class LogIn
userm.Nombre = Usuario.Nombre
userm.Contraseña = Usuario.Contraseña
userm.CvePerfil = Usuario.CveRol
- userm.CveEmpresa = 1 'Usuario.CveEmpresa
+ userm.CveEmpresa = 119 'Usuario.CveEmpresa
userm.CveUsuarioModifico = Usuario.CveEmpresa
userm.CveUsuarioRegistro = Usuario.CveEmpresa
RegistraScript(String.Format("opennewlocation('{0}','{1}')", ReturnUrl, GenerateJSONWebToken(userm)))
diff --git a/RH/MiPerfil.aspx.vb b/RH/MiPerfil.aspx.vb
index 71fbb09af..b2793709e 100644
--- a/RH/MiPerfil.aspx.vb
+++ b/RH/MiPerfil.aspx.vb
@@ -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("
Se ha notificado al correo {0}", 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("
Se ha notificado al correo {0}", Destinatario))
End If
Alert(Mensaje.ToString(), ModExtensiones.TipoMensaje.MsgInformacion)
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 10a31b1a3..4b33c301e 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -791,7 +791,7 @@
-
@@ -857,7 +857,7 @@
-
+
@@ -3858,7 +3858,7 @@
-
Liberar Uniforme
+
Liberar Resguardo
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 685e8d9e0..91d9e28d8 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -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
diff --git a/RH/SolicitudViaticos.aspx.cs b/RH/SolicitudViaticos.aspx.cs
index 26109a0d1..cd34023b5 100644
--- a/RH/SolicitudViaticos.aspx.cs
+++ b/RH/SolicitudViaticos.aspx.cs
@@ -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("
Se ha notificado al correo {0}", 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;
}
diff --git a/vwd.webinfo b/vwd.webinfo
index 4edae1c8c..71cfc47e0 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -86,6 +86,8 @@
+
+