LET052 — Layout LET052

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 NOTA, com junção em ITEMNOTA, ITEM, RETORNA_CODBARRASLOTE, RETORNA_LINHAS, filtrada por CD_EMPRESA, NR_LANCAMENTO, TP_NOTA, CD_SERIE.

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
  // 7 - CD_EMPRESA
  // 8 - NR_LANCAMENTO
  // 9 - TP_NOTA
  // 10 - CD_SERIE
]);

SQL Base

Etiqueta

SELECT I.CD_ITEM, I.DS_ITEM, ITN.VL_UNITARIO, ITN.VL_TOTAL, ITN.VL_LIQUIDO, RCB.O_DS_CODIGOSBARRA, RCB.O_NR_LOTE
FROM NOTA N
INNER JOIN ITEMNOTA ITN ON(ITN.CD_EMPRESA = N.CD_EMPRESA
  AND ITN.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND ITN.TP_NOTA = N.TP_NOTA
  AND ITN.CD_SERIE = N.CD_SERIE)
INNER JOIN ITEM I ON(I.CD_ITEM = ITN.CD_ITEM)
LEFT JOIN RETORNA_CODBARRASLOTE(ITN.CD_EMPRESA, ITN.NR_LANCAMENTO, ITN.TP_NOTA, ITN.CD_SERIE, ITN.CD_ITEM) RCB ON(1=1)
LEFT JOIN RETORNA_LINHAS(COALESCE(ITN.QT_ITEMNOTA, ITN.PS_ITEMNOTA)) RL ON(1=1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO
  AND N.TP_NOTA = :TP_NOTA
  AND N.CD_SERIE = :CD_SERIE CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

Tabelas Utilizadas

Tabela	Uso
ITEM	referenciada nas queries do layout
ITEMNOTA	referenciada nas queries do layout
NOTA	referenciada nas queries do layout
RETORNA_CODBARRASLOTE	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LET052/ULET052.pas
• DFM: source/LET052/ULET052.dfm
• Package: source/LET052/LET052.dpk