LOS004 — Layout LOS004

Visão Geral

Layout de impressão da família LOS (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, RETORNA_LINHAS, EMPRESA, PESSOA, ENDERECOPESSOA, MUNICIPIO (+2), filtrada por CD_EMPRESA, NR_ORCAMENTO, NR_, NR_MAQU, DS_MAQU, DT_ (+12).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Orcamento
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
  // 5 - Máquinas da Ordem de Serviço
  // 6 - Tipo do Relatório (Abertura ou Fechamento)
]);

SQL Base

Orcamento

SELECT O.CD_EMPRESA, E.NM_EMPRESA, P.NR_CNPJCPF, N.DS_ENDERECO||COALESCE(', '||N.NR_ENDERECO,'')||COALESCE(' - '||COALESCE(' - '||N.DS_BAIRRO, N.DS_COMPLEMENTO),'') DS_ENDERECO, U.DS_MUNICIPIO||' - '||U.SG_ESTADO DS_MUNICIPIO, N.NR_FONE, N.NR_FAX, N.NR_CEP, N.NR_INSCEST, N.NR_CELULAR, O.NR_ORCAMENTO, O.DT_ORCAMENTO, O.NR_DIASENTREGA, P.DS_EMAIL, O.DS_CONTATO, P.CD_PESSOA, P.NM_PESSOA, M.NR_MAQUINA, M.DS_MAQUINA, M.DS_ESPECIFICACAO, M.DT_INISERVICO, M.DT_FIMSERVICO, M.QT_MAQUINA, M.DS_MODELO, M.DS_NUMEROSERIE, M.DS_OBSERVACAO, PF.DS_MSGORCAMENTO,PARM.DS_LOGOTIPO,PARM.DS_MENSAGEM,O.DS_OBSERVACAO DS_OBSORDEM , L.O_NR_LINHA
FROM ORCAMENTO O
INNER JOIN MAQUINAORCAMENTO M ON (M.CD_EMPRESA = O.CD_EMPRESA
  AND M.NR_ORCAMENTO = O.NR_ORCAMENTO)
LEFT JOIN RETORNA_LINHAS (2) L ON(1=1)
INNER JOIN EMPRESA E ON (O.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA P ON (O.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA N ON (N.CD_PESSOA = O.CD_PESSOA
  AND N.CD_ENDERECO = O.CD_ENDERECO)
INNER JOIN MUNICIPIO U ON (U.CD_MUNICIPIO = N.CD_MUNICIPIO)
LEFT JOIN PARMFATUR PF ON (PF.CD_EMPRESA = O.CD_EMPRESA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = O.CD_EMPRESA)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO CD_EMPRESA 1 NR_ORCAMENTO 68
SELECT O.CD_EMPRESA, E.NM_EMPRESA, P.NR_CNPJCPF, N.DS_ENDERECO||COALESCE(', '||N.NR_ENDERECO,'')||COALESCE(' - '||COALESCE(' - '||N.DS_BAIRRO, N.DS_COMPLEMENTO),'') DS_ENDERECO, U.DS_MUNICIPIO||' - '||U.SG_ESTADO DS_MUNICIPIO, N.NR_FONE, N.NR_FAX, N.NR_CEP, N.NR_INSCEST, N.NR_CELULAR, O.NR_ORCAMENTO, O.DT_ORCAMENTO, O.NR_DIASENTREGA, P.DS_EMAIL, O.DS_CONTATO, P.CD_PESSOA, P.NM_PESSOA, M.NR_MAQUINA, M.DS_MAQUINA, M.DS_ESPECIFICACAO, M.VL_TOTAL, M.DT_INISERVICO, M.DT_FIMSERVICO, M.QT_MAQUINA, M.DS_MODELO, M.DS_NUMEROSERIE, M.DS_OBSERVACAO, PF.DS_MSGORCAMENTO,L.O_NR_LINHA
FROM ORCAMENTO O
INNER JOIN MAQUINAORCAMENTO M ON (M.CD_EMPRESA = O.CD_EMPRESA
  AND M.NR_ORCAMENTO = O.NR_ORCAMENTO)
LEFT JOIN RETORNA_LINHAS (2) L ON(1=1)
INNER JOIN EMPRESA E ON (O.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA P ON (O.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA N ON (N.CD_PESSOA = O.CD_PESSOA
  AND N.CD_ENDERECO = O.CD_ENDERECO)
INNER JOIN MUNICIPIO U ON (U.CD_MUNICIPIO = N.CD_MUNICIPIO)
LEFT JOIN PARMFATUR PF ON (PF.CD_EMPRESA = O.CD_EMPRESA)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO CD_EMPRESA 1 NR_ORCAMENTO 68
SELECT DISTINCT IT.DS_ITEM||' - '||IT.CD_ITEM DS_ITEM, P.NM_PESSOA NM_TECNICO, O.QT_SERVICO, O.PS_SERVICO, O.VL_UNITARIO, O.VL_TOTAL, IT.SG_UNIDMED, IT.SG_UNIDALT, (
SELECT V_TIPO
FROM HABILITA_PESOQTDE(IT.CD_ITEM)) TIPO
FROM SERVICOORCAMENTO O
INNER JOIN ITEM IT ON (O.CD_ITEM = IT.CD_ITEM)
LEFT JOIN PESSOA P ON (P.CD_PESSOA = O.CD_PESSOA)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO
  AND O.NR_MAQUINA = :NR_MAQUINA
ORDER BY IT.DS_ITEM CD_EMPRESA 1 NR_ORCAMENTO 68 NR_MAQUINA
SELECT P.NR_PEDIDO
FROM PEDIDO P
WHERE P.CD_EMPRORC = :CD_EMPRESA
  AND P.NR_ORCAMENTO = :NR_ORCAMENTO
  AND P.TP_PEDIDO = 'S'
  AND P.ST_PEDIDO <> 'C'

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
HABILITA_PESOQTDE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
MAQUINAORCAMENTO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
ORCAMENTO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_LINHAS	referenciada nas queries do layout
SERVICOORCAMENTO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOS004/ULOS004.pas
• DFM: source/LOS004/ULOS004.dfm
• Package: source/LOS004/LOS004.dpk