LET046 — Layout LET046

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 ITEMNOTA, com junção em ITEM, GRUPO, MARCA, UNIDMED, ETIQUETAOURO, RETORNA_COMPOSICAOETIQUETA (+2), filtrada por CD_EMPRESA, NR_LANCAMENTO, TP_NOTA, CD_SERIE.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Lancto
  // 3 - Tp nota
  // 4 - cd Serie
  // 5 - Visualiza -> V ou Imprime -> I
  // 6 - Path
  // 7 - Item
]);

SQL Base

Etiqueta

SELECT GEB.O_CD_BARRASBALANCA, 'M'||M.CD_MARCA||'J' DS_MARCAMJ, UN.SG_UNIDMED, I.CD_ITEM, EO.PS_TOTAL, COALESCE(I.CD_FORNECEDOR1||'. ', I.CD_FORNECEDOR2||'. ', '')||COALESCE(RCE.O_DS_COMPOSICAO, '') DS_COMPOSICAO, I.DS_ITEM, I.CD_FORNECEDOR1, I.CD_FORNECEDOR2, G.CD_GRUPO, G.DS_GRUPO, M.CD_MARCA, M.DS_MARCA, UN.DS_UNIDMED, --EO.PS_UNIT, CASE WHEN I.PS_EMBALAGEM > 1 THEN EO.PS_UNIT ELSE NULL END, EO.PS_ESP, (EO.PS_ESP - EO.PS_UNIT) DIF_PESO, RCE.O_DS_COMPOSICAO, S.DS_SECAO O_DS_SECAO
FROM ITEMNOTA ITN
INNER JOIN ITEM I ON (I.CD_ITEM = ITN.CD_ITEM)
INNER JOIN GRUPO G ON (G.CD_GRUPO = I.CD_GRUPO)
INNER JOIN MARCA M ON (M.CD_MARCA = I.CD_MARCA)
INNER JOIN UNIDMED UN ON (UN.SG_UNIDMED = I.SG_UNIDMED)
INNER JOIN ETIQUETAOURO EO ON (EO.CD_EMPRESA = ITN.CD_EMPRESA
  AND EO.NR_LANCAMENTO = ITN.NR_LANCAMENTO
  AND EO.TP_NOTA = ITN.TP_NOTA
  AND EO.CD_SERIE = ITN.CD_SERIE
  AND EO.CD_ITEM = ITN.CD_ITEM)
LEFT JOIN RETORNA_COMPOSICAOETIQUETA(ITN.CD_EMPRESA, ITN.CD_ITEM) RCE ON (1 = 1)
LEFT JOIN GERA_ETIQUETABALANCA(ITN.CD_EMPRESA, ITN.NR_LANCAMENTO, ITN.TP_NOTA, ITN.CD_SERIE, ITN.CD_ITEM, EO.NR_SEQETIQUETAOURO,:CD_USUARIO) GEB ON (1 = 1)
LEFT JOIN SECAO S ON (S.CD_SECAO = I.CD_SECAO)
WHERE ITN.CD_EMPRESA = :CD_EMPRESA
  AND ITN.NR_LANCAMENTO = :NR_LANCAMENTO
  AND ITN.TP_NOTA = :TP_NOTA
  AND ITN.CD_SERIE = :CD_SERIE CD_USUARIO CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

ETIQUETA

{frmLET046}

text

SELECT * {#10}
FROM RETORNA_ITENSLET046(:CD_EMPRESA,:NR_LANCAMENTO,:TP_NOTA,:CD_SERIE, {Nulo(iParametros[7],}I{)},{ Nulo(sessao.usuario.cd_usuario,}S{)})

Tabelas Utilizadas

Tabela	Uso
ETIQUETAOURO	referenciada nas queries do layout
GERA_ETIQUETABALANCA	referenciada nas queries do layout
GRUPO	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMNOTA	referenciada nas queries do layout
MARCA	referenciada nas queries do layout
RETORNA_COMPOSICAOETIQUETA	referenciada nas queries do layout
[[RETORNA_ITENSLET046]]	referenciada nas queries do layout
SECAO	referenciada nas queries do layout
UNIDMED	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LET046/ULET046.pas
• DFM: source/LET046/ULET046.dfm
• Package: source/LET046/LET046.dpk