LCX016 — Listagem LCX016

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 VIEW_DIARIOCAIXA, com junção em PESSOA, filtrada por CD_EMPRESA, NR_CONTROLE, DT_VENCIMENTO, ST_CONTAS.

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

`Caixa #1`

SELECT VD.DS_EMPRESA DS_TIPO, VD.DS_EMPRESA DS_TIPOSALDO, VD.DS_EMPRESA, VD.CD_USUARIO||' - '||VD.NM_USUARIO DS_USUARIO, VD.NR_CONTROLE, VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, 'M' TP_QUEBRA, VD.NR_RECIBO
FROM VIEW_DIARIOCAIXA(1, '01/01/1900', '01/01/2099', '
  AND MX.NR_CONTROLE = 15 ') VD
ORDER BY VD.NR_LANCCAIXA
SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_SALDO) VL_SALDO, P.NM_PESSOA DS_TIPOSALDO
FROM CONTAS C
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
WHERE C.CD_EMPRESA = 1
  AND C.NR_CONTROLE = 25
  AND C.DT_VENCIMENTO > C.DT_LANCAMENTO
  AND C.ST_CONTAS IN ('T', 'P')
GROUP BY P.NM_PESSOA, C.NR_DOCUMENTO
ORDER BY P.NM_PESSOA, C.NR_DOCUMENTO
SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_SALDO) VL_SALDO, P.NM_PESSOA DS_TIPOSALDO
FROM CONTAS C
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
WHERE C.CD_EMPRESA = 1
  AND C.NR_CONTROLE = 25
  AND C.DT_VENCIMENTO > C.DT_LANCAMENTO
  AND C.ST_CONTAS IN ('T', 'P')
GROUP BY P.NM_PESSOA, C.NR_DOCUMENTO
ORDER BY P.NM_PESSOA, C.NR_DOCUMENTO

`Caixa #2`

SELECT DS_TIPO, DS_TIPOSALDO, DS_EMPRESA, DS_USUARIO, NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, VL_ABERTURA, DS_COMPLEMENTO, {#10} VL_MOVIMENTO, VL_FECHAMENTO, CD_EMPRESA, NR_LANCCAIXA, SUM(VL_CREDITO) VL_CREDITO, SUM(VL_DEBITO) VL_DEBITO {#10}
FROM ( {#10}
SELECT /*1*/ distinct CAST('AV' AS VARCHAR(100)) DS_TIPO, {CHR}

`TabPrazo`

SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_DOCUMENTO) VL_SALDO, {CHR}

`tabFechamento`

SELECT /*2*/ {#10} CAST(EMPRESA.CD_EMPRESA AS VARCHAR(10))||' - '||EMPRESA.NM_EMPRESA||' '||PESSOA.NR_CNPJCPF DS_EMPRESA, {#10} NULL DT_LANCAMENTO, NULL CD_CONTA, NULL NR_PROCESSO, NULL NR_RECIBO, {#10} NULL DS_CONTA, NULL NR_LANCCAIXA, NULL CD_HISTORICO, {#10} NULL DS_HISTORICO, '' DS_COMPLEMENTO, NULL NR_DOCUMENTO, {#10} '' DS_COMPLEMENTO, {#10} NULL VL_DOCUMENTO, CAST(0 AS NUMERIC(15,2)) VL_CREDITO, {#10} CAIXA.NR_CONTROLE, CAIXA.CD_USUARIO CD_USUARIO, USUARIO.NM_USUARIO DS_USUARIO, CAIXA.DT_ABERTURA, {#10} CAIXA.DT_FECHAMENTO, CAIXA.VL_ABERTURA, CAIXA.VL_FECHAMENTO, CAIXA.VL_MOVIMENTO, {#10} EMPRESA.CD_EMPRESA, CAST('R' AS VARCHAR(1)), NULL TP_SALDO, {#10} NULL CD_EMPRCONTAS, NULL NR_LANCAMENTO, NULL CD_PESSOA, NULL CD_TIPOCONTA, NULL NR_PARCELA {#10}
FROM CAIXA {#10}
LEFT JOIN USUARIO ON (USUARIO.CD_USUARIO = CAIXA.CD_USUARIO) {#10}
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = CAIXA.CD_EMPRESA) {#10}
INNER JOIN PESSOA ON (PESSOA.CD_PESSOA = EMPRESA.CD_PESSOA) {#10}
WHERE CAIXA.CD_EMPRESA = {iParametros}

`Text #1`

SELECT DS_TIPO, DS_TIPOSALDO, DS_EMPRESA, DS_USUARIO, NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, VL_ABERTURA, DS_COMPLEMENTO, {#10} VL_MOVIMENTO, VL_FECHAMENTO, CD_EMPRESA, NR_LANCCAIXA, SUM(VL_CREDITO) VL_CREDITO, SUM(VL_DEBITO) VL_DEBITO {#10}
FROM ( {#10}
SELECT /*1*/ distinct CAST('AV' AS VARCHAR(100)) DS_TIPO, {CHR(10)}'CAIXA' DS_TIPOSALDO, {CHR(10)}VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, VD.NR_CONTROLE, {CHR(10)}VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, {CHR(10)}VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {CHR(10)}VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.CD_EMPRESA, VD.NR_LANCCAIXA {CHR(10)}
FROM VIEW_DIARIOCAIXA({iParametros[1]}, {CHR(10)}'01/01/1900',{CHR(10)}'12/31/2099',{CHR(10)}'
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''X'')
  AND CAIXA.CD_USUARIO = MX.CD_USUARIO ') VD {CHR(10)}
LEFT JOIN VIEW_PARMSALDO(VD.CD_EMPRESA, VD.CD_CONTA, VD.TP_SALDO, VD.CD_USUARIO) P ON (1 = 1) {CHR(10)}
INNER JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = VD.CD_EMPRESA {#10}
  AND MP.NR_PROCESSO = VD.NR_PROCESSO {#10}
  AND MP.CD_EMPRCONTAS = COALESCE(VD.CD_EMPRCONTAS, MP.CD_EMPRCONTAS) {#10}
  AND MP.NR_LANCAMENTO = COALESCE(VD.NR_LANCAMENTO, MP.NR_LANCAMENTO) {#10}
  AND MP.CD_PESSOA = COALESCE(VD.CD_PESSOA, MP.CD_PESSOA) {#10}
  AND MP.CD_TIPOCONTA = COALESCE(VD.CD_TIPOCONTA, MP.CD_TIPOCONTA) {#10}
  AND MP.NR_PARCELA = COALESCE(VD.NR_PARCELA, MP.NR_PARCELA)) {#10}
INNER JOIN CONTAS C ON (C.CD_EMPRESA = MP.cd_emprcontas {CHR(10)}AND C.nr_lancamento = MP.nr_lancamento {CHR(10)}AND C.cd_pessoa = MP.cd_pessoa {CHR(10)}AND C.cd_tipoconta = MP.cd_tipoconta {CHR(10)}AND C.nr_parcela = MP.nr_parcela {CHR(10)}AND COALESCE(C.dt_liquidacao, C.DT_VENCIMENTO) <= C.dt_lancamento {CHR(10)}AND C.TP_DOCUMENTO NOT IN ('CH','CT')) {CHR(10)}
LEFT JOIN HISTORICO H ON (H.CD_HISTORICO = MP.CD_HISTORICO) {chr(10)}
WHERE CASE WHEN VD.TP_SALDO IN ('T','R','P')
  AND COALESCE(VD.VL_CREDITO,0) > 0 THEN 0 ELSE 1 END = 1
  AND P.TP_SALDO <> 'I' {CHR(10)}
UNION ALL {CHR(10)}
SELECT /*2*/ DISTINCT CAST(RTP.O_DS_TIPO AS VARCHAR(100)) DS_TIPO, {CHR(10)} CASE VD.TP_SALDO {CHR(10)} WHEN 'X' THEN 'CAIXA' {CHR(10)} WHEN 'T' THEN 'CARTÃO ( NÃO SOMA NO RESUMO )' {CHR(10)} ELSE 'CHEQUE' {CHR(10)} END DS_TIPOSALDO, VD.DS_EMPRESA, {CHR(10)} CAST(VD.CD_USUARIO || ' - ' || VD.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, VD.NR_CONTROLE, {CHR(10)} VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {CHR(10)} VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.CD_EMPRESA, VD.NR_LANCCAIXA {CHR(10)}
FROM VIEW_DIARIOCAIXA({iParametros[1]}, '01/01/1900', '12/31/2099', '
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''X'')
  AND CAIXA.CD_USUARIO = MX.CD_USUARIO ') VD {CHR(10)}
LEFT JOIN VIEW_PARMSALDO(VD.CD_EMPRESA, VD.CD_CONTA, VD.TP_SALDO, VD.CD_USUARIO) P ON (1 = 1) {CHR(10)}
LEFT JOIN RETORNA_TIPOPROCESSO(VD.CD_EMPRESA, VD.NR_LANCCAIXA, VD.CD_EMPRESA, VD.NR_PROCESSO) RTP ON (1 = 1) {CHR(10)}
LEFT JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = VD.CD_EMPRESA {CHR(10)}
  AND MP.NR_PROCESSO = VD.NR_PROCESSO {CHR(10)}
  AND MP.CD_EMPRCONTAS = COALESCE(VD.CD_EMPRCONTAS, MP.CD_EMPRCONTAS) {CHR(10)}
  AND MP.NR_LANCAMENTO = COALESCE(VD.NR_LANCAMENTO, MP.NR_LANCAMENTO) {CHR(10)}
  AND MP.CD_PESSOA = COALESCE(VD.CD_PESSOA, MP.CD_PESSOA) {CHR(10)}
  AND MP.CD_TIPOCONTA = COALESCE(VD.CD_TIPOCONTA, MP.CD_TIPOCONTA) {CHR(10)}
  AND MP.NR_PARCELA = COALESCE(VD.NR_PARCELA, MP.NR_PARCELA)) {CHR(10)}
WHERE CASE {CHR(10)} WHEN VD.TP_SALDO IN ('T', 'R')
  AND COALESCE(VD.VL_CREDITO, 0) > 0 THEN 0 {CHR(10)} ELSE 1 {CHR(10)} END = 1
  AND {CHR(10)} P.TP_SALDO <> 'I' {CHR(10)}
  AND MP.CD_EMPRESA IS NULL {CHR(10)}
UNION ALL {CHR(10)}
SELECT distinct CAST('AV' AS VARCHAR(100)) DS_TIPO, {CHR(10)}'CAIXA' DS_TIPOSALDO, {CHR(10)}VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, VD.NR_CONTROLE, {CHR(10)}VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, {CHR(10)}VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {CHR(10)}VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.CD_EMPRESA, VD.NR_LANCCAIXA {CHR(10)}
FROM VIEW_DIARIOCAIXA({iParametros[1]}, {CHR(10)}'01/01/1900',{CHR(10)}'12/31/2099',{CHR(10)}'
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''X'',''R'',''P'')
  AND CAIXA.CD_USUARIO = MX.CD_USUARIO ') VD {CHR(10)}
LEFT JOIN VIEW_PARMSALDO(VD.CD_EMPRESA, VD.CD_CONTA, VD.TP_SALDO, VD.CD_USUARIO) P ON (1 = 1) {CHR(10)}
INNER JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = VD.CD_EMPRESA {#10}
  AND MP.NR_PROCESSO = VD.NR_PROCESSO {#10}
  AND MP.CD_EMPRCONTAS = COALESCE(VD.CD_EMPRCONTAS, MP.CD_EMPRCONTAS) {#10}
  AND MP.NR_LANCAMENTO = COALESCE(VD.NR_LANCAMENTO, MP.NR_LANCAMENTO) {#10}
  AND MP.CD_PESSOA = COALESCE(VD.CD_PESSOA, MP.CD_PESSOA) {#10}
  AND MP.CD_TIPOCONTA = COALESCE(VD.CD_TIPOCONTA, MP.CD_TIPOCONTA) {#10}
  AND MP.NR_PARCELA = COALESCE(VD.NR_PARCELA, MP.NR_PARCELA)) {#10}
INNER JOIN CONTAS C ON (C.CD_EMPRESA = MP.cd_emprcontas {CHR(10)}AND C.nr_lancamento = MP.nr_lancamento {CHR(10)}AND C.cd_pessoa = MP.cd_pessoa {CHR(10)}AND C.cd_tipoconta = MP.cd_tipoconta {CHR(10)}AND C.nr_parcela = MP.nr_parcela {CHR(10)}AND COALESCE(C.dt_liquidacao, C.DT_VENCIMENTO) <= C.dt_lancamento {CHR(10)}AND C.TP_DOCUMENTO NOT IN ('CH','CT')) {CHR(10)}
INNER JOIN CHEQUE H ON (H.cd_emprcaixa = VD.CD_EMPRESA
  AND H.nr_lanccaixa = VD.NR_LANCCAIXA) {CHR(10)}
INNER JOIN CONTAS CH ON (CH.CD_EMPRESA = H.cd_empresa {CHR(10)}AND CH.nr_lancamento = H.nr_lancamento {CHR(10)}AND CH.cd_pessoa = H.cd_pessoa {CHR(10)}AND CH.cd_tipoconta = H.cd_tipoconta {CHR(10)}AND CH.nr_parcela = H.nr_parcela {CHR(10)}AND COALESCE(CH.dt_liquidacao, CH.DT_VENCIMENTO) <= CH.dt_lancamento) {CHR(10)}
WHERE CASE WHEN VD.TP_SALDO IN ('T','R','P')
  AND COALESCE(VD.VL_CREDITO,0) > 0 THEN 0 ELSE 1 END = 1
  AND P.TP_SALDO <> 'I' {CHR(10)}
UNION ALL {CHR(10)}
SELECT distinct CAST('AV' AS VARCHAR(100)) DS_TIPO, {CHR(10)}'CAIXA' DS_TIPOSALDO, {CHR(10)}VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, VD.NR_CONTROLE, {CHR(10)}VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, {CHR(10)}VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {CHR(10)}VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.CD_EMPRESA, VD.NR_LANCCAIXA {CHR(10)}
FROM VIEW_DIARIOCAIXA({iParametros[1]}, {CHR(10)}'01/01/1900',{CHR(10)}'12/31/2099',{CHR(10)}'
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''R'',''P'')
  AND CAIXA.CD_USUARIO = MX.CD_USUARIO
  AND MX.NR_PROCESSO IS NULL ') VD {CHR(10)}
LEFT JOIN VIEW_PARMSALDO(VD.CD_EMPRESA, VD.CD_CONTA, VD.TP_SALDO, VD.CD_USUARIO) P ON (1 = 1) {CHR(10)}
WHERE CASE WHEN VD.TP_SALDO IN ('T','R','P')
  AND COALESCE(VD.VL_CREDITO,0) > 0 THEN 0 ELSE 1 END = 1
  AND P.TP_SALDO <> 'I' {CHR(10)}
UNION ALL{CHR(10)}
SELECT distinct CAST('DUPL' AS VARCHAR(100)) DS_TIPO, {CHR(10)}'CAIXA' DS_TIPOSALDO, {CHR(10)}VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, VD.NR_CONTROLE, {CHR(10)}VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, {CHR(10)}VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {CHR(10)}VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.CD_EMPRESA, VD.NR_LANCCAIXA {CHR(10)}
FROM VIEW_DIARIOCAIXA({iParametros[1]}, {CHR(10)}'01/01/1900',{CHR(10)}'12/31/2099',{CHR(10)}'
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''X'')
  AND CAIXA.CD_USUARIO = MX.CD_USUARIO ') VD {CHR(10)}
LEFT JOIN VIEW_PARMSALDO(VD.CD_EMPRESA, VD.CD_CONTA, VD.TP_SALDO, VD.CD_USUARIO) P ON (1 = 1) {CHR(10)}
INNER JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = VD.CD_EMPRESA {#10}
  AND MP.NR_PROCESSO = VD.NR_PROCESSO {#10}
  AND MP.CD_EMPRCONTAS = COALESCE(VD.CD_EMPRCONTAS, MP.CD_EMPRCONTAS) {#10}
  AND MP.NR_LANCAMENTO = COALESCE(VD.NR_LANCAMENTO, MP.NR_LANCAMENTO) {#10}
  AND MP.CD_PESSOA = COALESCE(VD.CD_PESSOA, MP.CD_PESSOA) {#10}
  AND MP.CD_TIPOCONTA = COALESCE(VD.CD_TIPOCONTA, MP.CD_TIPOCONTA) {#10}
  AND MP.NR_PARCELA = COALESCE(VD.NR_PARCELA, MP.NR_PARCELA)) {#10}
INNER JOIN CONTAS C ON (C.CD_EMPRESA = MP.cd_emprcontas {CHR(10)}AND C.nr_lancamento = MP.nr_lancamento {CHR(10)}AND C.cd_pessoa = MP.cd_pessoa {CHR(10)}AND C.cd_tipoconta = MP.cd_tipoconta {CHR(10)}AND C.nr_parcela = MP.nr_parcela {CHR(10)}AND COALESCE(C.dt_liquidacao, C.DT_VENCIMENTO) > C.dt_lancamento {CHR(10)}AND C.TP_DOCUMENTO NOT IN('CH','CT')) {CHR(10)}
LEFT JOIN HISTORICO H ON (H.CD_HISTORICO = MP.CD_HISTORICO) {CHR(10)}
WHERE CASE WHEN VD.TP_SALDO IN ('T','R','P')
  AND COALESCE(VD.VL_CREDITO,0) > 0 THEN 0 ELSE 1 END = 1
  AND P.TP_SALDO <> 'I' {CHR(10)}
UNION ALL{CHR(10)}
SELECT distinct CAST('DUPL' AS VARCHAR(100)) DS_TIPO, {CHR(10)}'CAIXA' DS_TIPOSALDO, {CHR(10)}VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, VD.NR_CONTROLE, {CHR(10)}VD.DT_ABERTURA, VD.DT_FECHAMENTO, VD.VL_ABERTURA, {CHR(10)}VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, {CHR(10)}VD.VL_MOVIMENTO, VD.VL_FECHAMENTO, VD.CD_EMPRESA, VD.NR_LANCCAIXA {CHR(10)}
FROM VIEW_DIARIOCAIXA({iParametros[1]}, {CHR(10)}'01/01/1900',{CHR(10)}'12/31/2099',{CHR(10)}'
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''R'',''P'')
  AND CAIXA.CD_USUARIO = MX.CD_USUARIO ') VD {CHR(10)}
LEFT JOIN VIEW_PARMSALDO(VD.CD_EMPRESA, VD.CD_CONTA, VD.TP_SALDO, VD.CD_USUARIO) P ON (1 = 1) {CHR(10)}
INNER JOIN MOVTOPROCESSO MP ON (MP.CD_EMPRESA = VD.CD_EMPRESA {#10}
  AND MP.NR_PROCESSO = VD.NR_PROCESSO {#10}
  AND MP.CD_EMPRCONTAS = COALESCE(VD.CD_EMPRCONTAS, MP.CD_EMPRCONTAS) {#10}
  AND MP.NR_LANCAMENTO = COALESCE(VD.NR_LANCAMENTO, MP.NR_LANCAMENTO) {#10}
  AND MP.CD_PESSOA = COALESCE(VD.CD_PESSOA, MP.CD_PESSOA) {#10}
  AND MP.CD_TIPOCONTA = COALESCE(VD.CD_TIPOCONTA, MP.CD_TIPOCONTA) {#10}
  AND MP.NR_PARCELA = COALESCE(VD.NR_PARCELA, MP.NR_PARCELA)) {#10}
INNER JOIN CONTAS C ON (C.CD_EMPRESA = MP.cd_emprcontas {CHR(10)}AND C.nr_lancamento = MP.nr_lancamento {CHR(10)}AND C.cd_pessoa = MP.cd_pessoa {CHR(10)}AND C.cd_tipoconta = MP.cd_tipoconta {CHR(10)}AND C.nr_parcela = MP.nr_parcela {CHR(10)}AND COALESCE(C.dt_liquidacao, C.DT_VENCIMENTO) > C.dt_lancamento {CHR(10)}AND C.TP_DOCUMENTO NOT IN ('CH','CT')) {CHR(10)}
INNER JOIN CHEQUE H ON (H.cd_emprcaixa = VD.CD_EMPRESA
  AND H.nr_lanccaixa = VD.NR_LANCCAIXA) {CHR(10)}
INNER JOIN CONTAS CH ON (CH.CD_EMPRESA = H.cd_empresa {CHR(10)}AND CH.nr_lancamento = H.nr_lancamento {CHR(10)}AND CH.cd_pessoa = H.cd_pessoa {CHR(10)}AND CH.cd_tipoconta = H.cd_tipoconta {CHR(10)}AND CH.nr_parcela = H.nr_parcela {CHR(10)}AND COALESCE(CH.dt_liquidacao, CH.DT_VENCIMENTO) <= CH.dt_lancamento) {CHR(10)}
WHERE CASE WHEN VD.TP_SALDO IN ('T','R','P')
  AND COALESCE(VD.VL_CREDITO,0) > 0 THEN 0 ELSE 1 END = 1
  AND P.TP_SALDO <> 'I' {CHR(10)}
ORDER BY 1, 2{#10}) X {#10}
GROUP BY DS_TIPO, DS_TIPOSALDO, DS_EMPRESA, DS_USUARIO, NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, VL_ABERTURA, DS_COMPLEMENTO, {#10} VL_MOVIMENTO, VL_FECHAMENTO, CD_EMPRESA, NR_LANCCAIXA

`Text #2`

SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_DOCUMENTO) VL_SALDO, {CHR(10)}CASE T.TP_TIPOCONTA WHEN 'CR' THEN 'Duplicata' WHEN 'HR' THEN 'Cheque' ELSE 'Cartão' END DS_TIPOSALDO {CHR(10)}
FROM CONTAS C {CHR(10)}
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA) {CHR(10)}
INNER JOIN TIPOCONTA T ON (T.CD_TIPOCONTA = C.CD_TIPOCONTA) {CHR(10)}
WHERE C.CD_EMPRCONTROLE = {iParametros[1]} {CHR(10)}
  AND C.NR_CONTROLE = {iParametros[2]} {CHR(10)}
  AND IIF(T.TP_TIPOCONTA = 'CR', IIF(C.DT_VENCIMENTO > C.DT_LANCAMENTO /*AND C.DT_LIQUIDACAO > C.DT_LANCAMENTO*/,1,0), 1) = 1 {#10}
  AND C.ST_CONTAS NOT IN ('C') {CHR(10)}
  AND T.TP_TIPOCONTA IN ('CR','HR','HP','CT') {CHR(10)}
GROUP BY P.NM_PESSOA, C.NR_DOCUMENTO, CASE T.TP_TIPOCONTA WHEN 'CR' THEN 'Duplicata' WHEN 'HR' THEN 'Cheque' ELSE 'Cartão' END {CHR(10)}
ORDER BY P.NM_PESSOA, C.NR_DOCUMENTO

`Text #3`

SELECT /*2*/ {#10} CAST(EMPRESA.CD_EMPRESA AS VARCHAR(10))||' - '||EMPRESA.NM_EMPRESA||' '||PESSOA.NR_CNPJCPF DS_EMPRESA, {#10} NULL DT_LANCAMENTO, NULL CD_CONTA, NULL NR_PROCESSO, NULL NR_RECIBO, {#10} NULL DS_CONTA, NULL NR_LANCCAIXA, NULL CD_HISTORICO, {#10} NULL DS_HISTORICO, '' DS_COMPLEMENTO, NULL NR_DOCUMENTO, {#10} '' DS_COMPLEMENTO, {#10} NULL VL_DOCUMENTO, CAST(0 AS NUMERIC(15,2)) VL_CREDITO, {#10} CAIXA.NR_CONTROLE, CAIXA.CD_USUARIO CD_USUARIO, USUARIO.NM_USUARIO DS_USUARIO, CAIXA.DT_ABERTURA, {#10} CAIXA.DT_FECHAMENTO, CAIXA.VL_ABERTURA, CAIXA.VL_FECHAMENTO, CAIXA.VL_MOVIMENTO, {#10} EMPRESA.CD_EMPRESA, CAST('R' AS VARCHAR(1)), NULL TP_SALDO, {#10} NULL CD_EMPRCONTAS, NULL NR_LANCAMENTO, NULL CD_PESSOA, NULL CD_TIPOCONTA, NULL NR_PARCELA {#10}
FROM CAIXA {#10}
LEFT JOIN USUARIO ON (USUARIO.CD_USUARIO = CAIXA.CD_USUARIO) {#10}
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = CAIXA.CD_EMPRESA) {#10}
INNER JOIN PESSOA ON (PESSOA.CD_PESSOA = EMPRESA.CD_PESSOA) {#10}
WHERE CAIXA.CD_EMPRESA = {iParametros[1] +#10}
  AND CAIXA.NR_CONTROLE = {iParametros[2]}

Tabelas Utilizadas

Tabela	Uso
`CAIXA`	referenciada nas queries do layout
`CHEQUE`	referenciada nas queries do layout
`CONTAS`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`HISTORICO`	referenciada nas queries do layout
`MOVTOPROCESSO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`RETORNA_TIPOPROCESSO`	referenciada nas queries do layout
`TIPOCONTA`	referenciada nas queries do layout
`USUARIO`	referenciada nas queries do layout
`VIEW_DIARIOCAIXA`	referenciada nas queries do layout
`VIEW_PARMSALDO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LCX016/ULCX016.pas
DFM: source/LCX016/ULCX016.dfm
Package: source/LCX016/LCX016.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Caixa #1​

Caixa #2​

TabPrazo​

tabFechamento​

Text #1​

Text #2​

Text #3​

Tabelas Utilizadas​

Shared Units​

Fonte​