LMA001 — Layout LMA001

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, PESSOA, RNCCRITERIO, RNC, filtrada por CD_EMPRESA, NR_RNC, JO, CD_TIPOORIGEM, CD_USUARIO, CD_PESSOA (+1).

Chamada

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

SQL Base

tabRNC

SELECT R.NR_RNC, R.DS_NAOCONFORMIDADE, R.DS_ACAOIMEDIATA, R.DS_SETOR, R.CD_USUARIOABERTURA||' - '||P.NM_PESSOA CD_USUARIOABERTURA, R.CD_USUARIOANALISE||' - '||PA.NM_PESSOA CD_USUARIOANALISE, R.CD_TIPOORIGEM, T.DS_TIPOORIGEM, R.ST_RNC, R.TP_RNC, CASE WHEN (
SELECT S.NR_SACP
FROM SACP S
WHERE S.CD_EMPRESA = R.CD_EMPRESA
  AND S.NR_RNC = R.NR_RNC) IS NOT NULL THEN '( X ) Sim ( ) Não SACP N° '||(
SELECT S.NR_SACP
FROM SACP S
WHERE S.CD_EMPRESA = R.CD_EMPRESA
  AND S.NR_RNC = R.NR_RNC) ELSE '( ) Sim ( X ) Não' END NR_SACP
FROM RNC R
INNER JOIN TIPOORIGEM T ON (T.CD_TIPOORIGEM = R.CD_TIPOORIGEM)
LEFT JOIN USUARIO U ON (U.CD_USUARIO = R.CD_USUARIOABERTURA)
LEFT JOIN PESSOA P ON (P.CD_PESSOA = U.CD_PESSOA)
LEFT JOIN USUARIO UA ON (UA.CD_USUARIO = R.CD_USUARIOANALISE)
LEFT JOIN PESSOA PA ON (PA.CD_PESSOA = UA.CD_PESSOA)
WHERE R.CD_EMPRESA = :CD_EMPRESA
  AND R.NR_RNC = :NR_RNC CD_EMPRESA NR_RNC
SELECT CASE WHEN RC.CD_CRITERIO IS NOT NULL THEN '( X )'||C.DS_CRITERIO ELSE '( )'||C.DS_CRITERIO END DS_CRITERIO, COALESCE(RC.PS_CRITERIO, C.PS_CRITERIO)PS_CRITERIO, CASE WHEN RC.CD_CRITERIO IS NOT NULL THEN 'Sim' ELSE 'Não' END ST_MARCADO, CASE WHEN RC.CD_CRITERIO IS NOT NULL THEN RC.PS_CRITERIO ELSE NULL END PS_MARCADO
FROM CRITERIOPONTUACAO C
LEFT JOIN RNCCRITERIO RC ON (RC.CD_EMPRESA = :CD_EMPRESA
  AND RC.NR_RNC = :NR_RNC
  AND RC.CD_CRITERIO = C.CD_CRITERIO) CD_EMPRESA NR_RNC
SELECT CASE WHEN R.CD_TIPOORIGEM IS NOT NULL THEN '( X ) '||T.DS_TIPOORIGEM||ASCII_CHAR(13)|| CASE R.TP_RNC WHEN 'P' THEN ' (x) Procedente'|| ASCII_CHAR(13)||' ( ) Não Procedente' ELSE ' ( ) Procedente'|| ASCII_CHAR(13)||' (x) Não Procedente' END ELSE '( ) '||T.DS_TIPOORIGEM END DS_TIPOORIGEM
FROM TIPOORIGEM T
LEFT JOIN RNC R ON (R.CD_EMPRESA = :CD_EMPRESA
  AND R.NR_RNC = :NR_RNC
  AND R.CD_TIPOORIGEM = T.CD_TIPOORIGEM) CD_EMPRESA NR_RNC

Tabelas Utilizadas

Tabela	Uso
CRITERIOPONTUACAO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RNC	referenciada nas queries do layout
RNCCRITERIO	referenciada nas queries do layout
SACP	referenciada nas queries do layout
TIPOORIGEM	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LMA001/ULMA001.pas
• DFM: source/LMA001/ULMA001.dfm
• Package: source/LMA001/LMA001.dpk