Demitidos E Ativos Em Uma Data Específica

[Rodrigo Burgos]

Bom dia pessoal,

Surgiu a demanda aqui de um relatório que traga os ativos e demitidos em uma determinada data.

Exemplo: quero saber a quantidade de ativos e demitidos no mês de 10/2013.

Há muitos anos atrás eu desenvolvi uma sentença e um relatório, que inclusive postei aqui no fórum, mas não estou achando de jeito nenhum!

Quem puder ajudar agradeço!

[Deige Mendes]

Bom dia Rodrigo,

Tenho esta que está validada, verifique por favor se lhe atende. è um cubo que tem algumas informações adicionais e filtra alguns tipos de funcionários( Fica a seu critério )

SELECT

PFUNC.CODCOLIGADA AS COLIGADA ,
PFUNC.CHAPA,
PFUNC.NOME,
PPESSOA.SEXO ,
PCODSITUACAO.DESCRICAO AS SITUAÇÃO ,
PTPFUNC.DESCRICAO AS TIPO_FUNC ,
PSECAO.CODIGO AS COD_SECAO,
PSECAO.DESCRICAO AS SECÃO,
PFUNCAO.NOME AS FUNÇÃO ,
PPESSOA.DTNASCIMENTO AS NASCIMENTO,
PPESSOA.CARTIDENTIDADE,
PPESSOA.CPF,
CASE WHEN DATEPART(MONTH,PPESSOA.DTNASCIMENTO)< DATEPART(MONTH,GETDATE()) THEN DATEDIFF(MONTH,PPESSOA.DTNASCIMENTO,GETDATE())/12
WHEN DATEPART(MONTH,PPESSOA.DTNASCIMENTO)> DATEPART(MONTH,GETDATE()) THEN DATEDIFF(MONTH,PPESSOA.DTNASCIMENTO,GETDATE())/12
WHEN DATEPART(MONTH,PPESSOA.DTNASCIMENTO)= DATEPART(MONTH,GETDATE()) AND DATEPART(DAY,PPESSOA.DTNASCIMENTO)< DATEPART(DAY,GETDATE()) THEN DATEDIFF(MONTH,PPESSOA.DTNASCIMENTO,GETDATE())/12
WHEN DATEPART(MONTH,PPESSOA.DTNASCIMENTO)= DATEPART(MONTH,GETDATE()) AND DATEPART(DAY,PPESSOA.DTNASCIMENTO)= DATEPART(DAY,GETDATE()) THEN DATEDIFF(MONTH,PPESSOA.DTNASCIMENTO,GETDATE())/12
WHEN DATEPART(MONTH,PPESSOA.DTNASCIMENTO)= DATEPART(MONTH,GETDATE()) AND DATEPART(DAY,PPESSOA.DTNASCIMENTO)> DATEPART(DAY,GETDATE()) THEN DATEDIFF(MONTH,PPESSOA.DTNASCIMENTO,GETDATE())/12-1
ELSE NULL
END AS IDADE ,

PFUNC.DATAADMISSAO,
CASE WHEN MONTH(PFUNC.DATAADMISSAO) = 1 THEN '01-JANEIRO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 2 THEN '02-FEVEREIRO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 3 THEN '03-MARÇO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 4 THEN '04-ABRIL'
WHEN MONTH(PFUNC.DATAADMISSAO) = 5 THEN '05-MAIO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 6 THEN '06-JUNHO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 7 THEN '07JULHO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 8 THEN '08-AGOSTO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 9 THEN '09-SETEMBRO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 10 THEN '10-OUTUBRO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 11 THEN '11-NOVEMBRO'
WHEN MONTH(PFUNC.DATAADMISSAO) = 12 THEN '12-DEZEMBRO'
END AS MÊS_ADMISSAO ,
YEAR(PFUNC.DATAADMISSAO) AS ANO_ADMISSAO,

PFUNC.DATADEMISSAO,

CASE WHEN MONTH(PFUNC.DATADEMISSAO) = 1 THEN '01-JANEIRO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 2 THEN '02-FEVEREIRO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 3 THEN '03-MARÇO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 4 THEN '04-ABRIL'
WHEN MONTH(PFUNC.DATADEMISSAO) = 5 THEN '05-MAIO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 6 THEN '06-JUNHO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 7 THEN '07-JULHO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 8 THEN '08-AGOSTO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 9 THEN '09-SETEMBRO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 10 THEN '10-OUTUBRO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 11 THEN '11-NOVEMBRO'
WHEN MONTH(PFUNC.DATADEMISSAO) = 12 THEN '12-DEZEMBRO'

END AS MÊS_DEMISSAO ,
YEAR(PFUNC.DATADEMISSAO) AS ANO_DEMISSAO ,
PFUNCAO.CBO2002 AS COD_CBO,
PFUNC.PISPASEP AS PIS,
PFUNC.CODFILIAL AS FILIAL,

( SELECT CONVERT(CHAR, DATEDIFF (DAY, FUNC.DATAADMISSAO,GETDATE() ) / 365, 1 ) + 'ANOS' + CONVERT(CHAR, (DATEDIFF (DAY, FUNC.DATAADMISSAO ,GETDATE() ) % 365 )/30 , 2 ) + 'MESES'


FROM PFUNC AS FUNC WHERE FUNC.CHAPA =PFUNC.CHAPA ) AS TEMPO_SERV,
PCODINSTRUCAO.DESCRICAO AS GRAU_INSTRUCAO ,

1 AS QUANTIDADE

FROM PFUNC

INNER JOIN PPESSOA ON
PPESSOA.CODIGO = PFUNC.CODPESSOA

LEFT JOIN PFUNCAO ON
PFUNC.CODCOLIGADA = PFUNCAO.CODCOLIGADA AND
PFUNC.CODFUNCAO = PFUNCAO.CODIGO

LEFT JOIN PFUNCAOCOMPL ON
PFUNC.CODFUNCAO = PFUNCAOCOMPL.CODFUNCAO AND
PFUNC.CODCOLIGADA = PFUNCAOCOMPL.CODCOLIGADA

LEFT JOIN GCONSIST AS GCONSIST_UNIF ON
GCONSIST_UNIF.CODCLIENTE = PFUNCAOCOMPL.UNIFORME
AND GCONSIST_UNIF.CODTABELA = 'TIPOUNIF'

LEFT JOIN PSECAO ON
PFUNC.CODSECAO = PSECAO.CODIGO AND
PFUNC.CODCOLIGADA = PSECAO.CODCOLIGADA



LEFT JOIN PTPFUNC ON
PFUNC.CODTIPO = PTPFUNC.CODCLIENTE

LEFT JOIN PCODSITUACAO ON
PFUNC.CODSITUACAO = PCODSITUACAO.CODCLIENTE

LEFT JOIN PCODINSTRUCAO ON

PPESSOA.GRAUINSTRUCAO = PCODINSTRUCAO.CODCLIENTE AND
PPESSOA.GRAUINSTRUCAO = PCODINSTRUCAO.CODINTERNO

WHERE

PFUNC.CODTIPO IN ('N','A','D','Z','T') AND
PFUNC.DATAADMISSAO <= :DATA_PERIODO_D AND
(PFUNC.DATADEMISSAO >= :DATA_PERIODO_D OR PFUNC.DATADEMISSAO IS NULL )

ORDER BY PFUNC.CHAPA

[Jair - Fórmula]

Deige, acho que não seria bem isso que ele deseja. Seria, especificar uma data, e listar quem está ativo e demitido nesta data... isso que entendi.

Confere Rodrigo??

Pior que não estou agora podendo analisar e ajudar, mas até a segunda, caso não apareça aqui ainda, eu tento montar pra vc pra dar uma força ae.