LPD047 — Listagem LPD047

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 PEDIDO, com junção em ITEMPEDIDO, ITEM, PESSOA, ENDERECOPESSOA, EMPRESA, MUNICIPIO (+10), filtrada por CD_EMPRESA, NR_PEDIDO, TP_PEDIDO.

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 --quebra case i.tp_item when 'S' then 'Serviços' else 'Peças' end ds_quebra, --topo case when n.nr_pedido is null then 'ORÇAMENTO' else 'PEDIDO' end ds_documento, coalesce(n.nr_pedido, n.nr_orcamento) nr_documento, n.dt_pedido, pf.ds_logotipo, --titulo pe.nm_fantasia nm_fantemp, coalesce(ee.nr_fone,'')||coalesce('/'||ee.nr_fax,'') nr_foneemp, ee.ds_endereco||coalesce(', Nº '||ee.nr_endereco,'')||coalesce(' - CEP: '||ee.nr_cep,'') ||coalesce(', '||ee.ds_bairro,'')||coalesce(' - '||mu.ds_municipio,'') ||coalesce(' - '||ee.ds_complemento,'') ds_endereco, --cabecalho p.cd_pessoa||' - '||p.nm_pessoa||coalesce(' / '||p.nm_fantasia,'') nm_pessoa, coalesce(ep.nr_fone,'')||coalesce(' / '||ep.nr_fax,'') nr_fone, ep.nr_celular, os.nr_box, mv.ds_modeloveiculo||coalesce(' - '||cv.ds_corveiculo,'') ||coalesce(' - '||rv.ds_marcaveiculo,'')||coalesce(' - '||tv.ds_tipoveiculo,'') ds_veiculo, ve.nr_placa, --item case when i.tp_item = 'S' then ip.vl_total else 0 end vl_servico, case when i.tp_item <> 'S' then ip.vl_total else 0 end vl_produto, coalesce(ip.vl_total,0) - coalesce(ip.vl_desconto,0) + coalesce(ip.vl_despesa,0) vl_geral, i.cd_item, i.ds_item||coalesce(' - '||s.ds_marca,'') ds_item, ip.vl_unitario, ip.vl_desconto, ip.vl_despesa, ip.vl_total, coalesce(ip.qt_pedida,ip.ps_pedido) qnt, n.cd_empresa, n.nr_pedido, n.tp_pedido
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 item i on (i.cd_item = ip.cd_item)
INNER JOIN pessoa p on(n.cd_pessoa = p.cd_pessoa)
INNER JOIN enderecopessoa ep on(ep.cd_pessoa = n.cd_pessoa
  AND ep.cd_endereco = n.cd_endereco)
INNER JOIN empresa e on(e.cd_empresa = n.cd_empresa)
LEFT JOIN pessoa pe on(pe.cd_pessoa = e.cd_pessoa)
LEFT JOIN enderecopessoa ee on(ee.cd_pessoa = pe.cd_pessoa
  AND ee.cd_endereco = (
SELECT r.o_cd_endereco
FROM retorna_endereco(pe.cd_pessoa,null)r))
LEFT JOIN municipio mu on(mu.cd_municipio = ee.cd_municipio)
LEFT JOIN marca s on (s.cd_marca = i.cd_marca)
LEFT JOIN ordemservico os on(os.cd_empresa = n.cd_empresa
  AND os.nr_ordemservico = n.nr_ordemservico)
LEFT JOIN veiculo ve on(ve.nr_placa = os.nr_placa)
LEFT JOIN modeloveiculo mv on(mv.cd_modeloveiculo = ve.cd_modeloveiculo
  AND mv.cd_marcaveiculo = ve.cd_marcaveiculo)
LEFT JOIN corveiculo cv on(cv.cd_corveiculo = ve.cd_corveiculo)
LEFT JOIN tipoveiculo tv on(tv.cd_tipoveiculo = ve.cd_tipoveiculo)
LEFT JOIN marcaveiculo rv on(rv.cd_marcaveiculo = ve.cd_marcaveiculo)
LEFT JOIN parmfatur pf on(pf.cd_empresa = n.cd_empresa)
WHERE n.cd_empresa = :cd_empresa
  AND n.nr_pedido = :nr_pedido
  AND n.tp_pedido = :tp_pedido
ORDER BY 1 desc CD_EMPRESA 1 NR_PEDIDO 1142 TP_PEDIDO S
SELECT 'Duplicatas' ds_quebra, v.nr_parcela, v.dt_vencimento, v.vl_documento, f.cd_formapagto||' - '||f.ds_formapagto ds_formapagto, c.cd_condpagto||' - '||c.ds_condpagto ds_condpagto
FROM view_contaspedido(:cd_empresa, :nr_pedido, :tp_pedido) v
LEFT JOIN formapagto f on(f.cd_formapagto = v.cd_formapagto)
LEFT JOIN condpagto c on(c.cd_condpagto = v.cd_condpagto) CD_EMPRESA 1 NR_PEDIDO 1142 TP_PEDIDO S

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
CORVEICULO	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMPEDIDO	referenciada nas queries do layout
MARCA	referenciada nas queries do layout
MARCAVEICULO	referenciada nas queries do layout
MODELOVEICULO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
ORDEMSERVICO	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
TIPOVEICULO	referenciada nas queries do layout
VEICULO	referenciada nas queries do layout
VIEW_CONTASPEDIDO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LPD047/ULPD047.pas
• DFM: source/LPD047/ULPD047.dfm
• Package: source/LPD047/LPD047.dpk