LPD119 — Listagem LPD119

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 N, com junção em ITEMPEDIDO, ITEM, TIPOCALCULO, MES_EXTENSO, EMPRESA, PESSOA (+8), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, PESSOA, CD_ENDERECO, CD_CONDPAGTO (+4).

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
  // 8 - Numero Devolucao
  // 9 - Data Devolucao
  // 10 - Caminho e Nome para Gerar o PDF
]);

SQL Base

`PedidoVenda`

SELECT PARM.DS_LOGOTIPO, PE.NM_FANTASIA EMPFANT, V.NM_FANTASIA VENDEDOR, P.NM_PESSOA||' <'||P.CD_PESSOA||'>' NM_PESSOA, P.NR_CNPJCPF, EP.NR_INSCEST, EP.DS_ENDERECO||', '||EP.NR_ENDERECO DS_ENDERECOPESSOA, EP.DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIOPESSOA, COALESCE('FONE: '||EP.NR_FONE,'FAX: '||EP.NR_FAX) NR_FONE, EP.NR_CEP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO||', '|| EXTRACT(DAY
FROM N.DT_PEDIDO)||' de '|| MES.O_DS_MES||' de '|| EXTRACT(YEAR
FROM N.DT_PEDIDO)||'.' DS_LOCAL, CASE N.TP_PEDIDO WHEN 'O' THEN 'ORÇAMENTO: '||N.NR_PEDIDO||' - '||E.CD_EMPRESA ELSE 'PEDIDO: '||N.NR_PEDIDO||' - '||E.CD_EMPRESA END DS_PEDIDO, N.NR_PEDIDO, N.DS_OBSERVACAO, N.TP_PEDIDO, F.DS_FORMAPAGTO, I.DS_ITEM, CASE TC.TP_UNIDADE WHEN 'P' THEN I.SG_UNIDMED WHEN 'Q' THEN COALESCE(I.SG_UNIDALT,I.SG_UNIDMED) END SG_UNIDMED, CASE TC.TP_UNIDADE WHEN 'P' THEN COALESCE(IP.PS_PEDIDO,0) WHEN 'Q' THEN COALESCE(IP.QT_PEDIDA,0) END QT_PEDIDA, IP.VL_UNITARIO, IP.VL_TOTAL, CASE I.TP_ITEM WHEN 'S' THEN 'S' ELSE 'I' END TP_ITEM, IP.DS_OBSERVACAO ITEMOBS, I.CD_ITEM, COALESCE(IP.VL_TOTAL,0) - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + COALESCE(IP.VL_JURO,0) VL_GERAL, IP.VL_DESCONTO, PARM.DS_MSGPEDIDO
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 ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
INNER JOIN TIPOCALCULO TC ON (TC.CD_TIPOCALCULO = I.CD_TIPOCALCULO)
LEFT JOIN MES_EXTENSO(N.DT_PEDIDO) MES ON (0=0) --EMPRESA
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.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 (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO) --PESSOA
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA
  AND N.CD_ENDERECO = EP.CD_ENDERECO)
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) --VENDEDOR
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO
ORDER BY CASE I.TP_ITEM WHEN 'S' THEN 'S' ELSE 'I' END CD_EMPRESA 1 NR_PEDIDO 673 TP_PEDIDO S
SELECT C.NR_PEDIDO||'/'||C.NR_PARCELA NR_PARCELA, COALESCE(C.DT_VENCIMENTO, CURRENT_DATE) DT_VENCIMENTO, C.CD_FORMAPAGTO, C.VL_DOCUMENTO
FROM VIEW_CONTASPEDIDO(:CD_EMPRESA, :NR_PEDIDO, :TP_PEDIDO) C CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO S
SELECT N.NR_PEDIDO, N.DT_PEDIDO, N.DT_ENTREGA, CASE CP.ST_CONDPAGTO WHEN 'D' THEN CP.DS_CONDPAGTO||' '|| FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%y') ELSE CP.DS_CONDPAGTO END DS_CONDPAGTO, PF.DS_LOGOTIPO, C.NM_FANTASIA NM_COMPRADOR, C.DS_EMAIL DS_EMAILCOMPRADOR, EC.NR_FONE NR_FONECOMPRADOR, EC.NR_FAX NR_FAXCOMPRADOR, F.NM_PESSOA NM_FANTASIAFORNECEDOR, EF.NR_FONE NR_FONEFORNECEDOR, F.DS_EMAIL DS_EMAILFORNECEDOR, EE.DS_CONTATO DS_CONTATOFORNECEDOR, EP.NM_PESSOA NM_EMPRESA , EP.NR_CNPJCPF, EE.NR_INSCEST, COALESCE(EE.DS_ENDERECO,'')||COALESCE(' '||EE.NR_ENDERECO,'')|| COALESCE(', '||ME.DS_MUNICIPIO,'')||COALESCE(' - '||ME.SG_ESTADO,'') DS_ENDERECOEMPRESA, COALESCE(EG.DS_ENDERECO,'')||COALESCE(' '||EG.NR_ENDERECO,'')|| COALESCE(', '||MG.DS_MUNICIPIO,'')||COALESCE(' - '||MG.SG_ESTADO,'') DS_ENDEREENTREGA, COALESCE(EB.DS_ENDERECO,'')||COALESCE(' '||EB.NR_ENDERECO,'')|| COALESCE(', '||MB.DS_MUNICIPIO,'')||COALESCE(' - '||MB.SG_ESTADO,'') DS_ENDERECOCOBRANCA, COALESCE(TR.NM_FANTASIA,TR.NM_PESSOA) NM_TRANS, I.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, IT.DS_OBSERVACAO, COALESCE(IT.QT_PEDIDA,0) QT_PEDIDA , COALESCE(IT.VL_UNITARIO,0) VL_UNITARIO, COALESCE(IT.VL_DESCONTO,0) VL_DESCONTO, (COALESCE(IT.VL_TOTAL,0) + COALESCE(IT.VL_DESPESA,0) + COALESCE(IT.VL_JURO,0) - COALESCE(IT.VL_DESCONTO,0)) VL_TOTAL, N.DS_OBSERVACAO DS_OBSPEDIDO, CP.DS_CONDPAGTO, FP.CD_FORMAPAGTO, FP.DS_FORMAPAGTO
FROM PEDIDO N
INNER JOIN ITEMPEDIDO IT ON(IT.NR_PEDIDO = N.NR_PEDIDO
  AND IT.CD_EMPRESA = N.CD_EMPRESA
  AND IT.TP_PEDIDO = N.TP_PEDIDO)
INNER JOIN ITEM I ON(I.CD_ITEM = IT.CD_ITEM)
INNER JOIN PARMFATUR PF ON(PF.CD_EMPRESA = N.CD_EMPRESA) --COMPRADOR
LEFT JOIN PESSOA C ON(C.CD_PESSOA = N.CD_COMPRADOR)
LEFT JOIN ENDERECOPESSOA EC ON(EC.CD_PESSOA = C.CD_PESSOA
  AND EC.CD_ENDERECO = N.CD_ENDERECO) --EMPRESA
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA EP ON(EP.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EE ON(EE.CD_PESSOA = EP.CD_PESSOA
  AND EE.CD_ENDERECO = (
SELECT RE.O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA,NULL) RE))
LEFT JOIN MUNICIPIO ME ON(ME.CD_MUNICIPIO = EE.CD_MUNICIPIO) --CONDICAO PGTO
INNER JOIN CONDPAGTO CP ON(CP.CD_CONDPAGTO = N.CD_CONDPAGTO)
INNER JOIN FORMAPAGTO FP ON (FP.CD_FORMAPAGTO = N.CD_FORMAPAGTO) --TRANSPORTADOR
LEFT JOIN PESSOA TR ON(TR.CD_PESSOA = N.CD_TRANSPORTADOR) --FORNECEDOR
INNER JOIN PESSOA F ON(F.CD_PESSOA = N.CD_PESSOA) --ENDERECO FORNECEDOR
LEFT JOIN ENDERECOPESSOA EF ON(EF.CD_PESSOA = F.CD_PESSOA
  AND EF.CD_ENDERECO = N.CD_ENDERECO)
LEFT JOIN MUNICIPIO MF ON(MF.CD_MUNICIPIO = EF.CD_MUNICIPIO) --ENDERECO ENTREGA
LEFT JOIN ENDERECOPESSOA EG ON(EG.CD_PESSOA = E.CD_PESSOA
  AND EG.CD_ENDERECO = (
SELECT RE.O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA,'E') RE))
LEFT JOIN MUNICIPIO MG ON(MG.CD_MUNICIPIO = EG.CD_MUNICIPIO) --ENDERECO COBRANCA
LEFT JOIN ENDERECOPESSOA EB ON(EB.CD_PESSOA = E.CD_PESSOA
  AND EB.CD_ENDERECO = (
SELECT RE.O_CD_ENDERECO
FROM RETORNA_ENDERECO(E.CD_PESSOA,'B') RE))
LEFT JOIN MUNICIPIO MB ON(MB.CD_MUNICIPIO = EB.CD_MUNICIPIO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO CD_EMPRESA 1 NR_PEDIDO 2 TP_PEDIDO E
SELECT PARM.DS_LOGOTIPO, PE.NM_FANTASIA||COALESCE(' - '||COALESCE(EE.NR_FONE, EE.NR_FAX),'') EMPFANT, V.NM_PESSOA NM_VENDEDOR, COALESCE(P.NM_PESSOA||' <'||P.CD_PESSOA||'>', N.NM_CLIENTE) NM_PESSOA, COALESCE(EP.DS_ENDERECO||', '||EP.NR_ENDERECO, N.DS_ENDERECO) DS_ENDERECOPESSOA, COALESCE(MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO, N.DS_CIDADE||' - '||N.SG_ESTADO) DS_MUNICIPIOPESSOA, COALESCE(COALESCE('FONE: '||EP.NR_FONE,'FAX: '||EP.NR_FAX), N.NR_FONE) NR_FONE, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO||', '|| EXTRACT(DAY
FROM N.DT_ORCAMENTO)||' de '|| MES.O_DS_MES||' de '|| EXTRACT(YEAR
FROM N.DT_ORCAMENTO)||'.' DS_LOCAL, 'ORÇAMENTO - '||N.NR_ORCAMENTOVENDA NR_PEDIDO, N.DS_OBSERVACAO, F.DS_FORMAPAGTO, I.DS_ITEM, I.SG_UNIDMED, COALESCE(IP.QT_ITEM,0) QT_ITEM , IP.VL_UNITARIO, IP.VL_TOTAL, IP.TP_ORCAMENTOITEM TP_ITEM, I.CD_ITEM, CASE WHEN IP.TP_ORCAMENTOITEM <> 'M' THEN COALESCE(IP.VL_TOTAL,0) END VL_GERAL, CASE WHEN IP.TP_ORCAMENTOITEM = 'P' THEN '1' WHEN IP.TP_ORCAMENTOITEM = 'S' THEN '2' ELSE '3' END ORDEM, PARM.DS_MSGORCAMENTO, COALESCE(EE.NR_FONE, EE.NR_CELULAR, EE.NR_FAX) NR_FONEEMPRESA, VE.NR_CELULAR NR_CELULARVENDEDOR
FROM ORCAMENTOVENDA N
LEFT JOIN ORCAMENTOVENDAITEM IP ON (N.NR_ORCAMENTOVENDA = IP.NR_ORCAMENTOVENDA
  AND N.CD_EMPRESA = IP.CD_EMPRESA)
LEFT JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN MES_EXTENSO(N.DT_ORCAMENTO) MES ON (0=0)
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.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))
LEFT JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO)
LEFT JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA
  AND N.CD_ENDERECO = EP.CD_ENDERECO)
LEFT JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO)
LEFT JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
INNER JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN RETORNA_DADOSCADASTRAIS (V.CD_PESSOA, NULL) VE ON (1=1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTOVENDA = :NR_ORCAMENTOVENDA
ORDER BY ORDEM CD_EMPRESA 1 NR_ORCAMENTOVENDA
SELECT o.NR_ORCAMENTOVENDA||'/'||x.NR_PARCELA NR_PARCELA, COALESCE(X.DT_VENCIMENTO, CURRENT_DATE) DT_VENCIMENTO, O.CD_FORMAPAGTO, X.VL_DOCUMENTO
FROM ORCAMENTOVENDA O
LEFT JOIN RETORNA_PARCELAPEDIDO(O.DT_ORCAMENTO, O.DT_VENCIMENTO, O.DT_ENTREGA, O.CD_CONDPAGTO, (
SELECT SUM(I.VL_TOTAL)
FROM ORCAMENTOVENDAITEM I
WHERE I.CD_EMPRESA = O.CD_EMPRESA
  AND I.NR_ORCAMENTOVENDA = O.NR_ORCAMENTOVENDA
  AND I.TP_ORCAMENTOITEM <> 'M')) x on (1=1)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTOVENDA = :NR_ORCAMENTOVENDA CD_EMPRESA NR_ORCAMENTOVENDA

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
`ITEM`	referenciada nas queries do layout
`ITEMPEDIDO`	referenciada nas queries do layout
`MES_EXTENSO`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`N`	referenciada nas queries do layout
`ORCAMENTOVENDA`	referenciada nas queries do layout
`ORCAMENTOVENDAITEM`	referenciada nas queries do layout
`PARMFATUR`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`RETORNA_DADOSCADASTRAIS`	referenciada nas queries do layout
`RETORNA_ENDERECO`	referenciada nas queries do layout
`RETORNA_PARCELAPEDIDO`	referenciada nas queries do layout
`TIPOCALCULO`	referenciada nas queries do layout
`VIEW_CONTASPEDIDO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LPD119/ULPD119.pas
DFM: source/LPD119/ULPD119.dfm
Package: source/LPD119/LPD119.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

PedidoVenda​

Tabelas Utilizadas​

Shared Units​

Fonte​