Rastreabilidade De Lançamentos Do Saldus Com Fluxus (RESOLVIDO)

[Pablo Lima®]

Boa Noite galera!!

Estou precisando criar um relatório de lançamentos contábeis(Razão Fornecedor) onde é preciso informar um campo da FLAN.

Alguém possui uma consulta SQL que consiga relacionar a tabela CPARTIDA com a FLAN tanto na baixa contábil como na inclusão.

Só para explicar melhor preciso tirar um razão da conta fornecedores no Saldus que apareça o campo do CODCFO da FLAN , pois o Contador da empresa precisa saber de qual fornecedor é o DEBITO e/ou CREDITO.

Desde já agradeço!

[Frederico]

Pablo,

Veja se ajuda

SELECT

CPARTIDA.LCTREF AS REF,

CPARTIDA.DOCUMENTO,

CPARTIDA.DATA,

CPARTIDA.DEBITO,

CPARTIDA.CREDITO,

CPARTIDA.CODCCUSTO,

CPARTIDA.VALOR,

CPARTIDA.CODHISTP,

CPARTIDA.COMPLEMENTO

FROM CPARTIDA (NOLOCK)

LEFT JOIN CLANCAMENTO (NOLOCK)

ON CPARTIDA.CODCOLIGADA = CLANCAMENTO.CODCOLIGADA

AND CPARTIDA.IDLANCAMENTO = CLANCAMENTO.IDLANCAMENTO

LEFT JOIN CCONT (NOLOCK)

ON CPARTIDA.CODCOLIGADA = CCONT.CODCOLIGADA

AND CPARTIDA.IDPARTIDA = CCONT.IDPARTIDA

LEFT JOIN COPERACAO (NOLOCK)

ON CCONT.CODCOLIGADA = COPERACAO.CODCOLIGADA

AND CCONT.IDOPERACAO = COPERACAO.IDOPERACAO

LEFT JOIN FLANBAIXA (NOLOCK)

ON COPERACAO.CODCOLIGADA = FLANBAIXA.CODCOLIGADA

AND COPERACAO.IDOPERACAO = FLANBAIXA.IDOPERACAO

AND FLANBAIXA.PAGREC = 1

LEFT JOIN FLAN (NOLOCK)

ON FLANBAIXA.CODCOLIGADA = FLAN.CODCOLIGADA

AND FLANBAIXA.IDLAN = FLAN.IDLAN

LEFT JOIN FXCX (NOLOCK)

ON FXCX.CODCOLIGADA = FLANBAIXA.CODCOLIGADA

AND FXCX.IDXCX = FLANBAIXA.IDXCX

LEFT JOIN FCXA (NOLOCK) ON

FCXA.CODCOLIGADA = FLANBAIXA.CODCOLIGADA AND

FCXA.CODCXA = FLANBAIXA.CODCXA

LEFT JOIN FCXADEF (NOLOCK) ON

FCXADEF.CODCOLCXA = FCXA.CODCOLIGADA

AND FCXADEF.CODCXA = FCXA.CODCXA

WHERE CPARTIDA.CODCOLIGADA = 1

AND CPARTIDA.CODLOTE = 0

AND CPARTIDA.CODLOTEORIGEM =:CODLOTEORIGEM

AND CPARTIDA.DATA >=:DATA_INI

AND CPARTIDA.DATA <=:DATA_FIM

AND CPARTIDA.CODFILIAL NOT IN (5,6)

[]'s

[Pablo Lima®]

Vlw Frederico!!!!

Ajudou bastante..

Consegui montar uma consulta onde traz o Código do Fornecedor no razão contábil.

Se tiver alguma inconsistência gostaria de uma sugestão.

segue:

SELECT C.CODLOTE AS COD$, C.CODFILIAL,C.IDPARTIDA, C.DATA, C.DOCUMENTO,

CASE WHEN C.DEBITO IS NOT NULL AND C.DEBITO = CC.CODCONTA THEN C.VALOR ELSE '0' END AS VALOR_DEBITO,

CASE WHEN C.CREDITO IS NOT NULL AND C.CREDITO = CC.CODCONTA THEN C.VALOR ELSE '0' END AS VALOR_CREDITO,

C.COMPLEMENTO ,C.CODCCUSTO, FF.CODCFO

FROM

CPARTIDA C (NOLOCK)

LEFT JOIN CCONTA CC (NOLOCK) ON C.CODCOLIGADA = CC.CODCOLIGADA AND C.CREDITO = CC.CODCONTA

LEFT JOIN CCONT CT (NOLOCK)

ON C.CODCOLIGADA = CT.CODCOLIGADA

AND C.IDPARTIDA = CT.IDPARTIDA

LEFT JOIN COPERACAO OP (NOLOCK)

ON CT.CODCOLIGADA = OP.CODCOLIGADA

AND CT.IDOPERACAO = OP.IDOPERACAO

LEFT JOIN FLANBAIXA FL (NOLOCK)

ON OP.CODCOLIGADA = FL.CODCOLIGADA

AND OP.IDOPERACAO = FL.IDOPERACAO

LEFT JOIN FXCX FX (NOLOCK)

ON FX.CODCOLIGADA = FL.CODCOLIGADA

AND FX.IDXCX = FL.IDXCX

LEFT JOIN FLAN FF (NOLOCK)

ON OP..CODCOLIGADA = FF.CODCOLIGADA

AND OP.IDOPERACAO = FF.IDOPERACAO

WHERE

C.DATA >=:DATA_INICIAL_D

AND C.DATA <=:DATA_FINAL_D

AND C.CODFILIAL >=:FILIAL_INICIAL

AND C.CODFILIAL <=:FILIAL_FINAL

AND CC.REDUZIDO ='2010'

AND OP.ORIGEM <> 'TMOV'

UNION ALL

SELECT C.CODLOTE AS COD$, C.CODFILIAL,C.IDPARTIDA, C.DATA, C.DOCUMENTO,

CASE WHEN C.DEBITO IS NOT NULL AND C.DEBITO = CC.CODCONTA THEN C.VALOR ELSE '0' END AS VALOR_DEBITO,

CASE WHEN C.CREDITO IS NOT NULL AND C.CREDITO = CC.CODCONTA THEN C.VALOR ELSE '0' END AS VALOR_CREDITO,

C.COMPLEMENTO ,C.CODCCUSTO, FF.CODCFO

FROM

CPARTIDA C (NOLOCK)

LEFT JOIN CCONTA CC (NOLOCK) ON C.CODCOLIGADA = CC.CODCOLIGADA AND C.DEBITO = CC.CODCONTA

LEFT JOIN CCONT CT (NOLOCK)

ON C.CODCOLIGADA = CT.CODCOLIGADA

AND C.IDPARTIDA = CT.IDPARTIDA

LEFT JOIN COPERACAO OP (NOLOCK)

ON CT.CODCOLIGADA = OP.CODCOLIGADA

AND CT.IDOPERACAO = OP.IDOPERACAO

LEFT JOIN FLANBAIXA FL (NOLOCK)

ON OP.CODCOLIGADA = FL.CODCOLIGADA

AND OP.IDOPERACAO = FL.IDOPERACAO

LEFT JOIN FXCX FX (NOLOCK)

ON FX.CODCOLIGADA = FL.CODCOLIGADA

AND FX.IDXCX = FL.IDXCX

LEFT JOIN FLAN FF (NOLOCK)

ON FL.CODCOLIGADA = FF.CODCOLIGADA

AND FL.IDLAN = FF.IDLAN

WHERE

C.DATA >=:DATA_INICIAL_D

AND C.DATA <=:DATA_FINAL_D

AND C.CODFILIAL >=:FILIAL_INICIAL

AND C.CODFILIAL <=:FILIAL_FINAL

AND CC.REDUZIDO ='2010'

UNION ALL

SELECT C.CODLOTE AS COD$, C.CODFILIAL, C.IDPARTIDA, C.DATA, C.DOCUMENTO,

CASE WHEN C.DEBITO IS NOT NULL AND C.DEBITO = CC.CODCONTA THEN C.VALOR ELSE '0' END AS VALOR_DEBITO,

CASE WHEN C.CREDITO IS NOT NULL AND C.CREDITO = CC.CODCONTA THEN C.VALOR ELSE '0' END AS VALOR_CREDITO,

C.COMPLEMENTO ,C.CODCCUSTO

,

TT.CODCFO

FROM

CPARTIDA C, CCONTA CC , TMOVCONT T, TMOV TT

WHERE C.CODCOLIGADA = CC.CODCOLIGADA

AND C.CREDITO =CC.CODCONTA

AND C.CODCOLIGADA *= T.CODCOLIGADA

AND C.IDPARTIDA *= T.IDPARTIDA

AND C.CREDITO *= T.CODCONTA

AND T.IDMOV = TT.IDMOV

AND T.CODCOLIGADA = TT.CODCOLIGADA

AND C.DATA >=:DATA_INICIAL_D

AND C.DATA <=:DATA_FINAL_D

AND C.CODFILIAL >=:FILIAL_INICIAL

AND C.CODFILIAL <=:FILIAL_FINAL

AND CC.REDUZIDO='2010'