LET043 — Layout LET043

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, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA (+3), filtrada por CD_EMPRESA, NR_LANCAMENTO, TP_NOTA, CD_SERIE.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Lancamento
  // 3 - Tp Nota
  // 4 - Cd serie
  // 5 - Qt VolIni
  // 6 - Qt VolFim
  // 7 - Path Servidor
  // 8 - Impressora
  // 9 - Visualiza
  // 10 - Cd_Especie
]);

SQL Base

Etiqueta

SELECT N.NR_NOTAFISCAL O_NR_NOTA, P.NM_PESSOA O_NM_PESSOA, N.DT_EMISSAO O_DT_EMISSAO, EP.DS_ENDERECO||coalesce(', '||EP.NR_ENDERECO,'') O_DS_ENDERECO, N.DT_ENTREGA O_DT_ENTREGA, M.DS_MUNICIPIO||' - '||M.SG_ESTADO O_DS_MUNICIPIO, T.NM_PESSOA O_NM_TRANSPORTADOR, E.NM_EMPRESA||coalesce(' - Fone: '||EE.NR_FONE,'') O_NM_EMPRESA, R.NM_PESSOA O_NM_REDESPACHO, E.NM_EMPRESA||coalesce(' - '||EE.NR_FONE,'') O_DS_EMPRESA, E.NM_EMPRESA O_EMPRESA, EP.DS_COMPLEMENTO||coalesce(' '||EP.DS_BAIRRO,'') O_DS_BAIRRO, EP.NR_CEP O_NR_CEP, N.CD_ESPECIE O_CD_ESPECIE, NI.CD_ITEM O_CD_ITEM, I.DS_ITEM O_DS_ITEM, COALESCE(NI.QT_ITEMNOTA,NI.PS_ITEMNOTA) O_QT_ITEM, I.CD_CODIGOBARRA O_CD_CODIGOBARRA, U.CD_USUARIO O_CD_USUARIO, U.NM_USUARIO O_NM_USUARIO
FROM NOTA N
INNER JOIN ITEMNOTA NI on (NI.CD_EMPRESA = N.CD_EMPRESA
  AND NI.NR_LANCAMENTO = N.NR_LANCAMENTO
  AND NI.TP_NOTA = N.TP_NOTA
  AND NI.CD_SERIE = N.CD_SERIE)
INNER JOIN ITEM I on (I.CD_ITEM = NI.CD_ITEM)
INNER JOIN PESSOA P on (P.CD_PESSOA = N.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP on (EP.CD_PESSOA = N.CD_PESSOA
  AND EP.CD_ENDERECO = N.CD_ENDERECO)
INNER JOIN MUNICIPIO M on (M.CD_MUNICIPIO = EP.CD_MUNICIPIO)
INNER JOIN EMPRESA E on (E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN ENDERECOPESSOA EE on (EE.CD_PESSOA = E.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA, null)))
LEFT JOIN EMBARQUE EB on (EB.CD_EMPRESA = N.CD_EMPEMB
  AND EB.NR_EMBARQUE = N.NR_EMBARQUE)
LEFT JOIN PESSOA T on (T.CD_PESSOA = EB.CD_TRANSPORTADOR)
LEFT JOIN PESSOA R on (R.CD_PESSOA = N.CD_REDESPACHO)
LEFT JOIN USUARIO U ON (U.CD_USUARIO = :CD_USUARIO)
LEFT JOIN RETORNA_LINHAS( COALESCE(NI.QT_ITEMNOTA,NI.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_USUARIO CD_EMPRESA NR_LANCAMENTO TP_NOTA CD_SERIE

Tabelas Utilizadas

Tabela	Uso
EMBARQUE	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMNOTA	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
NOTA	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LET043/ULET043.pas
• DFM: source/LET043/ULET043.dfm
• Package: source/LET043/LET043.dpk