LOP014 — Layout LOP014

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, EMPRESA, ITEM, TAREFAITEM, TAREFAORDEMPROD, LINHAGRADE (+5), filtrada por CD_EMPRESA, NR_ORDEMPRODUCAO, TP_DESPESA, JO, NR_TAREFA, CD_ITEM (+2).

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 #1`

SELECT O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, O.CD_ITEM, I.CD_ITEM||' - '||I.DS_ITEM , M.SG_UNIDMED, O.QT_PRODUZIDA, O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, IO.CD_MATERIAPRIMA, M.DS_ITEM DS_MATERIAPRIMA, IO.QT_ITEMPRODUCAO, IO.TP_DESPESA, O.DS_OBSERVACAO, M.CD_FORNECEDOR1, M.CD_FORNECEDOR2
FROM ORDEMPRODUCAO O
INNER JOIN ITEMORDEMPROD IO ON (O.CD_EMPRESA = IO.CD_EMPRESA
  AND O.NR_ORDEMPRODUCAO = IO.NR_ORDEMPRODUCAO)
INNER JOIN EMPRESA E ON (E.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)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO
  AND IO.TP_DESPESA = 'M' CD_EMPRESA 1 NR_ORDEMPRODUCAO
SELECT T.NR_TAREFA, F.DS_TAREFA, TF.DS_OBSERVACAO, TF.DS_RESULTADO
FROM TAREFAPRODUCAO T
INNER JOIN TAREFAITEM F ON (F.NR_TAREFA = T.NR_TAREFA)
LEFT JOIN TAREFAORDEMPROD TF ON (TF.CD_EMPRESA = T.CD_EMPRESA
  AND TF.NR_TAREFA = T.NR_TAREFA
  AND TF.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO)
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 NR_ORDEMPRODUCAO 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
SELECT P.NR_PEDIDO, S.CD_PESSOA||' - '||S.NM_PESSOA||COALESCE(' - '||S.NM_FANTASIA,'') NM_PESSOA, SE.DS_ENDERECO||COALESCE(', '||SE.NR_ENDERECO,'')||COALESCE(' '||SE.DS_BAIRRO,'') DS_ENDERECO, SM.DS_MUNICIPIO||' - '||SM.SG_ESTADO DS_MUNICIPIO, P.DS_OBSERVACAO, COALESCE(SE.NR_FONE, SE.NR_FAX) NR_FONE, P.DT_ENTREGA, P.NR_PEDIDOFOR
FROM ORDEMPRODUCAOPEDIDO OP
INNER JOIN PEDIDO P ON (P.CD_EMPRESA = OP.CD_EMPRPED
  AND P.TP_PEDIDO = OP.TP_PEDIDO
  AND P.NR_PEDIDO = OP.NR_PEDIDO)
INNER JOIN PESSOA S ON (S.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA SE ON (SE.CD_PESSOA = P.CD_PESSOA
  AND SE.CD_ENDERECO = P.CD_ENDERECO)
INNER JOIN MUNICIPIO SM ON (SM.CD_MUNICIPIO = SE.CD_MUNICIPIO)
WHERE OP.CD_EMPRESA = :CD_EMPRESA
  AND OP.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO CD_EMPRESA 1 NR_ORDEMPRODUCAO
SELECT P.NR_PEDIDO, S.CD_PESSOA||' - '||S.NM_PESSOA||COALESCE(' - '||S.NM_FANTASIA,'') NM_PESSOA, SE.DS_ENDERECO||COALESCE(', '||SE.NR_ENDERECO,'')||COALESCE(' '||SE.DS_BAIRRO,'') DS_ENDERECO, SM.DS_MUNICIPIO||' - '||SM.SG_ESTADO DS_MUNICIPIO, P.DS_OBSERVACAO, COALESCE(SE.NR_FONE, SE.NR_FAX) NR_FONE, P.DT_ENTREGA, P.NR_PEDIDOFOR, I.CD_CODIGOBARRA
FROM ORDEMPRODUCAOPEDIDO OP
INNER JOIN PEDIDO P ON (P.CD_EMPRESA = OP.CD_EMPRPED
  AND P.TP_PEDIDO = OP.TP_PEDIDO
  AND P.NR_PEDIDO = OP.NR_PEDIDO)
INNER JOIN PESSOA S ON (S.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA SE ON (SE.CD_PESSOA = P.CD_PESSOA
  AND SE.CD_ENDERECO = P.CD_ENDERECO)
INNER JOIN MUNICIPIO SM ON (SM.CD_MUNICIPIO = SE.CD_MUNICIPIO)
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM)
WHERE OP.CD_EMPRESA = :CD_EMPRESA
  AND OP.NR_ORDEMPRODUCAO = :NR_ORDEMPRODUCAO CD_EMPRESA 1 NR_ORDEMPRODUCAO

`Producao #2`

SELECT O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, lo.DS_LOCAL, tl.DS_TIPOLOCAL, {#10} lom.DS_LOCAL DS_LOCALMP, tlm.DS_TIPOLOCAL DS_TIPOLOCALMP, O.CD_LOCAL, O.CD_TIPOLOCAL, {#10} IO.CD_LOCAL CD_LOCALMP, IO.CD_TIPOLOCAL CD_TIPOLOCALMP, {#10} O.CD_ITEM, I.CD_ITEM||' - '||I.DS_ITEM DS_ITEM, M.SG_UNIDMED, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} IO.CD_MATERIAPRIMA, M.DS_ITEM DS_MATERIAPRIMA, {#10} IO.QT_ITEMPRODUCAO, IO.TP_DESPESA, M.SG_UNIDALT, {#10} CASE WHEN COALESCE(M.PS_LIQUIDO,0) <= 0 THEN NULL ELSE CAST(IO.QT_ITEMPRODUCAO AS NUMERIC(15,5)) / M.PS_LIQUIDO END QTDE, {#10} CAST(CASE WHEN I.SG_UNIDMED = M.SG_UNIDMED THEN (IO.QT_ITEMPRODUCAO * 100) / O.QT_PRODUZIDA ELSE CAST(((IO.QT_ITEMPRODUCAO * M.PS_LIQUIDO) * 100)AS NUMERIC(15,4)) / O.QT_PRODUZIDA END AS NUMERIC(15,2)) PC_PARTICIPACAO, {#10} COALESCE(I.CD_FORNECEDOR1, I.CD_FORNECEDOR2) CD_FORNECEDOR, {#10} I.DS_ESPECIFICACAO, PROD.DS_RECEITA, U.CD_USUARIO, U.NM_USUARIO, O.DS_OBSERVACAO, M.CD_FORNECEDOR1, M.CD_FORNECEDOR2 {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEMORDEMPROD IO ON (O.CD_EMPRESA = IO.CD_EMPRESA {#10}
  AND O.NR_ORDEMPRODUCAO = IO.NR_ORDEMPRODUCAO) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = O.CD_EMPRESA) {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
INNER JOIN ITEM M ON (M.CD_ITEM = IO.CD_MATERIAPRIMA) {#10}
LEFT JOIN PRODUCAO PROD ON (PROD.CD_EMPRESA = O.CD_EMPRPROD {#10}
  AND PROD.CD_ITEM = O.CD_ITEM {#10}
  AND PROD.TP_PRODUCAO = O.TP_PRODUCAO {#10}
  AND PROD.NR_VERSAO = O.NR_VERSAO) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo}

`tabEtiqueta #1`

SELECT O.CD_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} U.CD_USUARIO, U.NM_USUARIO, L.DS_LOCAL, TL.DS_TIPOLOCAL, I.CD_CODIGOBARRA {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo}

`Producao #3`

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, lo.DS_LOCAL, tl.DS_TIPOLOCAL, lom.DS_LOCAL DS_LOCALMP, tlm.DS_TIPOLOCAL DS_TIPOLOCALMP, O.CD_LOCAL, O.CD_TIPOLOCAL, IO.CD_LOCAL CD_LOCALMP, IO.CD_TIPOLOCAL CD_TIPOLOCALMP, O.CD_ITEM, I.CD_ITEM||' - '||I.DS_ITEM DS_ITEM, M.SG_UNIDMED, O.QT_PRODUZIDA, 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 CAST(((IO.QT_ITEMPRODUCAO * M.PS_LIQUIDO) * 100)AS NUMERIC(15,4)) / 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, U.CD_USUARIO, U.NM_USUARIO, O.DS_OBSERVACAO, M.CD_FORNECEDOR1, M.CD_FORNECEDOR2
FROM ORDEMPRODUCAO O
INNER JOIN ITEMORDEMPROD IO ON (O.CD_EMPRESA = IO.CD_EMPRESA
  AND O.NR_ORDEMPRODUCAO = IO.NR_ORDEMPRODUCAO)
INNER JOIN EMPRESA E ON (E.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)
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo}

`tabEtiqueta #2`

SELECT DISTINCT O.CD_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} U.CD_USUARIO, U.NM_USUARIO, S.NR_SERIAL, L.DS_LOCAL, TL.DS_TIPOLOCAL, I.CD_CODIGOBARRA {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo}

`tabEtiqueta #3`

SELECT DISTINCT O.CD_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} U.CD_USUARIO, U.NM_USUARIO, S.NR_SERIAL, LIN.O_NR_LINHA , L.DS_LOCAL, TL.DS_TIPOLOCAL, I.CD_CODIGOBARRA {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo}

`Consulta #1`

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

`Text #1`

SELECT O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, lo.DS_LOCAL, tl.DS_TIPOLOCAL, {#10} lom.DS_LOCAL DS_LOCALMP, tlm.DS_TIPOLOCAL DS_TIPOLOCALMP, O.CD_LOCAL, O.CD_TIPOLOCAL, {#10} IO.CD_LOCAL CD_LOCALMP, IO.CD_TIPOLOCAL CD_TIPOLOCALMP, {#10} O.CD_ITEM, I.CD_ITEM||' - '||I.DS_ITEM DS_ITEM, M.SG_UNIDMED, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} IO.CD_MATERIAPRIMA, M.DS_ITEM DS_MATERIAPRIMA, {#10} IO.QT_ITEMPRODUCAO, IO.TP_DESPESA, M.SG_UNIDALT, {#10} CASE WHEN COALESCE(M.PS_LIQUIDO,0) <= 0 THEN NULL ELSE CAST(IO.QT_ITEMPRODUCAO AS NUMERIC(15,5)) / M.PS_LIQUIDO END QTDE, {#10} CAST(CASE WHEN I.SG_UNIDMED = M.SG_UNIDMED THEN (IO.QT_ITEMPRODUCAO * 100) / O.QT_PRODUZIDA ELSE CAST(((IO.QT_ITEMPRODUCAO * M.PS_LIQUIDO) * 100)AS NUMERIC(15,4)) / O.QT_PRODUZIDA END AS NUMERIC(15,2)) PC_PARTICIPACAO, {#10} COALESCE(I.CD_FORNECEDOR1, I.CD_FORNECEDOR2) CD_FORNECEDOR, {#10} I.DS_ESPECIFICACAO, PROD.DS_RECEITA, U.CD_USUARIO, U.NM_USUARIO, O.DS_OBSERVACAO, M.CD_FORNECEDOR1, M.CD_FORNECEDOR2 {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEMORDEMPROD IO ON (O.CD_EMPRESA = IO.CD_EMPRESA {#10}
  AND O.NR_ORDEMPRODUCAO = IO.NR_ORDEMPRODUCAO) {#10}
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = O.CD_EMPRESA) {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
INNER JOIN ITEM M ON (M.CD_ITEM = IO.CD_MATERIAPRIMA) {#10}
LEFT JOIN PRODUCAO PROD ON (PROD.CD_EMPRESA = O.CD_EMPRPROD {#10}
  AND PROD.CD_ITEM = O.CD_ITEM {#10}
  AND PROD.TP_PRODUCAO = O.TP_PRODUCAO {#10}
  AND PROD.NR_VERSAO = O.NR_VERSAO) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)}) {#10}
LEFT JOIN LOCALESTOQUE lo on (lo.CD_LOCAL = o.CD_LOCAL {#10}
  AND lo.CD_TIPOLOCAL = o.CD_TIPOLOCAL) {#10}
LEFT JOIN TIPOLOCAL tl on (tl.CD_TIPOLOCAL = o.CD_TIPOLOCAL) {#10}
LEFT JOIN LOCALESTOQUE lom on (lom.CD_LOCAL = io.CD_LOCAL {#10}
  AND lom.CD_TIPOLOCAL = io.CD_TIPOLOCAL) {#10}
LEFT JOIN TIPOLOCAL tlm on (tlm.CD_TIPOLOCAL = io.CD_TIPOLOCAL) {#10}
WHERE O.CD_EMPRLOTEPROD = {Resultado[1] + #10}
  AND O.NR_LOTEPRODUCAO = {Resultado[0] + #10}
  AND IO.TP_DESPESA = 'M' {#10}
ORDER BY O.NR_ORDEMPRODUCAO

`Text #2`

SELECT O.CD_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} U.CD_USUARIO, U.NM_USUARIO, L.DS_LOCAL, TL.DS_TIPOLOCAL, I.CD_CODIGOBARRA {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)}) {#10}
LEFT JOIN RETORNA_LINHAS(O.QT_PRODUZIDA) LIN ON (1 = 1) {#10}
LEFT JOIN LOCALESTOQUE L ON (L.CD_LOCAL = o.CD_LOCAL {#10}
  AND L.CD_TIPOLOCAL = o.CD_TIPOLOCAL) {#10}
LEFT JOIN TIPOLOCAL TL ON (TL.CD_TIPOLOCAL = o.CD_TIPOLOCAL){#10}
WHERE O.CD_EMPRLOTEPROD = {Resultado[1] + #10}
  AND O.NR_LOTEPRODUCAO = {Resultado[0]} {#10}
ORDER BY O.NR_ORDEMPRODUCAO

`Text #3`

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, lo.DS_LOCAL, tl.DS_TIPOLOCAL, lom.DS_LOCAL DS_LOCALMP, tlm.DS_TIPOLOCAL DS_TIPOLOCALMP, O.CD_LOCAL, O.CD_TIPOLOCAL, IO.CD_LOCAL CD_LOCALMP, IO.CD_TIPOLOCAL CD_TIPOLOCALMP, O.CD_ITEM, I.CD_ITEM||' - '||I.DS_ITEM DS_ITEM, M.SG_UNIDMED, O.QT_PRODUZIDA, 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 CAST(((IO.QT_ITEMPRODUCAO * M.PS_LIQUIDO) * 100)AS NUMERIC(15,4)) / 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, U.CD_USUARIO, U.NM_USUARIO, O.DS_OBSERVACAO, M.CD_FORNECEDOR1, M.CD_FORNECEDOR2
FROM ORDEMPRODUCAO O
INNER JOIN ITEMORDEMPROD IO ON (O.CD_EMPRESA = IO.CD_EMPRESA
  AND O.NR_ORDEMPRODUCAO = IO.NR_ORDEMPRODUCAO)
INNER JOIN EMPRESA E ON (E.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)
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)})
LEFT JOIN LOCALESTOQUE lo on (lo.CD_LOCAL = o.CD_LOCAL
  AND lo.CD_TIPOLOCAL = o.CD_TIPOLOCAL)
LEFT JOIN TIPOLOCAL tl on (tl.CD_TIPOLOCAL = o.CD_TIPOLOCAL)
LEFT JOIN LOCALESTOQUE lom on (lom.CD_LOCAL = io.CD_LOCAL
  AND lom.CD_TIPOLOCAL = io.CD_TIPOLOCAL)
LEFT JOIN TIPOLOCAL tlm on (tlm.CD_TIPOLOCAL = io.CD_TIPOLOCAL)
WHERE O.CD_EMPRESA = {iParametros[1]}
  AND O.NR_ORDEMPRODUCAO = {iParametros[2]}
  AND IO.TP_DESPESA = 'M'
ORDER BY O.NR_ORDEMPRODUCAO

`Consulta #2`

SELECT count( O.NR_ORDEMPRODUCAO) {#10}
FROM ORDEMPRODUCAO O{#10}
INNER JOIN ITEMSERIAL S ON(S.CD_ITEM = O.CD_ITEM{#10}
  AND S.NR_SEQUENCIA = STRREPLACE(S.NR_SERIAL,O.NR_ORDEMPRODUCAO,''){#10}
  AND STRREPLACE(S.NR_SERIAL,S.NR_SEQUENCIA,'') <> '' {#10}
  AND STRREPLACE(S.NR_SERIAL,S.NR_SEQUENCIA,'') = O.NR_ORDEMPRODUCAO ){#10}
WHERE O.CD_EMPRESA = {iParametros[1]+#10}
  AND O.NR_ORDEMPRODUCAO = {iParametros[2]}

`Text #4`

SELECT DISTINCT O.CD_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} U.CD_USUARIO, U.NM_USUARIO, S.NR_SERIAL, L.DS_LOCAL, TL.DS_TIPOLOCAL, I.CD_CODIGOBARRA {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)}) {#10}
LEFT JOIN RETORNA_LINHAS(O.QT_PRODUZIDA) LIN ON (1 = 1) {#10}
LEFT JOIN ITEMSERIAL S ON(S.CD_ITEM = O.CD_ITEM {#10}
  AND S.NR_SEQUENCIA = STRREPLACE(S.NR_SERIAL,O.NR_ORDEMPRODUCAO,''){#10}
  AND STRREPLACE(S.NR_SERIAL,S.NR_SEQUENCIA,'') <> ''{#10}
  AND STRREPLACE(S.NR_SERIAL,S.NR_SEQUENCIA,'') = O.NR_ORDEMPRODUCAO ) {#10}
LEFT JOIN LOCALESTOQUE L ON (L.CD_LOCAL = o.CD_LOCAL {#10}
  AND L.CD_TIPOLOCAL = o.CD_TIPOLOCAL){#10}
LEFT JOIN TIPOLOCAL TL ON (TL.CD_TIPOLOCAL = o.CD_TIPOLOCAL){#10}
WHERE O.CD_EMPRESA = {iParametros[1] + #10}
  AND O.NR_ORDEMPRODUCAO = {iParametros[2]} {#10}
ORDER BY O.NR_ORDEMPRODUCAO {else frmLOP014.tabEtiqueta.SQL.Text :=}
SELECT DISTINCT O.CD_EMPRESA, O.NR_ORDEMPRODUCAO, O.NR_LOTEPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.CD_ITEM, I.DS_ITEM, O.QT_PRODUZIDA, {#10} O.DT_INICIOPRODUCAO, O.DT_FIMPRODUCAO, O.TP_ORDEMPRODUCAO, {#10} U.CD_USUARIO, U.NM_USUARIO, S.NR_SERIAL, LIN.O_NR_LINHA , L.DS_LOCAL, TL.DS_TIPOLOCAL, I.CD_CODIGOBARRA {#10}
FROM ORDEMPRODUCAO O {#10}
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM) {#10}
LEFT JOIN USUARIO U ON (U.CD_USUARIO = {Nulo(sessao.usuario.cd_Usuario,}S{)}) {#10}
LEFT JOIN RETORNA_LINHAS(O.QT_PRODUZIDA) LIN ON (1 = 1) {#10}
LEFT JOIN ITEMSERIAL S ON(S.CD_ITEM = O.CD_ITEM {#10}
  AND S.NR_SEQUENCIA = STRREPLACE(S.NR_SERIAL,O.NR_ORDEMPRODUCAO,''){#10}
  AND STRREPLACE(S.NR_SERIAL,S.NR_SEQUENCIA,'') <> ''{#10}
  AND STRREPLACE(S.NR_SERIAL,S.NR_SEQUENCIA,'') = O.NR_ORDEMPRODUCAO ) {#10}
LEFT JOIN LOCALESTOQUE L ON (L.CD_LOCAL = O.CD_LOCAL{#10}
  AND L.CD_TIPOLOCAL = O.CD_TIPOLOCAL){#10}
LEFT JOIN TIPOLOCAL TL ON (TL.CD_TIPOLOCAL = O.CD_TIPOLOCAL){#10}
WHERE O.CD_EMPRESA = {iParametros[1] + #10}
  AND O.NR_ORDEMPRODUCAO = {iParametros[2]} {#10}
ORDER BY O.NR_ORDEMPRODUCAO

Tabelas Utilizadas

Tabela	Uso
`COLUNAGRADE`	referenciada nas queries do layout
`EMPRESA`	referenciada nas queries do layout
`ENDERECOPESSOA`	referenciada nas queries do layout
`ITEM`	referenciada nas queries do layout
`ITEMORDEMPROD`	referenciada nas queries do layout
`ITEMSERIAL`	referenciada nas queries do layout
`LINHAGRADE`	referenciada nas queries do layout
`LOCALESTOQUE`	referenciada nas queries do layout
`MUNICIPIO`	referenciada nas queries do layout
`ORDEMPRODUCAO`	referenciada nas queries do layout
`ORDEMPRODUCAOGRADE`	referenciada nas queries do layout
`ORDEMPRODUCAOPEDIDO`	referenciada nas queries do layout
`PEDIDO`	referenciada nas queries do layout
`PESSOA`	referenciada nas queries do layout
`PRODUCAO`	referenciada nas queries do layout
`RETORNA_LINHAS`	referenciada nas queries do layout
`TAREFAITEM`	referenciada nas queries do layout
`TAREFAORDEMPROD`	referenciada nas queries do layout
`TAREFAPRODUCAO`	referenciada nas queries do layout
`TIPOLOCAL`	referenciada nas queries do layout
`USUARIO`	referenciada nas queries do layout

Shared Units

jCommon
jPesquisa

Fonte

Unit: source/LOP014/ULOP014.pas
DFM: source/LOP014/ULOP014.dfm
Package: source/LOP014/LOP014.dpk

Visão Geral​

Descrição​

Chamada​

SQL Base​

Producao #1​

Producao #2​

tabEtiqueta #1​

Producao #3​

tabEtiqueta #2​

tabEtiqueta #3​

Consulta #1​

Text #1​

Text #2​

Text #3​

Consulta #2​

Text #4​

Tabelas Utilizadas​

Shared Units​

Fonte​