Pular para o conteúdo principal

LET050 — Layout LET050

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.

Chamada​

ExecLayout(Connection, [
  // 0 - Nome do Layout de Etiqueta
  // 1 - Cod Empresa
  // 2 - Cod Usuario
  // 3 - Nr Relatório
  // 4 - Path Servidor
  // 5 - Visualiza -> V  ou  Imprime -> I
  // 6 - Mostra preço Sim -> S ou não -> N
]);

SQL Base​

iConsulta​

UPDATE RELATORIO
SET NM_RELATORIO = {Nulo(nmRelatorio,}S{)}, DS_CONSULTA = { Nulo(}
SELECT {QuotedStr(dsProdutor)} DS_PRODUTOR, {QuotedStr(dsExtrusora)} DS_EXTRUSORA, {,}S{)} || SUBSTRING(TRIM(DS_CONSULTA)
FROM 8 FOR CHAR_LENGTH(DS_CONSULTA))
WHERE CD_EMPRESA = {iParametros[1]}
  AND CD_USUARIO = {Nulo(iParametros[2],}S{)}
  AND NR_RELATORIO = {iParametros[3]}

Tabelas Utilizadas​

TabelaUso
RELATORIOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LET050/ULET050.pas
  • DFM: source/LET050/ULET050.dfm
  • Package: source/LET050/LET050.dpk