LOR007 — Layout LOR007

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 (+6), filtrada por CD_PESSOA, JO, CD_MUNICIPIO, CD_CONDPAGTO, CD_EMPRESA, CD_ITEM (+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, 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_ORCAMENTO NR_PEDIDO, N.DT_ORCAMENTO DT_PEDIDO, N.DT_ENTREGA, N.NR_DIASENTREGA, N.CD_PESSOA, COALESCE(P.NM_PESSOA||COALESCE(' - '||P.NM_FANTASIA,'')||' - '||P.CD_PESSOA,N.DS_PESSOA) NM_PESSOA, P.NR_CNPJCPF, EP.NR_CEP, N.DS_CONTATO, CASE N.TP_PAGTOFRETE WHEN '1' THEN 'CIF' ELSE 'FOB' END TP_PAGTOFRETE, 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, 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_PESSOA||' - '||N.CD_VENDEDOR, 'RESPONSAVEL') NM_VENDEDOR, N.CD_FORMAPAGTO, F.DS_FORMAPAGTO, MP.DS_MUNICIPIO DS_MUNIC, MP.SG_ESTADO, IP.NR_MAQUINA, IP.NR_ORCAMENTO, IP.CD_ITEM, IP.DS_MAQUINA DS_ITEM, COALESCE(I.SG_UNIDMED, 'UN') SG_UNIDMED, IP.VL_UNITARIO, IP.VL_TOTAL, IP.VL_TOTAL VL_LIQUIDO, IP.DS_ESPECIFICACAO DS_OBSITEM, COALESCE (IP.QT_MAQUINA, IP.PS_MAQUINA) QTDE, IP.QT_MAQUINA QT_PEDIDA, PARM.DS_LOGOTIPO, COALESCE(N.DS_OBSERVACAO, '')||COALESCE(' '||PARM.DS_MSGPEDIDO, '') DS_OBSERVACAO
FROM ORCAMENTO N
INNER JOIN MAQUINAORCAMENTO IP ON (N.CD_EMPRESA = IP.CD_EMPRESA
  AND N.NR_ORCAMENTO = IP.NR_ORCAMENTO)
LEFT JOIN PESSOA P ON (N.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (N.CD_PESSOA = EP.CD_PESSOA
  AND N.CD_ENDERECO = EP.CD_ENDERECO)
LEFT 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
WHERE 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 PARMFATUR PARM ON (PARM.CD_EMPRESA = N.CD_EMPRESA)
LEFT 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 = COALESCE(:CD_EMPRESA, 0)
  AND N.NR_ORCAMENTO = COALESCE(:NR_ORCAMENTO, 0)
ORDER BY IP.NR_MAQUINA CD_EMPRESA 1 NR_ORCAMENTO
SELECT IP.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, IP.VL_UNITARIO, IP.VL_TOTAL, IP.VL_UNITARIO, IP.QT_ORCAMENTO, IP.PS_ORCAMENTO, CASE TC.TP_UNIDADE WHEN 'Q' THEN IP.QT_ORCAMENTO ELSE IP.PS_ORCAMENTO END QTDE, (IP.VL_VENDA / CASE TC.TP_UNIDADE WHEN 'Q' THEN IP.QT_ORCAMENTO ELSE IP.PS_ORCAMENTO END) VL_UNITARIOVENDA, COALESCE(IP.VL_VENDA, ITB.VL_PRECO * CASE TC.TP_UNIDADE WHEN 'Q' THEN IP.QT_ORCAMENTO ELSE IP.PS_ORCAMENTO END) VL_TOTALVENDA
FROM ITEMORCAMENTO IP
INNER JOIN ITEM I ON (IP.CD_ITEM = I.CD_ITEM)
INNER JOIN TIPOCALCULO TC ON (TC.CD_TIPOCALCULO = I.CD_TIPOCALCULO) /*
LEFT JOIN MATERIAPRIMAORCAMENTO MP ON (MP.CD_EMPRESA = IP.CD_EMPRESA
  AND MP.NR_ORCAMENTO = IP.NR_ORCAMENTO
  AND MP.NR_MAQUINA = IP.NR_MAQUINA
  AND MP.CD_ITEM = IP.CD_ITEM)*/
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = IP.CD_EMPRESA)
LEFT JOIN ITEMTABPRECO ITB ON (ITB.CD_TABPRECO = PF.CD_TABPRECO
  AND ITB.CD_ITEM = IP.CD_ITEM)
WHERE IP.CD_EMPRESA = COALESCE(:CD_EMPRESA, 0)
  AND IP.NR_ORCAMENTO = COALESCE(:NR_ORCAMENTO, 0)
  AND IP.NR_MAQUINA = COALESCE(:NR_MAQUINA, 0)
ORDER BY IP.CD_ITEM CD_EMPRESA 1 NR_ORCAMENTO NR_MAQUINA

Tabelas Utilizadas

Tabela	Uso
CONDPAGTO	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
ITEMTABPRECO	referenciada nas queries do layout
MAQUINAORCAMENTO	referenciada nas queries do layout
MATERIAPRIMAORCAMENTO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
ORCAMENTO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
TIPOCALCULO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOR007/ULOR007.pas
• DFM: source/LOR007/ULOR007.dfm
• Package: source/LOR007/LOR007.dpk