LCX003 — Listagem LCX003

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 RESTAURANTE, com junção em ITEMRESTAURANTE, AMBIENTE, MESA, ITEM, filtrada por CD_EMPRESA, NR_RESTAURANTE, ST_PAGTO.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Controle
]);

SQL Base

tabExtrato #1

SELECT R.NR_RESTAURANTE, R.DT_EMISSAO, CURRENT_TIME HORA, CASE R.ST_ENTREGA WHEN 'N' THEN 'Mesa.: '||CAST(R.CD_MESA AS VARCHAR(10))||' - '||MESA.DS_MESA WHEN 'S' THEN 'Identificacao.: '||R.DS_IDENTIFICACAO END DS_MESA, CAST(R.CD_AMBIENTE AS VARCHAR(10))||' - '||AMBIENTE.DS_AMBIENTE DS_AMBIENTE, COALESCE(R.VL_DESCONTO,0) VL_DESCONTO, ITEM.DS_ITEM, AVG(I.VL_UNITARIO) VL_UNITARIO, SUM(COALESCE(I.PS_PEDIDO,0) - COALESCE(I.PS_PAGTO,0)) PS_PEDIDO, SUM(COALESCE(I.VL_TOTAL,0) - COALESCE(I.VL_PAGTO,0)) VL_TOTAL
FROM RESTAURANTE R
INNER JOIN ITEMRESTAURANTE I ON (R.CD_EMPRESA = I.CD_EMPRESA
  AND R.NR_RESTAURANTE = I.NR_RESTAURANTE)
LEFT JOIN AMBIENTE ON (AMBIENTE.CD_AMBIENTE = R.CD_AMBIENTE)
LEFT JOIN MESA ON (MESA.CD_AMBIENTE = R.CD_AMBIENTE
  AND MESA.CD_MESA = R.CD_MESA)
INNER JOIN ITEM ON (ITEM.CD_ITEM = I.CD_ITEM)
WHERE R.CD_EMPRESA = :CD_EMPRESA
  AND R.NR_RESTAURANTE = :NR_RESTAURANTE
  AND I.ST_PAGTO = 'N'
GROUP BY R.NR_RESTAURANTE, R.DT_EMISSAO, R.ST_ENTREGA, R.CD_MESA, MESA.DS_MESA, R.DS_IDENTIFICACAO, R.CD_AMBIENTE, AMBIENTE.DS_AMBIENTE, ITEM.DS_ITEM, R.VL_DESCONTO
ORDER BY ITEM.DS_ITEM

tabExtrato #2

SELECT NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, CD_USUARIO||' - '||NM_USUARIO NM_USUARIO, VL_ABERTURA, VL_FECHAMENTO, VL_MOVIMENTO, DS_COMPLEMENTO, sum(VL_DEBITO) VL_DEBITO, sum(VL_CREDITO) VL_CREDITO, sum(VL_DEBITO) - sum(VL_CREDITO) VL_SALDO
FROM VIEW_DIARIOCAIXA ({iCdEmpresa}, null, null, '
  AND PARMSALDO.TP_SALDO = ''X''
  AND MX.NR_LANCAMENTO IS NULL
  AND MX.NR_CONTROLE = {iNrControle}')
GROUP BY NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, CD_USUARIO, NM_USUARIO, VL_ABERTURA, VL_FECHAMENTO, VL_MOVIMENTO, DS_COMPLEMENTO
ORDER BY sum(VL_DEBITO) desc, DS_COMPLEMENTO desc

tabExtrato #3

SELECT C.NR_CONTROLE, C.DT_ABERTURA, C.DT_FECHAMENTO, C.CD_USUARIO||' - '||U.NM_USUARIO NM_USUARIO, C.VL_ABERTURA, C.VL_FECHAMENTO, C.VL_MOVIMENTO
FROM CAIXA C
INNER JOIN USUARIO U ON (U.CD_USUARIO = C.CD_USUARIO)
WHERE CD_EMPRESA = {iCdEmpresa}
  AND C.NR_CONTROLE = {iNrControle}

tabExtrato #4

SELECT I.CD_ITEM, I.DS_ITEM, SUM(RI.PS_ESTORNADO) PESO
FROM ITEMRESTAURANTE RI
INNER JOIN ITEM I ON (I.CD_ITEM = RI.CD_ITEM)
WHERE RI.CD_EMPRESA = {iCdEmpresa}
  AND RI.NR_CONTROLE = {Nulo}

tabExtrato #5

SELECT I.CD_ITEM, I.DS_ITEM, SUM(RI.PS_PEDIDO) PESO, SUM(RI.VL_TOTAL) VALOR
FROM ITEMRESTAURANTE RI
INNER JOIN ITEM I ON (I.CD_ITEM = RI.CD_ITEM)
WHERE RI.CD_EMPRESA = {iCdEmpresa}
  AND RI.NR_CONTROLE = {Nulo}

Consulta #1

SELECT I.DS_PORTADOS, I.CD_IMPRESSORA
FROM IMPRESSORA I, PARMRESTAURANTE P
WHERE I.CD_IMPRESSORA = P.CD_IMPRESSORA
  AND P.CD_EMPRESA = {iCdEmpresa}

Text #1

SELECT NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, CD_USUARIO||' - '||NM_USUARIO NM_USUARIO, VL_ABERTURA, VL_FECHAMENTO, VL_MOVIMENTO, DS_COMPLEMENTO, sum(VL_DEBITO) VL_DEBITO, sum(VL_CREDITO) VL_CREDITO, sum(VL_DEBITO) - sum(VL_CREDITO) VL_SALDO
FROM VIEW_DIARIOCAIXA ({iCdEmpresa}, null, null, '
  AND PARMSALDO.TP_SALDO = ''X''
  AND MX.NR_LANCAMENTO IS NULL
  AND MX.NR_CONTROLE = {iNrControle}')
GROUP BY NR_CONTROLE, DT_ABERTURA, DT_FECHAMENTO, CD_USUARIO, NM_USUARIO, VL_ABERTURA, VL_FECHAMENTO, VL_MOVIMENTO, DS_COMPLEMENTO
ORDER BY sum(VL_DEBITO) desc, DS_COMPLEMENTO desc

Text #2

SELECT C.NR_CONTROLE, C.DT_ABERTURA, C.DT_FECHAMENTO, C.CD_USUARIO||' - '||U.NM_USUARIO NM_USUARIO, C.VL_ABERTURA, C.VL_FECHAMENTO, C.VL_MOVIMENTO
FROM CAIXA C
INNER JOIN USUARIO U ON (U.CD_USUARIO = C.CD_USUARIO)
WHERE CD_EMPRESA = {iCdEmpresa}
  AND C.NR_CONTROLE = {iNrControle}

Consulta #2

SELECT SUM(VL_DOCUMENTO)
FROM CONTAS
WHERE CD_EMPRESA = {iCdEmpresa}
  AND NR_CONTROLE = {iNrControle}
  AND TP_DOCUMENTO = 'RS'
  AND ST_CONTAS <> 'C'
  AND DT_LANCAMENTO <> DT_VENCIMENTO

Text #3

SELECT I.CD_ITEM, I.DS_ITEM, SUM(RI.PS_ESTORNADO) PESO
FROM ITEMRESTAURANTE RI
INNER JOIN ITEM I ON (I.CD_ITEM = RI.CD_ITEM)
WHERE RI.CD_EMPRESA = {iCdEmpresa}
  AND RI.NR_CONTROLE = {Nulo(iNrControle,}I{)}
  AND COALESCE(RI.PS_ESTORNADO,0) > 0
GROUP BY I.CD_ITEM, I.DS_ITEM
ORDER BY I.DS_ITEM

Text #4

SELECT I.CD_ITEM, I.DS_ITEM, SUM(RI.PS_PEDIDO) PESO, SUM(RI.VL_TOTAL) VALOR
FROM ITEMRESTAURANTE RI
INNER JOIN ITEM I ON (I.CD_ITEM = RI.CD_ITEM)
WHERE RI.CD_EMPRESA = {iCdEmpresa}
  AND RI.NR_CONTROLE = {Nulo(iNrControle,}I{)}
  AND RI.ST_PAGTO <> 'C'
GROUP BY I.CD_ITEM, I.DS_ITEM
ORDER BY I.DS_ITEM

Tabelas Utilizadas

Tabela	Uso
AMBIENTE	referenciada nas queries do layout
CAIXA	referenciada nas queries do layout
CONTAS	referenciada nas queries do layout
IMPRESSORA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMRESTAURANTE	referenciada nas queries do layout
MESA	referenciada nas queries do layout
RESTAURANTE	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/LCX003/ULCX003.pas
• DFM: source/LCX003/ULCX003.dfm
• Package: source/LCX003/LCX003.dpk