LPR001 — Layout LPR001

Visão Geral

Layout de impressão da família LPR (Produto). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em PROCESSO, com junção em MOVTOPROCESSO, CONTAS, PESSOA, CONTASHISTORICO, HISTORICO, MOVTOCAIXA (+1), filtrada por CD_EMPRESA, NR_PROCESSO, TP_PROCESSO, D, AS, P (+9).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout do Extrato
  // 1 - Cod Empresa
  // 2 - Nr Processo
  // 3 - Path Servidor
  // 4 - Tipo do Processo
]);

SQL Base

`Processo #1`

SELECT CP.NR_DOCUMENTO, CP.NR_PARCELA, CP.DT_VENCIMENTO, CP.CD_PESSOA, PS.NM_PESSOA, CP.VL_DOCUMENTO, coalesce(MP.VL_JURO,0) VL_JURO, coalesce(MP.VL_DESCONTO,0) VL_DESCONTO, (CP.VL_DOCUMENTO + coalesce(MP.VL_JURO,0) - coalesce(MP.VL_DESCONTO,0)) VL_TOTAL, CH.CD_HISTORICO, H.DS_HISTORICO
FROM PROCESSO P
INNER JOIN MOVTOPROCESSO MP on (MP.CD_EMPRESA = P.CD_EMPRESA
  AND MP.NR_PROCESSO = P.NR_PROCESSO)
INNER JOIN CONTAS CP on (CP.CD_EMPRESA = MP.CD_EMPRESA
  AND CP.NR_LANCAMENTO = MP.NR_LANCAMENTO
  AND CP.CD_PESSOA = MP.CD_PESSOA
  AND CP.CD_TIPOCONTA = MP.CD_TIPOCONTA
  AND CP.NR_PARCELA = MP.NR_PARCELA)
INNER JOIN PESSOA PS on (PS.CD_PESSOA = CP.CD_PESSOA)
INNER JOIN CONTASHISTORICO CH on (CH.CD_EMPRESA = CP.CD_EMPRESA
  AND CH.NR_LANCAMENTO = CP.NR_LANCAMENTO
  AND CH.CD_PESSOA = CP.CD_PESSOA
  AND CH.CD_TIPOCONTA = CP.CD_TIPOCONTA
  AND CH.NR_PARCELA = CP.NR_PARCELA)
INNER JOIN HISTORICO H on (H.CD_HISTORICO = CH.CD_HISTORICO)
WHERE P.CD_EMPRESA = :CD_EMPRESA
  AND P.NR_PROCESSO = :NR_PROCESSO
  AND P.TP_PROCESSO = H.TP_NATUREZA CD_EMPRESA 1 NR_PROCESSO
SELECT cast('Dinheiro' as varchar(60)) DS_BANCO, cast(null as varchar(60)) DS_AGENCIA, cast(null as integer) NR_DOCUMENTO, cast(null as varchar(60)) NM_TITULAR, MT.VL_DOCUMENTO
FROM PROCESSO P
INNER JOIN MOVTOPROCESSO MP on (MP.CD_EMPRESA = P.CD_EMPRESA
  AND MP.NR_PROCESSO = P.NR_PROCESSO)
INNER JOIN CONTAS CP on (CP.CD_EMPRESA = MP.CD_EMPRESA
  AND CP.NR_LANCAMENTO = MP.NR_LANCAMENTO
  AND CP.CD_PESSOA = MP.CD_PESSOA
  AND CP.CD_TIPOCONTA = MP.CD_TIPOCONTA
  AND CP.NR_PARCELA = MP.NR_PARCELA)
INNER JOIN PESSOA PS on (PS.CD_PESSOA = CP.CD_PESSOA)
INNER JOIN MOVTOCAIXA MT on (MT.CD_EMPRPROC = MP.CD_EMPRESA
  AND MT.NR_PROCESSO = MP.NR_PROCESSO
  AND MT.TP_DOCUMENTO = 'AV')
INNER JOIN PARMSALDO PM on (PM.CD_EMPRESA = P.CD_EMPRESA
  AND PM.CD_CONTA = coalesce(MT.CD_CTASALDODEB,MT.CD_CTASALDOCRED)
  AND PM.TP_SALDO = 'X')
WHERE P.CD_EMPRESA = :CD_EMPRESA
  AND P.NR_PROCESSO = :NR_PROCESSO CD_EMPRESA 1 nr_processo

`Processo #2`

SELECT CP.NR_DOCUMENTO, CP.DT_VENCIMENTO, {#10} CAST(CP.CD_PESSOA AS VARCHAR(10))||' - '||PS.NM_PESSOA NM_PESSOA, {#10} MP.VL_DOCUMENTO, COALESCE(MP.VL_JURO, 0) VL_JURO, {#10} COALESCE(MP.VL_DESCONTO, 0) VL_DESCONTO, {#10} {#10} (MP.VL_DOCUMENTO + COALESCE(MP.VL_JURO, 0) - COALESCE(MP.VL_DESCONTO, 0)) VL_TOTAL, {#10} CASE WHEN P.TP_PROCESSO = H.TP_NATUREZA THEN {#10} (MP.VL_DOCUMENTO + COALESCE(MP.VL_JURO, 0) - COALESCE(MP.VL_DESCONTO, 0)) {#10} ELSE (MP.VL_DOCUMENTO + COALESCE(MP.VL_JURO, 0) - COALESCE(MP.VL_DESCONTO, 0)) * -1 {#10} END VL_SALDO, {#10} CH.CD_HISTORICO, H.DS_HISTORICO {#10}
FROM PROCESSO P {#10}
INNER JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = P.CD_EMPRESA {#10}
  AND MP.NR_PROCESSO = P.NR_PROCESSO) {#10}
INNER JOIN CONTAS CP ON (CP.CD_EMPRESA = MP.CD_EMPRESA {#10}
  AND CP.NR_LANCAMENTO = MP.NR_LANCAMENTO {#10}
  AND CP.CD_PESSOA = MP.CD_PESSOA {#10}
  AND CP.CD_TIPOCONTA = MP.CD_TIPOCONTA {#10}
  AND CP.NR_PARCELA = MP.NR_PARCELA) {#10}
INNER JOIN PESSOA PS ON (PS.CD_PESSOA = CP.CD_PESSOA) {#10}
INNER JOIN CONTASHISTORICO CH ON (CH.CD_EMPRESA = CP.CD_EMPRESA {#10}
  AND CH.NR_LANCAMENTO = CP.NR_LANCAMENTO {#10}
  AND CH.CD_PESSOA = CP.CD_PESSOA {#10}
  AND CH.CD_TIPOCONTA = CP.CD_TIPOCONTA {#10}
  AND CH.NR_PARCELA = CP.NR_PARCELA) {#10}
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO) {#10}
INNER JOIN HISTORICO HP ON (HP.CD_HISTORICO = MP.CD_HISTORICO){#10}
WHERE P.CD_EMPRESA = {iParametros}

`tabPagamento`

SELECT DS_BANCO, DS_AGENCIA,NR_DOCUMENTO,NM_TITULAR,VL_DOCUMENTO {#10}
FROM({#10}
SELECT BC.DS_BANCO, AG.DS_AGENCIA, CTC.NR_DOCUMENTO, C.NM_TITULAR, {#10} CTC.VL_DOCUMENTO {#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_EMPRESA {#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 = {iParametros}

`Text #1`

SELECT CP.NR_DOCUMENTO, CP.DT_VENCIMENTO, {#10} CAST(CP.CD_PESSOA AS VARCHAR(10))||' - '||PS.NM_PESSOA NM_PESSOA, {#10} MP.VL_DOCUMENTO, COALESCE(MP.VL_JURO, 0) VL_JURO, {#10} COALESCE(MP.VL_DESCONTO, 0) VL_DESCONTO, {#10} {#10} (MP.VL_DOCUMENTO + COALESCE(MP.VL_JURO, 0) - COALESCE(MP.VL_DESCONTO, 0)) VL_TOTAL, {#10} CASE WHEN P.TP_PROCESSO = H.TP_NATUREZA THEN {#10} (MP.VL_DOCUMENTO + COALESCE(MP.VL_JURO, 0) - COALESCE(MP.VL_DESCONTO, 0)) {#10} ELSE (MP.VL_DOCUMENTO + COALESCE(MP.VL_JURO, 0) - COALESCE(MP.VL_DESCONTO, 0)) * -1 {#10} END VL_SALDO, {#10} CH.CD_HISTORICO, H.DS_HISTORICO {#10}
FROM PROCESSO P {#10}
INNER JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = P.CD_EMPRESA {#10}
  AND MP.NR_PROCESSO = P.NR_PROCESSO) {#10}
INNER JOIN CONTAS CP ON (CP.CD_EMPRESA = MP.CD_EMPRESA {#10}
  AND CP.NR_LANCAMENTO = MP.NR_LANCAMENTO {#10}
  AND CP.CD_PESSOA = MP.CD_PESSOA {#10}
  AND CP.CD_TIPOCONTA = MP.CD_TIPOCONTA {#10}
  AND CP.NR_PARCELA = MP.NR_PARCELA) {#10}
INNER JOIN PESSOA PS ON (PS.CD_PESSOA = CP.CD_PESSOA) {#10}
INNER JOIN CONTASHISTORICO CH ON (CH.CD_EMPRESA = CP.CD_EMPRESA {#10}
  AND CH.NR_LANCAMENTO = CP.NR_LANCAMENTO {#10}
  AND CH.CD_PESSOA = CP.CD_PESSOA {#10}
  AND CH.CD_TIPOCONTA = CP.CD_TIPOCONTA {#10}
  AND CH.NR_PARCELA = CP.NR_PARCELA) {#10}
INNER JOIN HISTORICO H ON (H.CD_HISTORICO = CH.CD_HISTORICO) {#10}
INNER JOIN HISTORICO HP ON (HP.CD_HISTORICO = MP.CD_HISTORICO){#10}
WHERE P.CD_EMPRESA = {iParametros[1] +#10}
  AND P.NR_PROCESSO = {iParametros[2] +#10}
  AND HP.TP_HISTORICO NOT IN ('J','D') {#10}
ORDER BY H.DS_HISTORICO, PS.NM_PESSOA

`Text #2`

SELECT DS_BANCO, DS_AGENCIA,NR_DOCUMENTO,NM_TITULAR,VL_DOCUMENTO {#10}
FROM({#10}
SELECT BC.DS_BANCO, AG.DS_AGENCIA, CTC.NR_DOCUMENTO, C.NM_TITULAR, {#10} CTC.VL_DOCUMENTO {#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_EMPRESA {#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 = {iParametros[1] +#10}
  AND MPCH.NR_PROCESSO = {iParametros[2] +#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}
SELECT {#10} CASE PM.TP_SALDO WHEN 'X' THEN 'Dinheiro'{#10} WHEN 'B' THEN B.DS_BANCO {#10} WHEN 'P' THEN 'Cheque' {#10} WHEN 'R' THEN 'Cheque' {#10} WHEN 'I' THEN 'Duplicata Incobraveis' {#10} WHEN 'T' THEN 'Cartao' {#10} WHEN 'E' THEN 'Caixa Transferencia' {#10} ELSE '' {#10} END DS_BANCO ,{#10} COALESCE(A.DS_AGENCIA,'') DS_AGENCIA,{#10} CASE PM.TP_SALDO WHEN 'P' THEN MT.NR_DOCUMENTO{#10} WHEN 'R' THEN MT.NR_DOCUMENTO{#10} ELSE '' END NR_DOCUMENTO,{#10} COALESCE(C.NM_TITULAR,'') NM_TITULAR,{#10} CASE P.TP_PROCESSO WHEN MT.TP_MOVTOCAIXA THEN (MT.VL_DOCUMENTO * (-1)){#10} ELSE MT.VL_DOCUMENTO{#10} END VL_DOCUMENTO{#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 CHEQUE C ON (C.CD_EMPRCAIXA = MT.CD_EMPRESA {#10}
  AND C.NR_LANCCAIXA = MT.NR_LANCCAIXA) {#10}
LEFT JOIN PARMSALDO PM ON (PM.CD_EMPRESA = MT.CD_EMPRESA {#10}
  AND PM.CD_CONTA = CASE MT.TP_MOVTOCAIXA WHEN 'R' {#10} THEN MT.CD_CONTADEBITO {#10} ELSE MT.CD_CONTACREDITO{#10} END) {#10}
LEFT JOIN BANCO B ON (B.CD_BANCO = PM.CD_BANCO) {#10}
LEFT JOIN AGENCIA A ON (A.CD_AGENCIA = COALESCE(PM.CD_AGENCIA,MT.CD_AGENCIA) {#10}
  AND A.CD_BANCO = B.CD_BANCO) {#10}
WHERE P.CD_EMPRESA = {iParametros[1] +#10}
  AND P.NR_PROCESSO = {iParametros[2] +#10}
GROUP BY MT.VL_DOCUMENTO, MT.CD_EMPRCONTAS, MT.NR_LANCAMENTO,{#10} MT.CD_PESSOA, MT.CD_TIPOCONTA, MT.NR_PARCELA, {#10} PM.CD_BANCO,PM.TP_SALDO,A.DS_AGENCIA,B.DS_BANCO, {#10} C.NM_TITULAR,MT.NR_DOCUMENTO, MT.TP_MOVTOCAIXA,P.TP_PROCESSO {#10} )
ORDER BY DS_BANCO DESC ,VL_DOCUMENTO DESC

Tabelas Utilizadas

Tabela	Uso
`AGENCIA`	referenciada nas queries do layout
`BANCO`	referenciada nas queries do layout
`CHEQUE`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`CONTASHISTORICO`	referenciada nas queries do layout
`HISTORICO`	referenciada nas queries do layout
`MOVTOCAIXA`	referenciada nas queries do layout
`MOVTOPROCESSO`	referenciada nas queries do layout
`PARMSALDO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PROCESSO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LPR001/ULPR001.pas
DFM: source/LPR001/ULPR001.dfm
Package: source/LPR001/LPR001.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Processo #1​

Processo #2​

tabPagamento​

Text #1​

Text #2​

Tabelas Utilizadas​

Shared Units​

Fonte​