terça-feira, 6 de abril de 2010

RM/RMSaldus - Script Balancete

Sentença SQL para geração de Balancete Contábil (Modelo)
Versão do RMSaldus: 10.80

SELECT DEBITO CONTA, SUM(VALOR) VALOR, 'D'
FROM CLANCA
WHERE (((CODHISTP <> '00021'))
OR (CODHISTP IS NULL))
AND CODCOLIGADA = 1
AND VALOR > 0
AND DEBITO >= '0'
AND DEBITO < 'a' AND DATA >= '01/01/2008'
AND DATA <= '12/31/2010' GROUP BY DEBITO UNION ALL SELECT CREDITO CONTA, SUM(VALOR) VALOR, 'C' FROM CLANCA WHERE (((CODHISTP <> '00021'))
OR (CODHISTP IS NULL))
AND CODCOLIGADA = 1
AND VALOR > 0
AND CREDITO >= '0'
AND CREDITO < 'a' AND DATA >= '01/01/2008'
AND DATA <= '12/31/2010' GROUP BY CREDITO UNION ALL SELECT CODCONTA CONTA, SUM(VALOR) VALOR, 'A' FROM CSDANT WHERE CODCOLIGADA = 1 AND VALOR <> 0.00
AND CODCONTA >= '0'
AND CODCONTA < 'a' GROUP BY CODCONTA UNION ALL SELECT DEBITO CONTA, SUM(VALOR) VALOR, 'A' FROM CLANCA WHERE (((CODHISTP <> '00021'))
OR (CODHISTP IS NULL))
AND CODCOLIGADA = 1
AND VALOR > 0
AND DEBITO >= '0'
AND DEBITO < 'a' AND DATA < '01/01/2008' GROUP BY DEBITO UNION ALL SELECT CREDITO CONTA, -SUM(VALOR) VALOR, 'A' FROM CLANCA WHERE (((CODHISTP <> '00021'))
OR (CODHISTP IS NULL))
AND CODCOLIGADA = 1
AND VALOR > 0
AND CREDITO >= '0'
AND CREDITO < 'a'
AND DATA < '01/01/2008'
GROUP BY CREDITO ORDER BY 1