Pular para o conteúdo principal

LPD005 — Listagem LPD005

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 (+12), filtrada por CD_EMPRESA, NR_PEDIDO, TP_PEDIDO, ST_ITEMPEDIDO, O_NR_L, NR_ (+13).

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, (
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, 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, 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_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, 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, CASE PS.V_TIPO WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END QTDE, IP.QT_PEDIDA, IP.PS_PEDIDO, I.SG_UNIDMED, IP.VL_DESPESA, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, CAST(CASE PS.V_TIPO WHEN 'Q' THEN IP.QT_PEDIDA * I.PS_LIQUIDOEMB ELSE IP.PS_PEDIDO * I.PS_LIQUIDOEMB END AS NUMERIC(15,3)) PS_LIQUIDO, CAST(CASE PS.V_TIPO WHEN 'Q' THEN IP.QT_PEDIDA * (I.PS_LIQUIDOEMB + COALESCE(I.PS_EMBALAGEM,0)) ELSE IP.PS_PEDIDO * (I.PS_LIQUIDOEMB + COALESCE(I.PS_EMBALAGEM,0)) END AS NUMERIC(15,3)) PS_BRUTO, PEL.NM_PESSOA||' - '||N.CD_ELETRICISTA NM_ELETRECISTA, TRA.NM_PESSOA||' - '||N.CD_TRANSPORTADOR NM_TRANSPORTADOR, CAST(COALESCE(N.NR_ORDEMSERVICO, N.NR_PEDIDOFOR) AS DOM_INTEGER) NR_ORDEMSERVICO , RP.NR_ROMANEIO, RLP.O_DS_LOTES, I.SG_UNIDALT, CASE PS.V_TIPO WHEN 'Q' THEN IP.PS_PEDIDO ELSE IP.QT_PEDIDA END QTDEALT
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_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 PESSOA PEL ON (PEL.CD_PESSOA = N.CD_ELETRICISTA)
LEFT JOIN HABILITA_PESOQTDE(IP.CD_ITEM) PS ON (1=1)
LEFT JOIN PESSOA TRA ON (TRA.CD_PESSOA = N.CD_TRANSPORTADOR)
LEFT JOIN ROMANEIOPEDIDO RP ON (RP.CD_EMPRPEDIDO = N.CD_EMPRESA
  AND RP.NR_PEDIDO = N.NR_PEDIDO
  AND RP.TP_PEDIDO = N.TP_PEDIDO)
LEFT JOIN RETORNA_LINHAS(2) RL ON (1 = 1)
LEFT JOIN RETORNA_LOTESPEDIDO(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO, I.CD_ITEM) RLP 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, 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, N.TP_PEDIDO, RP.NR_ROMANEIO
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 ROMANEIOPEDIDO RP ON (RP.CD_EMPRPEDIDO = N.CD_EMPRESA
  AND RP.NR_PEDIDO = N.NR_PEDIDO
  AND RP.TP_PEDIDO = N.TP_PEDIDO)
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, 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, 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_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, 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,F.DS_FORMAPAGTO FORMAPAGTO
FROM PEDIDO N
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
INNER 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)
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, 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, 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_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)
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
SELECT S.NR_SERIAL
FROM ITEMPEDIDOSERIAL S
WHERE S.CD_EMPRESA = :CD_EMPRESA
  AND S.NR_PEDIDO = :NR_PEDIDO
  AND S.TP_PEDIDO = :TP_PEDIDO
  AND S.CD_ITEM = :CD_ITEM CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO CD_ITEM
SELECT L.CD_EMPRESA, L.NR_LOTE,L.CD_ITEM, L.CD_FORNECEDOR, L.NR_ATESTADO, L.NR_PENEIRA, L.NR_BOLETIM, L.PC_GERMINACAO, L.PC_PUREZA, L.QT_LOTE, L.DT_REGISTRO, L.NR_DOCUMENTO, L.DT_VALIDADE, L.DT_FABRICACAO, I.QT_LOTE QT_LOTEPEDIDO
FROM ITEMPEDIDOSEMENTE I
INNER JOIN LOTESEMENTE L ON(L.CD_ITEM = I.CD_ITEM
  AND L.NR_LOTE = I.NR_LOTE
  AND L.CD_EMPRESA = I.CD_EMPRLOTE)
WHERE I.CD_EMPRESA = :CD_EMPRESA
  AND I.NR_PEDIDO = :NR_PEDIDO
  AND I.TP_PEDIDO = :TP_PEDIDO
  AND I.CD_ITEM = :CD_ITEM CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO CD_ITEM
SELECT N.DT_PEDIDO + C.NR_DIAS DT_VENCTO, N.DT_VENCIMENTO, N.DT_PEDIDO
FROM PEDIDO N
LEFT JOIN CONDPARCELA C ON (C.CD_CONDPAGTO = N.CD_CONDPAGTO)
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 NI.NR_SERIAL
FROM ITEMPEDIDODEVOLSERIAL NI
WHERE NI.CD_EMPRESA = :CD_EMPRESA
  AND NI.NR_PEDIDO = :NR_PEDIDO
  AND NI.TP_PEDIDO = :TP_PEDIDO
  AND NI.NR_DEVOLUCAO = :NR_DEVOLUCAO CD_EMPRESA 1 NR_PEDIDO TP_PEDIDO NR_DEVOLUCAO

Consulta​

SELECT O_DS_IMPRESSORA
FROM RETORNA_IMPRESSORAUSUARIO({IntToStr(sessao.empresa.cd_empresa)},'{sessao.usuario.cd_Usuario}', 'D', 'W') R

Tabelas Utilizadas​

TabelaUso
CALCULA_VALORreferenciada nas queries do layout
CONDPAGTOreferenciada nas queries do layout
CONDPARCELAreferenciada 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
ITEMPEDIDODEVOLSERIALreferenciada nas queries do layout
ITEMPEDIDOSEMENTEreferenciada nas queries do layout
ITEMPEDIDOSERIALreferenciada nas queries do layout
LOTESEMENTEreferenciada 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_IMPRESSORAUSUARIOreferenciada nas queries do layout
RETORNA_LINHASreferenciada nas queries do layout
RETORNA_LOTESPEDIDOreferenciada nas queries do layout
ROMANEIOPEDIDOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LPD005/ULPD005.pas
  • DFM: source/LPD005/ULPD005.dfm
  • Package: source/LPD005/LPD005.dpk