Pular para o conteúdo principal

LCX004 — Listagem LCX004

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

Caixa #2​

SELECT E.NM_EMPRESA DS_EMPRESA, U.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, X.NR_CONTROLE, X.DT_ABERTURA, X.DT_FECHAMENTO, X.VL_ABERTURA, VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, X.VL_MOVIMENTO, X.VL_FECHAMENTO
FROM CAIXA X
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = X.CD_EMPRESA)
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO)
LEFT JOIN VIEW_DIARIOCAIXA({iParametros}

APrazo​

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 = {iParametros}

Text #1​

SELECT E.NM_EMPRESA DS_EMPRESA, U.CD_USUARIO||' - '||U.NM_USUARIO DS_USUARIO, X.NR_CONTROLE, X.DT_ABERTURA, X.DT_FECHAMENTO, X.VL_ABERTURA, VD.DS_COMPLEMENTO, VD.VL_DEBITO, VD.VL_CREDITO, X.VL_MOVIMENTO, X.VL_FECHAMENTO
FROM CAIXA X
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = X.CD_EMPRESA)
INNER JOIN USUARIO U ON (U.CD_USUARIO = X.CD_USUARIO)
LEFT JOIN VIEW_DIARIOCAIXA({iParametros[1]}, '01/01/1900', '12/31/2099', '
  AND MX.NR_CONTROLE = {iParametros[2]} ') VD ON (1 = 1)
WHERE X.CD_EMPRESA = {iParametros[1]}
  AND X.NR_CONTROLE = {iParametros[2]}
ORDER BY VD.NR_LANCCAIXA

Text #2​

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 = {iParametros[1]}
  AND C.NR_CONTROLE = {iParametros[2]}
  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

Tabelas Utilizadas​

TabelaUso
CAIXAreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
USUARIOreferenciada nas queries do layout
VIEW_DIARIOCAIXAreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LCX004/ULCX004.pas
  • DFM: source/LCX004/ULCX004.dfm
  • Package: source/LCX004/LCX004.dpk