Pular para o conteúdo principal

LPD093 — Listagem LPD093

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 ITEMPEDIDO, MOVIMENTACAO, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA (+10), filtrada por CD_EMPRESA, NR_PEDIDO, TP_PEDIDO, COMB, DEST, NR_ (+12).

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​

Pedido​

SELECT N.CD_EMPRESA, E.NM_EMPRESA, PE.NR_CNPJCPF NR_CNPJEMP, PE.NM_FANTASIA, EE.DS_ENDERECO||COALESCE(', '||EE.NR_ENDERECO,' - ')||COALESCE(COALESCE(' - '||EE.DS_BAIRRO, EE.DS_COMPLEMENTO),' ')||' - CEP '||EE.NR_CEP||' - '||ME.DS_MUNICIPIO||' / '||ME.SG_ESTADO||' - Telefone '||COALESCE(EE.NR_FONE, EE.NR_FAX) DS_ENDEREMP, N.TP_PAGTOFRETE, PE.DS_SITE, EE.NR_INSCEST NR_INSCEMP, PE.DS_EMAIL, P.DS_OBSERVACAO DS_CONTATO, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_FAX NR_FAXEMP, 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,' ')||' - '||COALESCE(EP.NR_CEP||' - ','')||COALESCE(MP.DS_MUNICIPIO||' / '||MP.SG_ESTADO,'')||' - '||EP.NR_FONE 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, N.CD_VENDEDOR, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MC.DS_MARCA, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, IP.VL_UNITARIO, coalesce(IP.VL_DESCONTO,0)VL_DESCONTO, IP.VL_TOTAL, COALESCE(COALESCE(IP.VL_TOTAL,0) - COALESCE(IP.VL_DESCONTO,0),0) VL_LIQUIDOTOT, IP.DS_OBSERVACAO DS_OBSITEM, COALESCE(CI.V_PC_ICMS,0) PC_ICMS, CASE WHEN COALESCE(CI.V_VL_IPI,0) > 0 THEN COALESCE(NCM.PC_IPI,0) ELSE 0 END PC_IPI, COALESCE(CI.V_VL_IPI,0) V_VL_IPI, I.NR_NCM, MOV.CD_CST, CI.V_VL_SUBSTITUICAO, CI.V_PC_SUBSTITUICAO PC_SUBSTITUICAO, 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 PS_PEDIDO, IP.VL_DESPESA, PARM.DS_LOGOTIPO, COALESCE(N.DS_OBSERVACAO,'')||COALESCE(' '||PARM.DS_MSGPEDIDO,'') DS_OBSERVACAO, ME.DS_MUNICIPIO||', '||DE.O_DS_DATA||'. ' DS_DATA, ME.DS_MUNICIPIO||' / '||ME.SG_ESTADO DS_MUNICEMP, (
SELECT VE.O_VALOR
FROM VALOR_EXTENSO (CAST( (
SELECT SUM(IPP.VL_TOTAL)
FROM ITEMPEDIDO IPP
WHERE IPP.CD_EMPRESA = N.CD_EMPRESA
  AND IPP.NR_PEDIDO = N.NR_PEDIDO
  AND IPP.TP_PEDIDO = N.TP_PEDIDO) AS DOM_NUMERIC15_2)) VE
WHERE 1=1) DS_EXTENSO, CASE C.ST_CONDPAGTO WHEN 'D' THEN 'Vencto.: '||FORMATA_DATA(N.DT_VENCIMENTO,'%d/%m/%Y') ELSE C.DS_CONDPAGTO END||'/'||F.DS_FORMAPAGTO DS_PAGAMENTO, CASE WHEN N.NR_DIASENTREGA IS NULL THEN CASE WHEN N.DT_ENTREGA IS NULL THEN 'A Combinar' ELSE FORMATA_DATA( N.DT_ENTREGA,'%d/%m/%Y') END ELSE FORMATA_DATA(DATEADD(N.NR_DIASENTREGA DAY TO N.DT_PEDIDO),'%d/%m/%Y')END DT_PRAZOFORNEC, COALESCE(CASE N.TP_PAGTOFRETE WHEN 1 THEN 'Remetente - CIF' WHEN 2 THEN 'Destinatário - FOB' ELSE 'Outros' END||COALESCE(' - '||PT.NM_PESSOA,''),'A Combinar') NM_TRANSPORTADOR , RDV.NR_TELEFONE NR_TELVENDEDOR, RDV.NR_CELULAR NR_CELVENDEDOR, RDV.NR_FAX NR_FAXVENDEDOR, V.DS_EMAIL DS_EMAILVENDEDOR, 'CNPJ '||PE.NR_CNPJCPF||' - Inscrição Estadual '||EE.NR_INSCEST DS_NRCNPJINSC, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) + COALESCE(CI.V_VL_IPI,0) + CI.V_VL_SUBSTITUICAO VL_TOT_LIQUIDO, CASE N.TP_PEDIDO WHEN 'O' THEN 'Orçamento ' ELSE 'Pedido ' END || N.NR_PEDIDO DS_PEDIDO, VENC.O_DS_VENCIMENTO
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)
INNER JOIN MOVIMENTACAO MOV ON (IP.CD_MOVIMENTACAO = MOV.CD_MOVIMENTACAO)
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 NCM ON (NCM.NR_NCM = I.NR_NCM)
LEFT JOIN MARCA MC ON (I.CD_MARCA = MC.CD_MARCA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN RETORNA_DADOSCADASTRAIS(V.CD_PESSOA, NULL) RDV ON (1 = 1)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
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 DATA_EXTENSO (N.DT_PEDIDO) DE ON (1=1)
LEFT JOIN PESSOA PT ON (PT.CD_PESSOA = N.CD_TRANSPORTADOR)
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

Tabelas Utilizadas​

TabelaUso
CALCULA_IMPOSTOPEDIDOreferenciada nas queries do layout
CONDPAGTOreferenciada nas queries do layout
DATA_EXTENSOreferenciada 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
MARCAreferenciada nas queries do layout
MOVIMENTACAOreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
NCMreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
RETORNA_VENCIMENTOSreferenciada nas queries do layout
VALOR_EXTENSOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LPD093/ULPD093.pas
  • DFM: source/LPD093/ULPD093.dfm
  • Package: source/LPD093/LPD093.dpk