LRT001 — Layout LRT001

Visão Geral

Layout de impressão da família LRT (Romaneio). Acionado via ExecLayout a partir das telas que imprimem este tipo de documento.

Descrição

Consulta baseada em ITEMPEDIDOPNEU, com junção em PEDIDOPNEU, EMPRESA, PESSOA, ENDERECOPESSOA, REGIAOCOMERCIAL, PNEU (+9), filtrada por IDPEDIDOPNEU, OPR, JO, ID, CD_EMPRESA, CD_PESSOA (+4).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Ordem
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

Ordem

SELECT OPR.ID IDORDEMPRODUCAO, PP.ID IDPEDIDOPNEU, PE.NM_PESSOA NM_EMPRESA, PC.NM_PESSOA NM_CLIENTE, DP.ID, BP.IDDESENHOPNEU, COALESCE(DP.DSDESENHO,'')||COALESCE(' / '||BP.NRLARGURA,'')||COALESCE(BP.TPBANDA,'') DSBANDA, M.ID IDMARCA, M.DSMARCA, MP.ID IDMODELO, MP.DSMODELO, P.NRSERIE, P.NRDOT, P.NRFOGO, SP.ID IDSERVICO, SP.DSSERVICO, PV.CD_PESSOA CD_VENDEDOR, PV.NM_PESSOA NM_VENDEDOR, CASE WHEN EX.STEXAMEFINAL = 'A' THEN 'APROVADO' WHEN EX.STEXAMEFINAL = 'R' THEN 'NR - NÃO RECAPÁVEL' ELSE 'APROVADO' END DSSTORDEM, PP.DTENTREGA, MI.DSMEDIDAPNEU, DP.DSDESENHO, COALESCE(IPP.NRSEQUENCIA||' / '|| (
SELECT COUNT(I.ID)
FROM ITEMPEDIDOPNEU I
WHERE I.IDPEDIDOPNEU = PP.ID),'') NRORDEMIMPRESSAO, PP.DTEMISSAO DTPEDIDOPNEU, RC.CD_REGIAOCOMERCIAL, RC.DS_REGIAOCOMERCIAL
FROM ORDEMPRODUCAORECAP OPR
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU)
INNER JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = PP.IDEMPRESA)
INNER JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = PP.IDPESSOA)
INNER JOIN ENDERECOPESSOA EPC ON (EPC.CD_PESSOA = PC.CD_PESSOA
  AND EPC.CD_ENDERECO = PP.IDENDERECO)
LEFT JOIN REGIAOCOMERCIAL RC ON (RC.CD_REGIAOCOMERCIAL = EPC.CD_REGIAOCOMERCIAL)
INNER JOIN PNEU P ON(P.ID = IPP.IDPNEU)
INNER JOIN MODELOPNEU MP ON(MP.ID = P.IDMODELOPNEU)
INNER JOIN MARCAPNEU M ON(M.ID = MP.IDMARCAPNEU)
INNER JOIN SERVICOPNEU SP ON(SP.ID = IPP.IDSERVICOPNEU)
INNER JOIN MEDIDAPNEU MI ON (MI.ID = P.IDMEDIDAPNEU)
LEFT JOIN PESSOA PV ON(PV.CD_PESSOA = PP.IDVENDEDOR)
LEFT JOIN TROCADESENHOPNEU TD ON (TD.ID = OPR.ID)
LEFT JOIN RASPAGEMPNEU RP ON (RP.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN DESENHOPNEU DP ON (DP.ID = COALESCE(TD.IDDESENHOPNEU, IPP.IDDESENHOPNEU))
LEFT JOIN BANDAPNEU BP ON (BP.ID = RP.IDBANDAPNEU)
LEFT JOIN EXAMEFINALPNEU EX ON(EX.IDORDEMPRODUCAORECAP = OPR.ID)
WHERE OPR.ID = :IDORDEMPRODUCAORECAP IDORDEMPRODUCAORECAP

Tabelas Utilizadas

Tabela	Uso
BANDAPNEU	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
EXAMEFINALPNEU	referenciada nas queries do layout
ITEMPEDIDOPNEU	referenciada nas queries do layout
MARCAPNEU	referenciada nas queries do layout
MEDIDAPNEU	referenciada nas queries do layout
MODELOPNEU	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
RASPAGEMPNEU	referenciada nas queries do layout
REGIAOCOMERCIAL	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout
TROCADESENHOPNEU	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LRT001/ULRT001.pas
• DFM: source/LRT001/ULRT001.dfm
• Package: source/LRT001/LRT001.dpk