LOP025 — Layout LOP025

Visão Geral

Layout de impressão da família LOP (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 EMPRESA, RETORNA_DADOSCADASTRAIS, MAQUINAORCAMENTO, PESSOA, ORDEMPRODUCAO, ITEMORCAMENTO (+1), filtrada por CD_EMPRESA, NR_ORDEMPRODUCAO, ST_CONTROLEPROD.

Chamada

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

SQL Base

tabPRODUCAO

SELECT E.NM_EMPRESA, RDCE.NM_FANTASIA, RDCE.NR_CNPJCPF, RDCE.NR_INSCEST, RDCE.DS_ENDERECO||', '||RDCE.NR_ENDERECO||'/'||RDCE.DS_MUNICIPIO||' - '||RDCE.SG_ESTADO DS_ENDERECO, RDCE.NR_CEP, RDCE.NR_TELEFONE,O.NR_ORCAMENTO, O.DT_ORCAMENTO, PR.NM_PESSOA NM_PESSOAPRESTADOR, RDCP.NM_FANTASIA NM_FANTASIAPRESTADOR, RDCP.NR_CNPJCPF NR_CNPJCPFPRESTADOR, RDCP.NR_INSCEST NR_INSCESTPRESTADOR, RDCP.DS_ENDERECO||', '||RDCP.NR_ENDERECO||'/'||RDCP.DS_MUNICIPIO||' - '||RDCP.SG_ESTADO DS_ENDERECOPRESTADOR, RDCP.NR_CEP NR_CEPPRESTADOR, RDCP.NR_TELEFONE NR_TELEFONEPRESTADOR, OP.NR_ORDEMPRODUCAO, OP.DT_INICIOPRODUCAO, I.DS_ITEM DS_ITEMMATERIAPRIMA, IO.DS_ESPECIFICACAO DS_ESPECIFICACAOMP, COALESCE(IO.PS_ORCAMENTO, IO.QT_ORCAMENTO) QT_ORCAMENTOMP, CASE WHEN IO.PS_ORCAMENTO IS NULL THEN 'Qtd' ELSE 'Peso' END TP_QTD, M.DS_MAQUINA, M.DS_ESPECIFICACAO DS_ESPECIFICACAOPA, M.QT_MAQUINA
FROM ORCAMENTO O
INNER JOIN EMPRESA E ON(E.CD_EMPRESA = O.CD_EMPRESA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDCE ON (1=1)
INNER JOIN MAQUINAORCAMENTO M ON(M.CD_EMPRESA = O.CD_EMPRESA
  AND M.NR_ORCAMENTO = O.NR_ORCAMENTO)
LEFT JOIN PESSOA PR ON(PR.CD_PESSOA = M.CD_PRESTADORSERVICO)
LEFT JOIN RETORNA_DADOSCADASTRAIS(PR.CD_PESSOA, NULL)RDCP ON(1=1)
INNER JOIN ORDEMPRODUCAO OP ON(OP.CD_EMPRESA = O.CD_EMPRESA
  AND OP.NR_LOTEPRODUCAO = O.NR_ORCAMENTO)
LEFT JOIN ITEMORCAMENTO IO ON(IO.CD_EMPRESA = M.CD_EMPRESA
  AND IO.NR_ORCAMENTO = M.NR_ORCAMENTO
  AND IO.NR_MAQUINA = M.NR_MAQUINA)
LEFT JOIN ITEM I ON(I.CD_ITEM = IO.CD_ITEM)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND OP.NR_ORDEMPRODUCAO = :NR_ORDEM
  AND M.ST_CONTROLEPROD = 'S'
ORDER BY E.NM_EMPRESA, O.NR_ORCAMENTO, OP.NR_ORDEMPRODUCAO, PR.CD_PESSOA, M.DS_MAQUINA CD_EMPRESA NR_ORDEM

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMORCAMENTO	referenciada nas queries do layout
MAQUINAORCAMENTO	referenciada nas queries do layout
ORCAMENTO	referenciada nas queries do layout
ORDEMPRODUCAO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOP025/ULOP025.pas
• DFM: source/LOP025/ULOP025.dfm
• Package: source/LOP025/LOP025.dpk