Pular para o conteúdo principal

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​

TabelaUso
CALCULA_IMPOSTOPEDIDOreferenciada 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
MUNICIPIOreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_ENDERECOreferenciada nas queries do layout
[[RETORNA_GRADE_LPD132_CONF]]referenciada nas queries do layout
RETORNA_PESOPEDIDOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LPD132/ULPD132.pas
  • DFM: source/LPD132/ULPD132.dfm
  • Package: source/LPD132/LPD132.dpk