LPP100 — Layout LPP100

Visão Geral

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

Descrição

Consulta baseada em PEDIDOPNEU, com junção em ITEMPEDIDOPNEU, TIPOPEDIDOPNEU, PNEU, MODELOPNEU, MARCAPNEU, MEDIDAPNEU (+4), filtrada por ID, IDPEDIDOPNEU, OPR, JO, CD_PESSOA, NR.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Das ordens de Produção
]);

SQL Base

tabORDEMPRODUCAORECAP

SELECT IPP.NRINDICECARGA, OPR.DTENTRADA, PC.NM_FANTASIA, COALESCE(NULLIF(RN.O_DS_VENDEDORES, ''), PV.NM_PESSOA)O_DS_VENDEDORES, MP.DSMEDIDAPNEU, MAP.DSMARCA, P.NRSERIE, P.NRFOGO, MOP.DSMODELO DSMODELOPNEU, P.NRDOT, SP.DSSERVICO, DP.DSDESENHO, OPR.DTENTREGA, 'Pedido.:'||COALESCE(PP.ID||'/'||IPP.NRSEQUENCIA||'-'|| (
SELECT COUNT(IPP.ID)
FROM PEDIDOPNEU PPP
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.IDPEDIDOPNEU = PP.ID)
WHERE PPP.ID =PP.ID ),'S/N') NR_PEDIDO, 'O.P.:'||COALESCE(OPR.ID||COALESCE('/'||IPP.NRSEQUENCIA||'-'|| (
SELECT COUNT(I.ID)
FROM ITEMPEDIDOPNEU I
WHERE I.IDPEDIDOPNEU = PP.ID),''),'S/N') NRORDEMIMPRESSAO
FROM ORDEMPRODUCAORECAP OPR
INNER JOIN ITEMPEDIDOPNEU IPP ON (IPP.ID = OPR.IDITEMPEDIDOPNEU)
INNER JOIN PEDIDOPNEU PP ON (PP.ID = IPP.IDPEDIDOPNEU)
LEFT JOIN TIPOPEDIDOPNEU TPP ON (TPP.ID = PP.IDTIPOPEDIDO)
INNER JOIN PNEU P ON (P.ID = IPP.IDPNEU)
INNER JOIN MODELOPNEU MOP ON (MOP.ID = P.IDMODELOPNEU)
INNER JOIN MARCAPNEU MAP ON (MAP.ID = MOP.IDMARCAPNEU)
INNER JOIN MEDIDAPNEU MP ON (MP.ID = P.IDMEDIDAPNEU)
INNER JOIN SERVICOPNEU SP ON (SP.ID = IPP.IDSERVICOPNEU)
LEFT OUTER JOIN DESENHOPNEU DP ON (DP.ID = IPP.IDDESENHOPNEU)
INNER JOIN PESSOA PC ON (PC.CD_PESSOA = PP.IDPESSOA)
LEFT OUTER JOIN PESSOA PV ON (PV.CD_PESSOA = PP.IDVENDEDOR)
LEFT JOIN RETORNA_NOMEVENDEDORESPNEU(IPP.ID) RN ON (1=1)
WHERE OPR.ID = :ID_ORDEMPRODUCAORECAP ID_ORDEMPRODUCAORECAP NRINDICECARGA "ITEMPEDIDOPNEU"."NRINDICECARGA" DTENTRADA "ORDEMPRODUCAORECAP"."DTENTRADA" NM_FANTASIA "PESSOA"."NM_FANTASIA" O_DS_VENDEDORES DSMEDIDAPNEU "MEDIDAPNEU"."DSMEDIDAPNEU" DSMARCA "MARCAPNEU"."DSMARCA" NRSERIE "PNEU"."NRSERIE" NRFOGO "PNEU"."NRFOGO" DSMODELOPNEU "MODELOPNEU"."DSMODELO" NRDOT "PNEU"."NRDOT" DSSERVICO "SERVICOPNEU"."DSSERVICO" DSDESENHO "DESENHOPNEU"."DSDESENHO" DTENTREGA "ORDEMPRODUCAORECAP"."DTENTREGA" NR_PEDIDO NRORDEMIMPRESSAO

Consulta

SELECT I.DS_PORTADOS, I.CD_IMPRESSORA
FROM PARMUSUARIO U
INNER JOIN IMPRESSORA I ON (I.CD_IMPRESSORA = U.CD_IMPPEDIDO)
WHERE CD_EMPRESA = {IntToStr(sessao.empresa.cd_empresa)}
  AND CD_USUARIO = {Nulo(sessao.usuario.cd_usuario,}S{)}

Tabelas Utilizadas

Tabela	Uso
DESENHOPNEU	referenciada nas queries do layout
IMPRESSORA	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
PARMUSUARIO	referenciada nas queries do layout
PEDIDOPNEU	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PNEU	referenciada nas queries do layout
RETORNA_NOMEVENDEDORESPNEU	referenciada nas queries do layout
SERVICOPNEU	referenciada nas queries do layout
TIPOPEDIDOPNEU	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LPP100/ULPP100.pas
• DFM: source/LPP100/ULPP100.dfm
• Package: source/LPP100/LPP100.dpk