<% Dim RutaHTTP Dim Favorito Dim Fecha Dim prom Dim cont Dim strTemp numArticulo="16915" Fecha = "10/16/2020" session("PalabrasClaves") = "gestión humana,recursos humanos,clima laboral,riesgo psicosocial,selección,desarrollo, salarios,compensación,evaluación de desempeño,indicadores de gestión humana,empleo,covid19" ' ' ' '' ' ' ' ' ' RutaHTTP = "http://" & Request.ServerVariables("SERVER_NAME") & Left(Request.ServerVariables("PATH_INFO"), InstrRev(Request.ServerVariables("PATH_INFO"), "/")) ' se valida de la url si contiene los parametro que dan acceso para los contenidos de evaluaciones de la plataforma de capacitacion RutaCompleta = Request.ServerVariables("HTTP_REFERER") Cadena1 = RutaCompleta Cadena2= "IFramePanel.asp" If InStr(Cadena1,Cadena2)>0 then EsPanel = 1 Else EsPanel = 0 End if 'fin validacion txtTituloPagina = "Evaluación de riesgo psicosocial deberá seguirse aplicando" Session("txtTituloPagina")= trim(txtTituloPagina) If Request("print") = 1 then If Session("CodWebsite")=1 then %> <%=Application("website")%> - <%=txtTituloPagina%> <% Response.write( "") %>
<%=prObtieneBanner(Session("txtTituloPagina"),"TOPE")%>
<% else %> <%=Application("website")%> - <%=txtTituloPagina%> <% Response.write( "") %>
<%=prObtieneBanner(Session("txtTituloPagina"),"TOPE")%>
<% End if else if Request("IframePanel") <> 1 and Session("EsIframe")="" then Server.execute("../../../PaisEncabezadoArticulo.asp") else %> <%=Application("website")%> - <%=txtTituloPagina%> <% Response.write( "") %>
Planes de capacitación
<% end if end if session("PalabrasClaves") = "" %> <% if Request("IframePanel") <> 1 and Session("EsIframe")="" then if Request("print") <> 1 then Server.execute("../../../Include/Menu.asp") end if end if%> <% if Request("IframePanel") <> 1 then %> <% if Request("print") <> 1 then Response.write "" If Session("ID_Suscriptor") <> "" AND numArticulo <> "" Then Cadena_SQL = "SELECT COUNT(*) as cuantos FROM FavoritoArticulo WHERE CodSuscriptor=" & Session("ID_Suscriptor") & _ " AND CodObjetoSE=" & numArticulo ' Response.write (Cadena_SQL) Set RS = Conn.Execute(Cadena_SQL) If not RS.EOF Then If Rs("Cuantos")>0 Then favorito = "" Else favorito = "" End If Else favorito = "" End If Rs.close Set Rs=Nothing End If Response.write "" Response.write "" end if end if %>
    " & favorito & "    " If Session("CodWebsite")=1 then Response.write "          " End if Response.write "


<% Cadena_SQL = "select calificacion from calificaArticulo where CodObjetoSE = "&numarticulo Set RS = conn.execute(Cadena_SQL) cont = 0 prom = 0 Do while not RS.EOF prom = prom + RS("calificacion") RS.MoveNext cont = cont + 1 loop if cont=0 then cont=1 for i=1 to prom/cont Response.write " " next %> <% varAntetitulo1 = "Normativa/Circular 0064" varTitulo1 = "Evaluación de riesgo psicosocial deberá seguirse aplicando" varAntetituloTitulo = ""&varAntetitulo1&"
"&varTitulo1&"" %> <% varSumario1 = "A través de la Circular 0064 de 2020, el Ministerio del Trabajo indicó las acciones mínimas de evaluación e intervención de los factores de riesgo piscosocial, promoción de la salud mental y la prevención de problemas y trastornos mentales en los trabajadores en el marco de la actual emergencia sanitaria en Colombia." varSumario = ""&varSumario1&"" %> <% if Session("CodWebsite")=2 then if numArticulo < 10329 or numArticulo > 11708 then %>
<%=varAntetituloTitulo%>
<%=varSumario%>
<% end if%> <% else %>
<%=varAntetituloTitulo%>
<%=varSumario%>
<% end if %>

<% strAutor="" Session("strAutor") = strAutor strTiempo="" If strAutor <> "" Then Response.write "Por " & strAutor & "" End If Session("Fecha") = Fecha If Fecha <> "" Then Response.write ("
" & Day(Fecha) & " de " &Meses(Month(Fecha)) & " de " & Year(Fecha)) End If If strTiempo <> "" Then%>
Tiempo estimado de lectura: <%'Response.write("
Tiempo estimado de lectura:" & " " & strTiempo) Response.write strTiempo End If %>
<% %>
Entre las medidas destacadas por el Mintrabajo se encuentra que el trabajo en casa debe ajustarse a la jornada máxima legal permitida: 8 horas diarias y 48 horas semanales, así mismo, garantizarse el derecho a la desconexión laboral digital, a efectos de prevenir impactos psicológicos negativos.

La norma indica que, si por petición del empleador el trabajador debe trabajar una jornada superior a la máxima legal, procede el pago de horas extra y recargos por trabajo en dominicales y festivos. De la misma forma, no se deben establecer sobrecargas adicionales, fuera de la cotidianidad del servicio, al trabajador.

El empleador deberá, de igual manera, garantizar la existencia de descansos entre las secciones diarias del trabajo. También tendrá que respetar los días de trabajo pactado y debe evitar solicitudes los fines de semana y días de descanso.

Los correos electrónicos y mensajes vía WhatsApp serán atendidos por el trabajador de manera prioritaria durante la jornada laboral, respetando siempre el empleador la vida personal y los espacios de descanso del empleado;

Se deben establecer estrategias en las que se promueva y respete el derecho al descanso, ocio y al sano entretenimiento de los trabajadores.
La Cartera resalta, en su misma forma, las secuelas que puede dejar la pandemia del COVID-19 en la población trabajadora, especialmente en lo relativo a la salud mental de ésta.

Por tal razón, se deben adoptar acciones que contribuyan al bienestar físico y mental, como actividad física, alimentación saludable y emplear actividades que fortalezcan la inteligencia emocional y manejo de estrés, las cuales deben ser realizadas como mínimo en la rutina de cada trabajador.

Con información de www.legismovil.com
Mintrabajo

<% txturl = "" txturl = Replace(txtUrl,"'>","' class=""Parrafo"">") Response.write txturl %> Consulte la Circular 0064

<% txturl = "" txturl = Replace(txtUrl,"'>","' class=""Parrafo"">") Response.write txturl %> Archivo Normativa





<% If EsPanel then datosconcatena = "IDUSUARIO=" & fnRequest("IDUSUARIO") & "&ITEM=" & fnRequest("ITEM")& "&CODPLANDESARROLLOUSUARIO=" & fnRequest("CODPLANDESARROLLOUSUARIO") %> <% End if if Request("IframePanel") <> 1 and Session("EsIframe")="" then Server.execute("../../../PaisPataArticulo.asp") else %>
<% end if If fnRequest("IdUsuario")="" then Session("EsIframe") = "" end if %>