LRC000 — Listagem LRC000
Visão Geral
Layout de impressão da família LRC (Romaneio). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.
Descrição
Consulta baseada em GERA_SEQUENCIA, com junção em CHEQUE, BANCO, AGENCIA, CONTAS, PESSOA, HISTORICO (+14), filtrada por CD_EMPRPROC, NR_PROCESSO, TP_DOCUMENTO, TP_PAGTO, VL_ORIG, MP (+8).
Chamada
ExecLayout(Connection, [
// parametros nao documentados no .pas
]);
SQL Base
tabSequencia
SELECT V_NR_SEQUENCIA, V_DS_MENSAGEM
FROM GERA_SEQUENCIA(:CD_EMPRESA, :SEQ_CONTROLECAIXA) CD_EMPRESA SEQ_CONTROLECAIXA V_NR_SEQUENCIA "GERA_SEQUENCIA"."V_NR_SEQUENCIA" V_DS_MENSAGEM "GERA_SEQUENCIA"."V_DS_MENSAGEM"
SELECT M.NR_DOCUMENTO NR_CHEQUE, B.DS_BANCO, M.VL_DOCUMENTO, CH.NM_TITULAR NM_CORRENTISTA
FROM MOVTOCAIXA M
INNER JOIN CHEQUE CH ON (CH.CD_EMPRCAIXA = M.CD_EMPRESA
AND CH.NR_LANCCAIXA = M.NR_LANCCAIXA)
LEFT JOIN BANCO B ON (B.CD_BANCO = M.CD_BANCO)
LEFT JOIN AGENCIA A ON (A.CD_BANCO = B.CD_BANCO
AND A.CD_AGENCIA = M.CD_AGENCIA)
WHERE M.CD_EMPRPROC = :CD_EMPRESA
AND M.NR_PROCESSO = :NR_PROCESSO
AND M.TP_DOCUMENTO = 'AV'
AND M.CD_BANCO IS NOT NULL
AND CH.TP_PAGTO = 'H' CD_EMPRESA NR_PROCESSO
SELECT C.NR_DOCUMENTO||' / '||C.NR_PARCELA NR_DOCPARCELA, P.NM_PESSOA NM_RAZAOSOCIAL, MP.VL_DOCUMENTO VL_ORIGINAL, SUM(COALESCE(MP.VL_JURO, 0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO, 0)) VL_DESCONTO, (MP.VL_DOCUMENTO + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO, 0))) VL_LIQUIDO
FROM MOVTOPROCESSO MP
INNER JOIN CONTAS C ON (C.CD_EMPRESA = MP.CD_EMPRCONTAS
AND C.NR_LANCAMENTO = MP.NR_LANCAMENTO
AND C.CD_PESSOA = MP.CD_PESSOA
AND C.CD_TIPOCONTA = MP.CD_TIPOCONTA
AND C.NR_PARCELA = MP.NR_PARCELA)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = MP.CD_HISTORICO)
WHERE MP.CD_EMPRESA = :CD_EMPRESA
AND MP.NR_PROCESSO = :NR_PROCESSO
AND H.TP_HISTORICO IN ('U')
GROUP BY C.NR_DOCUMENTO||' / '||C.NR_PARCELA, P.NM_PESSOA, MP.VL_DOCUMENTO CD_EMPRESA NR_PROCESSO
SELECT 1 codigo
FROM empresa
WHERE cd_empresa = 1
UNION ALL
SELECT 2 codigo
FROM empresa
WHERE cd_empresa = 1
SELECT MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,'') DS_ENDERECOPESSOA, PE.NR_CNPJCPF NR_CNPJCPFPESSOA, EP.NR_FONE, MP.NR_LANCAMENTO, COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),'') NR_DOCUMENTO, IIF(CT.TP_DOCUMENTO = 'NT','NF',CT.TP_DOCUMENTO) TP_DOCUMENTO, ABS(SUM(CASE H.TP_NATUREZA WHEN 'R' THEN MP.VL_DOCUMENTO ELSE MP.VL_DOCUMENTO * -1 END)) VL_DOCUMENTO, CT.VL_DOCUMENTO VL_DOCTORIGEM, SUM(COALESCE(MP.VL_JURO,0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO,0)) VL_DESCONTO, ABS(SUM(CASE H.TP_NATUREZA WHEN 'R' THEN MP.VL_DOCUMENTO ELSE MP.VL_DOCUMENTO * -1 END)) + SUM(COALESCE(MP.VL_JURO,0)) - SUM(COALESCE(MP.VL_DESCONTO,0)) VL_SALDO, CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END DS_ESPECIE, PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO, CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO, FP.DS_FORMAPAGTO, CASE CT.TP_DOCUMENTO WHEN 'NT' THEN 'Nota Fiscal' WHEN 'DP' THEN 'Duplicata Avulsa' WHEN 'AD' THEN 'Adiantamento' WHEN 'CH' THEN 'Cheques' WHEN 'CT' THEN 'Cartão de Crédito' WHEN 'AG' THEN 'Contas Agrupados' WHEN 'FA' THEN 'Fatura' WHEN 'VA' THEN 'Vale' ELSE 'Outros' END DS_TPDOCUMENTO
FROM MOVTOPROCESSO MP
INNER JOIN PROCESSO PRC ON (PRC.CD_EMPRESA = MP.CD_EMPRESA
AND PRC.NR_PROCESSO = MP.NR_PROCESSO)
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = MP.CD_EMPRESA)
INNER JOIN CONTAS CT ON (MP.CD_EMPRCONTAS = CT.CD_EMPRESA
AND MP.NR_LANCAMENTO = CT.NR_LANCAMENTO
AND MP.NR_PARCELA = CT.NR_PARCELA
AND MP.CD_PESSOA = CT.CD_PESSOA
AND MP.CD_TIPOCONTA = CT.CD_TIPOCONTA)
INNER JOIN CONTASHISTORICO CH ON (MP.CD_EMPRCONTAS = CH.CD_EMPRESA
AND MP.NR_LANCAMENTO = CH.NR_LANCAMENTO
AND MP.NR_PARCELA = CH.NR_PARCELA
AND MP.CD_PESSOA = CH.CD_PESSOA
AND MP.CD_TIPOCONTA = CH.CD_TIPOCONTA
AND MP.CD_HISTORICO = CH.CD_HISTORICO)
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO)
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = CT.CD_EMPRESA)
INNER JOIN PESSOA PE ON(PE.CD_PESSOA = CT.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = COALESCE(:PESSOA, PE.CD_PESSOA)
AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(COALESCE(:PESSOA, PE.CD_PESSOA) ,NULL)))
LEFT JOIN MUNICIPIO MUN ON (MUN.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN BANCO BC ON (BC.CD_BANCO = CT.CD_BANCO)
LEFT JOIN AGENCIA AG ON (AG.CD_AGENCIA = CT.CD_AGENCIA
AND AG.CD_BANCO = CT.CD_BANCO)
LEFT JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = CT.CD_FORMAPAGTO)
WHERE MP.CD_EMPRESA = :CD_EMPRESA
AND MP.NR_PROCESSO = :NR_PROCESSO
GROUP BY MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,''), PE.NR_CNPJCPF, EP.NR_FONE, MP.NR_LANCAMENTO, COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),''), CT.TP_DOCUMENTO, CT.VL_DOCUMENTO, CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END, PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO, CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO, FP.DS_FORMAPAGTO
UNION ALL
SELECT MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,'') DS_ENDERECOPESSOA, PE.NR_CNPJCPF NR_CNPJCPFPESSOA, EP.NR_FONE, MP.NR_LANCAMENTO, COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),'') NR_DOCUMENTO, IIF(CT.TP_DOCUMENTO = 'NT','NF',CT.TP_DOCUMENTO) TP_DOCUMENTO, ABS(SUM(CASE H.TP_NATUREZA WHEN 'R' THEN MP.VL_DOCUMENTO ELSE MP.VL_DOCUMENTO * -1 END)) VL_DOCUMENTO, CT.VL_DOCUMENTO VL_DOCTORIGEM, SUM(COALESCE(MP.VL_JURO,0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO,0)) VL_DESCONTO, ABS(SUM(CASE H.TP_NATUREZA WHEN 'R' THEN MP.VL_DOCUMENTO ELSE MP.VL_DOCUMENTO * -1 END)) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)) VL_SALDO, CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END DS_ESPECIE, PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO, CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO, FP.DS_FORMAPAGTO, CASE CT.TP_DOCUMENTO WHEN 'NT' THEN 'Nota Fiscal' WHEN 'DP' THEN 'Duplicata Avulsa' WHEN 'AD' THEN 'Adiantamento' WHEN 'CH' THEN 'Cheques' WHEN 'CT' THEN 'Cartão de Crédito' WHEN 'AG' THEN 'Contas Agrupados' WHEN 'FA' THEN 'Fatura' WHEN 'VA' THEN 'Vale' ELSE 'Outros' END DS_TPDOCUMENTO
FROM MOVTOPROCESSO MP
INNER JOIN PROCESSO PRC ON (PRC.CD_EMPRESA = MP.CD_EMPRESA
AND PRC.NR_PROCESSO = MP.NR_PROCESSO)
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = MP.CD_EMPRESA)
INNER JOIN CONTAS CT ON (MP.CD_EMPRCONTAS = CT.CD_EMPRESA
AND MP.NR_LANCAMENTO = CT.NR_LANCAMENTO
AND MP.NR_PARCELA = CT.NR_PARCELA
AND MP.CD_PESSOA = CT.CD_PESSOA
AND MP.CD_TIPOCONTA = CT.CD_TIPOCONTA)
INNER JOIN CONTASHISTORICO CH ON (MP.CD_EMPRCONTAS = CH.CD_EMPRESA
AND MP.NR_LANCAMENTO = CH.NR_LANCAMENTO
AND MP.NR_PARCELA = CH.NR_PARCELA
AND MP.CD_PESSOA = CH.CD_PESSOA
AND MP.CD_TIPOCONTA = CH.CD_TIPOCONTA)
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO
AND H.CD_HISTCONT = MP.CD_HISTORICO)
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = CT.CD_EMPRESA)
INNER JOIN PESSOA PE ON(PE.CD_PESSOA = CT.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = COALESCE(:PESSOA, PE.CD_PESSOA)
AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(COALESCE(:PESSOA, PE.CD_PESSOA) ,NULL)))
LEFT JOIN BANCO BC ON (BC.CD_BANCO = CT.CD_BANCO)
LEFT JOIN AGENCIA AG ON (AG.CD_AGENCIA = CT.CD_AGENCIA
AND AG.CD_BANCO = CT.CD_BANCO)
LEFT JOIN MUNICIPIO MUN ON (MUN.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = CT.CD_FORMAPAGTO)
WHERE MP.CD_EMPRESA = :CD_EMPRESA
AND MP.NR_PROCESSO = :NR_PROCESSO
GROUP BY MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, EP.DS_ENDERECO, EP.NR_ENDERECO, MUN.DS_MUNICIPIO, MUN.SG_ESTADO, PE.NR_CNPJCPF, EP.NR_FONE, MP.NR_LANCAMENTO, CT.NR_DOCUMENTO, CT.NR_PARCELA, CT.TP_DOCUMENTO, CT.TP_CONTAS, CT.VL_DOCUMENTO, MP.CD_PESSOA, PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO, CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO, FP.DS_FORMAPAGTO PESSOA PESSOA CD_EMPRESA NR_processo PESSOA PESSOA CD_EMPRESA NR_PROCESSO
SELECT DS_BANCO, DS_AGENCIA, NR_DOCUMENTO, DT_VENCIMENTO, NM_TITULAR, sum(VL_DOCUMENTO) VL_DOCUMENTO, sum(VL_TOTAL) VL_TOTAL, TP_MOVTOCAIXA, SUM( CASE WHEN TP_MOVTOCAIXA = 'P' THEN VL_DOCUMENTO * -1 ELSE VL_DOCUMENTO END ) VL_DOCUMENTO_2
FROM (
SELECT BC.DS_BANCO, AG.DS_AGENCIA, CTC.NR_DOCUMENTO, CTC.dt_vencimento, C.NM_TITULAR, CASE WHEN MXCH.TP_MOVTOCAIXA <> P.TP_PROCESSO THEN 1 else 0 end tipo, CTC.VL_DOCUMENTO, CASE WHEN MXCH.TP_MOVTOCAIXA <> P.TP_PROCESSO THEN CTC.VL_DOCUMENTO * -1 ELSE MXCH.VL_DOCUMENTO END VL_TOTAL, MXCH.TP_MOVTOCAIXA, CTC.CD_EMPRESA, CTC.NR_LANCAMENTO, CTC.CD_PESSOA, CTC.CD_TIPOCONTA, CTC.NR_PARCELA
FROM MOVTOPROCESSO MPCH
INNER JOIN PROCESSO P on (P.CD_EMPRESA = MPCH.CD_EMPRESA
AND P.NR_PROCESSO = MPCH.NR_PROCESSO)
INNER JOIN CHEQUE C on (C.CD_EMPRESA = MPCH.CD_EMPRCONTAS
AND C.NR_LANCAMENTO = MPCH.NR_LANCAMENTO
AND C.CD_PESSOA = MPCH.CD_PESSOA
AND C.CD_TIPOCONTA = MPCH.CD_TIPOCONTA
AND C.NR_PARCELA = MPCH.NR_PARCELA)
INNER JOIN CONTAS CTC on (CTC.CD_EMPRESA = C.CD_EMPRESA
AND CTC.NR_LANCAMENTO = C.NR_LANCAMENTO
AND CTC.CD_PESSOA = C.CD_PESSOA
AND CTC.CD_TIPOCONTA = C.CD_TIPOCONTA
AND CTC.NR_PARCELA = C.NR_PARCELA)
INNER JOIN BANCO BC on (BC.CD_BANCO = CTC.CD_BANCO)
INNER JOIN AGENCIA AG on (AG.CD_BANCO = CTC.CD_BANCO
AND AG.CD_AGENCIA = CTC.CD_AGENCIA)
INNER JOIN MOVTOCAIXA MXCH on (MXCH.CD_EMPRESA = C.CD_EMPRCAIXA
AND MXCH.NR_LANCCAIXA = C.NR_LANCCAIXA)
WHERE MPCH.CD_EMPRESA = :CD_EMPRESA
AND MPCH.NR_PROCESSO = :NR_PROCESSO
AND MPCH.CD_HISTORICO in (
SELECT H.CD_HISTORICO
FROM HISTORICO H
WHERE H.CD_HISTORICO = MPCH.CD_HISTORICO
AND H.TP_HISTORICO = 'H'
AND H.TP_NATUREZA <> P.TP_PROCESSO)
UNION ALL
SELECT DS_BANCO, DS_AGENCIA, NR_DOCUMENTO, DT_VENCIMENTO, NM_TITULAR, CASE WHEN TP_MOVTOCAIXA = TP_PROCESSO THEN 1 ELSE 0 END TIPO, VL_DOCUMENTO, CASE WHEN TP_MOVTOCAIXA = TP_PROCESSO THEN VL_DOCUMENTO * -1 ELSE VL_DOCUMENTO END VL_TOTAL, TP_MOVTOCAIXA, CD_EMPRESA, NR_LANCAMENTO, CD_PESSOA, CD_TIPOCONTA, NR_PARCELA
FROM(
SELECT (
SELECT COUNT(*)
FROM CHEQUE CC
WHERE CC.CD_EMPRESA = C.CD_EMPRESA
AND CC.NR_LANCCAIXA = C.NR_LANCCAIXA) QT_DIVISOR, COALESCE(PP.DS_CONTA, 'CARTÃO') DS_BANCO, AG.DS_AGENCIA, MT.NR_DOCUMENTO, CTC.DT_VENCIMENTO, MT.TP_MOVTOCAIXA, P.TP_PROCESSO, RVPC.O_VL_DOCUMENTO VL_DOCUMENTO, C.NM_TITULAR, CTC.VL_DOCUMENTO VL_DOC, C.VL_JUROS, ctc.CD_EMPRESA, CTC.NR_LANCAMENTO, CTC.CD_PESSOA, CTC.CD_TIPOCONTA, CTC.NR_PARCELA
FROM PROCESSO P
INNER JOIN MOVTOCAIXA MT ON (MT.CD_EMPRPROC = P.CD_EMPRESA
AND MT.NR_PROCESSO = P.NR_PROCESSO
AND MT.TP_DOCUMENTO = 'AV')
INNER JOIN PARMSALDO PM ON (PM.CD_EMPRESA = MT.CD_EMPRESA
AND PM.CD_CONTA = COALESCE(MT.CD_CONTADEBITO,MT.CD_CONTACREDITO))
LEFT JOIN VIEW_PLANOCONTAS(P.CD_EMPRESA, 'AND P.CD_CONTA = '||PM.CD_CONTA) PP ON (1 = 1)
LEFT JOIN BANCO BC ON (BC.CD_BANCO = MT.CD_BANCO)
LEFT JOIN AGENCIA AG ON (AG.CD_BANCO = MT.CD_BANCO
AND AG.CD_AGENCIA = MT.CD_AGENCIA)
INNER JOIN CHEQUE C ON (C.CD_EMPRESA = MT.CD_EMPRESA
AND C.NR_LANCCAIXA = MT.NR_LANCCAIXA)
INNER JOIN CONTAS CTC ON (CTC.CD_EMPRESA = C.CD_EMPRESA
AND CTC.NR_LANCAMENTO = C.NR_LANCAMENTO
AND CTC.CD_PESSOA = C.CD_PESSOA
AND CTC.CD_TIPOCONTA = C.CD_TIPOCONTA
AND CTC.NR_PARCELA = C.NR_PARCELA)
LEFT JOIN RETORNA_VLPARCELACARTAO(CTC.CD_EMPRESA, CTC.NR_LANCAMENTO, CTC.CD_PESSOA, CTC.CD_TIPOCONTA, CTC.NR_PARCELA, C.VL_JUROS) RVPC ON(1=1)
WHERE PM.TP_SALDO IN ('R','P', 'T', 'C')
AND P.CD_EMPRESA = :CD_EMPRESA
AND P.NR_PROCESSO = :NR_PROCESSO
GROUP BY COALESCE(PP.DS_CONTA, 'CARTÃO'), AG.DS_AGENCIA, MT.NR_DOCUMENTO, CTC.DT_VENCIMENTO, MT.TP_MOVTOCAIXA, P.TP_PROCESSO, RVPC.O_VL_DOCUMENTO, ctc.CD_EMPRESA, CTC.NR_LANCAMENTO, CTC.CD_PESSOA, CTC.CD_TIPOCONTA, CTC.NR_PARCELA, C.NM_TITULAR, C.CD_EMPRESA, C.NR_LANCCAIXA,CTC.VL_DOCUMENTO, C.VL_JUROS )
UNION ALL
SELECT BC.DS_BANCO, AG.DS_AGENCIA, cast(null as integer) NR_DOCUMENTO, CAST(NULL AS DATE) DT_VENCIMENTO, cast(null as varchar(60)) NM_TITULAR, CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN 1 else 0 end tipo, MT.VL_DOCUMENTO, CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN MT.VL_DOCUMENTO * -1 ELSE MT.VL_DOCUMENTO END VL_TOTAL, MT.TP_MOVTOCAIXA, null, null, null, null, null
FROM PROCESSO P
INNER JOIN MOVTOCAIXA MT on (MT.CD_EMPRPROC = P.CD_EMPRESA
AND MT.NR_PROCESSO = P.NR_PROCESSO
AND MT.TP_DOCUMENTO = 'AV')
LEFT JOIN VIEW_PARMSALDO(P.CD_EMPRESA, coalesce(MT.CD_CONTADEBITO,MT.CD_CONTACREDITO), 'B', null) PM on (1 = 1)
INNER JOIN BANCO BC on (BC.CD_BANCO = PM.CD_BANCO)
INNER JOIN AGENCIA AG on (AG.CD_BANCO = PM.CD_BANCO
AND AG.CD_AGENCIA = PM.CD_AGENCIA)
WHERE PM.TP_SALDO = 'B'
AND P.CD_EMPRESA = :CD_EMPRESA
AND P.NR_PROCESSO = :NR_PROCESSO
UNION ALL
SELECT CAST(IIF(MT.TP_MOVTOCAIXA = P.TP_PROCESSO,COALESCE(MT.DS_COMPLEMENTO,'DINHEIRO'),'DINHEIRO')AS VARCHAR(200)) DS_BANCO, CAST(NULL AS VARCHAR(60)) DS_AGENCIA, cast(null as integer) NR_DOCUMENTO, CAST(NULL AS DATE) DT_VENCIMENTO, cast(null as varchar(60)) NM_TITULAR, CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN 1 else 0 end tipo, MT.VL_DOCUMENTO, CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN MT.VL_DOCUMENTO * -1 ELSE MT.VL_DOCUMENTO END VL_TOTAL, MT.TP_MOVTOCAIXA, null,null,null,null,null
FROM PROCESSO P
INNER JOIN MOVTOCAIXA MT on (MT.CD_EMPRPROC = P.CD_EMPRESA
AND MT.NR_PROCESSO = P.NR_PROCESSO
AND MT.TP_DOCUMENTO = 'AV')
LEFT JOIN VIEW_PARMSALDO(P.CD_EMPRESA, coalesce(MT.CD_CONTADEBITO,MT.CD_CONTACREDITO), 'X', null) PM on (1 = 1)
WHERE PM.TP_SALDO = 'X'
AND P.CD_EMPRESA = :CD_EMPRESA
AND P.NR_PROCESSO = :NR_PROCESSO )
GROUP BY DS_BANCO, DS_AGENCIA, NR_DOCUMENTO, DT_VENCIMENTO, NM_TITULAR, tipo, TP_MOVTOCAIXA CD_EMPRESA 1 NR_PROCESSO CD_EMPRESA NR_PROCESSO CD_EMPRESA NR_PROCESSO CD_EMPRESA NR_PROCESSO
SELECT CAST(NULL AS DOM_VARCHAR100) LAYRECIBO,CAST(NULL AS DOM_VARCHAR100) PATH, CAST(NULL AS DOM_VARCHAR100) VISUALISA,CAST(NULL AS DOM_VARCHAR100) CD_LAYOUT, CAST(NULL AS DOM_VARCHAR100) CD_IMPRESSORA,CAST(NULL AS DOM_VARCHAR100) EMPRESA_CDPESSOA, CAST(NULL AS DOM_VARCHAR100) NR_RECIBO,CAST(NULL AS DOM_VARCHAR100) VL_RECIBO, CAST(NULL AS DOM_VARCHAR100) NM_PESSOA,CAST(NULL AS DOM_VARCHAR100) DS_COMPLEMENTO, CAST(NULL AS DOM_VARCHAR100) DT_RECIBO,CAST(NULL AS DOM_VARCHAR100) ST_IMPRIME, CAST(NULL AS DOM_VARCHAR100) ST_AVISTA,CAST(NULL AS DOM_VARCHAR100) CD_PESSOA, CAST(NULL AS DOM_VARCHAR100) TP_PAGAMENTO,CAST(NULL AS DOM_VARCHAR100) CD_EMPRESA
FROM RDB$DATABASE
SELECT --EMPRESA-- E.CD_EMPRESA, PE.NM_PESSOA NM_EMPRESA, PE.NM_FANTASIA , PE.NR_CNPJCPF NR_CNPJEMPRESA, EE.NR_INSCEST NR_INSCESTEMPRESA, EE.NR_INSCMUN NR_INSCMUNEMPRESA, PE.DS_SITE DS_SITEEMPRESA, PE.DS_EMAIL DS_EMAILEMPRESA, EE.DS_ENDERECO DS_ENDEMPRESA, EE.NR_ENDERECO NR_ENDEMPRESA, EE.NR_CEP NR_CEPEMPRESA, EE.DS_BAIRRO DS_BAIRROEMPRESA, EE.DS_COMPLEMENTO DS_COMPEMPRESA, ME.DS_MUNICIPIO DS_MUNEMPRESA, EE.NR_FONE NR_FONEEMPRESA, EE.NR_FAX NR_FAXEMPRESA
FROM EMPRESA E
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA
AND EE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA,'B') RDE ON (1 = 1)
WHERE E.CD_EMPRESA = :CD_EMPRESA CD_EMPRESA 1
SELECT --CLIENTE-- P.NM_PESSOA, P.CD_PESSOA, P.NR_CNPJCPF, P.DS_EMAIL, EP.DS_ENDERECO DS_ENDPESSOA, EP.NR_ENDERECO NR_ENDPESSOA, EP.NR_CEP NR_CEPPESSOA, EP.DS_BAIRRO DS_BAIRROPESSOA, EP.DS_COMPLEMENTO DS_COMPPESSOA, MP.DS_MUNICIPIO DS_MUNPESSOA, EP.NR_FONE , EP.NR_FAX
FROM PESSOA P
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA,NULL) EP ON (1 = 1)
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
WHERE P.CD_PESSOA = :CD_PESSOA CD_PESSOA
SELECT DISTINCT MC.NR_PROCESSO, MC.CD_EMPRPROC, C.DT_VENCIMENTO, C.NR_PARCELA, C.NR_LANCAMENTO, C.VL_DOCUMENTO, C.NR_DOCUMENTO
FROM MOVTOCAIXA MC
INNER JOIN PROCESSO P ON (P.CD_EMPRESA = MC.CD_EMPRPROC
AND P.NR_PROCESSO = MC.NR_PROCESSO)
INNER JOIN MOVTOPROCESSO MT ON (MT.CD_EMPRESA = P.CD_EMPRESA
AND MT.NR_PROCESSO = P.NR_PROCESSO)
LEFT JOIN CONTAS C ON (C.CD_EMPRESA = MT.CD_EMPRCONTAS
AND C.NR_LANCAMENTO = MT.NR_LANCAMENTO
AND C.CD_PESSOA = MT.CD_PESSOA
AND C.CD_TIPOCONTA = MT.CD_TIPOCONTA
AND C.NR_PARCELA > MT.NR_PARCELA
AND C.ST_CONTAS NOT IN ('C', 'L'))
WHERE MC.CD_EMPRESA = :CD_EMPRESA
AND MC.NR_RECIBO = :NR_RECIBO CD_EMPRESA NR_RECIBO
SELECT CAST(NULL AS DOM_VARCHAR100 )NR_RECIBO, CAST(NULL AS DOM_VARCHAR100) VL_RECIBO, CAST(NULL AS DOM_VARCHAR1000) DS_TEXTORECIBO, CAST(NULL AS DOM_VARCHAR100) NM_ASSINATURA, CAST(NULL AS DOM_VARCHAR100) DS_CPFCNPJ
FROM EMPRESA E
WHERE E.CD_EMPRESA IS NULL
Consulta #1
SELECT E.CD_EMPRESA, E.NM_EMPRESA, EP.DS_ENDERECO, EP.DS_BAIRRO, {#10} COALESCE(EP.NR_FONE, EP.NR_CELULAR) NR_FONE, P.NR_CNPJCPF {#10}
FROM EMPRESA E {#10}
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = E.CD_PESSOA) {#10}
LEFT JOIN PESSOA P ON (E.CD_EMPRESA = P.CD_PESSOA) {#10}
WHERE E.CD_EMPRESA = {SeSenao(iCd_EmpresaAV <>}{, iCd_EmpresaAV, iCd_Empresa)}
Consulta #2
SELECT P.NM_PESSOA, P.NR_CNPJCPF {#10}
FROM PESSOA P {#10}
WHERE P.CD_PESSOA = {Parametros[13]}
tabDB #1
SELECT {#10+ Nulo(iNm_ReciboPara,}S{)} NM_EMPRESA, {#10+ SeSenao((iCd_Layout <>}LRC043{),}PE.NM_PESSOA {, Nulo(iNm_ReciboPara,}S{))} NM_PESSOAEMPRESA, {#10+ Nulo(iNr_CnpjCpf,}S{)} NR_CNPJCPF, {#10} EPE.DS_ENDERECO, EPE.NR_ENDERECO, EPE.DS_COMPLEMENTO, {#10} EPE.DS_BAIRRO, EPE.NR_CEP, EPE.NR_FONE, EPE.NR_CELULAR, {#10+ Nulo(iDt_Recibo,}S{)} DS_DATA, {#10+ Nulo(iNm_ReciboDe,}S{)} NM_CLIENTE, PF.DS_LOGOTIPO, {#10+ Nulo(iNm_ReciboDe,}S{)} NM_CLIENTECOMPLETO, {#10} EPE.DS_ENDERECO||', '|| {#10} COALESCE(EPE.NR_ENDERECO, 'S/Nº')||', '|| {#10} EPE.DS_BAIRRO||', '|| {#10} MU.DS_MUNICIPIO||' - '|| {#10} MU.SG_ESTADO DS_ENDERECOCOMPLETOEMPRESA, {#10} VE.O_VALOR DS_VALOR, VE.O_VALOR DS_VALORTOT, {Nulo(iVl_Recibo,}F{)} O_VL_RECIBO, {#10+ Nulo(iVl_Recibo,}F{)} O_VL_RECIBOTOT, {#10+ Nulo(iNr_Recibo,}I{)} NR_RECIBO, {#10+ Nulo(iDs_Complemento,}S{)} O_DS_COMPLEMENTO, {#10+ Nulo(iDs_Complemento,}S{)} O_DS_COMPLEMENTOPARAM, {#10} 'AV' TP_RECIBO {#10}
FROM RDB$DATABASE {#10}
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = {Nulo(iCd_PessoaCli,}I{)}) {#10}
LEFT JOIN EMPRESA E ON(E.CD_PESSOA = PE.CD_PESSOA) {#10}
LEFT JOIN PARMFATUR PF ON(PF.CD_EMPRESA = E.CD_EMPRESA) {#10}
LEFT JOIN RETORNA_ENDERECO(PE.CD_PESSOA, NULL) REPE ON(1=1) {#10}
LEFT JOIN ENDERECOPESSOA EPE ON(EPE.CD_PESSOA = PE.CD_PESSOA {#10}
AND EPE.CD_ENDERECO = REPE.O_CD_ENDERECO) {#10}
LEFT JOIN MUNICIPIO MU ON(MU.CD_MUNICIPIO = EPE.CD_MUNICIPIO) {#10}
LEFT JOIN VALOR_EXTENSO({Nulo(iVl_Recibo,}F{)}) VE ON (1=1)
tabDB #2
SELECT{#10} /*DADOS DA EMPRESA - CABECALHO*/{#10} DT.O_DS_DATA DT_DATA, E.NM_EMPRESA, PE.NM_PESSOA NM_PESSOAEMPRESA, {#10} IIF(P.VL_PROCESSO = 0, PE.NR_CNPJCPF, {#10} IIF({nulo(iTp_Recibo,}S{)} = 'R', PE.NR_CNPJCPF, PC.NR_CNPJCPF)) NR_CNPJCPF,{#10} EPE.DS_ENDERECO, EPE.NR_ENDERECO, EPE.DS_COMPLEMENTO,{#10} EPE.DS_BAIRRO, EPE.NR_CEP, EPE.NR_FONE, EPE.NR_CELULAR,{#10} MU.DS_MUNICIPIO||', '||DT.O_DS_DATA DS_DATA,{#10} /*DADOS HEADER*/{#10} MC.NR_RECIBO, RVR.O_VL_RECIBO,{#10} (
SELECT{#10} VE.O_VALOR{#10}
FROM VALOR_EXTENSO(iif(RVR.O_VL_RECIBO < 0, RVR.O_VL_RECIBO * -1, RVR.O_VL_RECIBO)) VE) DS_VALOR,{#10} Coalesce({nulo(iVl_Recibo ,}F{)},RVLR.O_VL_RECIBO) O_VL_RECIBOTOT,{#10} (
SELECT{#10} VE.O_VALOR{#10}
FROM VALOR_EXTENSO(Coalesce({nulo(iVl_Recibo ,}F{)},RVLR.O_VL_RECIBO)) VE) DS_VALORTOT,{#10} /*CLIENTE*/{#10} EPC.DS_ENDERECO DS_ENDERECOCLI, EPC.NR_ENDERECO NR_ENDERECOCLI,{#10} EPC.DS_COMPLEMENTO DS_COMPLEMENTOCLI, EPC.DS_BAIRRO DS_BAIRROCLI,{#10} EPC.NR_CEP NR_CEPCLI, EPC.NR_FONE NR_FONECLI, {#10} EPC.DS_ENDERECO||', '|| {#10} COALESCE(EPC.NR_ENDERECO, 'S/Nº')||', '||{#10} EPC.DS_BAIRRO||', '|| {#10} MPC.DS_MUNICIPIO||' - '|| {#10} MPC.SG_ESTADO DS_ENDERECOCOMPLETOCLI, {#10} EPC.NR_CELULAR NR_CELULARCLI,{#10+ Nulo(iDs_Complemento,}S{)} O_DS_COMPLEMENTOPARAM, RC.O_DS_COMPLEMENTO, MC.NR_PROCESSO, MC.CD_EMPRESA,{#10+ iSelect} PF.DS_LOGOTIPO, EPE.DS_ENDERECO||', '|| {#10} COALESCE(EPE.NR_ENDERECO, 'S/Nº')||', '||{#10} EPE.DS_BAIRRO||', '||{#10} MU.DS_MUNICIPIO||' - '||{#10} MU.SG_ESTADO DS_ENDERECOCOMPLETOEMPRESA,{#10} PC.CD_PESSOA||' - '||PC.NM_PESSOA NM_CLIENTECOMPLETO, COALESCE(MP.CD_PESSOA, MC.CD_PESSOA, MC.CD_PESSOACAIXA) CD_PESSOA,{#10} CP.CD_BANCO, CP.CD_AGENCIA, CP.NR_CONTACOR, CP.DG_CONTACOR, 'PR' TP_RECIBO, PC.NR_CNPJCPF NR_CPFCLI {#10}
FROM MOVTOCAIXA MC{#10}
LEFT JOIN PROCESSO P ON(P.CD_EMPRESA = MC.CD_EMPRPROC{#10}
AND P.NR_PROCESSO = MC.NR_PROCESSO{#10}
AND P.ST_PROCESSO = 'L'){#10}
LEFT JOIN MOVTOPROCESSO MP ON(MP.CD_EMPRESA = P.CD_EMPRESA{#10}
AND MP.NR_PROCESSO = P.NR_PROCESSO){#10}/*EMPRESA*/{#10}
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = MC.CD_EMPRESA){#10}
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = E.CD_EMPRESA){#10+ iInnerPessoaEmpresa}
LEFT JOIN RETORNA_ENDERECO(PE.CD_PESSOA, NULL) REPE ON(1=1){#10}
LEFT JOIN ENDERECOPESSOA EPE ON(EPE.CD_PESSOA = IIF({nulo(iTp_Recibo,}S{)} = 'P', {nulo(iCd_PessoaCli,}I{)},PE.CD_PESSOA){#10}
AND EPE.CD_ENDERECO = REPE.O_CD_ENDERECO){#10}
LEFT JOIN MUNICIPIO MU ON(MU.CD_MUNICIPIO = EPE.CD_MUNICIPIO){#10}
LEFT JOIN DATA_EXTENSO(MC.DT_LANCAMENTO) DT ON(1=1){#10}/*CLIENTE*/{#10+ iInnerPessoa}
LEFT JOIN RETORNA_ENDERECO(PC.CD_PESSOA, NULL) REPC ON(1=1){#10}
LEFT JOIN ENDERECOPESSOA EPC ON(EPC.CD_PESSOA = PC.CD_PESSOA{#10}
AND EPC.CD_ENDERECO = REPC.O_CD_ENDERECO){#10}
LEFT JOIN MUNICIPIO MPC ON (MPC.CD_MUNICIPIO = EPC.CD_MUNICIPIO) {#10+ {chamado 545716 ajustado RETORNA_COMPLEMENTORECIBO e RETORNA_VLRECIBO passando empresa e caixa para lancamentos que nao possui processo alterado para left na PROCESSO igual situação anterior. }}
LEFT JOIN RETORNA_COMPLEMENTORECIBO(MC.CD_EMPRESA, MC.NR_PROCESSO, COALESCE(MP.CD_PESSOA, MC.CD_PESSOA, MC.CD_PESSOACAIXA)) RC ON(1=1){#10}
LEFT JOIN RETORNA_VALORLIQUIDADORECIBO(MC.CD_EMPRPROC, MC.NR_PROCESSO, COALESCE(MP.CD_PESSOA, MC.CD_PESSOA, MC.CD_PESSOACAIXA), MC.CD_EMPRESA, MC.NR_LANCCAIXA) RVR ON(1=1){#10}
LEFT JOIN RETORNA_VLRECIBO(MP.CD_EMPRESA, MP.NR_PROCESSO, P.TP_PROCESSO) RVLR ON (1=1){#10}
LEFT JOIN CONTACORPESSOA CP ON (CP.CD_BANCO = (
SELECT FIRST 1 CCP.CD_BANCO{#10}
FROM CONTACORPESSOA CCP{#10}
WHERE CCP.CD_PESSOA = PC.CD_PESSOA){#10}
AND CP.CD_AGENCIA=(
SELECT FIRST 1 CCP.CD_AGENCIA{#10}
FROM CONTACORPESSOA CCP {#10}
WHERE CCP.CD_PESSOA = PC.CD_PESSOA){#10}
AND CP.NR_CONTACOR=(
SELECT FIRST 1 CCP.NR_CONTACOR{#10}
FROM CONTACORPESSOA CCP {#10}
WHERE CCP.CD_PESSOA = PC.CD_PESSOA)){#10}
WHERE MC.NR_RECIBO = {Nulo(iNr_Recibo,}I{)+#10}
AND MC.CD_EMPRESA = {Nulo(iCd_Empresa,}I{)+#10}
AND MC.TP_MOVTOCAIXA <> 'AV'{#10+ SeSenao((iCd_Layout =}LRC043{)
AND (iCd_PessoaCli <>}{),}
AND MP.CD_PESSOA = {iCd_PessoaCli,}{) +#10}
GROUP BY{#10} DT.O_DS_DATA, E.NM_EMPRESA, PE.NR_CNPJCPF,{#10} EPE.DS_ENDERECO, EPE.NR_ENDERECO, EPE.DS_COMPLEMENTO,{#10} EPE.DS_BAIRRO, EPE.NR_CEP, EPE.NR_FONE, EPE.NR_CELULAR,{#10} MU.DS_MUNICIPIO||', '||DT.O_DS_DATA,{#10} MC.NR_RECIBO, RVR.O_VL_RECIBO,{#10} (
SELECT{#10} VE.O_VALOR{#10}
FROM VALOR_EXTENSO(iif(RVR.O_VL_RECIBO < 0, RVR.O_VL_RECIBO * -1, RVR.O_VL_RECIBO)) VE),{#10} EPC.DS_ENDERECO, EPC.NR_ENDERECO,{#10} O_DS_COMPLEMENTOPARAM, EPC.DS_COMPLEMENTO, EPC.DS_BAIRRO,{#10} EPC.NR_CEP, EPC.NR_FONE,{#10} EPC.NR_CELULAR,{#10} RC.O_DS_COMPLEMENTO, MC.NR_PROCESSO, MC.CD_EMPRESA,{#10} PC.NM_PESSOA, PF.DS_LOGOTIPO, PE.NM_PESSOA, PE.NM_PESSOA,EPE.DS_ENDERECO||', '||{#10} COALESCE(EPE.NR_ENDERECO, 'S/Nº')||', '||{#10} EPE.DS_BAIRRO||', '||{#10} MU.DS_MUNICIPIO||' - '||{#10} MU.SG_ESTADO,{#10} PC.CD_PESSOA||' - '||PC.NM_PESSOA, COALESCE(MP.CD_PESSOA, MC.CD_PESSOA, MC.CD_PESSOACAIXA),{#10} CP.CD_BANCO, CP.CD_AGENCIA, CP.NR_CONTACOR, CP.DG_CONTACOR, RVLR.O_VL_RECIBO, DS_ENDERECOCOMPLETOCLI, PC.NR_CNPJCPF, P.VL_PROCESSO
tabDBSUB1
SELECT{#10} MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA,{#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,'') DS_ENDERECOPESSOA,{#10} PE.NR_CNPJCPF NR_CNPJCPFPESSOA, EP.NR_FONE, MP.NR_LANCAMENTO,{#10} COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),'') NR_DOCUMENTO,{#10} IIF(CT.TP_DOCUMENTO = 'NT','NF',CT.TP_DOCUMENTO) TP_DOCUMENTO,{#10} CASE CT.TP_DOCUMENTO WHEN 'NT' THEN 'Nota Fiscal' {#10} WHEN 'DP' THEN 'Duplicata Avulsa'{#10} WHEN 'AD' THEN 'Adiantamento'{#10} WHEN 'CH' THEN 'Cheques'{#10} WHEN 'CT' THEN 'Cartão de Crédito'{#10} WHEN 'AG' THEN 'Contas Agrupados'{#10} WHEN 'FA' THEN 'Fatura'{#10} WHEN 'VA' THEN 'Vale'{#10} ELSE 'Outros' {#10} END DS_TPDOCUMENTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) VL_DOCUMENTO,{#10} CT.VL_DOCUMENTO VL_DOCTORIGEM,{#10} SUM(COALESCE(MP.VL_JURO,0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO,0)) VL_DESCONTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) + SUM(COALESCE(MP.VL_JURO,0)) - SUM(COALESCE(MP.VL_DESCONTO,0)) VL_SALDO,{#10} CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END DS_ESPECIE,{#10} PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO,{#10} CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO,{#10} FP.DS_FORMAPAGTO, (IIF(CT.TP_CONTAS = 'S', 1, -1) * {#10} (SUM(MP.VL_DOCUMENTO) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)))) VL_SALDOTOT {#10}
FROM MOVTOPROCESSO MP{#10}
INNER JOIN PROCESSO PRC ON (PRC.CD_EMPRESA = MP.CD_EMPRESA{#10}
AND PRC.NR_PROCESSO = MP.NR_PROCESSO){#10}
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = MP.CD_EMPRESA){#10+ iInner}
INNER JOIN CONTASHISTORICO CH ON (MP.CD_EMPRCONTAS = CH.CD_EMPRESA{#10}
AND MP.NR_LANCAMENTO = CH.NR_LANCAMENTO{#10}
AND MP.NR_PARCELA = CH.NR_PARCELA{#10}
AND MP.CD_PESSOA = CH.CD_PESSOA{#10}
AND MP.CD_TIPOCONTA = CH.CD_TIPOCONTA{#10}
AND MP.CD_HISTORICO = CH.CD_HISTORICO){#10}
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO){#10}
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = CT.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON(PE.CD_PESSOA = CT.CD_PESSOA){#10}
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = PE.CD_PESSOA{#10}
AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO{#10}
FROM RETORNA_ENDERECO(PE.CD_PESSOA ,NULL))){#10}
LEFT JOIN MUNICIPIO MUN ON (MUN.CD_MUNICIPIO = EP.CD_MUNICIPIO){#10}
LEFT JOIN BANCO BC ON (BC.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN AGENCIA AG ON (AG.CD_AGENCIA = CT.CD_AGENCIA{#10}
AND AG.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = CT.CD_FORMAPAGTO){#10}
WHERE MP.CD_EMPRESA = :CD_EMPRESA{#10}
AND MP.NR_PROCESSO = :NR_PROCESSO{#10+ SeSenao(iCd_Layout <>}LRC043{,}
AND MP.CD_PESSOA = :CD_PESSOA{,}{) +#10}
GROUP BY MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA,{#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,''),{#10} PE.NR_CNPJCPF, EP.NR_FONE, MP.NR_LANCAMENTO,{#10} COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),''),{#10} CT.TP_DOCUMENTO, CT.VL_DOCUMENTO, CT.TP_CONTAS, {#10} CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END,{#10} PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO,{#10} CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO,{#10} FP.DS_FORMAPAGTO {#10}
UNION ALL{#10}
SELECT{#10} MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA,{#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,'') DS_ENDERECOPESSOA,{#10} PE.NR_CNPJCPF NR_CNPJCPFPESSOA, EP.NR_FONE, MP.NR_LANCAMENTO,{#10} COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),'') NR_DOCUMENTO,{#10} CASE CT.TP_DOCUMENTO WHEN 'NT' THEN 'NF' END TP_DOCUMENTO, {#10} CASE CT.TP_DOCUMENTO WHEN 'NT' THEN 'Nota Fiscal' {#10} WHEN 'DP' THEN 'Duplicata Avulsa'{#10} WHEN 'AD' THEN 'Adiantamento'{#10} WHEN 'CH' THEN 'Cheques'{#10} WHEN 'CT' THEN 'Cartão de Crédito'{#10} WHEN 'AG' THEN 'Contas Agrupados'{#10} WHEN 'FA' THEN 'Fatura'{#10} WHEN 'VA' THEN 'Vale'{#10} END DS_TPDOCUMENTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) VL_DOCUMENTO,{#10} CT.VL_DOCUMENTO VL_DOCTORIGEM,{#10} SUM(COALESCE(MP.VL_JURO,0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO,0)) VL_DESCONTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)) VL_SALDO,{#10} CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END DS_ESPECIE,{#10} PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO,{#10} CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO,{#10} FP.DS_FORMAPAGTO, (IIF(CT.TP_CONTAS = 'S', 1, -1) * {#10} (SUM(MP.VL_DOCUMENTO) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)))) VL_SALDOTOT {#10}
FROM MOVTOPROCESSO MP{#10}
INNER JOIN PROCESSO PRC ON (PRC.CD_EMPRESA = MP.CD_EMPRESA{#10}
AND PRC.NR_PROCESSO = MP.NR_PROCESSO){#10}
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = MP.CD_EMPRESA){#10+ iInner}
INNER JOIN CONTASHISTORICO CH ON (MP.CD_EMPRCONTAS = CH.CD_EMPRESA{#10}
AND MP.NR_LANCAMENTO = CH.NR_LANCAMENTO{#10}
AND MP.NR_PARCELA = CH.NR_PARCELA{#10}
AND MP.CD_PESSOA = CH.CD_PESSOA{#10}
AND MP.CD_TIPOCONTA = CH.CD_TIPOCONTA){#10}
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO{#10}
AND H.CD_HISTCONT = MP.CD_HISTORICO){#10}
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = CT.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON(PE.CD_PESSOA = CT.CD_PESSOA){#10}
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = PE.CD_PESSOA{#10}
AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(PE.CD_PESSOA ,NULL))){#10}
LEFT JOIN BANCO BC ON (BC.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN AGENCIA AG ON (AG.CD_AGENCIA = CT.CD_AGENCIA{#10}
AND AG.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN MUNICIPIO MUN ON (MUN.CD_MUNICIPIO = EP.CD_MUNICIPIO){#10}
LEFT JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = CT.CD_FORMAPAGTO){#10}
WHERE MP.CD_EMPRESA = :CD_EMPRESA{#10}
AND MP.NR_PROCESSO = :NR_PROCESSO{#10+ SeSenao(iCd_Layout <>}LRC043{,}
AND MP.CD_PESSOA = :CD_PESSOA{,}{) +#10}
GROUP BY MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, EP.DS_ENDERECO,{#10} EP.NR_ENDERECO, MUN.DS_MUNICIPIO, MUN.SG_ESTADO, PE.NR_CNPJCPF, EP.NR_FONE,{#10} MP.NR_LANCAMENTO, CT.NR_DOCUMENTO, CT.NR_PARCELA, CT.TP_DOCUMENTO, CT.TP_CONTAS,{#10} CT.VL_DOCUMENTO,{#10} MP.CD_PESSOA, PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO,{#10} CT.CD_BANCO, CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO,{#10} CT.CD_FORMAPAGTO, FP.DS_FORMAPAGTO
tabDBSUB2
SELECT DS_BANCO, DS_AGENCIA, NR_DOCUMENTO, DT_VENCIMENTO, NM_TITULAR, sum(VL_DOCUMENTO) VL_DOCUMENTO, sum(VL_TOTAL) VL_TOTAL, NR_CONTACOR{#10}
FROM ({#10+ SeSenao( iCd_Layout <>}LRC043{,}
SELECT BC.DS_BANCO, AG.DS_AGENCIA, CTC.NR_DOCUMENTO, CTC.dt_vencimento, C.NM_TITULAR,{#10} CASE WHEN MXCH.TP_MOVTOCAIXA <> P.TP_PROCESSO THEN 1 else 0 end tipo, CTC.VL_DOCUMENTO,{#10} CASE WHEN MXCH.TP_MOVTOCAIXA <> P.TP_PROCESSO THEN CTC.VL_DOCUMENTO * -1 ELSE MXCH.VL_DOCUMENTO END VL_TOTAL,{#10} CAST(NULL AS DOM_VARCHAR20) NR_CONTACOR{#10}
FROM MOVTOPROCESSO MPCH{#10}
INNER JOIN PROCESSO P on (P.CD_EMPRESA = MPCH.CD_EMPRESA{#10}
AND P.NR_PROCESSO = MPCH.NR_PROCESSO){#10}
INNER JOIN CHEQUE C on (C.CD_EMPRESA = MPCH.CD_EMPRCONTAS{#10}
AND C.NR_LANCAMENTO = MPCH.NR_LANCAMENTO{#10}
AND C.CD_PESSOA = MPCH.CD_PESSOA{#10}
AND C.CD_TIPOCONTA = MPCH.CD_TIPOCONTA {#10}
AND C.NR_PARCELA = MPCH.NR_PARCELA){#10}
INNER JOIN CONTAS CTC on (CTC.CD_EMPRESA = C.CD_EMPRESA{#10}
AND CTC.NR_LANCAMENTO = C.NR_LANCAMENTO{#10}
AND CTC.CD_PESSOA = C.CD_PESSOA{#10}
AND CTC.CD_TIPOCONTA = C.CD_TIPOCONTA{#10}
AND CTC.NR_PARCELA = C.NR_PARCELA){#10}
INNER JOIN BANCO BC on (BC.CD_BANCO = CTC.CD_BANCO){#10}
INNER JOIN AGENCIA AG on (AG.CD_BANCO = CTC.CD_BANCO{#10}
AND AG.CD_AGENCIA = CTC.CD_AGENCIA){#10}
INNER JOIN MOVTOCAIXA MXCH on (MXCH.CD_EMPRESA = C.CD_EMPRCAIXA{#10}
AND MXCH.NR_LANCCAIXA = C.NR_LANCCAIXA){#10}
WHERE MPCH.CD_EMPRESA = :CD_EMPRESA{#10}
AND MPCH.NR_PROCESSO = :NR_PROCESSO{#10}
AND MPCH.CD_HISTORICO in (
SELECT H.CD_HISTORICO{#10}
FROM HISTORICO H{#10}
WHERE H.CD_HISTORICO = MPCH.CD_HISTORICO{#10}
AND H.TP_HISTORICO = 'H'{#10}
AND H.TP_NATUREZA <> P.TP_PROCESSO){#10}
UNION ALL{#10,}{)}{#10}
SELECT{#10} DS_BANCO, DS_AGENCIA, NR_DOCUMENTO, DT_VENCIMENTO,{#10} NM_TITULAR,{#10} CASE WHEN TP_MOVTOCAIXA = TP_PROCESSO THEN 1 ELSE 0 END TIPO,{#10} VL_DOCUMENTO,{#10} CASE WHEN TP_MOVTOCAIXA = TP_PROCESSO THEN VL_DOCUMENTO * -1 ELSE VL_DOCUMENTO END VL_TOTAL, NR_CONTACOR{#10}
FROM(
SELECT{#10} (
SELECT COUNT(*){#10}
FROM CHEQUE CC{#10}
WHERE CC.CD_EMPRESA = C.CD_EMPRESA{#10}
AND CC.NR_LANCCAIXA = C.NR_LANCCAIXA) QT_DIVISOR,{#10} COALESCE(PP.DS_CONTA, 'CARTÃO') DS_BANCO, AG.DS_AGENCIA,{#10} MT.NR_DOCUMENTO, CTC.DT_VENCIMENTO,{#10} MT.TP_MOVTOCAIXA, P.TP_PROCESSO,{#10} RVPC.O_VL_DOCUMENTO VL_DOCUMENTO,{#10} C.NM_TITULAR,{#10} CTC.VL_DOCUMENTO VL_DOC, C.VL_JUROS, CTC.NR_CONTACOR{#10}
FROM PROCESSO P{#10}
INNER JOIN MOVTOCAIXA MT ON (MT.CD_EMPRPROC = P.CD_EMPRESA{#10}
AND MT.NR_PROCESSO = P.NR_PROCESSO{#10}
AND MT.TP_DOCUMENTO = 'AV'){#10}
INNER JOIN PARMSALDO PM ON (PM.CD_EMPRESA = MT.CD_EMPRESA{#10}
AND PM.CD_CONTA = COALESCE(MT.CD_CONTADEBITO,MT.CD_CONTACREDITO)){#10}
LEFT JOIN VIEW_PLANOCONTAS(P.CD_EMPRESA, 'AND P.CD_CONTA = '||PM.CD_CONTA) PP ON (1 = 1){#10}
LEFT JOIN BANCO BC ON (BC.CD_BANCO = MT.CD_BANCO){#10}
LEFT JOIN AGENCIA AG ON (AG.CD_BANCO = MT.CD_BANCO{#10}
AND AG.CD_AGENCIA = MT.CD_AGENCIA){#10}
INNER JOIN CHEQUE C ON (C.CD_EMPRESA = MT.CD_EMPRESA{#10}
AND C.NR_LANCCAIXA = MT.NR_LANCCAIXA){#10}
INNER JOIN CONTAS CTC ON (CTC.CD_EMPRESA = C.CD_EMPRESA{#10}
AND CTC.NR_LANCAMENTO = C.NR_LANCAMENTO{#10}
AND CTC.CD_PESSOA = C.CD_PESSOA{#10}
AND CTC.CD_TIPOCONTA = C.CD_TIPOCONTA{#10}
AND CTC.NR_PARCELA = C.NR_PARCELA){#10}
LEFT JOIN RETORNA_VLPARCELACARTAO(CTC.CD_EMPRESA, CTC.NR_LANCAMENTO, CTC.CD_PESSOA, CTC.CD_TIPOCONTA, CTC.NR_PARCELA, C.VL_JUROS) RVPC ON(1=1){#10}
WHERE PM.TP_SALDO IN ('R','P', 'T', 'C'){#10}
AND P.CD_EMPRESA = :CD_EMPRESA{#10}
AND P.NR_PROCESSO = :NR_PROCESSO{#10}
GROUP BY COALESCE(PP.DS_CONTA, 'CARTÃO'), AG.DS_AGENCIA,{#10} MT.NR_DOCUMENTO, CTC.DT_VENCIMENTO,{#10} MT.TP_MOVTOCAIXA, P.TP_PROCESSO,{#10} RVPC.O_VL_DOCUMENTO, C.NM_TITULAR,{#10} C.CD_EMPRESA, C.NR_LANCCAIXA,CTC.VL_DOCUMENTO, C.VL_JUROS, CTC.NR_CONTACOR ){#10}{#10}
UNION ALL{#10}{#10}
SELECT BC.DS_BANCO, AG.DS_AGENCIA,{#10} cast(null as integer) NR_DOCUMENTO, CAST(NULL AS DATE) DT_VENCIMENTO, cast(null as varchar(60)) NM_TITULAR,{#10} CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN 1 else 0 end tipo, MT.VL_DOCUMENTO,{#10} CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN MT.VL_DOCUMENTO * -1 ELSE MT.VL_DOCUMENTO END VL_TOTAL,{#10} CAST(NULL AS DOM_VARCHAR20) NR_CONTACOR{#10}
FROM PROCESSO P{#10}
INNER JOIN MOVTOCAIXA MT on (MT.CD_EMPRPROC = P.CD_EMPRESA{#10}
AND MT.NR_PROCESSO = P.NR_PROCESSO{#10}
AND MT.TP_DOCUMENTO = 'AV'){#10}
LEFT JOIN VIEW_PARMSALDO(P.CD_EMPRESA, coalesce(MT.CD_CONTADEBITO,MT.CD_CONTACREDITO), 'B', null) PM on (1 = 1){#10}
INNER JOIN BANCO BC on (BC.CD_BANCO = PM.CD_BANCO){#10}
INNER JOIN AGENCIA AG on (AG.CD_BANCO = PM.CD_BANCO{#10}
AND AG.CD_AGENCIA = PM.CD_AGENCIA){#10}
WHERE PM.TP_SALDO = 'B'{#10}
AND P.CD_EMPRESA = :CD_EMPRESA{#10}
AND P.NR_PROCESSO = :NR_PROCESSO{#10}{#10}
UNION ALL{#10}{#10}
SELECT CAST(IIF(MT.TP_MOVTOCAIXA = P.TP_PROCESSO,COALESCE(NULLIF(MT.DS_COMPLEMENTO, ''),'DINHEIRO'),'DINHEIRO')AS VARCHAR(200)) DS_BANCO,{#10} CAST(NULL AS VARCHAR(60)) DS_AGENCIA,{#10} cast(null as integer) NR_DOCUMENTO, CAST(NULL AS DATE) DT_VENCIMENTO, cast(null as varchar(60)) NM_TITULAR,{#10} CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN 1 else 0 end tipo, MT.VL_DOCUMENTO,{#10} CASE WHEN MT.TP_MOVTOCAIXA = P.TP_PROCESSO THEN MT.VL_DOCUMENTO * -1 ELSE MT.VL_DOCUMENTO END VL_TOTAL,{#10} CAST(NULL AS DOM_VARCHAR20) NR_CONTACOR{#10}
FROM PROCESSO P{#10}
INNER JOIN MOVTOCAIXA MT on (MT.CD_EMPRPROC = P.CD_EMPRESA{#10}
AND MT.NR_PROCESSO = P.NR_PROCESSO{#10}
AND MT.TP_DOCUMENTO = 'AV'){#10}
LEFT JOIN VIEW_PARMSALDO(P.CD_EMPRESA, coalesce(MT.CD_CONTADEBITO,MT.CD_CONTACREDITO), 'X', null) PM on (1 = 1){#10}
WHERE PM.TP_SALDO = 'X'{#10}
AND P.CD_EMPRESA = :CD_EMPRESA{#10}
AND P.NR_PROCESSO = :NR_PROCESSO{#10}){#10}
GROUP BY DS_BANCO, DS_AGENCIA, NR_DOCUMENTO, DT_VENCIMENTO, NM_TITULAR, tipo, NR_CONTACOR
tabDBSUB3
SELECT{#10} MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA,{#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,'') DS_ENDERECOPESSOA,{#10} PE.NR_CNPJCPF NR_CNPJCPFPESSOA, EP.NR_FONE, MP.NR_LANCAMENTO,{#10} COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),'') NR_DOCUMENTO,{#10} IIF(CT.TP_DOCUMENTO = 'NT','NF',CT.TP_DOCUMENTO) TP_DOCUMENTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) VL_DOCUMENTO,{#10} CT.VL_DOCUMENTO VL_DOCTORIGEM,{#10} SUM(COALESCE(MP.VL_JURO,0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO,0)) VL_DESCONTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) + SUM(COALESCE(MP.VL_JURO,0)) - SUM(COALESCE(MP.VL_DESCONTO,0)) VL_SALDO,{#10} CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END DS_ESPECIE,{#10} PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO,{#10} CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO,{#10} FP.DS_FORMAPAGTO, (IIF(CT.TP_CONTAS = 'S', 1, -1) * {#10} (SUM(MP.VL_DOCUMENTO) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)))) VL_SALDOTOT,{#10} CT.NR_CONTACOR, CT.DT_LANCAMENTO {#10}
FROM MOVTOPROCESSO MP{#10}
INNER JOIN PROCESSO PRC ON (PRC.CD_EMPRESA = MP.CD_EMPRESA{#10}
AND PRC.NR_PROCESSO = MP.NR_PROCESSO){#10}
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = MP.CD_EMPRESA){#10}
INNER JOIN CONTAS CT ON (MP.CD_EMPRCONTAS = CT.CD_EMPRESA {#10}
AND MP.NR_LANCAMENTO = CT.NR_LANCAMENTO {#10}
AND MP.NR_PARCELA = CT.NR_PARCELA {#10}
AND MP.CD_PESSOA = CT.CD_PESSOA {#10}
AND MP.CD_TIPOCONTA = CT.CD_TIPOCONTA {#10}
AND CT.TP_CONTAS = IIF(PRC.TP_PROCESSO = 'R', 'S', 'E')){#10}
INNER JOIN CONTASHISTORICO CH ON (MP.CD_EMPRCONTAS = CH.CD_EMPRESA{#10}
AND MP.NR_LANCAMENTO = CH.NR_LANCAMENTO{#10}
AND MP.NR_PARCELA = CH.NR_PARCELA{#10}
AND MP.CD_PESSOA = CH.CD_PESSOA{#10}
AND MP.CD_TIPOCONTA = CH.CD_TIPOCONTA{#10}
AND MP.CD_HISTORICO = CH.CD_HISTORICO){#10}
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO){#10}
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = CT.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON(PE.CD_PESSOA = CT.CD_PESSOA){#10}
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = PE.CD_PESSOA{#10}
AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO{#10}
FROM RETORNA_ENDERECO(PE.CD_PESSOA ,NULL))){#10}
LEFT JOIN MUNICIPIO MUN ON (MUN.CD_MUNICIPIO = EP.CD_MUNICIPIO){#10}
LEFT JOIN BANCO BC ON (BC.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN AGENCIA AG ON (AG.CD_AGENCIA = CT.CD_AGENCIA{#10}
AND AG.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = CT.CD_FORMAPAGTO){#10}
WHERE MP.CD_EMPRESA = :CD_EMPRESA{#10}
AND MP.NR_PROCESSO = :NR_PROCESSO{#10}
GROUP BY MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA,{#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,''),{#10} PE.NR_CNPJCPF, EP.NR_FONE, MP.NR_LANCAMENTO,{#10} COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),''),{#10} CT.TP_DOCUMENTO, CT.VL_DOCUMENTO, CT.TP_CONTAS, {#10} CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END,{#10} PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO,{#10} CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO,{#10} FP.DS_FORMAPAGTO, CT.NR_CONTACOR, CT.DT_LANCAMENTO {#10}
UNION ALL{#10}
SELECT{#10} MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, MP.CD_PESSOA,{#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO||' - '||MUN.DS_MUNICIPIO||' - '||MUN.SG_ESTADO,'') DS_ENDERECOPESSOA,{#10} PE.NR_CNPJCPF NR_CNPJCPFPESSOA, EP.NR_FONE, MP.NR_LANCAMENTO,{#10} COALESCE(CT.NR_DOCUMENTO||COALESCE('/'||CT.NR_PARCELA,''),'') NR_DOCUMENTO,{#10} CT.TP_DOCUMENTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) VL_DOCUMENTO,{#10} CT.VL_DOCUMENTO VL_DOCTORIGEM,{#10} SUM(COALESCE(MP.VL_JURO,0)) VL_JURO, SUM(COALESCE(MP.VL_DESCONTO,0)) VL_DESCONTO,{#10} ABS(SUM(CASE H.TP_NATUREZA WHEN 'R'{#10} THEN MP.VL_DOCUMENTO{#10} ELSE MP.VL_DOCUMENTO * -1{#10} END)) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)) VL_SALDO,{#10} CASE CT.TP_CONTAS WHEN 'S' THEN 'REC' ELSE 'PAG' END DS_ESPECIE,{#10} PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO, CT.CD_BANCO,{#10} CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO, CT.CD_FORMAPAGTO,{#10} FP.DS_FORMAPAGTO, (IIF(CT.TP_CONTAS = 'S', 1, -1) * {#10} (SUM(MP.VL_DOCUMENTO) + SUM(COALESCE(MP.VL_JURO, 0)) - SUM(COALESCE(MP.VL_DESCONTO,0)))) VL_SALDOTOT,{#10} CT.NR_CONTACOR, CT.DT_LANCAMENTO {#10}
FROM MOVTOPROCESSO MP{#10}
INNER JOIN PROCESSO PRC ON (PRC.CD_EMPRESA = MP.CD_EMPRESA{#10}
AND PRC.NR_PROCESSO = MP.NR_PROCESSO){#10}
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = MP.CD_EMPRESA){#10}
INNER JOIN CONTAS CT ON (MP.CD_EMPRCONTAS = CT.CD_EMPRESA {#10}
AND MP.NR_LANCAMENTO = CT.NR_LANCAMENTO {#10}
AND MP.NR_PARCELA = CT.NR_PARCELA {#10}
AND MP.CD_PESSOA = CT.CD_PESSOA {#10}
AND MP.CD_TIPOCONTA = CT.CD_TIPOCONTA {#10}
AND CT.TP_CONTAS = IIF(PRC.TP_PROCESSO = 'R', 'S', 'E')){#10}
INNER JOIN CONTASHISTORICO CH ON (MP.CD_EMPRCONTAS = CH.CD_EMPRESA{#10}
AND MP.NR_LANCAMENTO = CH.NR_LANCAMENTO{#10}
AND MP.NR_PARCELA = CH.NR_PARCELA{#10}
AND MP.CD_PESSOA = CH.CD_PESSOA{#10}
AND MP.CD_TIPOCONTA = CH.CD_TIPOCONTA){#10}
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO{#10}
AND H.CD_HISTCONT = MP.CD_HISTORICO){#10}
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = CT.CD_EMPRESA){#10}
INNER JOIN PESSOA PE ON(PE.CD_PESSOA = CT.CD_PESSOA){#10}
LEFT JOIN ENDERECOPESSOA EP ON(EP.CD_PESSOA = PE.CD_PESSOA{#10}
AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(PE.CD_PESSOA ,NULL))){#10}
LEFT JOIN BANCO BC ON (BC.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN AGENCIA AG ON (AG.CD_AGENCIA = CT.CD_AGENCIA{#10}
AND AG.CD_BANCO = CT.CD_BANCO){#10}
LEFT JOIN MUNICIPIO MUN ON (MUN.CD_MUNICIPIO = EP.CD_MUNICIPIO){#10}
LEFT JOIN FORMAPAGTO FP ON(FP.CD_FORMAPAGTO = CT.CD_FORMAPAGTO){#10}
WHERE MP.CD_EMPRESA = :CD_EMPRESA{#10}
AND MP.NR_PROCESSO = :NR_PROCESSO{#10}
GROUP BY MP.NR_PROCESSO, CT.CD_EMPRESA, PE.NM_PESSOA, EP.DS_ENDERECO,{#10} EP.NR_ENDERECO, MUN.DS_MUNICIPIO, MUN.SG_ESTADO, PE.NR_CNPJCPF, EP.NR_FONE,{#10} MP.NR_LANCAMENTO, CT.NR_DOCUMENTO, CT.NR_PARCELA, CT.TP_DOCUMENTO, CT.TP_CONTAS,{#10} CT.VL_DOCUMENTO,{#10} MP.CD_PESSOA, PF.DS_LOGOTIPO, CT.DS_OBSERVACAO, CT.DT_VENCIMENTO,{#10} CT.CD_BANCO, CT.CD_AGENCIA, AG.DS_AGENCIA, BC.DS_BANCO, PRC.TP_PROCESSO,{#10} CT.CD_FORMAPAGTO, FP.DS_FORMAPAGTO, CT.NR_CONTACOR, CT.DT_LANCAMENTO
tabDBSUB4
SELECT {#10} LIST(X.DS_COMPLEMENTO, ASCII_CHAR(10)) DS_COMPLEMENTO, {#10} LIST(X.NM_PESSOA, ASCII_CHAR(10)) NM_PESSOA,{#10} MIN(X.CD_PESSOA) CD_PESSOA {#10}
FROM ( {#10}
SELECT {#10} M.NR_DOCUMENTO || '-' || M.DS_COMPLEMENTO DS_COMPLEMENTO, {#10} M.CD_PESSOA || '-' || P.NM_PESSOA NM_PESSOA, {#10} M.CD_PESSOA CD_PESSOA {#10}
FROM MOVTOCAIXA M {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = M.CD_PESSOA) {#10}
WHERE M.CD_EMPRPROC = :CD_EMPRESA {#10}
AND M.NR_PROCESSO = :NR_PROCESSO {#10}
AND M.TP_DOCUMENTO = 'AV' {#10}
ORDER BY P.NM_PESSOA {#10}) X {#10}
HAVING COUNT(*) > 0{#10}
UNION ALL {#10}
SELECT {nulo(iDs_Complemento,}S{)} DS_COMPLEMENTO, {#10} {nulo(seSenao(iTp_Recibo =}R{,iNm_ReciboDe,iNm_ReciboPara),}S{)} NM_PESSOA, {#10} NULL {#10}
FROM RDB$DATABASE {#10}
WHERE NOT EXISTS ( {#10}
SELECT 1 {#10}
FROM MOVTOCAIXA M {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = M.CD_PESSOA) {#10}
WHERE M.CD_EMPRPROC = :CD_EMPRESA {#10}
AND M.NR_PROCESSO = :NR_PROCESSO {#10}
AND M.TP_DOCUMENTO = 'AV' )
Tabelas Utilizadas
| Tabela | Uso |
|---|---|
AGENCIA | referenciada nas queries do layout |
BANCO | referenciada nas queries do layout |
CHEQUE | referenciada nas queries do layout |
CONTACORPESSOA | referenciada nas queries do layout |
CONTAS | referenciada nas queries do layout |
CONTASHISTORICO | referenciada nas queries do layout |
DATA_EXTENSO | referenciada nas queries do layout |
EMPRESA | referenciada nas queries do layout |
ENDERECOPESSOA | referenciada nas queries do layout |
FORMAPAGTO | referenciada nas queries do layout |
GERA_SEQUENCIA | referenciada nas queries do layout |
HISTORICO | referenciada nas queries do layout |
MOVTOCAIXA | referenciada nas queries do layout |
MOVTOPROCESSO | referenciada nas queries do layout |
MUNICIPIO | referenciada nas queries do layout |
PARMFATUR | referenciada nas queries do layout |
PARMSALDO | referenciada nas queries do layout |
PESSOA | referenciada nas queries do layout |
PROCESSO | referenciada nas queries do layout |
RDB | referenciada nas queries do layout |
RETORNA_COMPLEMENTORECIBO | referenciada nas queries do layout |
RETORNA_DADOSCADASTRAIS | referenciada nas queries do layout |
RETORNA_ENDERECO | referenciada nas queries do layout |
RETORNA_VALORLIQUIDADORECIBO | referenciada nas queries do layout |
RETORNA_VLPARCELACARTAO | referenciada nas queries do layout |
RETORNA_VLRECIBO | referenciada nas queries do layout |
VALOR_EXTENSO | referenciada nas queries do layout |
VIEW_PARMSALDO | referenciada nas queries do layout |
VIEW_PLANOCONTAS | referenciada nas queries do layout |
Shared Units
- jCommon
- jPesquisa
Fonte
- Unit:
source/LRC000/ULRC000.pas - DFM:
source/LRC000/ULRC000.dfm - Package:
source/LRC000/LRC000.dpk