Pular para o conteúdo principal

LPD025 — Listagem LPD025

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 ITEMPEDIDO, com junção em PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, CONDPAGTO, ITEM (+14), filtrada por CD_EMPRESA, NR_PEDIDO, TP_PEDIDO, ST_ITEMPEDIDO, AS, O_NR_L (+16).

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
]);

SQL Base​

Pedido​

SELECT IP.DS_OBSERVACAO DS_OBSITEM, CAST((
SELECT COUNT(ITEMPED.CD_ITEM)
FROM ITEMPEDIDO ITEMPED
WHERE ITEMPED.CD_EMPRESA = N.CD_EMPRESA
  AND ITEMPED.NR_PEDIDO = N.NR_PEDIDO
  AND ITEMPED.TP_PEDIDO = N.TP_PEDIDO
  AND ITEMPED.ST_ITEMPEDIDO <> 'C'
  AND CHAR_LENGTH(ITEMPED.DS_OBSERVACAO) > 0) AS INTEGER) QTD_OBSITEM, CASE N.TP_PEDIDO WHEN 'O' THEN 'Orçamento ' ELSE 'Pedido ' END || N.NR_PEDIDO DS_PEDIDO, N.CD_EMPRESA, PE.NM_PESSOA NM_EMPRESA , RL.O_NR_LINHA DS_QUEBRA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.DS_EMAIL DS_EMAILEMP, PE.DS_SITE DS_SITEEMP, PARM.DS_LOGOTIPO, EE.NR_FONE NR_FONEEMP, EE.NR_FAX NR_FAXEMP, EE.NR_CEP NR_CEPEMP, PE.NR_CNPJCPF NR_CNPJCPFEMP, EE.NR_INSCEST NR_INSCESTEMP, 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, 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, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, RG.DS_REGIAOCOMERCIAL DS_REGIAO, R.DS_OBSERVACAO DS_OBRA, C.DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, VENC.O_DS_VENCIMENTO, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.CD_ITEM, I.DS_ITEM||COALESCE(' - '||S.DS_MARCA,'') DS_ITEM, IP.VL_UNITARIO, I.NR_NCM, IP.VL_DESCONTO, CAST(COALESCE(IP.VL_DESCONTO, 0) + COALESCE(((ITP.VL_PRECO * COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO)) - IP.VL_TOTAL),0) AS DOM_NUMERIC15_2) VL_DESCONTOTOTAL, IP.VL_TOTAL, COALESCE(I.CD_FORNECEDOR1, I.CD_FORNECEDOR2) CD_FORNECEDOR, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) VL_LIQUIDO, COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO) PS_PEDIDO, I.SG_UNIDMED, IP.VL_DESPESA, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, N.CD_ELETRICISTA||' - '||PEL.NM_PESSOA NM_ELETRECISTA, CASE WHEN (IP.VL_UNITARIO - ITP.VL_PRECO) >= 0 THEN IP.VL_UNITARIO ELSE ITP.VL_PRECO END VL_PRECO_TABELA, CASE WHEN (((COALESCE(ITP.VL_PRECO,0) - IP.VL_UNITARIO) + VUD.V_VL_TOTAL) * 100) / COALESCE(NULLIF(ITP.VL_PRECO,0),1) < 0 THEN 0 ELSE (((COALESCE(ITP.VL_PRECO,0) - IP.VL_UNITARIO) + VUD.V_VL_TOTAL) * 100) / COALESCE(NULLIF(ITP.VL_PRECO,0),1) END DESC_PORCENT_ITEM, CASE WHEN (IP.VL_UNITARIO - coalesce(ITP.VL_PRECO,0)) >= 0 THEN IP.VL_UNITARIO * COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO) ELSE ITP.VL_PRECO * COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO) END VL_TOTALBRUTO, IP.VL_UNITARIO - COALESCE(IP.VL_DESCONTO / COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO),0) VL_UNITARIOLIQ, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) VL_TOTALLIQ, --CHAMADO 297331 CAST((VL_DESCONTO * 100.00 / COALESCE(NULLIF(VL_TOTAL,0),1.00) ) AS DOM_NUMERIC15_2) PERC_DESCONTO, CASE CALC.CD_TIPOCALCULO WHEN 1 THEN COALESCE ( I.SG_UNIDALT, I.SG_UNIDMED ) ELSE COALESCE ( I.SG_UNIDMED, I.SG_UNIDALT ) END SG_FILTRADA, CASE CALC.TP_UNIDADE WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END QTDE_AUX --CHAMADO 297331
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
  AND IP.ST_ITEMPEDIDO <> 'C')
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 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)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
INNER JOIN TIPOCALCULO CALC ON (I.CD_TIPOCALCULO = CALC.CD_TIPOCALCULO)
LEFT JOIN MARCA S ON (S.CD_MARCA = I.CD_MARCA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN REGIAOCOMERCIAL RG ON (RG.CD_REGIAOCOMERCIAL = EP.CD_REGIAOCOMERCIAL)
LEFT JOIN ROMANEIOPEDIDO RO ON (RO.CD_EMPRPEDIDO = N.CD_EMPRESA
  AND RO.NR_PEDIDO = N.NR_PEDIDO
  AND RO.TP_PEDIDO = N.TP_PEDIDO)
LEFT JOIN ROMANEIO R ON (R.CD_EMPRESA = RO.CD_EMPRESA
  AND R.NR_ROMANEIO = RO.NR_ROMANEIO)
LEFT JOIN PESSOA PEL ON (PEL.CD_PESSOA = N.CD_ELETRICISTA)
LEFT JOIN ITEMTABPRECO ITP ON (ITP.CD_ITEM = IP.CD_ITEM
  AND ITP.CD_TABPRECO = IP.CD_TABPRECO)
LEFT JOIN HABILITA_PESOQTDE(IP.CD_ITEM) PS ON (1=1)
LEFT JOIN CALCULA_VALOR(IP.CD_ITEM, IP.PS_PEDIDO, IP.QT_PEDIDA, COALESCE(IP.VL_DESCONTO,0), 'U') VUD ON (1 = 1)
LEFT JOIN RETORNA_LINHAS(2) RL ON (1 = 1)
LEFT JOIN RETORNA_VENCIMENTOS(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO, N.CD_CONDPAGTO, N.DT_PEDIDO, N.DT_VENCIMENTO) VENC ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO
ORDER BY RL.O_NR_LINHA, I.DS_ITEM CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO
SELECT N.CD_EMPRESA, E.NM_EMPRESA, RL.O_NR_LINHA DS_QUEBRA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') 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.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||N.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, 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, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.CD_ITEM, I.DS_ITEM||COALESCE(' - '||S.DS_MARCA,'') DS_ITEM, I.NR_NCM, COALESCE(I.CD_FORNECEDOR1, I.CD_FORNECEDOR2) CD_FORNECEDOR, I.SG_UNIDMED, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, ELE.NM_PESSOA NM_REDESPACHO, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, IP.VL_UNITARIO, IP.DT_DEVOLUCAO, IP.NR_DEVOLUCAO, N.NR_PEDIDO, CASE WHEN IP.QT_DEVOLUCAO > 0 THEN IP.QT_DEVOLUCAO ELSE IP.PS_DEVOLUCAO END PS_DEVOLUCAO, (
SELECT V_VL_TOTAL
FROM CALCULA_VALOR(IP.CD_ITEM, IP.PS_DEVOLUCAO, IP.QT_DEVOLUCAO, IP.VL_UNITARIO, 'T')) VL_DEVOLUCAO, IT.VL_DESCONTODEVOL VL_DESCONTO, ((
SELECT V_VL_TOTAL
FROM CALCULA_VALOR(IP.CD_ITEM, IP.PS_DEVOLUCAO, IP.QT_DEVOLUCAO, IP.VL_UNITARIO, 'T')) - COALESCE(IT.VL_DESCONTODEVOL,0)) VL_LIQUIDO
FROM PEDIDO N
INNER JOIN ITEMPEDIDODEVOL IP ON (N.NR_PEDIDO = IP.NR_PEDIDO
  AND N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.TP_PEDIDO = IP.TP_PEDIDO)
INNER JOIN ITEMPEDIDO IT ON (N.NR_PEDIDO = IT.NR_PEDIDO
  AND N.CD_EMPRESA = IT.CD_EMPRESA
  AND N.TP_PEDIDO = IT.TP_PEDIDO
  AND IT.CD_ITEM = IP.CD_ITEM)
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 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)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN MARCA S ON (S.CD_MARCA = I.CD_MARCA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN PESSOA ELE ON (ELE.CD_PESSOA = N.CD_REDESPACHO)
LEFT JOIN RETORNA_LINHAS(2) RL ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.CD_PESSOA = :CD_PESSOA
  AND N.TP_PEDIDO = 'S'
  AND IP.NR_DEVOLUCAO = :NR_DEVOLUCAO
ORDER BY RL.O_NR_LINHA, I.DS_ITEM CD_EMPRESA 1 CD_PESSOA NR_DEVOLUCAO
SELECT N.CD_EMPRESA, E.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFEMP, EE.NR_INSCEST NR_INSCESTEMP, CASE N.TP_PEDIDO WHEN 'O' THEN 'Orçamento ' ELSE 'Pedido ' END || N.NR_PEDIDO DS_PEDIDO, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.DS_SITE DS_SITEEMP, PE.DS_EMAIL DS_EMAILEMP, EE.NR_FONE NR_FONEEMP, EE.NR_FAX NR_FAXEMP, EE.NR_CEP NR_CEPEMP, N.NR_PEDIDO, N.TP_PEDIDO, N.DT_PEDIDO, N.DT_ENTREGA, N.NR_DIASENTREGA, N.CD_PESSOA, P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' WHEN '2' THEN 'FOB' END TP_PAGTOFRETE, 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, C.DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, VENC.O_DS_VENCIMENTO, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.CD_ITEM, I.DS_ITEM||COALESCE(' - '||S.DS_MARCA,'') DS_ITEM, I.SG_UNIDMED, IP.VL_UNITARIO, I.NR_NCM, 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 QTDE, IP.VL_DESPESA, IP.PS_PEDIDO, IP.QT_PEDIDA, PARM.DS_LOGOTIPO, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGORCAMENTO,'') DS_OBSERVACAO, T.NM_PESSOA||' - '||T.CD_PESSOA NM_VENDEDOR, N.CD_ELETRICISTA||' - '||PEL.NM_PESSOA NM_ELETRECISTA
FROM PEDIDO N
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN PESSOA T ON (T.CD_PESSOA = N.CD_VENDEDOR)
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 (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 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)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN MARCA S ON (S.CD_MARCA = I.CD_MARCA)
LEFT JOIN PESSOA PEL ON (PEL.CD_PESSOA = N.CD_ELETRICISTA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN RETORNA_VENCIMENTOS(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO, N.CD_CONDPAGTO, N.DT_PEDIDO, N.DT_VENCIMENTO) VENC ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO
SELECT IP.ds_observacao DS_OBSITEM, (
SELECT COUNT(ITEMPED.cd_item)
FROM ITEMPEDIDO ITEMPED
WHERE ITEMPED.CD_EMPRESA = N.cd_empresa
  AND ITEMPED.NR_PEDIDO = N.nr_pedido
  AND ITEMPED.TP_PEDIDO = N.tp_pedido
  AND ITEMPED.ST_ITEMPEDIDO <> 'C'
  AND CHAR_LENGTH(ITEMPED.ds_observacao) > 0) QTD_OBSITEM, N.CD_EMPRESA, E.NM_EMPRESA, CASE N.TP_PEDIDO WHEN 'O' THEN 'Orçamento ' ELSE 'Pedido ' END || N.NR_PEDIDO DS_PEDIDO, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.NR_CNPJCPF NR_CNPJEMP, 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, 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, COALESCE(EP.NR_INSCEST,PF.NR_RG) NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, RG.DS_REGIAOCOMERCIAL DS_REGIAO, C.DS_CONDPAGTO, N.CD_CONDPAGTO, N.DT_VENCIMENTO, VENC.O_DS_VENCIMENTO, N.CD_COMPRADOR, V.NM_PESSOA||' - '||N.CD_COMPRADOR NM_COMPRADOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.CD_ITEM, I.DS_ITEM||COALESCE(' - '||S.DS_MARCA,'') DS_ITEM, IP.VL_UNITARIO, IP.VL_DESCONTO, IP.VL_TOTAL, COALESCE(I.CD_FORNECEDOR1, I.CD_FORNECEDOR2) CD_FORNECEDOR, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) VL_LIQUIDO, COALESCE(IP.QT_PEDIDA, IP.PS_PEDIDO) PS_PEDIDO, I.SG_UNIDMED, IP.VL_DESPESA, N.DS_OBSERVACAO, TRA.NM_PESSOA NM_TRANSPORTADOR, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' ELSE 'FOB' END DS_PAGTOFRETE
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
  AND IP.ST_ITEMPEDIDO <> 'C')
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 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)
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO)
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
LEFT JOIN MARCA S ON (S.CD_MARCA = I.CD_MARCA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOAFISICA PF ON (PF.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_COMPRADOR)
LEFT JOIN PESSOA TRA ON (TRA.CD_PESSOA = N.CD_TRANSPORTADOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN REGIAOCOMERCIAL RG ON (RG.CD_REGIAOCOMERCIAL = EP.CD_REGIAOCOMERCIAL)
LEFT JOIN RETORNA_VENCIMENTOS(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO, N.CD_CONDPAGTO, N.DT_PEDIDO, N.DT_VENCIMENTO) VENC ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_PEDIDO = :NR_PEDIDO
  AND N.TP_PEDIDO = :TP_PEDIDO
ORDER BY I.DS_ITEM CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO

Consulta​

SELECT COUNT(P.NR_PEDIDO)
FROM PEDIDO P
WHERE P.CD_EMPRESA = {IntToStr(cdEmpresa)}AND P.TP_PEDIDO = 'S'
  AND P.ST_PEDIDO <> 'C'AND P.CD_PESSOA = {frmLPD025.tabPedidoCD_PESSOA.AsString}

Tabelas Utilizadas​

TabelaUso
CALCULA_VALORreferenciada nas queries do layout
CONDPAGTOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
FORMAPAGTOreferenciada nas queries do layout
HABILITA_PESOQTDEreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMPEDIDOreferenciada nas queries do layout
ITEMPEDIDODEVOLreferenciada nas queries do layout
ITEMTABPRECOreferenciada nas queries do layout
MARCAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PESSOAFISICAreferenciada nas queries do layout
REGIAOCOMERCIALreferenciada nas queries do layout
RETORNA_LINHASreferenciada nas queries do layout
RETORNA_VENCIMENTOSreferenciada nas queries do layout
ROMANEIOreferenciada nas queries do layout
ROMANEIOPEDIDOreferenciada nas queries do layout
TIPOCALCULOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LPD025/ULPD025.pas
  • DFM: source/LPD025/ULPD025.dfm
  • Package: source/LPD025/LPD025.dpk