Pular para o conteúdo principal

LOS005 — Layout LOS005

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, ITEMORCAMENTO, ITEM, GRUPO, MARCA, SUBGRUPO (+4), filtrada por CD_EMPRESA, NR_ORCAMENTO.

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 - 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, O.NR_ORCAMENTO, O.DT_ORCAMENTO, O.NR_DIASENTREGA, P.DS_EMAIL, T.NM_PESSOA||' - '||T.CD_PESSOA NM_TERCEIRO, O.DS_CONTATO, O.DT_ENTREGA, P.CD_PESSOA, COALESCE(P.NM_PESSOA,O.DS_PESSOA) NM_PESSOA, M.NR_MAQUINA, M.DS_MAQUINA, M.DS_ESPECIFICACAO, M.DT_INISERVICO, M.DT_FIMSERVICO, M.QT_MAQUINA, M.DS_OBSERVACAO, I1.DS_ITEM, I1.CD_ITEM, G.CD_GRUPO, G.DS_GRUPO, A.CD_MARCA, A.DS_MARCA, S.CD_SUBGRUPO, S.DS_SUBGRUPO, G.CD_GRUPO||COALESCE(S.CD_SUBGRUPO,0)||A.CD_MARCA CD_QUEBRA, M.QT_ALTURA, M.QT_LARGURA, I2.CD_ITEM CD_ITEMMP, I2.DS_ITEM DS_ITEMMP, I2.SG_UNIDMED, COALESCE(I.PS_ORCAMENTO,I.QT_ORCAMENTO) QT_ITEMMP
FROM ORCAMENTO O
INNER JOIN MAQUINAORCAMENTO M ON (M.CD_EMPRESA = O.CD_EMPRESA
  AND M.NR_ORCAMENTO = O.NR_ORCAMENTO)
INNER JOIN ITEMORCAMENTO I ON(I.CD_EMPRESA = M.CD_EMPRESA
  AND I.NR_ORCAMENTO = M.NR_ORCAMENTO
  AND I.NR_MAQUINA = M.NR_MAQUINA)
LEFT JOIN ITEM I1 ON (M.CD_ITEM = I1.CD_ITEM)
LEFT JOIN ITEM I2 ON (I.CD_ITEM = I2.CD_ITEM)
LEFT JOIN GRUPO G ON (G.CD_GRUPO = I1.CD_GRUPO)
LEFT JOIN MARCA A ON (A.CD_MARCA = I1.CD_MARCA)
LEFT JOIN SUBGRUPO S ON (S.CD_SUBGRUPO = I1.CD_SUBGRUPO)
INNER JOIN EMPRESA E ON (O.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN PESSOA P ON (O.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA N ON (N.CD_PESSOA = O.CD_PESSOA
  AND N.CD_ENDERECO = O.CD_ENDERECO)
LEFT JOIN MUNICIPIO U ON (U.CD_MUNICIPIO = N.CD_MUNICIPIO)
LEFT JOIN PESSOA T ON (O.CD_TERCEIRO = T.CD_PESSOA)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO CD_EMPRESA 1 NR_ORCAMENTO 68

Tabelas Utilizadas​

TabelaUso
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
GRUPOreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMORCAMENTOreferenciada nas queries do layout
MAQUINAORCAMENTOreferenciada nas queries do layout
MARCAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
ORCAMENTOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
SUBGRUPOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOS005/ULOS005.pas
  • DFM: source/LOS005/ULOS005.dfm
  • Package: source/LOS005/LOS005.dpk