LPD135 — Listagem LPD135

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 ITEMLOCAL, com junção em TIPOLOCAL, LOCALESTOQUE, PESSOA, ENDERECOPESSOA, FORMAPAGTO, ITEMPEDIDO (+8), filtrada por CD_ITEM.

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

SQL Base

`tabPedido`

SELECT {#10} N.CD_EMPRESA, E.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFEMP, EE.NR_INSCEST NR_INSCESTEMP, {#10} EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, {#10} ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.DS_SITE DS_SITEEMP, PE.DS_EMAIL DS_EMAILEMP, {#10} EE.NR_FONE NR_FONEEMP, EE.NR_FAX NR_FAXEMP, EE.NR_CEP NR_CEPEMP, {#10} N.NR_PEDIDO, N.TP_PEDIDO, N.DT_PEDIDO, N.DT_ENTREGA, N.NR_DIASENTREGA, {#10} N.CD_PESSOA, '[ '||P.CD_PESSOA||' ] '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, {#10} P.NR_CNPJCPF, EP.NR_CEP, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' WHEN '2' THEN 'FOB' END TP_PAGTOFRETE, {#10} NULLIF(COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,''),'') DS_OBSERVACAO, {#10} COALESCE('Transportador.: '||N.CD_TRANSPORTADOR || ' - '||COALESCE (PT.NM_FANTASIA,PT.NM_PESSOA),'') DS_TRANSPORTADOR, {#10} PARM.DS_LOGOTIPO, {#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, {#10} COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, {#10} MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, {#10} EP.NR_FONE, EP.NR_FAX, N.NR_PEDIDOFOR, P.DS_EMAIL, {#10} CASE C.ST_CONDPAGTO {#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y') {#10} ELSE C.DS_CONDPAGTO END DS_CONDPAGTO, {#10} N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_VENDEDOR, {#10} COALESCE(V.NM_FANTASIA,V.NM_PESSOA)||COALESCE(' FONE: '||EV.NR_FONE,'')||' - '||N.CD_VENDEDOR NM_VENDEDOR, {#10} N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, {#10} MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, {#10} NULLIF(P.DS_OBSFINANCEIRO, '') DS_OBSFINANCEIRO, {#10} II.cd_item, II.CD_GRADE, II.ds_item, {#10} II.SG_UNIDMED, II.CD_FORNECEDOR1, II.CD_FORNECEDOR2, {#10} TL.CD_TIPOLOCAL, TL.DS_TIPOLOCAL, LC.CD_LOCAL, LC.DS_LOCAL, {#10} (
SELECT FIRST 1 IL.CD_TIPOLOCAL {#10}
FROM ITEMLOCAL IL {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.DT_REGISTRO) CD_TIPOLOCAL_IC, {#10} (
SELECT FIRST 1 TC.DS_TIPOLOCAL {#10}
FROM ITEMLOCAL IL {#10}
INNER JOIN TIPOLOCAL TC ON (TC.CD_TIPOLOCAL = IL.CD_TIPOLOCAL) {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.CD_LOCAL) DS_TIPOLOCAL_IL, {#10} (
SELECT FIRST 1 CD_LOCAL {#10}
FROM ITEMLOCAL IL {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.DT_REGISTRO ) CD_LOCAL_IL, {#10} (
SELECT FIRST 1 LC.DS_LOCAL {#10}
FROM ITEMLOCAL IL {#10}
INNER JOIN LOCALESTOQUE LC ON (LC.CD_TIPOLOCAL = IL.CD_TIPOLOCAL {#10}
  AND LC.CD_LOCAL = IL.CD_LOCAL) {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.CD_LOCAL ) DS_LOCAL_IL, {#10} SUM(CI.V_VL_TOTAL) VL_TOTALIMPOSTOS, {#10} cast(SUM(IP.VL_TOTAL) / SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END) as dom_numeric15_3) VL_UNITARIO, {#10} SUM(IP.VL_DESCONTO) VL_DESCONTO, {#10} SUM(IP.VL_TOTAL) VL_TOTAL, {#10} sum(IP.VL_FRETE) VL_FRETE, {#10} sum(IP.VL_DESPESA) VL_DESPESA, {#10} sum(IP.PS_PEDIDO) PS_PEDIDO, {#10} sum(IP.QT_PEDIDA) QT_PEDIDA, {#10} 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, {#10} SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + COALESCE(CI.V_VL_TOTAL,0) ) VL_IMPOSTOS, {#10} LIST(DISTINCT NULLIF(IP.DS_OBSERVACAO,''),', ') DS_OBSITEM, {#10} SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END) QTDE, {#10} AVG((CI.V_VL_TOTAL / {#10} CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END) + IP.VL_UNITARIO) VL_UNITARIOLIQ, {#10} SUM(CI.V_VL_TOTAL + (IP.VL_UNITARIO * {#10} CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END)) VL_TOTUNITARIO, {#10} AVG((IP.VL_UNITARIO + CI.V_VL_TOTAL)) VL_UNITARIOIMP, {#10} SUM(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN {#10} IP.PS_PEDIDO * COALESCE(II.PS_LIQUIDOEMB,1) {#10} ELSE IP.QT_PEDIDA * COALESCE(II.PS_LIQUIDOEMB,1) END) PS_LIQUIDOITEM, {#10} SUM(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN {#10} IP.PS_PEDIDO * (COALESCE(II.PS_LIQUIDOEMB,1) + COALESCE(II.PS_EMBALAGEM,0)) {#10} ELSE IP.QT_PEDIDA * (COALESCE(II.PS_LIQUIDOEMB,1) + COALESCE(II.PS_EMBALAGEM,0)) END) PS_BRUTOITEM, {#10} RP.o_ps_liquido PS_LIQUIDO, {#10} rp.o_ps_bruto PS_BRUTO, N.CD_REDESPACHO||' - '||RED.NM_PESSOA NM_REDESPACHO, {#10} cast(IP.VL_UNITARIO as dom_numeric15_2) VL_UNITPEDIDO {#10}
FROM PEDIDO N {#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR) {#10}
LEFT JOIN ENDERECOPESSOA EV ON (EV.CD_PESSOA = V.CD_PESSOA {#10}
  AND EV.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(V.CD_PESSOA, NULL))) {#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO) {#10}
LEFT JOIN PESSOA T ON (T.CD_PESSOA = N.CD_TRANSPORTADOR) {#10}
INNER JOIN ITEMPEDIDO IP ON (N.NR_PEDIDO = IP.NR_PEDIDO {#10}
  AND N.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND N.TP_PEDIDO = IP.TP_PEDIDO) {#10}
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA {#10}
  AND N.CD_ENDERECO = EP.CD_ENDERECO) {#10}
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO) {#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA) {#10}
LEFT JOIN PESSOA PT ON (N.cd_transportador = PT.cd_pessoa) {#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA {#10}
  AND EE.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDER {#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO) {#10}
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO) {#10}
INNER JOIN ITEM II ON (IP.CD_ITEM = II.CD_ITEM) {#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) {#10}
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) {#10}
LEFT JOIN RETORNA_PESOPEDIDO(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO) RP ON (1=1) {#10}
LEFT JOIN PESSOA RED ON (RED.CD_PESSOA = N.CD_REDESPACHO) {#10}
LEFT JOIN ITEMEMPRESA EMP ON (EMP.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND EMP.CD_ITEM = II.CD_ITEM) {#10}
LEFT JOIN TIPOLOCAL TL ON (TL.CD_TIPOLOCAL = EMP.CD_TIPOLOCAL) {#10}
LEFT JOIN LOCALESTOQUE LC ON (LC.CD_TIPOLOCAL = EMP.CD_TIPOLOCAL {#10}
  AND LC.CD_LOCAL = EMP.CD_LOCAL) {#10}
WHERE N.CD_EMPRESA = :CD_EMPRESA {#10}
  AND N.NR_PEDIDO = :NR_PEDIDO {#10}
  AND N.TP_PEDIDO = :TP_PEDIDO {#10}
GROUP BY {#10} CD_EMPRESA, NM_EMPRESA, NR_CNPJCPFEMP, NR_INSCESTEMP, DS_ENDEREMP, DS_MUNICEMP, {#10} DS_SITEEMP, DS_EMAILEMP, NR_FONEEMP, NR_FAXEMP, NR_CEPEMP, NR_PEDIDO, TP_PEDIDO, {#10} DT_PEDIDO, DT_ENTREGA, NR_DIASENTREGA, CD_PESSOA, NM_PESSOA, NR_CNPJCPF, NR_CEP, {#10} TP_PAGTOFRETE, DS_OBSERVACAO, DS_TRANSPORTADOR, DS_LOGOTIPO, DS_ENDERECO, DS_BAIRRO, {#10} DS_MUNICIPIO, NR_INSCEST, NR_FONE, NR_FAX, NR_PEDIDOFOR, DS_EMAIL, DS_CONDPAGTO, {#10} CD_CONDPAGTO, DT_VENCIMENTO, CD_VENDEDOR, NM_VENDEDOR, CD_FORMAPAGTO, DS_FORMAPAGTO, {#10} DS_MUNIC, SG_ESTADO, DS_OBSFINANCEIRO, CD_ITEM, DS_ITEM, SG_UNIDMED, PS_LIQUIDO, PS_BRUTO, {#10} RED.NM_PESSOA, N.CD_REDESPACHO, VL_UNITPEDIDO, CD_FORNECEDOR1, CD_FORNECEDOR2, {#10} CD_TIPOLOCAL, CD_LOCAL, DS_TIPOLOCAL, DS_LOCAL, {#10} CD_GRADE

`tabGrade`

SELECT * {#10}
FROM ( {#10}
SELECT {#10} NR_LINHA, DS_LINHA, NR_ORDEMLINHA, {#10} MAX(DS_COLUNA1) DS_COLUNA1, SUM(QT_GRADE1) QT_GRADE1, {#10} MAX(DS_COLUNA2) DS_COLUNA2, SUM(QT_GRADE2) QT_GRADE2, {#10} MAX(DS_COLUNA3) DS_COLUNA3, SUM(QT_GRADE3) QT_GRADE3, {#10} MAX(DS_COLUNA4) DS_COLUNA4, SUM(QT_GRADE4) QT_GRADE4, {#10} MAX(DS_COLUNA5) DS_COLUNA5, SUM(QT_GRADE5) QT_GRADE5 {#10}
FROM ( {#10} {#10}
SELECT {#10} S.NR_LINHA, S.DS_LINHA, S.NR_ORDEMLINHA, {#10} S.DS_COLUNA1, S.QT_GRADE1, S.DS_COLUNA2, S.QT_GRADE2, {#10} S.DS_COLUNA3, S.QT_GRADE3, S.DS_COLUNA4, S.QT_GRADE4, {#10} S.DS_COLUNA5, S.QT_GRADE5 {#10}
FROM RETORNA_DADOSGRADEORDENADO(:CD_EMPRESA, :NR_PEDIDO, :TP_PEDIDO, :CD_ITEM, :CD_GRADE) S ) X {#10}
GROUP BY NR_LINHA, DS_LINHA, NR_ORDEMLINHA {#10}) X {#10}
WHERE {#10}(QT_GRADE1 IS NOT NULL)
  OR {#10}(QT_GRADE2 IS NOT NULL)
  OR {#10}(QT_GRADE3 IS NOT NULL)
  OR {#10}(QT_GRADE4 IS NOT NULL)
  OR {#10}(QT_GRADE5 IS NOT NULL) {#10}
ORDER BY NR_ORDEMLINHA

`Text #1`

SELECT {#10} N.CD_EMPRESA, E.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJCPFEMP, EE.NR_INSCEST NR_INSCESTEMP, {#10} EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ') DS_ENDEREMP, {#10} ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.DS_SITE DS_SITEEMP, PE.DS_EMAIL DS_EMAILEMP, {#10} EE.NR_FONE NR_FONEEMP, EE.NR_FAX NR_FAXEMP, EE.NR_CEP NR_CEPEMP, {#10} N.NR_PEDIDO, N.TP_PEDIDO, N.DT_PEDIDO, N.DT_ENTREGA, N.NR_DIASENTREGA, {#10} N.CD_PESSOA, '[ '||P.CD_PESSOA||' ] '||P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'') NM_PESSOA, {#10} P.NR_CNPJCPF, EP.NR_CEP, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' WHEN '2' THEN 'FOB' END TP_PAGTOFRETE, {#10} NULLIF(COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,''),'') DS_OBSERVACAO, {#10} COALESCE('Transportador.: '||N.CD_TRANSPORTADOR || ' - '||COALESCE (PT.NM_FANTASIA,PT.NM_PESSOA),'') DS_TRANSPORTADOR, {#10} PARM.DS_LOGOTIPO, {#10} EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ') DS_ENDERECO, {#10} COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, {#10} MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, {#10} EP.NR_FONE, EP.NR_FAX, N.NR_PEDIDOFOR, P.DS_EMAIL, {#10} CASE C.ST_CONDPAGTO {#10} WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y') {#10} ELSE C.DS_CONDPAGTO END DS_CONDPAGTO, {#10} N.CD_CONDPAGTO, N.DT_VENCIMENTO, N.CD_VENDEDOR, {#10} COALESCE(V.NM_FANTASIA,V.NM_PESSOA)||COALESCE(' FONE: '||EV.NR_FONE,'')||' - '||N.CD_VENDEDOR NM_VENDEDOR, {#10} N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, {#10} MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, {#10} NULLIF(P.DS_OBSFINANCEIRO, '') DS_OBSFINANCEIRO, {#10} II.cd_item, II.CD_GRADE, II.ds_item, {#10} II.SG_UNIDMED, II.CD_FORNECEDOR1, II.CD_FORNECEDOR2, {#10} TL.CD_TIPOLOCAL, TL.DS_TIPOLOCAL, LC.CD_LOCAL, LC.DS_LOCAL, {#10} (
SELECT FIRST 1 IL.CD_TIPOLOCAL {#10}
FROM ITEMLOCAL IL {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.DT_REGISTRO) CD_TIPOLOCAL_IC, {#10} (
SELECT FIRST 1 TC.DS_TIPOLOCAL {#10}
FROM ITEMLOCAL IL {#10}
INNER JOIN TIPOLOCAL TC ON (TC.CD_TIPOLOCAL = IL.CD_TIPOLOCAL) {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.CD_LOCAL) DS_TIPOLOCAL_IL, {#10} (
SELECT FIRST 1 CD_LOCAL {#10}
FROM ITEMLOCAL IL {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.DT_REGISTRO ) CD_LOCAL_IL, {#10} (
SELECT FIRST 1 LC.DS_LOCAL {#10}
FROM ITEMLOCAL IL {#10}
INNER JOIN LOCALESTOQUE LC ON (LC.CD_TIPOLOCAL = IL.CD_TIPOLOCAL {#10}
  AND LC.CD_LOCAL = IL.CD_LOCAL) {#10}
WHERE IL.CD_ITEM = II.CD_ITEM {#10}
ORDER BY IL.CD_LOCAL ) DS_LOCAL_IL, {#10} SUM(CI.V_VL_TOTAL) VL_TOTALIMPOSTOS, {#10} cast(SUM(IP.VL_TOTAL) / SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END) as dom_numeric15_3) VL_UNITARIO, {#10} SUM(IP.VL_DESCONTO) VL_DESCONTO, {#10} SUM(IP.VL_TOTAL) VL_TOTAL, {#10} sum(IP.VL_FRETE) VL_FRETE, {#10} sum(IP.VL_DESPESA) VL_DESPESA, {#10} sum(IP.PS_PEDIDO) PS_PEDIDO, {#10} sum(IP.QT_PEDIDA) QT_PEDIDA, {#10} 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, {#10} SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(IP.VL_DESPESA,0) + COALESCE(CI.V_VL_TOTAL,0) ) VL_IMPOSTOS, {#10} LIST(DISTINCT NULLIF(IP.DS_OBSERVACAO,''),', ') DS_OBSITEM, {#10} SUM(CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END) QTDE, {#10} AVG((CI.V_VL_TOTAL / {#10} CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END) + IP.VL_UNITARIO) VL_UNITARIOLIQ, {#10} SUM(CI.V_VL_TOTAL + (IP.VL_UNITARIO * {#10} CASE (
SELECT V_TIPO
FROM HABILITA_PESOQTDE (IP.CD_ITEM)) {#10} WHEN 'Q' THEN IP.QT_PEDIDA {#10} ELSE IP.PS_PEDIDO {#10} END)) VL_TOTUNITARIO, {#10} AVG((IP.VL_UNITARIO + CI.V_VL_TOTAL)) VL_UNITARIOIMP, {#10} SUM(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN {#10} IP.PS_PEDIDO * COALESCE(II.PS_LIQUIDOEMB,1) {#10} ELSE IP.QT_PEDIDA * COALESCE(II.PS_LIQUIDOEMB,1) END) PS_LIQUIDOITEM, {#10} SUM(CASE WHEN COALESCE(IP.PS_PEDIDO,0) > 0 THEN {#10} IP.PS_PEDIDO * (COALESCE(II.PS_LIQUIDOEMB,1) + COALESCE(II.PS_EMBALAGEM,0)) {#10} ELSE IP.QT_PEDIDA * (COALESCE(II.PS_LIQUIDOEMB,1) + COALESCE(II.PS_EMBALAGEM,0)) END) PS_BRUTOITEM, {#10} RP.o_ps_liquido PS_LIQUIDO, {#10} rp.o_ps_bruto PS_BRUTO, N.CD_REDESPACHO||' - '||RED.NM_PESSOA NM_REDESPACHO, {#10} cast(IP.VL_UNITARIO as dom_numeric15_2) VL_UNITPEDIDO {#10}
FROM PEDIDO N {#10}
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR) {#10}
LEFT JOIN ENDERECOPESSOA EV ON (EV.CD_PESSOA = V.CD_PESSOA {#10}
  AND EV.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(V.CD_PESSOA, NULL))) {#10}
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO) {#10}
LEFT JOIN PESSOA T ON (T.CD_PESSOA = N.CD_TRANSPORTADOR) {#10}
INNER JOIN ITEMPEDIDO IP ON (N.NR_PEDIDO = IP.NR_PEDIDO {#10}
  AND N.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND N.TP_PEDIDO = IP.TP_PEDIDO) {#10}
INNER JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA) {#10}
INNER JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA {#10}
  AND N.CD_ENDERECO = EP.CD_ENDERECO) {#10}
INNER JOIN MUNICIPIO MP ON (EP.CD_MUNICIPIO = MP.CD_MUNICIPIO) {#10}
INNER JOIN EMPRESA E ON (N.CD_EMPRESA = E.CD_EMPRESA) {#10}
INNER JOIN PESSOA PE ON (E.CD_PESSOA = PE.CD_PESSOA) {#10}
LEFT JOIN PESSOA PT ON (N.cd_transportador = PT.cd_pessoa) {#10}
INNER JOIN ENDERECOPESSOA EE ON (EE.CD_PESSOA = PE.CD_PESSOA {#10}
  AND EE.CD_ENDERECO = {#10} (
SELECT MIN(CD_ENDERECO) {#10}
FROM ENDERECOPESSOA ENDER {#10}
WHERE ENDER.CD_PESSOA = EE.CD_PESSOA)) {#10}
INNER JOIN MUNICIPIO ME ON (EE.CD_MUNICIPIO = ME.CD_MUNICIPIO) {#10}
INNER JOIN CONDPAGTO C ON (N.CD_CONDPAGTO = C.CD_CONDPAGTO) {#10}
INNER JOIN ITEM II ON (IP.CD_ITEM = II.CD_ITEM) {#10}
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA) {#10}
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) {#10}
LEFT JOIN RETORNA_PESOPEDIDO(N.CD_EMPRESA, N.NR_PEDIDO, N.TP_PEDIDO) RP ON (1=1) {#10}
LEFT JOIN PESSOA RED ON (RED.CD_PESSOA = N.CD_REDESPACHO) {#10}
LEFT JOIN ITEMEMPRESA EMP ON (EMP.CD_EMPRESA = IP.CD_EMPRESA {#10}
  AND EMP.CD_ITEM = II.CD_ITEM) {#10}
LEFT JOIN TIPOLOCAL TL ON (TL.CD_TIPOLOCAL = EMP.CD_TIPOLOCAL) {#10}
LEFT JOIN LOCALESTOQUE LC ON (LC.CD_TIPOLOCAL = EMP.CD_TIPOLOCAL {#10}
  AND LC.CD_LOCAL = EMP.CD_LOCAL) {#10}
WHERE N.CD_EMPRESA = :CD_EMPRESA {#10}
  AND N.NR_PEDIDO = :NR_PEDIDO {#10}
  AND N.TP_PEDIDO = :TP_PEDIDO {#10}
GROUP BY {#10} CD_EMPRESA, NM_EMPRESA, NR_CNPJCPFEMP, NR_INSCESTEMP, DS_ENDEREMP, DS_MUNICEMP, {#10} DS_SITEEMP, DS_EMAILEMP, NR_FONEEMP, NR_FAXEMP, NR_CEPEMP, NR_PEDIDO, TP_PEDIDO, {#10} DT_PEDIDO, DT_ENTREGA, NR_DIASENTREGA, CD_PESSOA, NM_PESSOA, NR_CNPJCPF, NR_CEP, {#10} TP_PAGTOFRETE, DS_OBSERVACAO, DS_TRANSPORTADOR, DS_LOGOTIPO, DS_ENDERECO, DS_BAIRRO, {#10} DS_MUNICIPIO, NR_INSCEST, NR_FONE, NR_FAX, NR_PEDIDOFOR, DS_EMAIL, DS_CONDPAGTO, {#10} CD_CONDPAGTO, DT_VENCIMENTO, CD_VENDEDOR, NM_VENDEDOR, CD_FORMAPAGTO, DS_FORMAPAGTO, {#10} DS_MUNIC, SG_ESTADO, DS_OBSFINANCEIRO, CD_ITEM, DS_ITEM, SG_UNIDMED, PS_LIQUIDO, PS_BRUTO, {#10} RED.NM_PESSOA, N.CD_REDESPACHO, VL_UNITPEDIDO, CD_FORNECEDOR1, CD_FORNECEDOR2, {#10} CD_TIPOLOCAL, CD_LOCAL, DS_TIPOLOCAL, DS_LOCAL, {#10} CD_GRADE

`Text #2`

SELECT * {#10}
FROM ( {#10}
SELECT {#10} NR_LINHA, DS_LINHA, NR_ORDEMLINHA, {#10} MAX(DS_COLUNA1) DS_COLUNA1, SUM(QT_GRADE1) QT_GRADE1, {#10} MAX(DS_COLUNA2) DS_COLUNA2, SUM(QT_GRADE2) QT_GRADE2, {#10} MAX(DS_COLUNA3) DS_COLUNA3, SUM(QT_GRADE3) QT_GRADE3, {#10} MAX(DS_COLUNA4) DS_COLUNA4, SUM(QT_GRADE4) QT_GRADE4, {#10} MAX(DS_COLUNA5) DS_COLUNA5, SUM(QT_GRADE5) QT_GRADE5 {#10}
FROM ( {#10} {#10}
SELECT {#10} S.NR_LINHA, S.DS_LINHA, S.NR_ORDEMLINHA, {#10} S.DS_COLUNA1, S.QT_GRADE1, S.DS_COLUNA2, S.QT_GRADE2, {#10} S.DS_COLUNA3, S.QT_GRADE3, S.DS_COLUNA4, S.QT_GRADE4, {#10} S.DS_COLUNA5, S.QT_GRADE5 {#10}
FROM RETORNA_DADOSGRADEORDENADO(:CD_EMPRESA, :NR_PEDIDO, :TP_PEDIDO, :CD_ITEM, :CD_GRADE) S ) X {#10}
GROUP BY NR_LINHA, DS_LINHA, NR_ORDEMLINHA {#10}) X {#10}
WHERE {#10}(QT_GRADE1 IS NOT NULL)
  OR {#10}(QT_GRADE2 IS NOT NULL)
  OR {#10}(QT_GRADE3 IS NOT NULL)
  OR {#10}(QT_GRADE4 IS NOT NULL)
  OR {#10}(QT_GRADE5 IS NOT NULL) {#10}
ORDER BY NR_ORDEMLINHA

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
`ITEMEMPRESA`	referenciada nas queries do layout
`ITEMLOCAL`	referenciada nas queries do layout
`ITEMPEDIDO`	referenciada nas queries do layout
`LOCALESTOQUE`	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_DADOSGRADEORDENADO`	referenciada nas queries do layout
`RETORNA_ENDERECO`	referenciada nas queries do layout
`RETORNA_PESOPEDIDO`	referenciada nas queries do layout
`TIPOLOCAL`	referenciada nas queries do layout

Shared Units

jCommon

Fonte

Unit: source/LPD135/ULPD135.pas
DFM: source/LPD135/ULPD135.dfm
Package: source/LPD135/LPD135.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

tabPedido​

tabGrade​

Text #1​

Text #2​

Tabelas Utilizadas​

Shared Units​

Fonte​