LEP001 — Layout LEP001

Visão Geral

Layout de impressão da família LEP (Outros). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em FERRAMENTARIA, com junção em EMPRESA, PESSOA, MOVESTOQUE, ITEM, filtrada por CD_EMPRESA, NR_LANCAMENTO.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Emprestimo
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
  // 5 - Usuario
]);

SQL Base

tabNota

SELECT F.CD_EMPRESA, E.NM_EMPRESA, F.NR_LANCAMENTO, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||F.CD_PESSOA NM_PESSOA, F.CD_VENDEDOR, V.NM_PESSOA NM_VENDEDOR, F.DT_DEVOLUCAO, F.DT_EMPRESTIMO, F.DS_OBSERVACAO, CURRENT_TIMESTAMP DT_REGISTRO, I.CD_ITEM, I.DS_ITEM, M.QT_ESTOQUE QT_ITEM
FROM FERRAMENTARIA F
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = F.CD_EMPRESA)
INNER JOIN PESSOA P ON (F.CD_PESSOA = P.CD_PESSOA)
INNER JOIN MOVESTOQUE M ON (M.CD_EMPRESA = F.CD_EMPRESA
  AND M.NR_DOCUMENTO = F.NR_LANCAMENTO
  AND M.TP_DOCUMENTO = 'FE'
  AND M.ST_CANCELAMENTO = 'N')
INNER JOIN ITEM I ON (I.CD_ITEM = M.CD_ITEM)
LEFT JOIN PESSOA V ON (F.CD_VENDEDOR = V.CD_PESSOA)
WHERE F.CD_EMPRESA = :CD_EMPRESA
  AND F.NR_LANCAMENTO = :NR_LANCAMENTO

Consulta

SELECT O_CD_EMPRESA, O_DS_IMPRESSORA, O_CD_IMPRESSORA
FROM RETORNA_IMPRESSORAUSUARIO({ IntToStr(sessao.empresa.cd_Empresa)}, {QuotedStr(sessao.usuario.cd_Usuario)}, 'D', 'D' )

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
FERRAMENTARIA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
MOVESTOQUE	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_IMPRESSORAUSUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LEP001/ULEP001.pas
• DFM: source/LEP001/ULEP001.dfm
• Package: source/LEP001/LEP001.dpk