LRT003 — Layout LRT003

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 V, com junção em ITEMPEDIDOPNEU, PEDIDOPNEU, TIPOPEDIDOPNEU, EMPRESA, PESSOA, ENDERECOPESSOA (+23), filtrada por IDPEDIDOPNEU, OPR, JO, ID, CD_EMPRESA, CD_PESSOA (+13).

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 --Laudo Recusa-- LT.ID IDLAUDO, LT.NR_LAUDO, --Empresa-- E.CD_EMPRESA, E.NM_EMPRESA, E.CD_PESSOA, PE.NM_PESSOA NM_PESSOAEMPRESA, PE.NM_FANTASIA, PE.NR_CNPJCPF, EP.DS_ENDERECO, EP.NR_ENDERECO, EP.DS_COMPLEMENTO, EP.DS_BAIRRO, EP.CD_MUNICIPIO, MU.DS_MUNICIPIO, MU.SG_ESTADO, EP.NR_CEP, EP.NR_FONE, EP.NR_CELULAR, EP.NR_FAX, PF.DS_LOGOTIPO, EP.DS_ENDERECO||COALESCE(' '||EP.NR_ENDERECO, '') DS_ENDERECONUMERO, MU.DS_MUNICIPIO||COALESCE(' - '||EP.DS_BAIRRO, '')||COALESCE(' - '||MU.SG_ESTADO, '')||COALESCE(' - '||EP.NR_CEP, '') DS_MUNBAIRROCEP, COALESCE('CNPJ : '||PE.NR_CNPJCPF, '')||COALESCE(' Telefone : '||coalesce(EP.NR_FONE, EP.NR_CELULAR, EP.NR_FAX), '') DS_CNPJTELEFONE, --Ordem de Produção-- OPR.ID IDORDEMPRODUCAORECAP, OPR.DTENTRADA DTENTRADAOPR, OPR.DTENTREGA DTENTREGAOPR, FORMAT_MESSAGE(CASE WHEN OPR.STORDEM = 'A' THEN 'ABERTA' WHEN OPR.STORDEM = 'F' THEN 'FECHADA' WHEN OPR.STORDEM = 'C' THEN 'CANCELADA' WHEN OPR.STORDEM = 'R' THEN 'RETRABALHO' ELSE '' END) STORDEM, OPR.DSOBSERVACAO DSOBSERVACAOOPR, FORMAT_MESSAGE(CASE WHEN OPR.STEXAMEFINAL = 'A' THEN 'APROVADO' WHEN OPR.STEXAMEFINAL = 'R' THEN 'REPROVADO' WHEN OPR.STEXAMEFINAL = 'T' THEN 'RETRABALHO' ELSE '' END) STEXAMEFINAL, OPR.NRLOTEPRODUCAO, OPR.QT_REFORMAS, OPR.IDGARANTIAPNEU, GP.DSGARANTIA, OPR.TPGARANTIA, --Pedido Pneu-- PP.ID IDPEDIDOPNEU, PP.DTEMISSAO DTEMISSAOPP, PP.DTENTREGA DTENTREGAPP, PP.NRPLACA, PP.IDCONDPAGTO, C.DS_CONDPAGTO, PP.CDFORMAPAGTO, F.DS_FORMAPAGTO, PP.DTVENCIMENTO, PP.IDPESSOA, PC.NM_PESSOA NM_PESSOAPEDIDO, PP.IDVENDEDOR, PV.NM_PESSOA NM_VENDEDOR, PP.IDEMPRESA, PP.DSOBSERVACAO, PP.DSBLOQUEIO, PP.IDTIPOPEDIDO, TP.DSTIPOPEDIDO, PP.IDPEDIDOMOVEL, PP.DSOBSFATURAMENTO, PP.NRPLACATRANSP, MPP.DS_MUNICIPIO||'-'||MPP.SG_ESTADO DSMUNICIPIO, RC.CD_REGIAOCOMERCIAL, RC.DS_REGIAOCOMERCIAL, RVP.O_NM_VENDEDOR_2 NM_VENDEDOR2, RVP.O_NM_VENDEDOR_3 NM_VENDEDOR3, RVP.O_NM_VENDEDOR_4 NM_VENDEDOR4, RVP.O_NM_VENDEDOR_5 NM_VENDEDOR5, PP.NRBLOCO, --Item Pedido Pneu-- IPP.IDSERVICOPNEU, SP.DSSERVICO, IPP.VLUNITARIO, FORMAT_MESSAGE(CASE WHEN IPP.STURGENTE = 'S' THEN 'SIM' WHEN IPP.STURGENTE = 'N' THEN 'NÃO' ELSE '' END) STURGENTE, IPP.NRINDICECARGA, IPP.NRINDICEVELOCIDADE, IPP.PCDESCONTO, IPP.VLDESCONTO, FORMAT_MESSAGE(CASE P.STMONTAGEM WHEN 'S' THEN 'SIM' WHEN 'N' THEN 'NÃO' END) STMONTAGEM, --Pneu-- P.IDMODELOPNEU, MP.DSMODELO, MP.IDMARCAPNEU, M.DSMARCA, P.IDMEDIDAPNEU, MI.DSMEDIDAPNEU, P.NRSERIE, P.NRDOT, P.NRFOGO, IPP.IDDESENHOPNEU, DP.DSDESENHO, P.DTANOPNEU, coalesce(P.NRSERIE, '')||COALESCE(' / '||P.NRFOGO, '') NR_SERIEFOGO, FORMAT_MESSAGE(CASE WHEN LT.ST_LAUDO = 'N' THEN 'VALIDO' ELSE 'CANCELADO' END) ST_LAUDO, --Vulcanização-- COALESCE(EXTRACT(DAY
FROM V.DTFIM)||'/'||EXTRACT(MONTH
FROM V.DTFIM)||'/'||EXTRACT(YEAR
FROM V.DTFIM), ' / / ') DTVULCANIZACAO, --Banda-- BP.NRLARGURA||' '||COALESCE(BP.DSLARGURA||' ', '')||BP.TPBANDA DSBANDA, OPR.DTENTRADA DTPEDIDOPNEU, OPR.DTENTREGA, OPR.ID IDORDEMPRODUCAO, PC.NM_PESSOA NM_CLIENTE, COALESCE(IPP.NRSEQUENCIA||' / '|| (
SELECT COUNT(I.ID)
FROM ITEMPEDIDOPNEU I
WHERE I.IDPEDIDOPNEU = PP.ID),'') NRORDEMIMPRESSAO
FROM ORDEMPRODUCAORECAP OPR
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU)
INNER JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
INNER JOIN TIPOPEDIDOPNEU TP ON (TP.ID = PP.IDTIPOPEDIDO)
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 EP ON (EP.CD_PESSOA = PE.CD_PESSOA
  AND EP.CD_ENDERECO = (
SELECT O_CD_ENDERECO
FROM RETORNA_ENDERECO(PE.CD_PESSOA, NULL)))
INNER JOIN ENDERECOPESSOA EPP ON (EPP.CD_PESSOA = PC.CD_PESSOA
  AND EPP.CD_ENDERECO = PP.IDENDERECO)
LEFT JOIN REGIAOCOMERCIAL RC ON (RC.CD_REGIAOCOMERCIAL = EPP.CD_REGIAOCOMERCIAL)
INNER JOIN MUNICIPIO MPP ON (MPP.CD_MUNICIPIO = EPP.CD_MUNICIPIO)
INNER JOIN MUNICIPIO MU ON (MU.CD_MUNICIPIO = EP.CD_MUNICIPIO)
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)
INNER JOIN GARANTIAPNEU GP ON (GP.ID = OPR.IDGARANTIAPNEU)
INNER JOIN CONDPAGTO C ON (C.CD_CONDPAGTO = PP.IDCONDPAGTO)
INNER JOIN FORMAPAGTO F ON (F.CD_FORMAPAGTO = PP.CDFORMAPAGTO)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN RASPAGEMPNEU RP ON (RP.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN BANDAPNEU BP ON (BP.ID = RP.IDBANDAPNEU)
LEFT JOIN VULCANIZACAO V ON (V.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN LAUDOTECNICOPNEURECAP LT ON (LT.IDITEMPEDIDOPNEURECUSA = IPP.ID
  AND LT.ST_LAUDO <> 'C')
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = PP.IDVENDEDOR)
LEFT JOIN TROCADESENHOPNEU TD ON (TD.ID = OPR.ID)
LEFT JOIN DESENHOPNEU DP ON (DP.ID = COALESCE(TD.IDDESENHOPNEU, IPP.IDDESENHOPNEU))
LEFT JOIN RETONA_VENDEDORESPNEULINEAR(IPP.ID) RVP ON (1=1)
WHERE OPR.ID = :IDORDEMPRODUCAORECAP IDORDEMPRODUCAORECAP
SELECT M.ID_MOTIVO, C.DSMOTIVO, FORMAT_MESSAGE(CASE C.TPCAUSALAUDO WHEN 'C' THEN 'CARCAÇA' WHEN 'P' THEN 'PRODUTO' WHEN 'R' THEN 'PROCESSO DE REFORMA' WHEN 'E' THEN 'MÁ UTILIZAÇÃO/EQUIPAMENTO' ELSE 'OUTROS' END) DS_TPMOTIVO, COALESCE(M.DSCAUSA, C.DSCAUSA) DSCAUSA, COALESCE(M.DSRECOMENDACOES, C.DSRECOMENDACOES) DSRECOMENDACOES
FROM LAUDOTECNICOPNEURECAP L
INNER JOIN MOTIVOLAUDO M ON (M.IDLAUDOTECNICO = L.ID)
INNER JOIN MOTIVOPNEU C ON (C.ID = M.ID_MOTIVO)
WHERE L.ID = :IDLAUDO IDLAUDO --Consulta feita em tempo de execucao /*
SELECT X.DSCONSERTO, SUM(X.QTCONSERTOS) QTCONSERTOS
FROM(
SELECT CP.DSCONSERTO, CM.QTCONSERTOS
FROM ORDEMPRODUCAORECAP OPR
INNER JOIN LIMPEZAMANCHAO LM ON (LM.IDORDEMPRODUCAORECAP = OPR.ID)
INNER JOIN CONSERTOMANCHAO CM ON (CM.IDLIMPEZAMANCHAO = LM.ID)
INNER JOIN CONSERTOPNEU CP ON (CP.ID = CM.IDCONSERTOPNEU)
WHERE OPR.ID = :IDORDEMPRODUCAORECAP
UNION ALL
SELECT CP.DSCONSERTO, CM.QTCONSERTOS
FROM ORDEMPRODUCAORECAPRETRABALHO OPRT
INNER JOIN LIMPEZAMANCHAO LM ON (LM.IDORDEMPRODUCAORECAP = OPRT.IDORDEMRETRABALHO)
INNER JOIN CONSERTOMANCHAO CM ON (CM.IDLIMPEZAMANCHAO = LM.ID)
INNER JOIN CONSERTOPNEU CP ON (CP.ID = CM.IDCONSERTOPNEU)
WHERE OPRT.IDORDEMPRODUCAORECAP = :IDORDEMPRODUCAORECAP) X
GROUP BY X.DSCONSERTO*/

Consulta #1

SELECT O_DS_IMPRESSORA
FROM RETORNA_IMPRESSORAUSUARIO({ Nulo(iParametros[1],}I{)}, {//I_CD_EMPRESA Nulo(sessao.usuario.cd_Usuario,}S{)}, {//I_CD_USUARIO QuotedStr(}E{)}, {//I_TP_IMPRESSORA Nulo(}{,}S{)}, {//I_TP_PORTA Nulo(}{,}S{)}, {//I_TP_NOTA Nulo(}{,}S{)})

Consulta #2

SELECT P.TPRETRABALHOETAPA {#10}
FROM PARAMRECAP P {#10}
WHERE P.IDEMPRESA = {IntToStr(sessao.empresa.cd_empresa)}

consultaConserto

SELECT {#10} X.DSCONSERTO, SUM(X.QTCONSERTOS) QTCONSERTOS {#10}
FROM( {#10}
SELECT CP.DSCONSERTO, CM.QTCONSERTOS {#10}
FROM ORDEMPRODUCAORECAP OPR {#10}
INNER JOIN LIMPEZAMANCHAO LM ON (LM.IDORDEMPRODUCAORECAP = OPR.ID) {#10}
INNER JOIN CONSERTOMANCHAO CM ON (CM.IDLIMPEZAMANCHAO = LM.ID) {#10}
INNER JOIN CONSERTOPNEU CP ON (CP.ID = CM.IDCONSERTOPNEU) {#10}
WHERE OPR.ID = :IDORDEMPRODUCAORECAP

Tabelas Utilizadas

Tabela	Uso
BANDAPNEU	referenciada nas queries do layout
CONDPAGTO	referenciada nas queries do layout
CONSERTOMANCHAO	referenciada nas queries do layout
CONSERTOPNEU	referenciada nas queries do layout
DESENHOPNEU	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
GARANTIAPNEU	referenciada nas queries do layout
ITEMPEDIDOPNEU	referenciada nas queries do layout
LAUDOTECNICOPNEURECAP	referenciada nas queries do layout
LIMPEZAMANCHAO	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
MUNICIPIO	referenciada nas queries do layout
ORDEMPRODUCAORECAP	referenciada nas queries do layout
ORDEMPRODUCAORECAPRETRABALHO	referenciada nas queries do layout
PARAMRECAP	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
RASPAGEMPNEU	referenciada nas queries do layout
REGIAOCOMERCIAL	referenciada nas queries do layout
RETONA_VENDEDORESPNEULINEAR	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
RETORNA_IMPRESSORAUSUARIO	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout
TIPOPEDIDOPNEU	referenciada nas queries do layout
TROCADESENHOPNEU	referenciada nas queries do layout
V	referenciada nas queries do layout
VULCANIZACAO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LRT003/ULRT003.pas
• DFM: source/LRT003/ULRT003.dfm
• Package: source/LRT003/LRT003.dpk