LLT003 — Layout LLT003

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 LAUDOTECNICOPNEURECAP, com junção em ORDEMPRODUCAORECAP, ITEMPEDIDOPNEU, SERVICOPNEU, PEDIDOPNEU, EMPRESA, PESSOA (+9), filtrada por ID, IDLAUDO.

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, 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, L.DS_IMAGEM DSIMAGEM, COALESCE(ML.DSRECOMENDACOES, CL.DSRECOMENDACOES) DSRECOMENDACOES,L.DS_IMAGEMEXTENSAO DSEXTENSAO, L.DS_OBSERVACAO, L.VL_SERVICO VL_REPOSICAO, CAST(:ST_IMPRIMEOBS AS DOM_CHAR1) ST_IMPRIMEOBS, CAST(:ST_IMPRIMEACERTO AS DOM_CHAR1) ST_IMPRIMEACERTO, COALESCE(NULLIF(O.TPGARANTIA, ''), O.QT_REFORMAS) QT_REFORMAS, L.DS_PROFREM, DES.DSDESENHO, COALESCE(L.NR_RECAPE, LP.NR_RECAPE) NR_RECAPE, COALESCE(L.QT_PROFUNDIDADE, LP.QT_PROFUNDIDADE) QT_PROFUNDIDADE, L.ID
FROM LAUDOTECNICOPNEURECAP L
LEFT JOIN ORDEMPRODUCAORECAP O ON (O.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEURECUSA
  AND O.STORDEM <> 'C')
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 = L.CD_DESENHO)
LEFT JOIN MOTIVOLAUDO ML ON (ML.IDLAUDOTECNICO = L.ID)
LEFT JOIN MOTIVOPNEU CL ON (CL.ID = ML.ID_MOTIVO)
LEFT JOIN FORMATA_VALOR(L.VL_SERVICO) FV ON (1 = 1)
LEFT JOIN LAUDOTECNICOPNEU LP ON (LP.ID_ORDEMPRODUCAORECAP = O.ID)
WHERE L.ID = :ID ST_IMPRIMEOBS ST_IMPRIMEACERTO IDEMPRESA ID
SELECT M.DS_IMAGEM, M.DS_IMAGEMEXTENSAO
FROM IMAGEMLAUDO M
WHERE M.IDLAUDO = :ID ID

tabIMAGEM

SELECT M.DS_IMAGEM, M.DS_IMAGEMEXTENSAO {#10}
FROM IMAGEMLAUDO M{#10}
WHERE M.IDLAUDO = {iParametros}

Text

SELECT M.DS_IMAGEM, M.DS_IMAGEMEXTENSAO {#10}
FROM IMAGEMLAUDO M{#10}
WHERE M.IDLAUDO = {iParametros[2]}

Tabelas Utilizadas

Tabela	Uso
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
FORMATA_VALOR	referenciada nas queries do layout
IMAGEMLAUDO	referenciada nas queries do layout
ITEMPEDIDOPNEU	referenciada nas queries do layout
LAUDOTECNICOPNEU	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/LLT003/ULLT003.pas
• DFM: source/LLT003/ULLT003.dfm
• Package: source/LLT003/LLT003.dpk