Guest User

Untitled

a guest
May 20th, 2019
67
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SELECT
  2. rf.fun_matricula,
  3. rf.fun_pescod,
  4. bfunc.pes_nome,
  5. bstatus.sta_titulo,
  6. ljs.lanjusstat_status,
  7. lpad(CAST(get_mes(cp.comp_data) AS VARCHAR), 2, '0') || '/' || get_ano(cp.comp_data) AS competencia
  8.  
  9. FROM pto_lan_justificativa_status ljs
  10.  
  11. INNER JOIN pto_lan_justificativa lj
  12. ON ljs.lanjusstat_lanjuscod = lj.lanjus_cod
  13.  
  14. INNER JOIN rh_funcionario rf
  15. ON lj.lanjus_funcod = rf.fun_cod
  16.  
  17. INNER JOIN pto_competencia cp
  18. ON
  19. (
  20. lj.lanjus_ate_dia IS NULL
  21. AND lj.lanjus_do_dia BETWEEN cp.comp_data_inicio AND cp.comp_data_fim
  22. )
  23. OR
  24. (
  25. lj.lanjus_ate_dia IS NOT NULL
  26. AND lj.lanjus_do_dia >= cp.comp_data_inicio
  27. AND lj.lanjus_do_dia <= cp.comp_data_fim
  28. )
  29.  
  30. -- local de trabalho do lancamento
  31.  
  32. INNER JOIN bas_pessoa bfunc
  33. ON rf.fun_pescod = bfunc.pes_cod
  34.  
  35. INNER JOIN bas_status bstatus
  36. ON ljs.lanjusstat_status = bstatus.sta_numero
  37. AND bstatus.sta_tipo = 'STATUS_JUSTIFICATIVA'
  38.  
  39. INNER JOIN pto_motivo_ausencia pma
  40. ON lj.lanjus_motauscod = pma.motaus_cod
  41.  
  42. LEFT JOIN pto_motivo_ausencia_gusu mag
  43. ON mag.motausgusu_motauscod = lj.lanjus_motauscod
  44. AND mag.motausgusu_gusucod IN (
  45. SELECT
  46. gus.gusu_cod
  47.  
  48. FROM bas_grupo_usuario gus
  49.  
  50. INNER JOIN bas_usuario us
  51. ON us.usu_gusucod = gus.gusu_cod
  52. AND us.usu_cod = ".\Login::$User['USU_COD']."
  53. )
  54.  
  55. WHERE 1=1
  56. AND ljs.lanjusstat_ativo = 1
  57. AND (
  58. pma.motaus_ativo = 2
  59. OR (
  60. pma.motaus_ativo <> 2
  61. AND mag.motausgusu_cod IS NOT NULL
  62. )
  63. )
  64.  
  65. AND (
  66. -- permissao local trabalho
  67. (
  68. SELECT
  69. count(1)
  70.  
  71. FROM bas_local_trabalho lt_perm
  72.  
  73. INNER JOIN edu_escola e_perm
  74. ON e_perm.escol_pescod = lt_perm.lctrab_pescod
  75.  
  76. INNER JOIN edu_escola_usuario u_perm
  77. ON u_perm.escolusu_escolcod = e_perm.escol_cod
  78. AND u_perm.escolusu_usucod = ".\Login::$User['USU_COD']."
  79.  
  80. WHERE 1=1
  81. AND lt_perm.lctrab_cod = lj.lanjus_lctrabcod
  82. ) > 0
  83. )
  84.  
  85. GROUP BY
  86. rf.fun_matricula,
  87. rf.fun_pescod,
  88. bfunc.pes_nome,
  89. bstatus.sta_titulo,
  90. ljs.lanjusstat_status,
  91. cp.comp_data
  92.  
  93. ORDER BY
  94. bfunc.pes_nome
RAW Paste Data