Pular para o conteúdo principal

LOP026 — Layout LOP026

Visão Geral​

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

Descrição​

Consulta baseada em ORDEMPRODUCAO, com junção em ITEMORDEMPROD, ITEM, ORDEMPRODUCAOPEDIDO, EMPRESA, RETORNA_DADOSCADASTRAIS, PEDIDO (+8), filtrada por ST_ORDEMPRODUCAO.

Chamada​

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

SQL Base​

Producao​

SELECT DISTINCT P.NR_PEDIDO, PE.NM_PESSOA||' - '||PE.CD_PESSOA DS_PESSOA, PE.NR_CNPJCPF, PE.NM_FANTASIA, COALESCE(EP.DS_ENDERECO||' - ', '')||COALESCE(EP.NR_ENDERECO||' - ', '')||EP.DS_BAIRRO||' - '||M.DS_MUNICIPIO DS_ENDERECO, EP.NR_FONE, EP.NR_CEP, E.NM_EMPRESA, CAST(I.DS_ESPECIFICACAO AS DOM_VARCHAR32000) DS_ESPECIFICACAO, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, COALESCE(O.CD_EMPRPROD,O.CD_EMPRESA) CD_EMPRPROD, O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, O.QT_DESEJADA, I.CD_GRADE, O.DT_INICIOPRODUCAO, P.DT_ENTREGA, P.DT_PEDIDO, P.CD_VENDEDOR, PV.NM_PESSOA, NI.DS_OBSERVACAO, ORPI.CD_MATERIAPRIMA, MP.DS_ITEM DS_MATERIAPRIMA, ORPI.QT_ITEMPRODUCAO, RDE.DS_ENDERECO DS_ENDERECOEP, RDE.NR_ENDERECO NR_ENDERECOEP, RDE.DS_BAIRRO DS_BAIRROEP, RDE.DS_COMPLEMENTO DS_COMPLEMENTOEP, RDE.NR_CEP NR_CEPEP, RDE.DS_MUNICIPIO DS_MUNICIPIOEP, RDE.SG_ESTADO SG_ESTADOEP
FROM ORDEMPRODUCAO O
INNER JOIN ITEMORDEMPROD ORPI ON (ORPI.CD_EMPRESA = O.CD_EMPRESA
  AND ORPI.NR_ORDEMPRODUCAO = O.NR_ORDEMPRODUCAO)
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM)
INNER JOIN ITEM MP ON (MP.CD_ITEM = ORPI.CD_MATERIAPRIMA)
LEFT JOIN ORDEMPRODUCAOPEDIDO OP ON (OP.CD_EMPRESA = O.CD_EMPRESA
  AND OP.NR_ORDEMPRODUCAO = O.NR_ORDEMPRODUCAO
  AND OP.CD_ITEM = O.CD_ITEM)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = COALESCE(O.CD_EMPRLOTEPROD,O.CD_EMPRESA))
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, NULL) RDE ON (1 = 1)
LEFT JOIN PEDIDO P ON (P.CD_EMPRESA = OP.CD_EMPRESA
  AND P.NR_PEDIDO = OP.NR_PEDIDO
  AND P.TP_PEDIDO = OP.TP_PEDIDO)
LEFT JOIN ITEMPEDIDO NI ON (NI.CD_EMPRESA = P.CD_EMPRESA
  AND NI.NR_PEDIDO = P.NR_PEDIDO
  AND NI.CD_ITEM = O.CD_ITEM)
LEFT JOIN VENDEDOR V ON (V.CD_VENDEDOR = P.CD_VENDEDOR)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = V.CD_VENDEDOR)
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = P.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = PE.CD_PESSOA
  AND EP.CD_ENDERECO = P.CD_ENDERECO)
LEFT JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO)
WHERE COALESCE(O.CD_EMPRLOTEPROD,O.CD_EMPRESA) = :CD_EMPRESA
  AND COALESCE(O.NR_LOTEPRODUCAO,O.NR_ORDEMPRODUCAO) = :NR_PRODUCAO
  AND O.ST_ORDEMPRODUCAO <> 'C'
ORDER BY I.DS_ITEM CD_EMPRESA NR_PRODUCAO
SELECT LG.DS_LINHA||' - '||CG.DS_COLUNA DS_GRADE, SUM(OG.QT_GRADE) QT_GRADE
FROM ORDEMPRODUCAO O
INNER JOIN ORDEMPRODUCAOGRADE OG ON (OG.CD_EMPRESA = O.CD_EMPRESA
  AND OG.NR_ORDEMPRODUCAO = O.NR_ORDEMPRODUCAO
  AND OG.CD_ITEM = O.CD_ITEM)
INNER JOIN LINHAGRADE LG ON (LG.CD_GRADE = OG.CD_GRADE
  AND LG.NR_LINHA = OG.NR_LINHA)
INNER JOIN COLUNAGRADE CG ON (CG.CD_GRADE = OG.CD_GRADE
  AND CG.NR_COLUNA = OG.NR_COLUNA)
WHERE O.CD_EMPRPROD = :CD_EMPRPROD
  AND O.NR_LOTEPRODUCAO = :NR_LOTEPRODUCAO
  AND O.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO
GROUP BY LG.DS_LINHA, CG.DS_COLUNA, OG.CD_EMPRESA,O.CD_EMPRESA
ORDER BY 1 CD_EMPRPROD NR_LOTEPRODUCAO NR_ORDEMPRODUCAO

Consulta​

SELECT NR_LOTEPRODUCAO, CD_EMPRLOTEPROD {#10}
FROM ORDEMPRODUCAO {#10}
WHERE CD_EMPRESA = {iParametros[1]+#10}
  AND NR_ORDEMPRODUCAO = {iParametros[2]}

Tabelas Utilizadas​

TabelaUso
COLUNAGRADEreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMORDEMPRODreferenciada nas queries do layout
ITEMPEDIDOreferenciada nas queries do layout
LINHAGRADEreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
ORDEMPRODUCAOreferenciada nas queries do layout
ORDEMPRODUCAOGRADEreferenciada nas queries do layout
ORDEMPRODUCAOPEDIDOreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
VENDEDORreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOP026/ULOP026.pas
  • DFM: source/LOP026/ULOP026.dfm
  • Package: source/LOP026/LOP026.dpk