Pular para o conteúdo principal

LOP015 — Layout LOP015

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, MAQUINAORCAMENTO, ORCAMENTO, PEDIDO, PESSOA, RETORNA_DADOSCADASTRAIS (+7), filtrada por CD_EMPRESA, NR_ORDEMPRODUCAO, TP_DESPESA.

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 O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, N.NR_PEDIDO, ORC.DT_ENTREGA, P.NM_PESSOA, DC.DS_MUNICIPIO||' - '||DC.SG_ESTADO DS_MUNICIPIO, PV.NM_PESSOA NM_VENDEDOR, O.CD_ITEM, I.CD_ITEM||' - '||I.DS_ITEM DS_ITEM, I.QT_COMPRIMENTO, I.QT_LARGURA, I.NR_CAIXA, M.SG_UNIDMED, O.QT_PRODUZIDA, P.DS_OBSERVACAO, O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, IO.CD_MATERIAPRIMA, M.DS_ITEM DS_MATERIAPRIMA, IO.QT_ITEMPRODUCAO, IO.TP_DESPESA, M.SG_UNIDALT, CASE WHEN COALESCE(M.PS_LIQUIDO,0) <= 0 THEN NULL ELSE CAST(IO.QT_ITEMPRODUCAO AS NUMERIC(15,5)) / M.PS_LIQUIDO END QTDE, CAST(CASE WHEN I.SG_UNIDMED = M.SG_UNIDMED THEN (IO.QT_ITEMPRODUCAO * 100) / O.QT_PRODUZIDA ELSE ((IO.QT_ITEMPRODUCAO * M.PS_LIQUIDO) * 100) / O.QT_PRODUZIDA END AS NUMERIC(15,2)) PC_PARTICIPACAO, COALESCE(I.CD_FORNECEDOR1,I.CD_FORNECEDOR2) CD_FORNECEDOR, I.DS_ESPECIFICACAO, PROD.DS_RECEITA, PARM.DS_LOGOTIPO
FROM ORDEMPRODUCAO O
INNER JOIN ITEMORDEMPROD IO ON (O.CD_EMPRESA = IO.CD_EMPRESA
  AND O.NR_ORDEMPRODUCAO = IO.NR_ORDEMPRODUCAO)
LEFT JOIN MAQUINAORCAMENTO MO ON (MO.CD_EMPRESA = O.CD_EMPRESA
  AND MO.NR_ORDEMPRODUCAO = O.NR_ORDEMPRODUCAO)
LEFT JOIN ORCAMENTO ORC ON (ORC.CD_EMPRESA = MO.CD_EMPRESA
  AND ORC.NR_ORCAMENTO = MO.NR_ORCAMENTO)
LEFT JOIN PEDIDO N ON (N.CD_EMPRESA = ORC.CD_EMPRESA
  AND N.NR_ORCAMENTO = ORC.NR_ORCAMENTO)
LEFT JOIN PESSOA P ON (P.CD_PESSOA = ORC.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS (P.CD_PESSOA, NULL) DC ON (1=1)
LEFT JOIN PESSOA PV ON (PV.CD_PESSOA = ORC.CD_VENDEDOR)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = O.CD_EMPRESA)
INNER JOIN PARMFATUR PARM ON (PARM.CD_EMPRESA = O.CD_EMPRESA)
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM)
INNER JOIN ITEM M ON (M.CD_ITEM = IO.CD_MATERIAPRIMA)
LEFT JOIN PRODUCAO PROD ON (PROD.CD_EMPRESA = O.CD_EMPRPROD
  AND PROD.CD_ITEM = O.CD_ITEM
  AND PROD.TP_PRODUCAO = O.TP_PRODUCAO
  AND PROD.NR_VERSAO = O.NR_VERSAO)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO
  AND IO.TP_DESPESA = 'M'
ORDER BY O.NR_ORDEMPRODUCAO CD_EMPRESA 1 NR_ORDEMPRODUCAO CD_EMPRPROD;CD_ITEM;TP_PRODUCAO;NR_VERSAO
SELECT T.NR_TAREFA, F.DS_TAREFA
FROM TAREFAPRODUCAO T
INNER JOIN TAREFAITEM F ON (F.NR_TAREFA = T.NR_TAREFA)
WHERE T.CD_EMPRESA = :CD_EMPRPROD
  AND T.CD_ITEM = :CD_ITEM
  AND T.TP_PRODUCAO = :TP_PRODUCAO
  AND T.NR_VERSAO = :NR_VERSAO
ORDER BY T.NR_TAREFA CD_EMPRPROD CD_ITEM TP_PRODUCAO NR_VERSAO
SELECT L.DS_LINHA||' '||C.DS_COLUNA DS_LINHA, N.QT_GRADE
FROM ORDEMPRODUCAOGRADE N
INNER JOIN LINHAGRADE L ON (L.CD_GRADE = N.CD_GRADE
  AND L.NR_LINHA = N.NR_LINHA)
INNER JOIN COLUNAGRADE C ON (C.CD_GRADE = N.CD_GRADE
  AND C.NR_COLUNA = N.NR_COLUNA)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO
  AND N.CD_ITEM = :CD_ITEM
ORDER BY L.NR_LINHA, C.NR_COLUNA CD_EMPRESA 1 NR_ORDEMPRODUCAO CD_ITEM

Tabelas Utilizadas​

TabelaUso
COLUNAGRADEreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMORDEMPRODreferenciada nas queries do layout
LINHAGRADEreferenciada nas queries do layout
MAQUINAORCAMENTOreferenciada nas queries do layout
ORCAMENTOreferenciada nas queries do layout
ORDEMPRODUCAOreferenciada nas queries do layout
ORDEMPRODUCAOGRADEreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PEDIDOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
PRODUCAOreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
TAREFAITEMreferenciada nas queries do layout
TAREFAPRODUCAOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOP015/ULOP015.pas
  • DFM: source/LOP015/ULOP015.dfm
  • Package: source/LOP015/LOP015.dpk