LCX012 — Listagem LCX012

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, 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
FROM VIEW_DIARIOCAIXA(1, '01/01/1900', '01/01/2099', '
  AND MOVTOCAIXA.NR_CONTROLE = 25 ') VD
ORDER BY VD.NR_LANCCAIXA
SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_SALDO) VL_SALDO
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
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
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

tabFechamento

SELECT X.CD_USUARIO, X.DT_ABERTURA, CAST(COALESCE(X.DT_FECHAMENTO,CURRENT_TIMESTAMP) AS DOM_TIMESTAMP) DT_FECHAMENTO, X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO
FROM CAIXA X
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO)
WHERE X.CD_EMPRESA = {iParametros}

Caixa #2

SELECT DISTINCT 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
FROM VIEW_DIARIOCAIXA(NULL, { Nulo}

tabResumo

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
FROM VIEW_DIARIOCAIXA(NULL, { Nulo}

TabPrazo

SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_SALDO) 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 = {iParametros}

Text #1

SELECT X.CD_USUARIO, X.DT_ABERTURA, CAST(COALESCE(X.DT_FECHAMENTO,CURRENT_TIMESTAMP) AS DOM_TIMESTAMP) DT_FECHAMENTO, X.VL_ABERTURA, X.VL_FECHAMENTO, X.NR_CONTROLE, X.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO
FROM CAIXA X
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO)
WHERE X.CD_EMPRESA = {iParametros[1]}
  AND X.NR_CONTROLE = {iParametros[2]}

Text #2

SELECT DISTINCT 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
FROM VIEW_DIARIOCAIXA(NULL, { Nulo(Dt_Inicial,}D{)}, { Nulo(Dt_Final,}D{)}, { Nulo(}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND PARMSALDO.TP_SALDO IN ('X','T','R','P') {,}S{)}) 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, VD.DS_COMPLEMENTO, VD.NR_LANCCAIXA

Text #3

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
FROM VIEW_DIARIOCAIXA(NULL, { Nulo(Dt_Inicial,}D{)}, { Nulo(Dt_Final,}D{)}, { Nulo(}
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND MX.CD_EMPRCONTROLE = {iParametros[1]}
  AND PARMSALDO.TP_SALDO IN ('X','T','R','P') {,}S{)}) VD
GROUP BY VD.CD_EMPRESA, VD.TP_SALDO
ORDER BY 3, 1

Text #4

SELECT P.NM_PESSOA, C.NR_DOCUMENTO, SUM(C.VL_SALDO) 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 = {iParametros[1]}
  AND C.NR_CONTROLE = {iParametros[2]}
  AND C.DT_VENCIMENTO > C.DT_LANCAMENTO
  AND C.ST_CONTAS IN ('T', 'P')
  AND T.TP_TIPOCONTA = 'CR'
GROUP BY P.NM_PESSOA, C.NR_DOCUMENTO
ORDER BY P.NM_PESSOA, C.NR_DOCUMENTO

Tabelas Utilizadas

Tabela	Uso
CAIXA	referenciada nas queries do layout
CONTAS	referenciada nas queries do layout
PESSOA	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/LCX012/ULCX012.pas
• DFM: source/LCX012/ULCX012.dfm
• Package: source/LCX012/LCX012.dpk