Pular para o conteúdo principal

LET055 — Layout LET055

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 PEDIDO, com junção em PESSOA, ENDERECOPESSOA, MUNICIPIO, filtrada por CD_EMPRESA, CD_PESSOA, TP_PEDIDO.

Chamada​

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Cod Clientesss
  // 3 - Nr Pedido
  // 4 - Path Servidor
  // 5 - Visualiza -> V  ou  Imprime -> I
  // 6 - Data inicial
  // 7 - Data final
]);

SQL Base​

tabPedido #1​

SELECT P.NR_PEDIDO, P.QT_VOLUMEADIC, P.PS_BRUTOADIC, P.PS_LIQUIDOADIC, PE.NM_PESSOA NM_DESTINARIO, PM.NM_PESSOA NM_TRANSPORTADOR, P.CD_REDESPACHO, RED.NM_PESSOA NM_REDESPACHO, (MC.DS_MUNICIPIO|| ' - ' || MC.SG_ESTADO) DS_DESTINO, P.DT_PEDIDO
FROM PEDIDO P
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN PESSOA PM ON (PM.CD_PESSOA = P.CD_TRANSPORTADOR)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = P.CD_PESSOA
  AND EP.CD_ENDERECO = P.CD_ENDERECO)
LEFT JOIN MUNICIPIO MC ON (MC.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN PESSOA RED ON (RED.CD_PESSOA = P.CD_REDESPACHO)
WHERE P.CD_EMPRESA = :CD_EMPRESA
  AND P.CD_PESSOA = :CD_PESSOA
  AND P.TP_PEDIDO = 'S' CD_EMPRESA CD_PESSOA

tabPedido #2​

{frmLET055}

tabPedido #3​

{frmLET055}

tabPedido #4​

{frmLET055}

Tabelas Utilizadas​

TabelaUso
ENDERECOPESSOAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LET055/ULET055.pas
  • DFM: source/LET055/ULET055.dfm
  • Package: source/LET055/LET055.dpk