Pular para o conteúdo principal

LRT002 — Layout LRT002

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 ORDEMPRODUCAORECAP, com junção em ITEMPEDIDOPNEU, PEDIDOPNEU, TIPOPEDIDOPNEU, EMPRESA, PESSOA, ENDERECOPESSOA (+18), filtrada por ID, L, JO, IDLAUDOTECNICO.

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 --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, 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, 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, RC.CD_REGIAOCOMERCIAL, RC.DS_REGIAOCOMERCIAL, --Item Pedido Pneu-- IPP.IDSERVICOPNEU, SP.DSSERVICO, IPP.VLUNITARIO, 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, --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, UPPER(COALESCE(EPP.DSREFERENCIA, EPP.DSETAPAEMPRESA)) DSETAPA, --Laudo Recusa-- LT.ID IDLAUDO, LT.NR_LAUDO, CASE WHEN LT.ST_LAUDO = 'N' THEN 'VALIDO' ELSE 'CANCELADO' END ST_LAUDO
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 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 LAUDOTECNICOPNEURECAP LT ON (LT.IDITEMPEDIDOPNEURECUSA = IPP.ID)
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 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))
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)
LEFT JOIN EXAMEFINALPNEU EF ON (EF.IDORDEMPRODUCAORECAP = OPR.ID)
LEFT JOIN ETAPASPRODUCAOPNEU EPP ON (EPP.ID = EF.IDETAPA)
WHERE OPR.ID = :IDORDEMPRODUCAORECAP IDORDEMPRODUCAORECAP
SELECT M.ID_MOTIVO, C.DSMOTIVO, 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​

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{)})

Tabelas Utilizadas​

TabelaUso
CONDPAGTOreferenciada nas queries do layout
DESENHOPNEUreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
ETAPASPRODUCAOPNEUreferenciada nas queries do layout
EXAMEFINALPNEUreferenciada nas queries do layout
FORMAPAGTOreferenciada nas queries do layout
GARANTIAPNEUreferenciada 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
MUNICIPIOreferenciada nas queries do layout
ORDEMPRODUCAORECAPreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PEDIDOPNEUreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PNEUreferenciada nas queries do layout
REGIAOCOMERCIALreferenciada nas queries do layout
RETORNA_ENDERECOreferenciada nas queries do layout
RETORNA_IMPRESSORAUSUARIOreferenciada nas queries do layout
SERVICOPNEUreferenciada nas queries do layout
TIPOPEDIDOPNEUreferenciada nas queries do layout
TROCADESENHOPNEUreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LRT002/ULRT002.pas
  • DFM: source/LRT002/ULRT002.dfm
  • Package: source/LRT002/LRT002.dpk