LLT001 — Layout LLT001

Visão Geral

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

Descrição

Consulta baseada em CLASSIFICACAOLAUDO, com junção em USUARIO, PESSOA, ITEMPEDIDOPNEU, PEDIDOPNEU, ORDEMPRODUCAORECAP, EMPRESA (+10), filtrada por ID_LAUDOTECNICO, IDLAUDO, JO, CD_USUARIO, CD_PESSOA, ID (+4).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - id laudo
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
  // 5 - Nr Ordem Produção
]);

SQL Base

tabDB

SELECT DISTINCT L.NR_LAUDO, OPRO.ID ID_ORIGEM, OPRO.DTENTRADA DT_ENTRADAORIGEM, COALESCE(OPR.ID, OPRO.ID) ID_ORDEMPRODUCAORECAP,{#10} I.DS_ITEM DS_CARCACA, /*L.DS_PRODUTO, L.DS_REFORMA, L.DS_EQUIPAMENTO, */{#10} CAST(NULL AS DOM_CHAR1) ST_REPOSICAO, L.DS_OBSERVACAO,{#10} CAST((
SELECT (SUM(C.PC_CLASSIFICACAO) * L.VL_SERVICO)/100{#10}
FROM CLASSIFICACAOLAUDO C{#10}
WHERE C.ID_LAUDOTECNICO = L.ID) AS DOM_NUMERIC15_2) VL_REPOSICAO,{#10} (
SELECT SUM(C.PC_CLASSIFICACAO){#10}
FROM CLASSIFICACAOLAUDO C{#10}
WHERE C.ID_LAUDOTECNICO = L.ID) PC_REPOSICAO,{#10} L.ST_LAUDO, L.DT_LAUDO,{#10} /*L.DS_REPOSICAO,*/ L.CD_USUARIO, COALESCE(PU.NM_PESSOA,{#10} U.NM_USUARIO) NM_USUARIO, L.NR_LANCTOCONTAS, L.NR_RECAPE,{#10} L.QT_PROFUNDIDADE, PF.DS_LOGOTIPO, PE.NM_PESSOA NM_EMPRESA,{#10} RD.DS_ENDCOMPLETO, COALESCE(P.NM_PESSOA,PLD.NM_PESSOA) NM_PESSOA, RDP.DS_MUNICIPIO, RDP.SG_ESTADO,{#10} PV.NM_PESSOA NM_VENDEDOR,MEDP.DSMEDIDAPNEU, COALESCE(MARP.DSMARCA, MARR.DSMARCA) DSMARCA, MODP.DSMODELO,{#10} DP.DSDESENHO, COALESCE(OPR.DTENTRADA, OPRO.DTENTRADA) DTENTRADA, COALESCE(PN.NRSERIE,L.NR_SERIE) NRSERIE, L.ID,{#10} (
SELECT FIRST 1 IL.DS_IMAGEM{#10}
FROM IMAGEMLAUDO IL{#10}
WHERE IL.IDLAUDO = L.ID) DS_IMAGEM,{#10} (
SELECT FIRST 1 SKIP 1 IL.DS_IMAGEM{#10}
FROM IMAGEMLAUDO IL{#10}
WHERE IL.IDLAUDO = L.ID) DS_IMAGEM2,{#10} COALESCE(PN.NRDOT, L.NR_DOT) NR_DOT, COALESCE(PN.NRFOGO, L.NR_FOGO) NR_FOGO,{#10} CASE L.ST_ANALISELAUDO WHEN 'S' THEN 'Procedente' ELSE 'Não Procedente' END ST_ANALISELAUDO, IPL.IDPEDIDOPNEU, PPG.IDPEDIDOMOVEL{#10}
FROM LAUDOTECNICOPNEURECAP L{#10}
INNER JOIN USUARIO U ON (U.CD_USUARIO = L.CD_USUARIO){#10}
LEFT JOIN PESSOA PU ON (PU.CD_PESSOA = U.CD_PESSOA){#10}
LEFT JOIN PESSOA PLD ON (PLD.CD_PESSOA = L.CD_PESSOA){#10}
LEFT JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = L.IDITEMPEDIDOPNEUORIGEM){#10}
LEFT JOIN ITEMPEDIDOPNEU IPL ON (IPL.ID = COALESCE(L.IDITEMPEDIDOPNEUGARANTIA,L.IDITEMPEDIDOPNEUORIGEM)){#10}
LEFT JOIN PEDIDOPNEU PPG ON (PPG.ID = IPL.IDPEDIDOPNEU){#10}
LEFT JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU){#10}/*ORDEM DE PRODUÇÃO LANÇADA NA MRC030*/{#10}
LEFT JOIN ORDEMPRODUCAORECAP OPR ON (OPR.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEUGARANTIA{#10}
  AND OPR.STORDEM <> 'C'){#10}
LEFT JOIN ORDEMPRODUCAORECAP OPRO ON (OPRO.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEUORIGEM{#10}
  AND OPRO.STORDEM <> 'C'){#10}
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = COALESCE(PP.IDEMPRESA, {Nulo(iParametros[1],}I{)})){#10}
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA){#10}
LEFT JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA, NULL) RD ON (1=1){#10}
LEFT JOIN PESSOA P ON (P.CD_PESSOA = PP.IDPESSOA){#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(COALESCE(P.CD_PESSOA,L.CD_PESSOA), NULL) RDP ON (1=1){#10}
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = COALESCE(PP.IDVENDEDOR,L.CD_VENDEDOR)){#10}
LEFT JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU){#10}
LEFT JOIN ITEM I ON(I.CD_ITEM = IPP.IDCARCACAPEDIDO){#10}
LEFT JOIN PNEU PN ON (PN.ID = IPP.IDPNEU){#10}
LEFT JOIN MODELOPNEU MODP ON (MODP.ID = COALESCE(PN.IDMODELOPNEU,L.CD_MODELO)){#10}
LEFT JOIN MARCAPNEU MARP ON (MARP.ID = L.CD_MARCA){#10}
LEFT JOIN MARCAPNEU MARR ON (MARR.ID = MODP.IDMARCAPNEU){#10}
LEFT JOIN MEDIDAPNEU MEDP ON (MEDP.ID = COALESCE(L.CD_MEDIDA,SP.IDMEDIDAPNEU)){#10}
LEFT JOIN TROCADESENHOPNEU TDP ON (TDP.ID = OPR.ID){#10}
LEFT JOIN DESENHOPNEU DP ON (DP.ID = COALESCE(TDP.IDDESENHOPNEU, COALESCE(IPP.IDDESENHOPNEU,L.CD_DESENHO))){#10}
WHERE L.ID = {Nulo(iParametros[2],}I{)}

tabDBSUB1

SELECT C.NR_LAUDO,C.ID_ORDEMPRODUCAORECAP, C.PC_CLASSIFICACAO, {#10} C.DT_REGISTRO, C.CD_CLASSIFICACAO , CG.DS_CLASSIFICACAO, {#10} CG.CD_MOVIMENTACAO {#10}
FROM CLASSIFICACAOLAUDO C {#10}
INNER JOIN CLASSIFICACAOGARANTIA CG ON (CG.CD_CLASSIFICACAO = C.CD_CLASSIFICACAO) {#10}
WHERE C.ID_LAUDOTECNICO = :ID

tabDBSUB2

SELECT C.DSMOTIVO, CASE C.TPCAUSALAUDO WHEN 'O' THEN 'Outros' WHEN 'C' THEN 'Carcaça' {#10}WHEN 'P' THEN 'Produto' WHEN 'R' THEN 'Reforma' ELSE 'Má Utilização/Equipamento' END DS_TIPOMOTIVO, {#10}COALESCE(l.DSCAUSA, C.DSCAUSA) DSCAUSA, COALESCE(L.DSRECOMENDACOES, C.DSRECOMENDACOES) DSRECOMENDACOES {#10}
FROM MOTIVOLAUDO L {#10}
LEFT JOIN MOTIVOPNEU C ON (C.ID = L.ID_MOTIVO) {#10}
WHERE L.IDLAUDOTECNICO = :ID

Tabelas Utilizadas

Tabela	Uso
CLASSIFICACAOGARANTIA	referenciada nas queries do layout
CLASSIFICACAOLAUDO	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
IMAGEMLAUDO	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMPEDIDOPNEU	referenciada nas queries do layout
LAUDOTECNICOPNEURECAP	referenciada nas queries do layout
MARCAPNEU	referenciada nas queries do layout
MEDIDAPNEU	referenciada nas queries do layout
MODELOPNEU	referenciada nas queries do layout
MOTIVOLAUDO	referenciada nas queries do layout
MOTIVOPNEU	referenciada nas queries do layout
ORDEMPRODUCAORECAP	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PEDIDOPNEU	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout
TROCADESENHOPNEU	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LLT001/ULLT001.pas
• DFM: source/LLT001/ULLT001.dfm
• Package: source/LLT001/LLT001.dpk