LMA002 — Layout LMA002

Visão Geral

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

Descrição

Consulta baseada em SACP, com junção em TIPOORIGEM, USUARIO, EMPRESA, filtrada por CD_EMPRESA, NR_SACP.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr RNC
  // 3 - Path Servidor
]);

SQL Base

tabSACP

SELECT S.CD_EMPRESA, E.NM_EMPRESA, S.NR_SACP, S.NR_RNC, S.CD_TIPOORIGEM, T.DS_TIPOORIGEM, S.DS_SETOR, S.DS_NAOCONFORMIDADE, S.DS_ACAOIMEDIATA, S.DS_ACAOCORRETIVA, S.DT_ABERTURA, S.DT_REGISTRO, S.DT_ANALISECAUSA, S.DT_ANALISEQUALIDADE, S.CD_USUARIOABERTURA||' - '||UA.NM_USUARIO CD_USUARIOABERTURA, S.CD_USUARIORESPONSAVEL||' - '||UR.NM_USUARIO CD_USUARIORESPONSAVEL, S.CD_USUARIOQUALIDADE||' - '||UQ.NM_USUARIO CD_USUARIOQUALIDADE, S.CD_USUARIOCAUSA||' - '||UC.NM_USUARIO CD_USUARIOCAUSA, S.DS_OBSANALISE, S.DS_APRECIACAO, CASE S.ST_SACP WHEN 'R' THEN 'Registro da SACP' WHEN 'A' THEN 'Em Andamento' WHEN 'E' THEN 'Execução de SACP' WHEN 'Q' THEN 'Análise de Qualidade' WHEN 'F' THEN 'Finalizada' END ST_SACP, CASE S.ST_EFICAZ WHEN 'P' THEN '[ ]Eficaz [ ] Não Eficaz' WHEN 'S' THEN '[x]Eficaz [ ] Não Eficaz' WHEN 'N' THEN '[ ]Eficaz [x] Não Eficaz' END ST_EFICAZ, CASE S.TP_SACP WHEN 'C' THEN '[x]Corretiva [ ]Preventiva' WHEN 'P' THEN '[ ]Corretiva [x]Preventiva' END TP_SACP
FROM SACP S
INNER JOIN TIPOORIGEM T ON (T.CD_TIPOORIGEM = S.CD_TIPOORIGEM)
INNER JOIN USUARIO UA ON (UA.CD_USUARIO = S.CD_USUARIOABERTURA)
LEFT JOIN USUARIO UC ON (UC.CD_USUARIO = S.CD_USUARIOCAUSA)
LEFT JOIN USUARIO UR ON (UR.CD_USUARIO = S.CD_USUARIORESPONSAVEL)
LEFT JOIN USUARIO UQ ON (UQ.CD_USUARIO = S.CD_USUARIOQUALIDADE)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = S.CD_EMPRESA)
WHERE S.CD_EMPRESA = :CD_EMPRESA
  AND S.NR_SACP = :NR_SACP CD_EMPRESA NR_SACP
SELECT S.NR_CAUSA, S.DS_CAUSA
FROM SACPCAUSA S
WHERE S.CD_EMPRESA = :CD_EMPRESA
  AND S.NR_SACP = :NR_SACP CD_EMPRESA NR_SACP
SELECT NR_ACAO, DS_ACAO, DS_RESPONSAVEL, DS_ONDE, DS_QUANDO, DS_COMO, CASE ST_ACAO WHEN 'P' THEN 'Pendente' WHEN 'E' THEN 'Executada' WHEN 'N' THEN 'Não Executada' END STS_ACAO, CASE SA.ST_IMPLEMENTADA WHEN 'P' THEN 'Pendente' WHEN 'I' THEN 'Implementada' WHEN 'N' THEN 'Não Implementada' END ST_IMPLEMENTADA
FROM SACPACAO SA
WHERE SA.CD_EMPRESA = :CD_EMPRESA
  AND SA.NR_SACP = :NR_SACP CD_EMPRESA NR_SACP

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
SACP	referenciada nas queries do layout
SACPACAO	referenciada nas queries do layout
SACPCAUSA	referenciada nas queries do layout
TIPOORIGEM	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LMA002/ULMA002.pas
• DFM: source/LMA002/ULMA002.dfm
• Package: source/LMA002/LMA002.dpk