Pular para o conteúdo principal

LET019 — Layout LET019

Visão Geral​

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

Descrição​

Consulta baseada em ITEM.

Chamada​

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

SQL Base​

Etiqueta #1​

SELECT *
FROM item

Etiqueta #2​

{Resultado}

Consulta #1​

SELECT DS_CONSULTA
FROM RELATORIO
WHERE CD_EMPRESA = {iParametros[1]}
AND CD_USUARIO = {Nulo(iParametros[2],}S{)}
AND NR_RELATORIO = {iParametros[3]}

Consulta #2​

SELECT E.cd_pessoa
FROM EMPRESA E
WHERE E.cd_empresa = {IParametros[1]}

Consulta #3​

SELECT P.nm_fantasia
FROM PESSOA P
WHERE P.cd_pessoa = {Resultado[0]}

Tabelas Utilizadas​

TabelaUso
EMPRESAreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RELATORIOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LET019/ULET019.pas
  • DFM: source/LET019/ULET019.dfm
  • Package: source/LET019/LET019.dpk