LPD061 — Listagem LPD061

Visão Geral

Layout de impressão da família LPD (Pedido). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em HABILITA_PESOQTDE, com junção em ITEMPEDIDO, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, CONDPAGTO (+4), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_CONDPAGTO, CD_ITEM, CD_EMPRESA (+6).

Chamada

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

SQL Base

Pedido

SELECT ip.qt_pedida ,EPE.DS_ENDERECO||COALESCE(', '||EPE.NR_ENDERECO,' ') DS_ENDERECOENTREGA, MPE.DS_MUNICIPIO||' - '||MPE.SG_ESTADO DS_MUNICIPIOENTREGA, EPE.nr_cep NR_CEPENTREGA, COALESCE(EPE.DS_BAIRRO, EPE.DS_COMPLEMENTO) DS_BAIRROENTREGA, pe.ds_site, pe.ds_email, E.NM_EMPRESA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO), ' ')||' CEP: '||EE.NR_CEP||' - '||ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, N.NR_PEDIDO, N.TP_PEDIDO, N.DT_PEDIDO, N.DT_ENTREGA, N.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, P.NM_PESSOA NomePessoa, EP.NR_CEP, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, EP.NR_FONE, EP.NR_FAX, EP.NR_CELULAR, CASE C.ST_CONDPAGTO WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y') ELSE C.DS_CONDPAGTO END DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, IP.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, IP.VL_UNITARIO, IP.ps_pedido, IP.VL_DESCONTO, IP.VL_TOTAL, IP.DS_OBSERVACAO DS_OBSITEM, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) VL_LIQUIDO, CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END PS_PEDIDO, IP.VL_DESPESA, PARM.DS_LOGOTIPO, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, 'Eu, '|| p.nm_pessoa ||' , declaro para os devidos fins de direiro e a quem interessar possa '|| 'que estou de acordo com as informações acima mencionadas e recebi os itens qualificados, em '|| 'sua totalidade, estando os mesmos em perfeito estado de uso, sendo que me comprometo em efetuar '|| 'a devolução destes, conforme supra mencionado, nas mesmas condições que estão sendo entregues '|| 'nesta data, sob pena de arcar com qualquer eventual prejuízo ocasionando nos ítens ora locados. ' DS_Declaracao, RETORNALINHAS.o_nr_linha
FROM PEDIDO N
INNER JOIN ITEMPEDIDO IP ON (N.NR_PEDIDO = IP.NR_PEDIDO
  AND N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.TP_PEDIDO = IP.TP_PEDIDO)
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (P.CD_PESSOA = EP.CD_PESSOA
  AND EP.cd_endereco = N.cd_endereco)
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT MIN(CD_ENDERECO)
FROM ENDERECOPESSOA ENDER
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA))
INNER JOIN MUNICIPIO ME ON (ME.CD_MUNICIPIO = EE.CD_MUNICIPIO)
INNER JOIN CONDPAGTO C ON (C.CD_CONDPAGTO = N.CD_CONDPAGTO)
INNER JOIN ITEM I ON (I.CD_ITEM = IP.CD_ITEM)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN ENDERECOPESSOA EPE ON (EPE.CD_PESSOA = N.CD_PESSOA
  AND EPE.CD_ENDERECO = N.CD_ENDENTREGA)
LEFT JOIN MUNICIPIO MPE ON (EPE.cd_municipio = MPE.CD_MUNICIPIO)
LEFT JOIN retorna_linhas(2) RETORNALINHAS ON (1=1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO
ORDER BY RETORNALINHAS.o_nr_linha CD_EMPRESA NR_PEDIDO TP_PEDIDO DS_ENDERECOENTREGA DS_MUNICIPIOENTREGA NR_CEPENTREGA "ENDERECOPESSOA"."NR_CEP" DS_BAIRROENTREGA DS_SITE "PESSOA"."DS_SITE" DS_EMAIL "PESSOA"."DS_EMAIL" NM_EMPRESA "EMPRESA"."NM_EMPRESA" DS_ENDEREMP DS_MUNICEMP NR_FONEEMP NR_CEPEMP "ENDERECOPESSOA"."NR_CEP" NR_PEDIDO "PEDIDO"."NR_PEDIDO" TP_PEDIDO "PEDIDO"."TP_PEDIDO" DT_PEDIDO "PEDIDO"."DT_PEDIDO" DT_ENTREGA "PEDIDO"."DT_ENTREGA" CD_PESSOA "PEDIDO"."CD_PESSOA" NM_PESSOA NR_CNPJCPF "PESSOA"."NR_CNPJCPF" NR_CEP "ENDERECOPESSOA"."NR_CEP" DS_ENDERECO DS_BAIRRO DS_MUNICIPIO NR_INSCEST "ENDERECOPESSOA"."NR_INSCEST" NR_FONE "ENDERECOPESSOA"."NR_FONE" NR_FAX "ENDERECOPESSOA"."NR_FAX" NR_CELULAR "ENDERECOPESSOA"."NR_CELULAR" DS_CONDPAGTO CD_CONDPAGTO "PEDIDO"."CD_CONDPAGTO" DT_VENCIMENTO "PEDIDO"."DT_VENCIMENTO" CD_FORMAPAGTO "PEDIDO"."CD_FORMAPAGTO" DS_FORMAPAGTO "FORMAPAGTO"."DS_FORMAPAGTO" CD_ITEM "ITEMPEDIDO"."CD_ITEM" DS_ITEM "ITEM"."DS_ITEM" SG_UNIDMED "ITEM"."SG_UNIDMED" VL_UNITARIO "ITEMPEDIDO"."VL_UNITARIO" PS_PEDIDO "ITEMPEDIDO"."PS_PEDIDO" VL_DESCONTO "ITEMPEDIDO"."VL_DESCONTO" VL_TOTAL "ITEMPEDIDO"."VL_TOTAL" DS_OBSITEM "ITEMPEDIDO"."DS_OBSERVACAO" VL_LIQUIDO PS_PEDIDO1 VL_DESPESA "ITEMPEDIDO"."VL_DESPESA" DS_LOGOTIPO "PARMFATUR"."DS_LOGOTIPO" DS_OBSERVACAO DS_DECLARACAO O_NR_LINHA "RETORNA_LINHAS"."O_NR_LINHA" NomePessoa QT_PEDIDA

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
HABILITA_PESOQTDE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMPEDIDO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LPD061/ULPD061.pas
• DFM: source/LPD061/ULPD061.dfm
• Package: source/LPD061/LPD061.dpk