Pular para o conteúdo principal

LLT002 — Layout LLT002

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 ITEMPEDIDOPNEU, PEDIDOPNEU, ORDEMPRODUCAORECAP, SERVICOPNEU, EMPRESA, PESSOA (+10), filtrada por ID.

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(COALESCE(PN.NRSERIE, PNE.NRSERIE), L.NR_SERIE) NRSERIE, COALESCE(PN.NRFOGO,PNE.NRFOGO, L.NR_FOGO)NRFOGO, COALESCE(L.NR_DOT, PNE.NRDOT, 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((COALESCE(SUM(C.PC_CLASSIFICACAO),0)*COALESCE(COALESCE(N.VL_NOTAFISCAL,I.VLUNITARIO),0))/100 AS DOM_NUMERIC15_2) VL_REPOSICAO, CL.DSIMAGEM, CL.DSIMAGEM2,L.DS_OBSERVACAO, PP.IDPEDIDOMOVEL, CASE L.ST_AVULSO WHEN 'N' THEN COALESCE(P.ID,PP.ID) ELSE PPAVULSO.ID END IDPEDIDOPNEULAUDO, L.ID IDLAUDO
FROM LAUDOTECNICOPNEURECAP L
LEFT JOIN ITEMPEDIDOPNEU I ON (I.ID = L.IDITEMPEDIDOPNEUORIGEM)
LEFT JOIN PEDIDOPNEU PPAVULSO ON(PPAVULSO.ID = I.IDPEDIDOPNEU)
LEFT JOIN ORDEMPRODUCAORECAP O ON (O.IDITEMPEDIDOPNEU = L.IDITEMPEDIDOPNEUORIGEM
  AND O.STORDEM <> 'C')
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, PPAVULSO.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)
LEFT JOIN ITEMPEDIDOPNEU IPL ON (IPL.ID = L.IDITEMPEDIDOPNEUGARANTIA)
LEFT JOIN PNEU PNE ON (PNE.ID = IPL.IDPNEU)
LEFT JOIN ORDEMPRODUCAORECAP OPL ON (OPL.IDITEMPEDIDOPNEU = IPL.ID)
LEFT JOIN PEDIDOPNEU PP ON(PP.ID = IPL.IDPEDIDOPNEU)
LEFT JOIN CLASSIFICACAOLAUDO C ON(C.ID_LAUDOTECNICO = L.ID)
LEFT JOIN PLUGORDRECAPPEDIDO POP ON(POP.IDORDEMPRODUCAORECAP = O.ID)
LEFT JOIN RETORNA_CHAVENOTA(POP.CD_EMPRESA, POP.NR_PEDIDO, POP.TP_PEDIDO) RCN ON (1=1)
LEFT JOIN NOTA N ON(N.CD_EMPRESA = RCN.O_CD_EMPRESA
  AND N.NR_LANCAMENTO = RCN.O_NR_LANCAMENTO
  AND N.CD_SERIE = RCN.O_CD_SERIE
  AND N.TP_NOTA = RCN.O_TP_NOTA)
WHERE L.ID = :ID
GROUP BY E.NM_EMPRESA, L.DT_LAUDO, L.DT_REGISTRO, L.NR_LAUDO , L.NR_LAUDO, PC.NM_PESSOA, I.IDPNEU, MEDP.DSMEDIDAPNEU, MODP.DSMODELO, MARP.DSMARCA , COALESCE(COALESCE(PN.NRSERIE, PNE.NRSERIE), L.NR_SERIE), COALESCE(PN.NRFOGO,PNE.NRFOGO, L.NR_FOGO), L.NR_DOT, O.ID , CL.DSMOTIVO, COALESCE(ML.DSCAUSA,CL.DSCAUSA), COALESCE(ML.DSRECOMENDACOES, CL.DSRECOMENDACOES) ,CL.DSEXTENSAO, CL.DSEXTENSAO2, N.VL_NOTAFISCAL,I.VLUNITARIO, CL.DSIMAGEM, CL.DSIMAGEM2,L.DS_OBSERVACAO, PP.IDPEDIDOMOVEL, CASE L.ST_AVULSO WHEN 'N' THEN COALESCE(P.ID,PP.ID) ELSE PPAVULSO.ID END, PNE.NRDOT, PN.NRDOT, L.ID ST_IMPRIMEOBS ST_IMPRIMEACERTO IDEMPRESA ID
SELECT M.DS_IMAGEM, M.DS_IMAGEMEXTENSAO
FROM IMAGEMLAUDO M
WHERE M.IDLAUDO = :IDLAUDO IDLAUDO

Tabelas Utilizadas​

TabelaUso
CLASSIFICACAOLAUDOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
IMAGEMLAUDOreferenciada nas queries do layout
ITEMPEDIDOPNEUreferenciada nas queries do layout
LAUDOTECNICOPNEURECAPreferenciada nas queries do layout
MARCAPNEUreferenciada nas queries do layout
MEDIDAPNEUreferenciada nas queries do layout
MODELOPNEUreferenciada nas queries do layout
MOTIVOLAUDOreferenciada nas queries do layout
MOTIVOPNEUreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
ORDEMPRODUCAORECAPreferenciada nas queries do layout
PEDIDOPNEUreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PLUGORDRECAPPEDIDOreferenciada nas queries do layout
PNEUreferenciada nas queries do layout
RETORNA_CHAVENOTAreferenciada nas queries do layout
SERVICOPNEUreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LLT002/ULLT002.pas
  • DFM: source/LLT002/ULLT002.dfm
  • Package: source/LLT002/LLT002.dpk