LLT007 — Layout LLT007

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 (+12), filtrada por ID_LAUDOTECNICO, IDLAUDO, L, JO, CD_USUARIO, CD_PESSOA (+7).

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

tabLaudo

SELECT DISTINCT L.NR_LAUDO, OPR.ID ID_ORDEMPRODUCAORECAP, I.DS_ITEM DS_CARCACA, /*L.DS_PRODUTO, L.DS_REFORMA, L.DS_EQUIPAMENTO, */ CAST(NULL AS DOM_CHAR1) ST_REPOSICAO, L.DS_OBSERVACAO, (
SELECT (SUM(C.PC_CLASSIFICACAO) * L.VL_SERVICO)/100
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.ID) VL_REPOSICAO, (
SELECT SUM(C.PC_CLASSIFICACAO)
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.ID) PC_REPOSICAO, L.ST_LAUDO, L.DT_LAUDO, /*L.DS_REPOSICAO,*/ L.CD_USUARIO, COALESCE(PU.NM_PESSOA, U.NM_USUARIO) NM_USUARIO, L.NR_LANCTOCONTAS, L.NR_RECAPE, L.QT_PROFUNDIDADE, PF.DS_LOGOTIPO, PE.NM_PESSOA NM_EMPRESA, RD.DS_ENDCOMPLETO, COALESCE(P.NM_PESSOA,PLD.NM_PESSOA) NM_PESSOA, RDP.DS_MUNICIPIO, RDP.SG_ESTADO, PV.NM_PESSOA NM_VENDEDOR,MEDP.DSMEDIDAPNEU,MARP.DSMARCA, MODP.DSMODELO, DP.DSDESENHO, OPR.DTENTRADA ,COALESCE(PN.NRSERIE,L.NR_SERIE) NRSERIE, L.ID, (
SELECT FIRST 1 IL.DS_IMAGEM
FROM IMAGEMLAUDO IL
WHERE IL.IDLAUDO = L.ID) DS_IMAGEM, (
SELECT FIRST 1 SKIP 1 IL.DS_IMAGEM
FROM IMAGEMLAUDO IL
WHERE IL.IDLAUDO = L.ID) DS_IMAGEM2, OP.ID ID_ORDEMPRODUCAO, OP.DTENTRADA DT_ORDEMPRODUCAO
FROM LAUDOTECNICOPNEURECAP L
INNER JOIN USUARIO U ON (U.CD_USUARIO = L.CD_USUARIO)
LEFT JOIN PESSOA PU ON (PU.CD_PESSOA = U.CD_PESSOA)
LEFT JOIN PESSOA PLD ON (PLD.CD_PESSOA = L.CD_PESSOA)
LEFT JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = L.IDITEMPEDIDOPNEUORIGEM)
LEFT JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU) /*ORDEM DE PRODUÇÃO LANÇADA NA MRC030*/
LEFT JOIN ORDEMPRODUCAORECAP OPR ON (OPR.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEUGARANTIA
  AND OPR.STORDEM <> 'C')
LEFT JOIN EMPRESA E ON (E.CD_EMPRESA = COALESCE(PP.IDEMPRESA, :CD_EMPRESA))
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(PE.CD_PESSOA, NULL) RD ON (1=1)
LEFT JOIN PESSOA P ON (P.CD_PESSOA = PP.IDPESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(COALESCE(P.CD_PESSOA,L.CD_PESSOA), NULL) RDP ON (1=1)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = COALESCE(PP.IDVENDEDOR,L.CD_VENDEDOR))
LEFT JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU)
LEFT JOIN ITEM I ON(I.CD_ITEM = IPP.IDCARCACAPEDIDO)
LEFT JOIN PNEU PN ON (PN.ID = IPP.IDPNEU)
LEFT JOIN MODELOPNEU MODP ON (MODP.ID = COALESCE(PN.IDMODELOPNEU,L.CD_MODELO))
LEFT JOIN MARCAPNEU MARP ON (MARP.ID = MODP.IDMARCAPNEU)
LEFT JOIN MEDIDAPNEU MEDP ON (MEDP.ID = COALESCE(L.CD_MEDIDA,SP.IDMEDIDAPNEU))
LEFT JOIN TROCADESENHOPNEU TDP ON (TDP.ID = OPR.ID)
LEFT JOIN DESENHOPNEU DP ON (DP.ID = COALESCE(TDP.IDDESENHOPNEU, COALESCE(IPP.IDDESENHOPNEU,L.CD_DESENHO)))
LEFT JOIN ORDEMPRODUCAORECAP OP ON (OP.IDITEMPEDIDOPNEU = IPP.ID)
WHERE L.ID = :ID CD_EMPRESA ID
SELECT C.NR_LAUDO,C.ID_ORDEMPRODUCAORECAP, C.PC_CLASSIFICACAO, C.DT_REGISTRO, C.CD_CLASSIFICACAO , CG.DS_CLASSIFICACAO, CG.CD_MOVIMENTACAO
FROM CLASSIFICACAOLAUDO C
INNER JOIN CLASSIFICACAOGARANTIA CG ON (CG.CD_CLASSIFICACAO = C.CD_CLASSIFICACAO)
WHERE C.ID_LAUDOTECNICO = :ID ID
SELECT C.DSMOTIVO, CASE C.TPCAUSALAUDO WHEN 'O' THEN 'Outros' WHEN 'C' THEN 'Carcaça' WHEN 'P' THEN 'Produto' WHEN 'R' THEN 'Reforma' ELSE 'Má Utilização/Equipamento' END DS_TIPOMOTIVO, COALESCE(l.DSCAUSA, C.DSCAUSA) DSCAUSA, COALESCE(L.DSRECOMENDACOES, C.DSRECOMENDACOES) DSRECOMENDACOES
FROM MOTIVOLAUDO L
LEFT JOIN MOTIVOPNEU C ON (C.ID = L.ID_MOTIVO)
WHERE L.IDLAUDOTECNICO = :ID 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/LLT007/ULLT007.pas
• DFM: source/LLT007/ULLT007.dfm
• Package: source/LLT007/LLT007.dpk