Pular para o conteúdo principal

LCX005 — Listagem LCX005

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.

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, 'M' TP_QUEBRA, VD.NR_RECIBO
FROM VIEW_DIARIOCAIXA(1, '01/01/1900', '01/01/2099', '
  AND MOVTOCAIXA.NR_CONTROLE = 15 ') VD
ORDER BY VD.NR_LANCCAIXA

Caixa #2​

SELECT VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) 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({iParametros}

Text​

SELECT VD.DS_EMPRESA, CAST(VD.CD_USUARIO||' - '||VD.NM_USUARIO AS VARCHAR(70)) 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({iParametros[1]}, '01/01/1900', '12/31/2099', '
  AND MX.NR_CONTROLE = {iParametros[2]}
  AND PARMSALDO.TP_SALDO IN (''X'',''T'',''R'',''P'') ') VD
WHERE CASE WHEN VD.TP_SALDO IN ('T','R','P')
  AND COALESCE(VD.VL_CREDITO,0) > 0 THEN 0 ELSE 1 END = 1
UNION ALL
SELECT CAST(CAST(E.CD_EMPRESA AS VARCHAR(10))||' - '||E.NM_EMPRESA||' '||PS.NR_CNPJCPF AS VARCHAR(240)) DS_EMPRESA, CAST(U.CD_USUARIO||' - '||U.NM_USUARIO AS VARCHAR(70)) DS_USUARIO, C.NR_CONTROLE, C.DT_ABERTURA, C.DT_FECHAMENTO, C.VL_ABERTURA, CAST(H.DS_HISTORICO||' '||M.DS_COMPLEMENTO AS VARCHAR(300)) DS_COMPLEMENTO, cast(case when M.TP_MOVTOCAIXA = 'P' then M.VL_DOCUMENTO else 0 end AS NUMERIC(15,2)) VL_DEBITO, cast(case when M.TP_MOVTOCAIXA = 'R' then M.VL_DOCUMENTO else 0 end AS NUMERIC(15,2)) VL_CREDITO, C.VL_MOVIMENTO, C.VL_FECHAMENTO, 'Z' TP_QUEBRA, M.NR_RECIBO
FROM MOVTOCAIXA M
INNER JOIN MOVTOPROCESSO MP on (MP.CD_EMPRESA = M.CD_EMPRESA
  AND MP.NR_PROCESSO = M.NR_PROCESSO
  AND MP.CD_EMPRCONTAS = M.CD_EMPRCONTAS
  AND MP.NR_LANCAMENTO = M.NR_LANCAMENTO
  AND MP.CD_PESSOA = M.CD_PESSOA
  AND MP.CD_TIPOCONTA = M.CD_TIPOCONTA
  AND MP.NR_PARCELA = M.NR_PARCELA
  AND MP.CD_HISTORICO = M.CD_HISTORICO)
INNER JOIN PROCESSO P on (P.CD_EMPRESA = M.CD_EMPRESA
  AND P.NR_PROCESSO = M.NR_PROCESSO)
INNER JOIN HISTORICO H on (H.CD_HISTORICO = M.CD_HISTORICO)
INNER JOIN EMPRESA E on (E.CD_EMPRESA = M.CD_EMPRESA)
INNER JOIN PESSOA PS on (PS.CD_PESSOA = E.CD_PESSOA)
INNER JOIN CAIXA C on (C.CD_EMPRESA = E.CD_EMPRESA
  AND C.NR_CONTROLE = {iParametros[2]})
INNER JOIN USUARIO U on (U.CD_USUARIO = C.CD_USUARIO)
WHERE M.CD_EMPRESA = {iParametros[1]}
  AND M.NR_CONTROLE = {iParametros[2]}
  AND P.CD_EMPRESA = {iParametros[1]}
  AND P.VL_PROCESSO = 0
  AND P.ST_PROCESSO <> 'C'

Tabelas Utilizadas​

TabelaUso
CAIXAreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
HISTORICOreferenciada nas queries do layout
MOVTOCAIXAreferenciada nas queries do layout
MOVTOPROCESSOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PROCESSOreferenciada nas queries do layout
USUARIOreferenciada nas queries do layout
VIEW_DIARIOCAIXAreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LCX005/ULCX005.pas
  • DFM: source/LCX005/ULCX005.dfm
  • Package: source/LCX005/LCX005.dpk