LOR025 — Layout LOR025

Visão Geral

Layout de impressão da família LOR (Ordem de Serviço). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em ORCAMENTO, com junção em MAQUINAORCAMENTO, PESSOA, ENDERECOPESSOA, MUNICIPIO, EMPRESA, CONDPAGTO (+4), filtrada por CD_EMPRESA, NR_ORCAMENTO, JO, CD_PESSOA, CD_ENDERECO, CD_MUNICIPIO (+2).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Orcamento
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

Orcamento

SELECT N.CD_EMPRESA, E.NM_EMPRESA, 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, COALESCE(EE.NR_FONE, EE.NR_FAX) NR_FONEEMP, EE.NR_CEP NR_CEPEMP, N.NR_ORCAMENTO, N.DT_ORCAMENTO, 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,' ') DS_ENDERECO, COALESCE(EP.DS_BAIRRO, EP.DS_COMPLEMENTO) DS_BAIRRO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, EP.NR_INSCEST, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, 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, V.NM_PESSOA||' - '||N.CD_VENDEDOR NM_VENDEDOR, N.DS_OBSERVACAO, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, IP.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, IP.VL_UNITARIO, IP.VL_DESCONTO, IP.VL_TOTAL, IP.DS_ESPECIFICACAO, IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0) VL_LIQUIDO, IP.QT_MAQUINA
FROM ORCAMENTO N
INNER JOIN MAQUINAORCAMENTO IP ON (N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.NR_ORCAMENTO = IP.NR_ORCAMENTO)
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 O_CD_ENDERECO
FROM RETORNA_ENDERECO(EE.CD_PESSOA, null)))
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)
LEFT JOIN PESSOA V ON (V.CD_PESSOA = N.CD_VENDEDOR)
LEFT JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = N.CD_FORMAPAGTO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTO = :NR_ORCAMENTO CD_EMPRESA 1 NR_ORCAMENTO
SELECT N.CD_EMPRESA, E.NM_EMPRESA, ME.DS_MUNICIPIO||' - '||ME.SG_ESTADO DS_MUNICEMP, PE.NR_CNPJCPF NR_CNPJEMP, N.NR_ORCAMENTO, P.NM_PESSOA, P.NR_CNPJCPF, CURRENT_DATE DT_ATUAL, EP.DS_ENDERECO||COALESCE(', '||EP.NR_ENDERECO,' ')||COALESCE(' '||EP.DS_BAIRRO,' ')||COALESCE(' '||EP.DS_COMPLEMENTO,' ') DS_ENDERECO, MP.DS_MUNICIPIO||' - '||MP.SG_ESTADO DS_MUNICIPIO, COALESCE(EP.NR_FONE, EP.NR_FAX) NR_FONE, N.DT_VENCIMENTO, SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0)) VL_TOTAL, (
SELECT O_VALOR
FROM VALOR_EXTENSO(SUM(IP.VL_TOTAL - COALESCE(IP.VL_DESCONTO,0)))) VL_EXTENSO
FROM ORCAMENTO N
INNER JOIN ITEMORCAMENTO IP ON (N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.NR_ORCAMENTO = IP.NR_ORCAMENTO)
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)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTO = :NR_ORCAMENTO
GROUP BY N.CD_EMPRESA, E.NM_EMPRESA, ME.DS_MUNICIPIO, ME.SG_ESTADO, PE.NR_CNPJCPF, N.NR_ORCAMENTO, P.NM_PESSOA, P.NR_CNPJCPF, EP.DS_ENDERECO, EP.NR_ENDERECO, EP.DS_BAIRRO, EP.DS_COMPLEMENTO, MP.DS_MUNICIPIO, MP.SG_ESTADO, EP.NR_FONE, EP.NR_FAX, N.DT_VENCIMENTO CD_EMPRESA 1 NR_ORCAMENTO
SELECT N.NR_ORCAMENTO + C.NR_DIAS DT_VENCTO, N.DT_VENCIMENTO, N.DT_ORCAMENTO
FROM ORCAMENTO N
LEFT JOIN CONDPARCELA C ON (C.CD_CONDPAGTO = N.CD_CONDPAGTO)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORCAMENTO = :NR_ORCAMENTO

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	referenciada nas queries do layout
CONDPARCELA	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
ITEMORCAMENTO	referenciada nas queries do layout
MAQUINAORCAMENTO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
ORCAMENTO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
VALOR_EXTENSO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOR025/ULOR025.pas
• DFM: source/LOR025/ULOR025.dfm
• Package: source/LOR025/LOR025.dpk