LPD132 — Listagem LPD132
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 PESSOA, ENDERECOPESSOA, FORMAPAGTO, ITEMPEDIDO, MUNICIPIO, EMPRESA (+5), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_CONDPAGTO, CD_ITEM, CD_EMPRESA (+2).
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
Pedido
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.CD_PESSOA||' ] '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' WHEN '2' THEN 'FOB' END TP_PAGTOFRETE, NULLIF(COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,''),'') DS_OBSERVACAO, COALESCE('Transportador.: '||N.CD_TRANSPORTADOR || ' - '||COALESCE (PT.NM_FANTASIA,PT.NM_PESSOA),'') DS_TRANSPORTADOR, PARM.DS_LOGOTIPO, 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, N.NR_PEDIDOFOR, P.DS_EMAIL, 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, COALESCE(V.NM_FANTASIA,V.NM_PESSOA)||COALESCE(' FONE: '||EV.NR_FONE,'')||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, NULLIF(P.DS_OBSFINANCEIRO, '') DS_OBSFINANCEIRO, /*COALESCE(ITG.CD_ITEM, II.cd_item) CD_ITEM, COALESCE(ITG.DS_ITEM, II.ds_item) DS_ITEM, COALESCE(ITG.SG_UNIDMED, II.SG_UNIDMED) SG_UNIDMED,*/ II.CD_ITEM, II.DS_ITEM, II.SG_UNIDMED, SUM(CI.V_VL_TOTAL) VL_TOTALIMPOSTOS, --AVG(IP.VL_UNITARIO) VL_UNITARIO, cast(SUM(IP.VL_TOTAL) / SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END) as dom_numeric15_3) VL_UNITARIO, SUM(IP.VL_DESCONTO) VL_DESCONTO, SUM(IP.VL_TOTAL) VL_TOTAL, sum(IP.VL_FRETE) VL_FRETE, LIST(DISTINCT IP.DS_OBSERVACAO,', ') DS_OBSITEM, SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + (CASE WHEN N.TP_PAGTOFRETE = '2' THEN COALESCE(IP.VL_FRETE,0) ELSE 0 END) ) VL_LIQUIDO, SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + COALESCE(CI.V_VL_TOTAL,0) ) VL_IMPOSTOS, SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END) QTDE, sum(IP.VL_DESPESA) VL_DESPESA, sum(IP.PS_PEDIDO) PS_PEDIDO, sum(IP.QT_PEDIDA) QT_PEDIDA, AVG((CI.V_VL_TOTAL / CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END) + IP.VL_UNITARIO) VL_UNITARIOLIQ, SUM(CI.V_VL_TOTAL + (IP.VL_UNITARIO * CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END)) VL_TOTUNITARIO, AVG((IP.VL_UNITARIO + CI.V_VL_TOTAL)) VL_UNITARIOIMP, /*SUM(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN IP.PS_PEDIDO * COALESCE(ITG.PS_LIQUIDOEMB,1) ELSE IP.QT_PEDIDA * COALESCE(ITG.PS_LIQUIDOEMB,1) END) PS_LIQUIDO, AVG(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN IP.PS_PEDIDO * (COALESCE(ITG.PS_LIQUIDOEMB,1) + COALESCE(ITG.PS_EMBALAGEM,0)) ELSE IP.QT_PEDIDA * (COALESCE(ITG.PS_LIQUIDOEMB,1) + COALESCE(ITG.PS_EMBALAGEM,0)) END) PS_BRUTO */ RP.o_ps_liquido PS_LIQUIDO, rp.o_ps_bruto PS_BRUTO, N.CD_REDESPACHO||' - '||RED.NM_PESSOA NM_REDESPACHO
FROM PEDIDO N
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN ENDERECOPESSOA EV ON (EV.CD_PESSOA = V.CD_PESSOA
AND EV.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(V.CD_PESSOA, NULL)))
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN PESSOA T ON (T.CD_PESSOA = N.CD_TRANSPORTADOR)
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)
LEFT JOIN PESSOA PT ON (N.cd_transportador = PT.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 II ON (IP.CD_ITEM = II.CD_ITEM) --
LEFT JOIN ITEM ITG ON (ITG.CD_ITEM = II.CD_SECAO) ------------------------------------------------------
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN CALCULA_IMPOSTOPEDIDO (N.CD_EMPRESA,N.NR_PEDIDO,N.TP_PEDIDO, IP.CD_ITEM,ME.SG_ESTADO,N.CD_EMPRESA) CI ON (1=1)
LEFT JOIN RETORNA_PESOPEDIDO(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO) RP ON (1=1)
LEFT JOIN PESSOA RED ON (RED.CD_PESSOA = N.CD_REDESPACHO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
AND N.NR_PEDIDO = :NR_PEDIDO
AND N.TP_PEDIDO = :TP_PEDIDO
GROUP BY CD_EMPRESA, NM_EMPRESA, NR_CNPJCPFEMP, NR_INSCESTEMP, DS_ENDEREMP, DS_MUNICEMP, DS_SITEEMP, DS_EMAILEMP, NR_FONEEMP, NR_FAXEMP, NR_CEPEMP, NR_PEDIDO, TP_PEDIDO, DT_PEDIDO, DT_ENTREGA, NR_DIASENTREGA, CD_PESSOA, NM_PESSOA, NR_CNPJCPF, NR_CEP, TP_PAGTOFRETE, DS_OBSERVACAO, DS_TRANSPORTADOR, DS_LOGOTIPO, DS_ENDERECO, DS_BAIRRO, DS_MUNICIPIO, NR_INSCEST, NR_FONE, NR_FAX, NR_PEDIDOFOR, DS_EMAIL, DS_CONDPAGTO, CD_CONDPAGTO, DT_VENCIMENTO, CD_VENDEDOR, NM_VENDEDOR, CD_FORMAPAGTO, DS_FORMAPAGTO, DS_MUNIC, SG_ESTADO, DS_OBSFINANCEIRO, CD_ITEM, DS_ITEM, SG_UNIDMED, PS_LIQUIDO, PS_BRUTO, RED.NM_PESSOA, N.CD_REDESPACHO CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO
SELECT O_NR_LINHA NR_LINHA, O_DS_LINHA DS_LINHA, O_DS_COLUNA1 DS_COLUNA1, O_QT_GRADE1 QT_GRADE1, O_QT_ESTOQUE1 QT_ESTOQUE1, O_QT_SALDO1 QT_SALDO1, O_DS_COLUNA2 DS_COLUNA2, O_QT_GRADE2 QT_GRADE2, O_QT_ESTOQUE2 QT_ESTOQUE2, O_QT_SALDO2 QT_SALDO2, O_DS_COLUNA3 DS_COLUNA3, O_QT_GRADE3 QT_GRADE3, O_QT_ESTOQUE3 QT_ESTOQUE3, O_QT_SALDO3 QT_SALDO3, O_DS_COLUNA4 DS_COLUNA4, O_QT_GRADE4 QT_GRADE4, O_QT_ESTOQUE4 QT_ESTOQUE4, O_QT_SALDO4 QT_SALDO4, O_DS_COLUNA5 DS_COLUNA5, O_QT_GRADE5 QT_GRADE5, O_QT_ESTOQUE5 QT_ESTOQUE5, O_QT_SALDO5 QT_SALDO5, O_DS_COLUNA6 DS_COLUNA6, O_QT_GRADE6 QT_GRADE6, O_QT_ESTOQUE6 QT_ESTOQUE6, O_QT_SALDO6 QT_SALDO6, O_DS_COLUNA7 DS_COLUNA7, O_QT_GRADE7 QT_GRADE7, O_QT_ESTOQUE7 QT_ESTOQUE7, O_QT_SALDO7 QT_SALDO7, O_DS_COLUNA8 DS_COLUNA8, O_QT_GRADE8 QT_GRADE8, O_QT_ESTOQUE8 QT_ESTOQUE8, O_QT_SALDO8 QT_SALDO8, O_DS_COLUNA9 DS_COLUNA9, O_QT_GRADE9 QT_GRADE9, O_QT_ESTOQUE9 QT_ESTOQUE9, O_QT_SALDO9 QT_SALDO9, O_DS_COLUNA10 DS_COLUNA10, O_QT_GRADE10 QT_GRADE10, O_QT_ESTOQUE10 QT_ESTOQUE10, O_QT_SALDO10 QT_SALDO10, O_DS_COLUNA11 DS_COLUNA11, O_QT_GRADE11 QT_GRADE11, O_QT_ESTOQUE11 QT_ESTOQUE11, O_QT_SALDO11 QT_SALDO11, O_DS_COLUNA12 DS_COLUNA12, O_QT_GRADE12 QT_GRADE12, O_QT_ESTOQUE12 QT_ESTOQUE12, O_QT_SALDO12 QT_SALDO12, O_DS_COLUNA13 DS_COLUNA13, O_QT_GRADE13 QT_GRADE13, O_QT_ESTOQUE13 QT_ESTOQUE13, O_QT_SALDO13 QT_SALDO13, O_DS_COLUNA14 DS_COLUNA14, O_QT_GRADE14 QT_GRADE14, O_QT_ESTOQUE14 QT_ESTOQUE14, O_QT_SALDO14 QT_SALDO14, O_DS_COLUNA15 DS_COLUNA15, O_QT_GRADE15 QT_GRADE15, O_QT_ESTOQUE15 QT_ESTOQUE15, O_QT_SALDO15 QT_SALDO15
FROM RETORNA_GRADE_LPD132_CONF(:CD_EMPRESA, :NR_PEDIDO, :TP_PEDIDO, :CD_ITEM, 'P')
ORDER BY O_DS_LINHA CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO CD_ITEM
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.CD_PESSOA||' ] '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' WHEN '2' THEN 'FOB' END TP_PAGTOFRETE, NULLIF(COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,''),'') DS_OBSERVACAO, COALESCE('Transportador.: '||N.CD_TRANSPORTADOR || ' - '||COALESCE (PT.NM_FANTASIA,PT.NM_PESSOA),'') DS_TRANSPORTADOR, PARM.DS_LOGOTIPO, 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, N.NR_PEDIDOFOR, P.DS_EMAIL, 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, COALESCE(V.NM_FANTASIA,V.NM_PESSOA)||COALESCE(' FONE: '||EV.NR_FONE,'')||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, NULLIF(P.DS_OBSFINANCEIRO, '') DS_OBSFINANCEIRO, /*COALESCE(ITG.CD_ITEM, II.cd_item) CD_ITEM, COALESCE(ITG.DS_ITEM, II.ds_item) DS_ITEM, COALESCE(ITG.SG_UNIDMED, II.SG_UNIDMED) SG_UNIDMED,*/ II.CD_ITEM, II.DS_ITEM, II.SG_UNIDMED, SUM(CI.V_VL_TOTAL) VL_TOTALIMPOSTOS, --AVG(IP.VL_UNITARIO) VL_UNITARIO, cast(SUM(IP.VL_TOTAL) / SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END) as dom_numeric15_3) VL_UNITARIO, SUM(IP.VL_DESCONTO) VL_DESCONTO, SUM(IP.VL_TOTAL) VL_TOTAL, sum(IP.VL_FRETE) VL_FRETE, LIST(DISTINCT IP.DS_OBSERVACAO,', ') DS_OBSITEM, SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + (CASE WHEN N.TP_PAGTOFRETE = '2' THEN COALESCE(IP.VL_FRETE,0) ELSE 0 END) ) VL_LIQUIDO, SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + COALESCE(CI.V_VL_TOTAL,0) ) VL_IMPOSTOS, SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END) QTDE, sum(IP.VL_DESPESA) VL_DESPESA, sum(IP.PS_PEDIDO) PS_PEDIDO, sum(IP.QT_PEDIDA) QT_PEDIDA, AVG((CI.V_VL_TOTAL / CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END) + IP.VL_UNITARIO) VL_UNITARIOLIQ, SUM(CI.V_VL_TOTAL + (IP.VL_UNITARIO * CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) WHEN 'Q' THEN IP.QT_PEDIDA ELSE IP.PS_PEDIDO END)) VL_TOTUNITARIO, AVG((IP.VL_UNITARIO + CI.V_VL_TOTAL)) VL_UNITARIOIMP, /*SUM(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN IP.PS_PEDIDO * COALESCE(ITG.PS_LIQUIDOEMB,1) ELSE IP.QT_PEDIDA * COALESCE(ITG.PS_LIQUIDOEMB,1) END) PS_LIQUIDO, AVG(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN IP.PS_PEDIDO * (COALESCE(ITG.PS_LIQUIDOEMB,1) + COALESCE(ITG.PS_EMBALAGEM,0)) ELSE IP.QT_PEDIDA * (COALESCE(ITG.PS_LIQUIDOEMB,1) + COALESCE(ITG.PS_EMBALAGEM,0)) END) PS_BRUTO */ RP.o_ps_liquido PS_LIQUIDO, rp.o_ps_bruto PS_BRUTO, N.CD_REDESPACHO||' - '||RED.NM_PESSOA NM_REDESPACHO
FROM PEDIDO N
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN ENDERECOPESSOA EV ON (EV.CD_PESSOA = V.CD_PESSOA
AND EV.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(V.CD_PESSOA, NULL)))
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
LEFT JOIN PESSOA T ON (T.CD_PESSOA = N.CD_TRANSPORTADOR)
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)
LEFT JOIN PESSOA PT ON (N.cd_transportador = PT.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 II ON (IP.CD_ITEM = II.CD_ITEM) --
LEFT JOIN ITEM ITG ON (ITG.CD_ITEM = II.CD_SECAO) ------------------------------------------------------
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN CALCULA_IMPOSTOPEDIDO (N.CD_EMPRESA,N.NR_PEDIDO,N.TP_PEDIDO, IP.CD_ITEM,ME.SG_ESTADO,N.CD_EMPRESA) CI ON (1=1)
LEFT JOIN RETORNA_PESOPEDIDO(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO) RP ON (1=1)
LEFT JOIN PESSOA RED ON (RED.CD_PESSOA = N.CD_REDESPACHO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
AND N.NR_PEDIDO = :NR_PEDIDO
AND N.TP_PEDIDO = :TP_PEDIDO
GROUP BY CD_EMPRESA, NM_EMPRESA, NR_CNPJCPFEMP, NR_INSCESTEMP, DS_ENDEREMP, DS_MUNICEMP, DS_SITEEMP, DS_EMAILEMP, NR_FONEEMP, NR_FAXEMP, NR_CEPEMP, NR_PEDIDO, TP_PEDIDO, DT_PEDIDO, DT_ENTREGA, NR_DIASENTREGA, CD_PESSOA, NM_PESSOA, NR_CNPJCPF, NR_CEP, TP_PAGTOFRETE, DS_OBSERVACAO, DS_TRANSPORTADOR, DS_LOGOTIPO, DS_ENDERECO, DS_BAIRRO, DS_MUNICIPIO, NR_INSCEST, NR_FONE, NR_FAX, NR_PEDIDOFOR, DS_EMAIL, DS_CONDPAGTO, CD_CONDPAGTO, DT_VENCIMENTO, CD_VENDEDOR, NM_VENDEDOR, CD_FORMAPAGTO, DS_FORMAPAGTO, DS_MUNIC, SG_ESTADO, DS_OBSFINANCEIRO, CD_ITEM, DS_ITEM, SG_UNIDMED, PS_LIQUIDO, PS_BRUTO, RED.NM_PESSOA, N.CD_REDESPACHO CD_EMPRESA 1 NR_PEDIDO 1 TP_PEDIDO
SELECT O_NR_LINHA NR_LINHA, O_DS_LINHA DS_LINHA, O_DS_COLUNA1 DS_COLUNA1, O_QT_GRADE1 QT_GRADE1, O_QT_ESTOQUE1 QT_ESTOQUE1, O_QT_SALDO1 QT_SALDO1, O_DS_COLUNA2 DS_COLUNA2, O_QT_GRADE2 QT_GRADE2, O_QT_ESTOQUE2 QT_ESTOQUE2, O_QT_SALDO2 QT_SALDO2, O_DS_COLUNA3 DS_COLUNA3, O_QT_GRADE3 QT_GRADE3, O_QT_ESTOQUE3 QT_ESTOQUE3, O_QT_SALDO3 QT_SALDO3, O_DS_COLUNA4 DS_COLUNA4, O_QT_GRADE4 QT_GRADE4, O_QT_ESTOQUE4 QT_ESTOQUE4, O_QT_SALDO4 QT_SALDO4, O_DS_COLUNA5 DS_COLUNA5, O_QT_GRADE5 QT_GRADE5, O_QT_ESTOQUE5 QT_ESTOQUE5, O_QT_SALDO5 QT_SALDO5, O_DS_COLUNA6 DS_COLUNA6, O_QT_GRADE6 QT_GRADE6, O_QT_ESTOQUE6 QT_ESTOQUE6, O_QT_SALDO6 QT_SALDO6, O_DS_COLUNA7 DS_COLUNA7, O_QT_GRADE7 QT_GRADE7, O_QT_ESTOQUE7 QT_ESTOQUE7, O_QT_SALDO7 QT_SALDO7, O_DS_COLUNA8 DS_COLUNA8, O_QT_GRADE8 QT_GRADE8, O_QT_ESTOQUE8 QT_ESTOQUE8, O_QT_SALDO8 QT_SALDO8, O_DS_COLUNA9 DS_COLUNA9, O_QT_GRADE9 QT_GRADE9, O_QT_ESTOQUE9 QT_ESTOQUE9, O_QT_SALDO9 QT_SALDO9, O_DS_COLUNA10 DS_COLUNA10, O_QT_GRADE10 QT_GRADE10, O_QT_ESTOQUE10 QT_ESTOQUE10, O_QT_SALDO10 QT_SALDO10, O_DS_COLUNA11 DS_COLUNA11, O_QT_GRADE11 QT_GRADE11, O_QT_ESTOQUE11 QT_ESTOQUE11, O_QT_SALDO11 QT_SALDO11, O_DS_COLUNA12 DS_COLUNA12, O_QT_GRADE12 QT_GRADE12, O_QT_ESTOQUE12 QT_ESTOQUE12, O_QT_SALDO12 QT_SALDO12, O_DS_COLUNA13 DS_COLUNA13, O_QT_GRADE13 QT_GRADE13, O_QT_ESTOQUE13 QT_ESTOQUE13, O_QT_SALDO13 QT_SALDO13, O_DS_COLUNA14 DS_COLUNA14, O_QT_GRADE14 QT_GRADE14, O_QT_ESTOQUE14 QT_ESTOQUE14, O_QT_SALDO14 QT_SALDO14, O_DS_COLUNA15 DS_COLUNA15, O_QT_GRADE15 QT_GRADE15, O_QT_ESTOQUE15 QT_ESTOQUE15, O_QT_SALDO15 QT_SALDO15
FROM RETORNA_GRADE_LPD132_CONF(:CD_EMPRESA, :NR_PEDIDO, :TP_PEDIDO, :CD_ITEM, 'C')
ORDER BY O_DS_LINHA CD_EMPRESA NR_PEDIDO TP_PEDIDO CD_ITEM
Tabelas Utilizadas
| Tabela | Uso |
|---|---|
CALCULA_IMPOSTOPEDIDO | referenciada nas queries do layout |
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_ENDERECO | referenciada nas queries do layout |
| [[RETORNA_GRADE_LPD132_CONF]] | referenciada nas queries do layout |
RETORNA_PESOPEDIDO | referenciada nas queries do layout |
Shared Units
- jCommon
- jPesquisa
Fonte
- Unit:
source/LPD132/ULPD132.pas - DFM:
source/LPD132/ULPD132.dfm - Package:
source/LPD132/LPD132.dpk