LLT008 — Layout LLT008

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 ORDEMPRODUCAORECAP, EXAMEINICIAL, PREPARACAOBANDAPNEU, ITEMPEDIDOPNEU, SERVICOPNEU, PEDIDOPNEU (+10), filtrada por ID_LAUDOTECNICO, ST_AVULSO, JO, IDITEMPEDIDOPNEU, DIST, EXAME (+6).

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
  // 6 - Imprime a observação
  // 7 - Imprime o acerto comercial
]);

SQL Base

tabPedidoPneu

SELECT E.NM_EMPRESA, L.DT_LAUDO, L.DT_REGISTRO, I.IDPEDIDOPNEU, P.IDPEDIDOMOVEL, PC.NM_PESSOA, I.IDPNEU,MEDP.DSMEDIDAPNEU, MODP.DSMODELO, MARP.DSMARCA , COALESCE(L.NR_SERIE, PN.NRSERIE) NRSERIE, COALESCE(L.NR_FOGO, PN.NRFOGO) NRFOGO, COALESCE(L.NR_DOT, PN.NRDOT) NRDOT, O.ID NR_ORDEMPRODUCAO, CL.DSMOTIVO, COALESCE(ML.DSCAUSA, CL.DSCAUSA) DSCAUSA, L.DS_IMAGEM DSIMAGEM, COALESCE(ML.DSRECOMENDACOES, CL.DSRECOMENDACOES) DSRECOMENDACOES,L.DS_IMAGEMEXTENSAO DSEXTENSAO, L.DS_OBSERVACAO, (
SELECT (SUM(C.PC_CLASSIFICACAO) * (IPP.VLUNITARIO - COALESCE(IPP.VLDESCONTO,0)))/100
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.NR_LAUDO)VL_REPOSICAO, CAST(:ST_IMPRIMEOBS AS DOM_CHAR1) ST_IMPRIMEOBS, CAST(:ST_IMPRIMEACERTO AS DOM_CHAR1) ST_IMPRIMEACERTO, CASE WHEN L.ST_AVULSO = 'S' THEN L.NR_RECAPE WHEN L.IDITEMPEDIDOPNEURECUSA IS NOT NULL THEN OPRR.QT_REFORMAS WHEN L.IDITEMPEDIDOPNEUGARANTIA IS NOT NULL THEN O.QT_REFORMAS ELSE L.NR_RECAPE END QT_REFORMAS, COALESCE(L.QT_PROFUNDIDADE, PBPR.NRPROFUNDIDADESUGO, EI.NRPROFUNDIDADESULCO) DS_PROFREM, DES.DSDESENHO, L.ID IDLAUDO, L.NR_LAUDO, OPRG.ID, CL.DSIMAGEM DSIMAGEM1, CL.DSIMAGEM2, IIF(TRIM(CL.DSIMAGEM) = '', 'N', 'S') STIMAGEM1, IIF(TRIM(CL.DSIMAGEM2) = '', 'N', 'S') STIMAGEM2
FROM LAUDOTECNICOPNEURECAP L
LEFT JOIN ORDEMPRODUCAORECAP O ON (O.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEUORIGEM
  AND O.STORDEM IS DISTINCT
FROM 'C')
LEFT JOIN EXAMEINICIAL EI ON (EI.IDORDEMPRODUCAORECAP = O.ID)
LEFT JOIN PREPARACAOBANDAPNEU PBPO ON(PBPO.IDORDEMPRODUCAORECAP = O.ID)
LEFT JOIN ORDEMPRODUCAORECAP OPRG ON (OPRG.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEUGARANTIA
  AND OPRG.STORDEM IS DISTINCT
FROM 'C')
LEFT JOIN PREPARACAOBANDAPNEU PBPG ON(PBPG.IDORDEMPRODUCAORECAP = OPRG.ID)
LEFT JOIN ORDEMPRODUCAORECAP OPRR ON (OPRR.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEURECUSA
  AND OPRR.STORDEM IS DISTINCT
FROM 'C')
LEFT JOIN PREPARACAOBANDAPNEU PBPR ON(PBPR.IDORDEMPRODUCAORECAP = OPRR.ID)
LEFT JOIN ITEMPEDIDOPNEU IPP ON(IPP.ID = L.IDITEMPEDIDOPNEUORIGEM)
LEFT JOIN ITEMPEDIDOPNEU I ON (I.ID = O.IDITEMPEDIDOPNEU)
LEFT JOIN SERVICOPNEU SP ON (SP.ID = I.IDSERVICOPNEU)
LEFT JOIN PEDIDOPNEU P ON ( P.ID = I.IDPEDIDOPNEU)
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = :IDEMPRESA)
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN PESSOA PC ON (PC.CD_PESSOA = COALESCE(L.CD_PESSOA, P.IDPESSOA))
LEFT JOIN PNEU PN ON (PN.ID = I.IDPNEU)
LEFT JOIN MODELOPNEU MODP ON (MODP.ID = COALESCE(L.CD_MODELO, PN.IDMODELOPNEU))
LEFT JOIN MARCAPNEU MARP ON (MARP.ID = COALESCE(L.CD_MARCA, MODP.IDMARCAPNEU))
LEFT JOIN MEDIDAPNEU MEDP ON (MEDP.ID = COALESCE(L.CD_MEDIDA, SP.IDMEDIDAPNEU))
LEFT JOIN DESENHOPNEU DES ON (DES.ID = COALESCE(L.CD_DESENHO, I.IDDESENHOPNEU))
LEFT JOIN MOTIVOLAUDO ML ON (ML.IDLAUDOTECNICO = L.ID)
LEFT JOIN MOTIVOPNEU CL ON (CL.ID = ML.ID_MOTIVO)
LEFT JOIN FORMATA_VALOR((
SELECT (SUM(C.PC_CLASSIFICACAO) * (IPP.VLUNITARIO - COALESCE(IPP.VLDESCONTO,0)))/100
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.ID)) FV ON (1 = 1)
WHERE L.ID = :ID ST_IMPRIMEOBS ST_IMPRIMEACERTO IDEMPRESA ID
SELECT M.DS_IMAGEM, M.DS_IMAGEMEXTENSAO
FROM IMAGEMLAUDO M
WHERE M.IDLAUDO = :IDLAUDO IDLAUDO

Tabelas Utilizadas

Tabela	Uso
CLASSIFICACAOLAUDO	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
EXAMEINICIAL	referenciada nas queries do layout
FORMATA_VALOR	referenciada nas queries do layout
IMAGEMLAUDO	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
PEDIDOPNEU	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
PREPARACAOBANDAPNEU	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LLT008/ULLT008.pas
• DFM: source/LLT008/ULLT008.dfm
• Package: source/LLT008/LLT008.dpk