Dúvida
O processo de contabilização pode ser gerada através de um relatório na tela GARFL007. Qual a orientação para inserir informações referente ao evento, competência, setor e nome do funcionário no complemento livre?
Ambiente
Virtual Age - Recursos Humanos
Solução
Para inserir as informações referente ao evento, competência, setor e nome do funcionário no complemento livre, realize a seguinte alteração:
- Acesse a tela GARFM004;
- No campo Consulta, informe o código do relatório referente a contabilização;
- No campo Comando apague todo o conteúdo existente e cole o comando abaixo:
SELECT
LPAD(1,6,0) || --NR_ORDEM
LPAD(ROWNUM,6,0) || --NR_LANC
TO_CHAR(LAST_DAY(DT_COMPETENCIA),'DDMMYYYY') || --DT_LANC
LPAD(NR_CNPJ,14,0) || --CNPJ
LPAD(CD_REDUZIDO,7,0) || --REDUZIDO
LPAD(VL_MOVIMENTO,14,0) || --VALOR
TP_SINAL || --SINAL PARTIDA
LPAD(0,9,0) || --C. CUSTO
LPAD(NR_HISTCINT,4,0) || --CD_HISTORICO,
DS_EVENTO||' - '||TO_CHAR(DT_COMPETENCIA,'MMYYYY')||' - '||DS_SETOR||' - '||NM_FUNC --COMPL. HISTORICO
EXP --NOME DO CAMPO
FROM
(SELECT
D.NR_CTADINT CD_REDUZIDO ,
'D' TP_SINAL ,
D.NR_HISTCINT NR_HISTCINT ,
B.CD_EVENTO CD_EVENTO ,
CASE WHEN ROUND(B.VL_MOVIMENTO,2)< 0
THEN ROUND(B.VL_MOVIMENTO,2)*-1*100
ELSE ROUND(B.VL_MOVIMENTO,2)*100
END VL_MOVIMENTO ,
A.DT_COMPETENCIA DT_COMPETENCIA ,
F.NR_CPFCNPJ NR_CNPJ,
(SELECT DS_CLASSIFICACAO FROM RHU_CLASSIFICACAO WHERE CD_TIPOCLAS = 1 AND CD_CLASSIFICACAO = F_DIC_RHU_CLASU_FUNCIONARIO(A.CD_EMPFUNC,A.CD_CHAPA, 1, NULL)) DS_SETOR,
G.DS_EVENTO,
SUBSTR(F_DIC_PES_NOME(H.CD_FUNCIONARIO),0,60) NM_FUNC
FROM
VR_RHU_FUNCMOVC A,
VR_RHU_FUNCMOVM B,
(SELECT * FROM VR_CTP_INSTRHUC WHERE TP_SITUACAO = 1) D,
VR_CTP_INSTRHUO E,
VR_GER_EMPRESA F,
RHU_EVENTO G,
VR_RHU_FUNCIONARIO H
WHERE A.DT_COMPETENCIA BETWEEN @DT_INICIAL AND @DT_FINAL
AND A.CD_EMPFUNC IN (@CD_EMPRESA)
AND H.CD_EMPFUNC = A.CD_EMPFUNC
AND H.CD_CHAPA = A.CD_CHAPA
AND G.CD_EVENTO = B.CD_EVENTO
AND F.CD_EMPRESA = A.CD_EMPFUNC
AND A.TP_SITUACAO <> 6
AND B.CD_EMPFUNC = A.CD_EMPFUNC
AND B.CD_CHAPA = A.CD_CHAPA
AND B.DT_COMPETENCIA = A.DT_COMPETENCIA
AND B.NR_SEQMOVC = A.NR_SEQMOVC
AND TO_NUMBER(E.CP1) = TO_NUMBER(B.CD_EVENTO)
AND TO_NUMBER(E.CP2) = A.TP_FOLHA
AND TO_NUMBER(E.CP3) = TO_NUMBER(TRIM(F_DIC_RHU_CLASU_FUNCIONARIO(A.CD_EMPFUNC,A.CD_CHAPA, 1, NULL)))
AND D.NR_INSTRUCAO = E.NR_INSTRUCAO
--------------------;
UNION ALL
--------------------;
SELECT
D.NR_CTACINT ,
'C' ,
D.NR_HISTCINT ,
B.CD_EVENTO ,
CASE WHEN ROUND(B.VL_MOVIMENTO,2)< 0
THEN ROUND(B.VL_MOVIMENTO,2)*-1*100
ELSE ROUND(B.VL_MOVIMENTO,2)*100
END ,
A.DT_COMPETENCIA ,
F.NR_CPFCNPJ,
(SELECT DS_CLASSIFICACAO FROM RHU_CLASSIFICACAO WHERE CD_TIPOCLAS = 1 AND CD_CLASSIFICACAO = F_DIC_RHU_CLASU_FUNCIONARIO(A.CD_EMPFUNC,A.CD_CHAPA, 1, NULL)) DS_SETOR,
G.DS_EVENTO,
SUBSTR(F_DIC_PES_NOME(H.CD_FUNCIONARIO),0,60) NM_FUNC
FROM
VR_RHU_FUNCMOVC A,
VR_RHU_FUNCMOVM B,
(SELECT * FROM VR_CTP_INSTRHUC WHERE TP_SITUACAO = 1) D,
VR_CTP_INSTRHUO E,
VR_GER_EMPRESA F,
RHU_EVENTO G,
VR_RHU_FUNCIONARIO H
WHERE A.DT_COMPETENCIA BETWEEN @DT_INICIAL AND @DT_FINAL
AND A.CD_EMPFUNC IN (@CD_EMPRESA)
AND H.CD_EMPFUNC = A.CD_EMPFUNC
AND H.CD_CHAPA = A.CD_CHAPA
AND G.CD_EVENTO = B.CD_EVENTO
AND F.CD_EMPRESA = A.CD_EMPFUNC
AND A.CD_EMPFUNC > 0
AND A.TP_SITUACAO <> 6
AND B.CD_EMPFUNC = A.CD_EMPFUNC
AND B.CD_CHAPA = A.CD_CHAPA
AND B.DT_COMPETENCIA = A.DT_COMPETENCIA
AND B.NR_SEQMOVC = A.NR_SEQMOVC
AND TO_NUMBER(E.CP1) = TO_NUMBER(B.CD_EVENTO)
AND TO_NUMBER(E.CP2) = A.TP_FOLHA
AND TO_NUMBER(E.CP3) = TO_NUMBER(TRIM(F_DIC_RHU_CLASU_FUNCIONARIO(A.CD_EMPFUNC,A.CD_CHAPA, 1, NULL)))
AND D.NR_INSTRUCAO = E.NR_INSTRUCAO
)
WHERE VL_MOVIMENTO > 0
- Pressione a tecla F3 para salvar e gere novamente o relatório.
0 Comentários