LRR001 — Layout LRR001

Visão Geral

Layout de impressão da família LRR (Romaneio). 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, DESENHOPNEU, SERVICOPNEU, PEDIDOPNEU, EMPRESA (+13), filtrada por ID_LAUDOTECNICO, JO, ID, IDITEMPEDIDOPNEU, CD_EMPRESA, 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
]);

SQL Base

tabPedidoPneu

SELECT DISTINCT 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, PN.NRFOGO, PN.NRDOT, O.ID NR_ORDEMPRODUCAO, CL.DSMOTIVO, CL.DSCAUSA, CL.DSIMAGEM, CL.DSRECOMENDACOES,CL.DSEXTENSAO, CL.DSIMAGEM2 ,CL.DSEXTENSAO2, CAST(:ST_IMPRIMEOBS AS DOM_CHAR1) ST_IMPRIMEOBS, CAST(:ST_IMPRIMEACERTO AS DOM_CHAR1) ST_IMPRIMEACERTO, (
SELECT (SUM(C.PC_CLASSIFICACAO) * (I.VLUNITARIO - COALESCE(I.VLDESCONTO,0)))/100
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.NR_LAUDO) VL_REPOSICAO, L.DS_OBSERVACAO, (
SELECT SUM(C.PC_CLASSIFICACAO)
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.NR_LAUDO)PC_REPOSICAO, (
SELECT (SUM(C.PC_CLASSIFICACAO) * (I.VLUNITARIO - COALESCE(I.VLDESCONTO,0)))/100
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.NR_LAUDO) VL_REPOSICAO, CASE WHEN (
SELECT SUM(C.PC_CLASSIFICACAO)
FROM CLASSIFICACAOLAUDO C
WHERE C.ID_LAUDOTECNICO = L.NR_LAUDO) > 0 THEN 'Aprovado' ELSE 'Recusado' END DS_STATUS, COALESCE(N.NR_NOTAFOR, N.NR_NOTAFISCAL) NR_NOTAFISCAL, RD.DS_MUNICIPIO, D.DSDESENHO, COALESCE(L.CD_PESSOA, P.IDPESSOA) CD_PESSOA, RD.CD_REGIAOCOMERCIAL, RE.DS_REGIAOCOMERCIAL, RL.DS_RECLAMACAO, RL.ST_ANALISE , RL.DS_JUSTIFICATIVA, RL.DS_ACOESTOMADAS, CASE RL.ST_ENCERRADO WHEN 'S' THEN '(X) Sim' ELSE '( ) Sim' END DS_STENCERRADOSIM, CASE RL.ST_ENCERRADO WHEN 'N' THEN '(X) Não' ELSE '( ) Não' END DS_STENCERRADONAO, RL.DT_RECLAMACAO, PF.NM_PESSOA NM_RESPONSAVEL
FROM LAUDOTECNICOPNEURECAP L
LEFT JOIN ITEMPEDIDOPNEU I ON (I.ID = L.IDITEMPEDIDOPNEUGARANTIA)
LEFT JOIN ORDEMPRODUCAORECAP O ON (O.IDITEMPEDIDOPNEU = I.ID)
LEFT JOIN DESENHOPNEU D ON (D.ID = I.IDDESENHOPNEU)
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 RETORNA_DADOSCADASTRAIS(PC.CD_PESSOA,NULL) RD ON (1 = 1)
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 PLUGORDRECAPPEDIDO PLUGP ON (PLUGP.IDORDEMPRODUCAORECAP = O.ID)
LEFT JOIN RETORNA_CHAVENOTA(PLUGP.CD_EMPRESA, PLUGP.NR_PEDIDO, PLUGP.TP_PEDIDO) RC ON (1 = 1)
LEFT JOIN NOTA N ON (N.CD_EMPRESA = RC.O_CD_EMPRESA
  AND N.NR_LANCAMENTO = RC.O_NR_LANCAMENTO
  AND N.TP_NOTA = RC.O_TP_NOTA
  AND N.CD_SERIE = RC.O_CD_SERIE)
LEFT JOIN REGIAOCOMERCIAL RE ON (RE.CD_REGIAOCOMERCIAL = RD.CD_REGIAOCOMERCIAL)
LEFT JOIN PESSOA PF ON (PF.CD_PESSOA = L.CD_VENDEDOR)
LEFT JOIN RECLAMACAOLAUDO RL ON(RL.IDLAUDO = L.ID)
WHERE L.ID = :ID ST_IMPRIMEOBS ST_IMPRIMEACERTO IDEMPRESA ID

Tabelas Utilizadas

Tabela	Uso
CLASSIFICACAOLAUDO	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	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
NOTA	referenciada nas queries do layout
ORDEMPRODUCAORECAP	referenciada nas queries do layout
PEDIDOPNEU	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PLUGORDRECAPPEDIDO	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RECLAMACAOLAUDO	referenciada nas queries do layout
REGIAOCOMERCIAL	referenciada nas queries do layout
RETORNA_CHAVENOTA	referenciada nas queries do layout
RETORNA_DADOSCADASTRAIS	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LRR001/ULRR001.pas
• DFM: source/LRR001/ULRR001.dfm
• Package: source/LRR001/LRR001.dpk