LCX041 — Listagem LCX041

Visão Geral

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

Descrição

Consulta baseada em RETORNA_TIPOLANCAMENTO, com junção em USUARIO, PESSOA, TIPOCONTA, filtrada por CD_EMPRESA, NR_CONTROLE, JO, CD_PESSOA, CD_TIPOCONTA, CD_EMPRCONTROLE (+3).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout de Duplicata
  // 1 - Empresa
  // 2 - Controle Caixa
  // 3 - Visualiza -> V  ou  Imprime -> I
  // 4 - Impressora do Parametro
]);

SQL Base

`tabCaixa #1`

SELECT (
SELECT CASE O_TIPO WHEN 'A' THEN 'Lançamento Avulso' WHEN 'V' THEN 'Lançamento a Vista' WHEN 'P' THEN 'Recebimento Contas' END
FROM RETORNA_TIPOLANCAMENTO(VD.CD_EMPRESA, VD.NR_PROCESSO)) TP_LANCAMENTO_CAIXA, VD.CD_EMPRESA, VD.DS_EMPRESA, VD.CD_USUARIO||' - '||VD.NM_USUARIO DS_USUARIO, VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, VD.NR_CONTROLE, VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.NR_LANCCAIXA, CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' WHEN 'T' THEN 'CARTÃO DE CRÉDITO' ELSE 'CHEQUE' END DS_TIPOSALDO, 111 teste, CASE COALESCE(VD.TP_SALDO, 'X') WHEN 'X' THEN :VL_SALDODIA ELSE 0 END VL_SALDOGERALDIA
FROM VIEW_DIARIOCAIXA(NULL, :DT_INICIAL, :DT_FINAL, '
  AND MX.NR_CONTROLE = '||:NR_CONTROLE||'
  AND MX.CD_EMPRCONTROLE = '||:CD_EMPRCONTROLE|| '
  AND PARMSALDO.TP_SALDO IN (''X'', ''T'', ''R'', ''P'')') VD
ORDER BY VD.CD_EMPRESA, CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' WHEN 'T' THEN 'CARTÃO DE CRÉDITO' ELSE 'CHEQUE' END, 1, VD.DS_COMPLEMENTO, VD.NR_LANCCAIXA VL_SALDODIA Dt_Inicial Dt_Final NR_CONTROLE CD_EMPRCONTROLE
SELECT VD.CD_EMPRESA, SUM(VD.VL_DEBITO) VL_DEBITO, SUM(VD.VL_CREDITO) VL_CREDITO, CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' WHEN 'T' THEN 'CARTÃO DE CRÉDITO' WHEN 'E' THEN 'TRANSFERÊNCIA CAIXA(SANGRIA E TROCO)' ELSE 'CHEQUE' END DS_TIPOSALDO, SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_CREDITO, 0) ELSE 0 END AS NUMERIC(15, 2))) VL_CREDCAIXA, SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_DEBITO, 0) ELSE 0 END AS NUMERIC(15, 2))) VL_DEBCAIXA, SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN (COALESCE(VD.VL_DEBITO, 0) - COALESCE(VD.VL_CREDITO, 0)) ELSE 0 END AS NUMERIC(15, 2))) VL_DINHEIRO, (
SELECT FIRST 1 E.VL_SALDOGERAL
FROM EXTRATO_CAIXA (:CD_EMPRESA, :DT_INICIAL, :DT_FINAL, 'N', '
  AND MX.NR_CONTROLE = '||:NR_CONTROLE||'
  AND MX.CD_EMPRCONTROLE = '||:CD_EMPRCONTROLE|| '
  AND COALESCE(PARMSALDO.TP_SALDO, ''I'') <> ''I'' ', '') E
ORDER BY 1 DESC) VL_SALDOGERAL, SUM(CASE WHEN VD.TP_SALDO IN ('X') THEN VD.VL_DEBITO ELSE 0.0 END) VL_SUMDEBITO, SUM(CASE WHEN VD.TP_SALDO IN ('X') THEN VD.VL_CREDITO ELSE 0.0 END) VL_SUMCREDITO
FROM VIEW_DIARIOCAIXA(NULL, :DT_INICIAL, :DT_FINAL, '
  AND MX.NR_CONTROLE = '||:NR_CONTROLE||'
  AND MX.CD_EMPRCONTROLE = '||:CD_EMPRCONTROLE|| '
  AND PARMSALDO.TP_SALDO IN (''X'', ''T'', ''R'', ''P'') ') VD
GROUP BY VD.CD_EMPRESA, VD.TP_SALDO
ORDER BY 3, 1 CD_EMPRESA DT_INICIAL DT_FINAL NR_CONTROLE||'
  AND MX.CD_EMPRCONTROLE = '||:CD_EMPRCONTROLE|| DT_INICIAL DT_FINAL NR_CONTROLE||'
  AND MX.CD_EMPRCONTROLE = '||:CD_EMPRCONTROLE||
SELECT X.CD_USUARIO, X.DT_ABERTURA, COALESCE(X.DT_FECHAMENTO, CURRENT_TIMESTAMP) DT_FECHAMENTO, X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, 'Movimentações a Vista' TP_LANCAMENTO_CAIXA, CAST(:VL_SALDODIA AS DOM_NUMERIC15_2) VL_SALDOGERALDIA
FROM CAIXA X
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO)
WHERE X.CD_EMPRESA = :CD_EMPRESA
  AND X.NR_CONTROLE = :NR_CONTROLE VL_SALDODIA CD_EMPRESA NR_CONTROLE
SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_DOCUMENTO) VL_SALDO
FROM CONTAS C
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
INNER JOIN TIPOCONTA T ON (T.CD_TIPOCONTA = C.CD_TIPOCONTA)
WHERE C.CD_EMPRCONTROLE = :CD_EMPRCONTROLE
  AND C.NR_CONTROLE = :NR_CONTROLE
  AND C.DT_VENCIMENTO > C.DT_LANCAMENTO
  AND T.TP_TIPOCONTA = 'CR'
  AND C.ST_CONTAS <> 'C'
GROUP BY P.NM_PESSOA, C.NR_DOCUMENTO
ORDER BY P.NM_PESSOA, C.NR_DOCUMENTO CD_EMPRCONTROLE NR_CONTROLE

`tabFechamento #1`

SELECT {#10} X.CD_USUARIO, X.DT_ABERTURA, CAST(COALESCE(X.DT_FECHAMENTO,CURRENT_TIMESTAMP) AS DOM_TIMESTAMP) DT_FECHAMENTO, {#10} X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, {#10} X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, {#10} 'Movimentações a Vista' TP_LANCAMENTO_CAIXA, 0.00 VL_SALDOGERALDIA {#10}
FROM CAIXA X {#10}
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO) {#10}
WHERE X.CD_EMPRESA = {iParametros}

`tabFechamento #2`

SELECT {#10} X.CD_USUARIO, X.DT_ABERTURA, CAST(COALESCE(X.DT_FECHAMENTO,CURRENT_TIMESTAMP) AS DOM_TIMESTAMP) DT_FECHAMENTO, {#10} X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, {#10} X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, {#10} 'Movimentações a Vista' TP_LANCAMENTO_CAIXA, {Nulo}

`tabCaixa #2`

SELECT {#10} (
SELECT CASE O_TIPO {#10} WHEN 'A' THEN 'Lançamento Avulso' {#10} WHEN 'V' THEN 'Lançamento a Vista' {#10} WHEN 'P' THEN 'Recebimento Contas' END {#10}
FROM RETORNA_TIPOLANCAMENTO(VD.CD_EMPRESA, VD.NR_PROCESSO)) TP_LANCAMENTO_CAIXA, {#10} VD.CD_EMPRESA, VD.DS_EMPRESA, VD.CD_USUARIO||' - '||VD.NM_USUARIO DS_USUARIO, {#10} VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, VD.NR_CONTROLE, {#10} VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {#10} VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.NR_LANCCAIXA, {#10} CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' {#10} WHEN 'T' THEN 'CARTÃO DE CRÉDITO' {#10} WHEN 'B' THEN 'BANCO' {#10} ELSE 'CHEQUE' END DS_TIPOSALDO, 111 teste, {#10} CASE COALESCE(VD.TP_SALDO, 'X') WHEN 'X' THEN {Nulo}

`tabResumo`

SELECT {#10} VD.CD_EMPRESA, SUM(VD.VL_DEBITO) VL_DEBITO, {#10} SUM(VD.VL_CREDITO) VL_CREDITO, {#10} CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' {#10} WHEN 'T' THEN 'CARTÃO DE CRÉDITO' {#10} WHEN 'E' THEN 'TRANSFERÊNCIA CAIXA(SANGRIA E TROCO)' {#10} ELSE 'CHEQUE' END DS_TIPOSALDO, {#10} SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_CREDITO, 0.0) ELSE 0.0 END AS NUMERIC(15, 2))) VL_CREDCAIXA, {#10} SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_DEBITO, 0.0) ELSE 0.0 END AS NUMERIC(15, 2))) VL_DEBCAIXA, {#10} SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN (COALESCE(VD.VL_DEBITO, 0.0) - COALESCE(VD.VL_CREDITO, 0.0)) ELSE 0.0 END AS NUMERIC(15, 2))) VL_DINHEIRO, {#10} (
SELECT FIRST 1 E.VL_SALDOGERAL {#10}
FROM EXTRATO_CAIXA ({iParametros}

`tabPrazo`

SELECT {#10} P.NM_PESSOA, C.NR_DOCUMENTO, {#10} SUM(C.VL_DOCUMENTO) VL_SALDO {#10}
FROM CONTAS C {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {#10}
INNER JOIN TIPOCONTA T ON (T.CD_TIPOCONTA = C.CD_TIPOCONTA) {#10}
WHERE C.CD_EMPRCONTROLE = {iParametros}

`Text #1`

SELECT {#10} X.CD_USUARIO, X.DT_ABERTURA, CAST(COALESCE(X.DT_FECHAMENTO,CURRENT_TIMESTAMP) AS DOM_TIMESTAMP) DT_FECHAMENTO, {#10} X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, {#10} X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, {#10} 'Movimentações a Vista' TP_LANCAMENTO_CAIXA, 0.00 VL_SALDOGERALDIA {#10}
FROM CAIXA X {#10}
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO) {#10}
WHERE X.CD_EMPRESA = {iParametros[1] + #10}
  AND X.NR_CONTROLE = {iParametros[2]}

`Consulta`

SELECT FIRST 1 E.VL_SALDOGERAL {#10}
FROM EXTRATO_CAIXA ({iParametros[1]}, { Nulo(Dt_Inicial,}D{)}, { Nulo(Dt_Final,}D{)}, { Nulo(}N{,}S{)}, { Nulo(}
  AND PARMSALDO.TP_SALDO = 'X' {,}S{)}, '') E {#10}
ORDER BY E.NR_LANCCAIXA DESC

`Text #2`

SELECT {#10} X.CD_USUARIO, X.DT_ABERTURA, CAST(COALESCE(X.DT_FECHAMENTO,CURRENT_TIMESTAMP) AS DOM_TIMESTAMP) DT_FECHAMENTO, {#10} X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, {#10} X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, {#10} 'Movimentações a Vista' TP_LANCAMENTO_CAIXA, {Nulo(iVL_SALDODIA,}F{)} VL_SALDOGERALDIA {#10}
FROM CAIXA X {#10}
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO) {#10}
WHERE X.CD_EMPRESA = {iParametros[1] + #10}
  AND X.NR_CONTROLE = {iParametros[2]}

`Text #3`

SELECT {#10} (
SELECT CASE O_TIPO {#10} WHEN 'A' THEN 'Lançamento Avulso' {#10} WHEN 'V' THEN 'Lançamento a Vista' {#10} WHEN 'P' THEN 'Recebimento Contas' END {#10}
FROM RETORNA_TIPOLANCAMENTO(VD.CD_EMPRESA, VD.NR_PROCESSO)) TP_LANCAMENTO_CAIXA, {#10} VD.CD_EMPRESA, VD.DS_EMPRESA, VD.CD_USUARIO||' - '||VD.NM_USUARIO DS_USUARIO, {#10} VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, VD.NR_CONTROLE, {#10} VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {#10} VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.NR_LANCCAIXA, {#10} CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' {#10} WHEN 'T' THEN 'CARTÃO DE CRÉDITO' {#10} WHEN 'B' THEN 'BANCO' {#10} ELSE 'CHEQUE' END DS_TIPOSALDO, 111 teste, {#10} CASE COALESCE(VD.TP_SALDO, 'X') WHEN 'X' THEN {Nulo (iVL_SALDODIA,}F{) + #10} ELSE 0 END VL_SALDOGERALDIA {#10}
FROM VIEW_DIARIOCAIXA(NULL, {Nulo(Dt_Inicial,}D{)}, { Nulo(Dt_Final,}D{)}, { Nulo(}
  AND MX.NR_CONTROLE = {iParametros[2] + #10}
  AND MX.CD_EMPRCONTROLE = {iParametros[1] + #10}
  AND PARMSALDO.TP_SALDO IN ('X', 'T', 'R', 'P', {Nulo(iBanco,}S{)}) {,}S{)}) VD {#10}
ORDER BY VD.CD_EMPRESA, CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' WHEN 'T' THEN 'CARTÃO DE CRÉDITO' ELSE 'CHEQUE' END, {#10} 1, VD.DS_COMPLEMENTO, VD.NR_LANCCAIXA

`Text #4`

SELECT {#10} VD.CD_EMPRESA, SUM(VD.VL_DEBITO) VL_DEBITO, {#10} SUM(VD.VL_CREDITO) VL_CREDITO, {#10} CASE VD.TP_SALDO WHEN 'X' THEN 'CAIXA' {#10} WHEN 'T' THEN 'CARTÃO DE CRÉDITO' {#10} WHEN 'E' THEN 'TRANSFERÊNCIA CAIXA(SANGRIA E TROCO)' {#10} ELSE 'CHEQUE' END DS_TIPOSALDO, {#10} SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_CREDITO, 0.0) ELSE 0.0 END AS NUMERIC(15, 2))) VL_CREDCAIXA, {#10} SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_DEBITO, 0.0) ELSE 0.0 END AS NUMERIC(15, 2))) VL_DEBCAIXA, {#10} SUM(CAST(CASE VD.TP_SALDO WHEN 'X' THEN (COALESCE(VD.VL_DEBITO, 0.0) - COALESCE(VD.VL_CREDITO, 0.0)) ELSE 0.0 END AS NUMERIC(15, 2))) VL_DINHEIRO, {#10} (
SELECT FIRST 1 E.VL_SALDOGERAL {#10}
FROM EXTRATO_CAIXA ({iParametros[1]}, { Nulo(Dt_Inicial,}D{)}, { Nulo(Dt_Final,}D{)}, { Nulo(}N{,}S{)}, { Nulo(}
  AND MX.NR_CONTROLE = {iParametros[2] + #10}
  AND MX.CD_EMPRCONTROLE = {iParametros[1] + #10}
  AND COALESCE(PARMSALDO.TP_SALDO, 'I') <> 'I' {,}S{)}, '') E {#10}
ORDER BY 1 DESC) VL_SALDOGERAL, {#10} SUM(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_DEBITO, 0.0) ELSE 0.0 END) VL_SUMDEBITO, {#10} SUM(CASE VD.TP_SALDO WHEN 'X' THEN COALESCE(VD.VL_CREDITO, 0.0) ELSE 0.0 END) VL_SUMCREDITO {#10}
FROM VIEW_DIARIOCAIXA(NULL, {Nulo(Dt_Inicial,}D{)}, { Nulo(Dt_Final,}D{)}, { Nulo(}
  AND MX.NR_CONTROLE = {iParametros[2] + #10}
  AND MX.CD_EMPRCONTROLE = {iParametros[1] + #10}
  AND PARMSALDO.TP_SALDO IN ('X', 'T', 'R', 'P') {,}S{)}) VD {#10}
GROUP BY VD.CD_EMPRESA, VD.TP_SALDO {#10}
ORDER BY 3, 1

`Text #5`

SELECT {#10} P.NM_PESSOA, C.NR_DOCUMENTO, {#10} SUM(C.VL_DOCUMENTO) VL_SALDO {#10}
FROM CONTAS C {#10}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {#10}
INNER JOIN TIPOCONTA T ON (T.CD_TIPOCONTA = C.CD_TIPOCONTA) {#10}
WHERE C.CD_EMPRCONTROLE = {iParametros[1] + #10}
  AND C.NR_CONTROLE = {iParametros[2] + #10}
  AND C.DT_VENCIMENTO > C.DT_LANCAMENTO {#10}
  AND T.TP_TIPOCONTA = 'CR' {#10}
  AND C.ST_CONTAS <> 'C' {#10}
GROUP BY P.NM_PESSOA, C.NR_DOCUMENTO {#10}
ORDER BY P.NM_PESSOA, C.NR_DOCUMENTO

Tabelas Utilizadas

Tabela	Uso
`CAIXA`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`EXTRATO_CAIXA`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`RETORNA_TIPOLANCAMENTO`	referenciada nas queries do layout
`TIPOCONTA`	referenciada nas queries do layout
`USUARIO`	referenciada nas queries do layout
`VIEW_DIARIOCAIXA`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LCX041/ULCX041.pas
DFM: source/LCX041/ULCX041.dfm
Package: source/LCX041/LCX041.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabCaixa #1​

tabFechamento #1​

tabFechamento #2​

tabCaixa #2​

tabResumo​

tabPrazo​

Text #1​

Consulta​

Text #2​

Text #3​

Text #4​

Text #5​

Tabelas Utilizadas​

Shared Units​

Fonte​