Pular para o conteúdo principal

LOC013 — Layout LOC013

Visão Geral​

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

Descrição​

Consulta baseada em ORDEMCARREGINDUSTRIA, com junção em CONTRATOINDUSTRIA, ORDEMCARREGINDITEM, ITEM, PESSOA, PARMFATUR, filtrada por CD_EMPRESA, NR_ORDEMCARREG.

Chamada​

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

SQL Base​

Ordem​

SELECT P.NM_PESSOA, O.NR_ORDEMCARREG, O.DT_REGISTRO DT_LANCAMENTO, COALESCE(OI.PS_ITEM,OI.QT_ITEM) QT_CARREGADA, I.DS_ITEM,PF.DS_LOGOTIPO, OI.CD_ITEM, O.NR_PLACA
FROM ORDEMCARREGINDUSTRIA O
INNER JOIN CONTRATOINDUSTRIA C ON (C.CD_EMPRESA = O.CD_EMPRESA
AND C.NR_CONTRATO = O.NR_CONTRATO)
INNER JOIN ORDEMCARREGINDITEM OI ON (OI.CD_EMPRESA = O.CD_EMPRESA
AND OI.NR_CONTRATO = O.NR_CONTRATO
AND OI.NR_ORDEMCARREG = O.NR_ORDEMCARREG)
INNER JOIN ITEM I ON (I.CD_ITEM = OI.CD_ITEM)
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = O.CD_EMPRESA)
WHERE O.CD_EMPRESA = :CD_EMPRESA
AND O.NR_ORDEMCARREG = :NR_ORDEM CD_EMPRESA NR_ORDEM

Tabelas Utilizadas​

TabelaUso
CONTRATOINDUSTRIAreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ORDEMCARREGINDITEMreferenciada nas queries do layout
ORDEMCARREGINDUSTRIAreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOC013/ULOC013.pas
  • DFM: source/LOC013/ULOC013.dfm
  • Package: source/LOC013/LOC013.dpk