SELECT P.CHAPA CHAPA_CHEFE,
P.NOME NOME_CHEFE,
PF.NOME FUNCAO_CHEFE,
P.CODFILIAL CODFILIAL_CHEFE,
C.CODSECAO CODSECAO_CHEFE,
PS.DESCRICAO AS DEPARTAMENTO_CHEFE,
A.CHAPA CHAPA_FUNC,
A.NOME NOME_FUNC,
A.FUNCAO,
A.CODFILIAL_FUNC,
A.CODSECAO CODSECAO_FUNC,
A.DEPARTAMENTO_FUNC
FROM PFUNC P,
PSUBSTCHEFE C,
PFUNCAO PF,
PSECAO PS,
(SELECT PFUNC.NOME,
PFUNC.CHAPA,
PFUNC.CODFILIAL AS CODFILIAL_FUNC,
PFUNC.CODSECAO,
PFUNCAO.NOME AS FUNCAO,
PSECAO.DESCRICAO AS DEPARTAMENTO_FUNC
FROM PFUNC, PFUNCAO, PSECAO
WHERE CODGRPQUIOSQUE = '02'
AND CODSITUACAO <> 'D'
AND CODTIPO NOT IN ('A', 'S')
AND PFUNCAO.CODIGO = PFUNC.CODFUNCAO
AND PSECAO.CODIGO = PFUNC.CODSECAO) A
WHERE C.CHAPASUBST = P.CHAPA
AND P.CODGRPQUIOSQUE = '03'
AND A.CODSECAO = C.CODSECAO
AND C.DATAFIM IS NULL
AND PF.CODIGO = P.CODFUNCAO
AND PS.CODIGO = P.CODSECAO