LLT005 — Layout LLT005

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 ITEMPEDIDOPNEU, ORDEMPRODUCAORECAP, SERVICOPNEU, PEDIDOPNEU, EMPRESA, PESSOA (+6), filtrada por ID_LAUDOTECNICO, JO, ID, IDITEMPEDIDOPNEU, CD_EMPRESA, CD_PESSOA (+2).

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, L.NR_LAUDO ID, L.NR_LAUDO, PC.NM_PESSOA, I.IDPNEU,MEDP.DSMEDIDAPNEU, MODP.DSMODELO, MARP.DSMARCA , COALESCE(L.NR_SERIE, PN.NRSERIE) NRSERIE, COALESCE(PN.NRFOGO, L.NR_FOGO) NRFOGO, COALESCE(L.NR_DOT, PN.NRDOT) NRDOT, O.ID NR_ORDEMPRODUCAO, CL.DSMOTIVO, COALESCE(ML.DSCAUSA,CL.DSCAUSA) DSCAUSA, COALESCE(ML.DSRECOMENDACOES, CL.DSRECOMENDACOES) DSRECOMENDACOES,CL.DSEXTENSAO, CL.DSEXTENSAO2,CAST(:ST_IMPRIMEOBS AS DOM_CHAR1) ST_IMPRIMEOBS, CAST(:ST_IMPRIMEACERTO AS DOM_CHAR1) ST_IMPRIMEACERTO, CAST ((
SELECT (SUM(C.PC_CLASSIFICACAO) * (I.VLUNITARIO - COALESCE(I.VLDESCONTO,0)))/100
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.ID) AS DOM_NUMERIC15_2) VL_REPOSICAO,CL.DSIMAGEM, CL.DSIMAGEM2, L.DS_OBSERVACAO, L.ID ID_LAUDO
FROM LAUDOTECNICOPNEURECAP L
LEFT JOIN ITEMPEDIDOPNEU I ON (I.ID = L.IDITEMPEDIDOPNEUORIGEM)
LEFT JOIN ORDEMPRODUCAORECAP O ON (O.IDITEMPEDIDOPNEU = I.ID
  AND O.ID = :IDORDEMRECAP)
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 MOTIVOLAUDO ML ON (ML.IDLAUDOTECNICO = L.ID)
LEFT JOIN MOTIVOPNEU CL ON (CL.ID = ML.ID_MOTIVO)
WHERE L.ID =:ID ST_IMPRIMEOBS ST_IMPRIMEACERTO IDORDEMRECAP IDEMPRESA ID
SELECT M.DS_IMAGEM, M.DS_IMAGEMEXTENSAO
FROM IMAGEMLAUDO M
WHERE M.IDLAUDO = :ID_LAUDO ID_LAUDO

Tabelas Utilizadas

Tabela	Uso
CLASSIFICACAOLAUDO	referenciada nas queries do layout
EMPRESA	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
SERVICOPNEU	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LLT005/ULLT005.pas
• DFM: source/LLT005/ULLT005.dfm
• Package: source/LLT005/LLT005.dpk