LET051 — Layout LET051

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 VOLUMEPRODUCAO, com junção em VOLUMEPRODUCAOITEM, COLUNAGRADE, LINHAGRADE, ITEM, ITEMGRADE.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Volume
  // 3 - Path Servidor
  // 4 - Visualiza
  // 5 - NR_LOTE
]);

SQL Base

Etiqueta

SELECT LPAD(VP.NR_VOLUMEPROD,18,'0') COD_BARRAS, VP.DT_VOLUME, VP.NR_VOLUME, VP.QT_PRODUTOS, VP.PS_BRUTO, LG.DS_LINHA||' - '||CG.DS_COLUNA DS_GRADE, COALESCE(CAST(:NR_LOTE AS INTEGER), VP.NR_LOTEPRODUCAO) NR_LOTE, IG.PS_GRADE, IG.PS_MINIMO, IG.PS_MAXIMO, LG.DS_LINHA, CG.DS_COLUNA, CASE WHEN COALESCE(VPI.CD_GRADE,0) = 0 THEN I.DS_ITEM ELSE NULL END DS_ITEM, I.PS_LIQUIDOEMB, CAST(COPIA_TEXTO(VP.NR_VOLUMEPROD, CHAR_LENGTH(VP.NR_VOLUMEPROD) -5, 7) AS DOM_INTEGER) NUMERO
FROM VOLUMEPRODUCAO VP
INNER JOIN VOLUMEPRODUCAOITEM VPI ON (VP.CD_EMPRESA = VPI.CD_EMPRESA
  AND VP.NR_VOLUME = VPI.NR_VOLUME)
LEFT JOIN COLUNAGRADE CG ON (CG.CD_GRADE = VPI.CD_GRADE
  AND CG.NR_COLUNA = VPI.NR_COLUNA)
LEFT JOIN LINHAGRADE LG ON (LG.CD_GRADE = VPI.CD_GRADE
  AND LG.NR_LINHA = VPI.NR_LINHA)
INNER JOIN ITEM I ON (I.CD_ITEM = VPI.CD_ITEM)
LEFT JOIN ITEMGRADE IG ON (IG.CD_ITEM = I.CD_ITEM
  AND IG.CD_GRADE = I.CD_GRADE
  AND IG.NR_LINHA = LG.NR_LINHA
  AND IG.NR_COLUNA = CG.NR_COLUNA) NR_LOTE

Tabelas Utilizadas

Tabela	Uso
COLUNAGRADE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMGRADE	referenciada nas queries do layout
LINHAGRADE	referenciada nas queries do layout
VOLUMEPRODUCAO	referenciada nas queries do layout
VOLUMEPRODUCAOITEM	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LET051/ULET051.pas
• DFM: source/LET051/ULET051.dfm
• Package: source/LET051/LET051.dpk