Aqui os códigos para usar em seu TOTVS RM, conforme explicação no vídeo, em nosso canal de Youtube.
SELECT
‘INCLUSÃO’ TIPO,
DEBITO,
CCONTADEBITO.DESCRICAO AS ‘DESCRICAODEBITO’,
CREDITO,
CCONTACREDITO.DESCRICAO AS ‘DESCRICAOCREDITO’,
CASE
WHEN
DEBITO IS NOT NULL
THEN
VALOR
ELSE
VALOR
END
VALOR , CPARTIDA.CODLOTE , CPARTIDA.DATA , CPARTIDA.IDLANCAMENTO , CPARTIDA.IDPARTIDA , CPARTIDA.CODCOLIGADA
FROM
CPARTIDA (NOLOCK)
LEFT JOIN
CCONTA CCONTADEBITO (NOLOCK)
ON CPARTIDA.CODCOLDEBITO = CCONTADEBITO.CODCOLIGADA
AND CPARTIDA.DEBITO = CCONTADEBITO.CODCONTA
LEFT JOIN
CCONTA CCONTACREDITO (NOLOCK)
ON CPARTIDA.CODCOLCREDITO = CCONTACREDITO.CODCOLIGADA
AND CPARTIDA.CREDITO = CCONTACREDITO.CODCONTA
WHERE
CPARTIDA.CODCOLIGADA = :$ CODCOLIGADA
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 1, 1) = ‘I’
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 2, 10) = :IDLAN
UNION ALL
SELECT
‘ESTORNO-INCLUSÃO’ TIPO,
DEBITO,
CCONTADEBITO.DESCRICAO AS ‘DESCRICAODEBITO’,
CREDITO,
CCONTACREDITO.DESCRICAO AS ‘DESCRICAOCREDITO’,
CASE
WHEN
DEBITO IS NOT NULL
THEN
VALOR* – 1
ELSE
VALOR
END
VALOR , CPARTIDA.CODLOTE , CPARTIDA.DATA , CPARTIDA.IDLANCAMENTO , CPARTIDA.IDPARTIDA , CPARTIDA.CODCOLIGADA
FROM
CPARTIDA (NOLOCK)
LEFT JOIN
CCONTA CCONTADEBITO (NOLOCK)
ON CPARTIDA.CODCOLDEBITO = CCONTADEBITO.CODCOLIGADA
AND CPARTIDA.DEBITO = CCONTADEBITO.CODCONTA
LEFT JOIN
CCONTA CCONTACREDITO (NOLOCK)
ON CPARTIDA.CODCOLCREDITO = CCONTACREDITO.CODCOLIGADA
AND CPARTIDA.CREDITO = CCONTACREDITO.CODCONTA
WHERE
CPARTIDA.CODCOLIGADA = :$ CODCOLIGADA
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 1, 2) = ‘EI’
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 3, 10) = :IDLAN
UNION ALL
SELECT
‘INCLUSAO-NUCLEUS’ TIPO,
DEBITO,
CCONTADEBITO.DESCRICAO AS ‘DESCRICAODEBITO’,
CREDITO,
CCONTACREDITO.DESCRICAO AS ‘DESCRICAOCREDITO’,
CASE
WHEN
DEBITO IS NOT NULL
THEN
VALOR* – 1
ELSE
VALOR
END
VALOR , CPARTIDA.CODLOTE , CPARTIDA.DATA , CPARTIDA.IDLANCAMENTO , CPARTIDA.IDPARTIDA , CPARTIDA.CODCOLIGADA
FROM
CPARTIDA (NOLOCK)
LEFT JOIN
CCONTA CCONTADEBITO (NOLOCK)
ON CPARTIDA.CODCOLDEBITO = CCONTADEBITO.CODCOLIGADA
AND CPARTIDA.DEBITO = CCONTADEBITO.CODCONTA
LEFT JOIN
CCONTA CCONTACREDITO (NOLOCK)
ON CPARTIDA.CODCOLCREDITO = CCONTACREDITO.CODCOLIGADA
AND CPARTIDA.CREDITO = CCONTACREDITO.CODCONTA
INNER JOIN
TMOV (NOLOCK)
ON CPARTIDA.CODCOLIGADA = TMOV.CODCOLIGADA
AND CPARTIDA.INTEGRACHAVE = TMOV.IDMOV
AND CPARTIDA.INTEGRAAPLICACAO = ‘T’
INNER JOIN
TMOVLAN (NOLOCK)
ON TMOV.CODCOLIGADA = TMOVLAN.CODCOLIGADA
AND TMOV.IDMOV = TMOVLAN.IDMOV
WHERE
CPARTIDA.CODCOLIGADA = :$ CODCOLIGADA
AND TMOVLAN.IDLAN = :IDLAN
UNION ALL
SELECT
‘BAIXA’ TIPO,
DEBITO,
CCONTADEBITO.DESCRICAO AS ‘DESCRICAODEBITO’,
CREDITO,
CCONTACREDITO.DESCRICAO AS ‘DESCRICAOCREDITO’,
CASE
WHEN
DEBITO IS NOT NULL
THEN
VALOR* – 1
ELSE
VALOR
END
VALOR , CPARTIDA.CODLOTE , CPARTIDA.DATA , CPARTIDA.IDLANCAMENTO , CPARTIDA.IDPARTIDA , CPARTIDA.CODCOLIGADA
FROM
CPARTIDA (NOLOCK)
LEFT JOIN
CCONTA CCONTADEBITO (NOLOCK)
ON CPARTIDA.CODCOLDEBITO = CCONTADEBITO.CODCOLIGADA
AND CPARTIDA.DEBITO = CCONTADEBITO.CODCONTA
LEFT JOIN
CCONTA CCONTACREDITO (NOLOCK)
ON CPARTIDA.CODCOLCREDITO = CCONTACREDITO.CODCOLIGADA
AND CPARTIDA.CREDITO = CCONTACREDITO.CODCONTA
WHERE
CPARTIDA.CODCOLIGADA = :$ CODCOLIGADA
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 1, 1) = ‘B’
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 2, 10) = :IDLAN
UNION ALL
SELECT
‘ESTORNO-BAIXA’ TIPO,
DEBITO,
CCONTADEBITO.DESCRICAO AS ‘DESCRICAODEBITO’,
CREDITO,
CCONTACREDITO.DESCRICAO AS ‘DESCRICAOCREDITO’,
CASE
WHEN
DEBITO IS NOT NULL
THEN
VALOR* – 1
ELSE
VALOR
END
VALOR , CPARTIDA.CODLOTE , CPARTIDA.DATA , CPARTIDA.IDLANCAMENTO , CPARTIDA.IDPARTIDA , CPARTIDA.CODCOLIGADA
FROM
CPARTIDA (NOLOCK)
LEFT JOIN
CCONTA CCONTADEBITO (NOLOCK)
ON CPARTIDA.CODCOLDEBITO = CCONTADEBITO.CODCOLIGADA
AND CPARTIDA.DEBITO = CCONTADEBITO.CODCONTA
LEFT JOIN
CCONTA CCONTACREDITO (NOLOCK)
ON CPARTIDA.CODCOLCREDITO = CCONTACREDITO.CODCOLIGADA
AND CPARTIDA.CREDITO = CCONTACREDITO.CODCONTA
WHERE
CPARTIDA.CODCOLIGADA = :$ CODCOLIGADA
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 1, 2) = ‘EB’
AND SUBSTRING(CPARTIDA.INTEGRACHAVE, 3, 10) = :IDLAN