LOP024 — Layout LOP024

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, ORDEMSERVICO, PESSOA, ITEMDOCUMENTO.

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

tabPRODUCAO #1

SELECT O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, O.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, S.NR_ORDEMSERVICO, S.DT_ENTREGA, P.NM_PESSOA, O.NR_LOTEPRODUCAO, O.DS_OBSERVACAO, IO.QT_ITEMPRODUCAO / O.QT_PRODUZIDA QT_UNITARIA
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 ORDEMSERVICO S on (S.CD_EMPRESA = O.CD_EMPRESA
  AND S.NR_LOTEPRODUCAO = O.NR_LOTEPRODUCAO)
LEFT JOIN PESSOA P on (P.CD_PESSOA = S.CD_PESSOA)
ORDER BY O.NR_ORDEMPRODUCAO
SELECT DISTINCT IT.DS_DOCUMENTO, IT.BI_DOCUMENTO
FROM ORDEMPRODUCAO O
INNER JOIN ITEM I ON (O.CD_ITEM = I.CD_ITEM)
INNER JOIN ITEMDOCUMENTO IT ON(IT.CD_ITEM = I.CD_ITEM) DS_DOCUMENTO "ITEMDOCUMENTO"."DS_DOCUMENTO" BI_DOCUMENTO "ITEMDOCUMENTO"."BI_DOCUMENTO"

tabPRODUCAO #2

SELECT O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.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} S.NR_ORDEMSERVICO, S.DT_ENTREGA, P.NM_PESSOA, O.NR_LOTEPRODUCAO, O.DS_OBSERVACAO, {#10} IO.QT_ITEMPRODUCAO / O.QT_PRODUZIDA QT_UNITARIA {#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 ORDEMSERVICO S ON (S.CD_EMPRESA = O.CD_EMPRESA {#10}
  AND S.NR_LOTEPRODUCAO = O.NR_LOTEPRODUCAO) {#10}
LEFT JOIN PESSOA P ON (P.CD_PESSOA = S.CD_PESSOA)

tabPRODUCAO #3

{frmLOP024}

tabDOCUMENTOSPROD #1

{frmLOP024}

tabPRODUCAO #4

{frmLOP024}

tabDOCUMENTOSPROD #2

{frmLOP024}

tabPRODUCAO #5

{frmLOP024}

Text

SELECT O.CD_EMPRESA, E.NM_EMPRESA, O.NR_ORDEMPRODUCAO, {#10} O.CD_EMPRPROD, O.CD_ITEM, O.TP_PRODUCAO, O.NR_VERSAO, {#10} O.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} S.NR_ORDEMSERVICO, S.DT_ENTREGA, P.NM_PESSOA, O.NR_LOTEPRODUCAO, O.DS_OBSERVACAO, {#10} IO.QT_ITEMPRODUCAO / O.QT_PRODUZIDA QT_UNITARIA {#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 ORDEMSERVICO S ON (S.CD_EMPRESA = O.CD_EMPRESA {#10}
  AND S.NR_LOTEPRODUCAO = O.NR_LOTEPRODUCAO) {#10}
LEFT JOIN PESSOA P ON (P.CD_PESSOA = S.CD_PESSOA)

Consulta

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

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMDOCUMENTO	referenciada nas queries do layout
ITEMORDEMPROD	referenciada nas queries do layout
ORDEMPRODUCAO	referenciada nas queries do layout
ORDEMSERVICO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LOP024/ULOP024.pas
• DFM: source/LOP024/ULOP024.dfm
• Package: source/LOP024/LOP024.dpk