Pular para o conteúdo principal

LOR024 — Layout LOR024

Visão Geral​

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

Descrição​

Consulta baseada em CONTRATOINDUSTRIA, com junção em PESSOA, RETORNA_DADOSCADASTRAIS, PARMFATUR, CONTRATOINDUSTRIAITEM, ITEM, SECAO, filtrada por CD_EMPRESA, NR_CONTRATO, CONTRATO, MT, JO, CD_ITEM (+1).

Chamada​

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

SQL Base​

Orcamento​

SELECT PF.DS_LOGOTIPO, P.NM_PESSOA, C.QT_AREA, C.QT_LARGURA||'X'||C.QT_COMPRIMENTO||'X'||C.QT_ALTURA DS_AREACONSTR, C.DT_EMISSAO, RD.DS_MUNICIPIO, I.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, COALESCE(CI.PS_TOTAL, CI.QT_TOTAL) QT_ITEM, CI.VL_UNITARIO, CI.VL_TOTAL , C.CD_EMPRESA, C.NR_CONTRATO
FROM CONTRATOINDUSTRIA C
INNER JOIN PESSOA P ON (P.CD_PESSOA = C.CD_PESSOA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(P.CD_PESSOA,NULL) RD ON (1 = 1)
INNER JOIN PARMFATUR PF ON (PF.CD_EMPRESA = C.CD_EMPRESA)
INNER JOIN CONTRATOINDUSTRIAITEM CI ON (CI.CD_EMPRESA = C.CD_EMPRESA
  AND CI.NR_CONTRATO = C.NR_CONTRATO)
INNER JOIN ITEM I ON(I.CD_ITEM = CI.CD_ITEM)
WHERE C.CD_EMPRESA = :CD_EMPRESA
  AND C.NR_CONTRATO = :NR_CONTRATO CD_EMPRESA 1 NR_CONTRATO CD_EMPRESA;NR_CONTRATO;CD_ITEM
SELECT MT.NR_SEQUENCIA, MT.CD_MATPRIMA, IM.DS_ITEM, MT.PS_TOTAL, MT.QT_TOTAL, MT.VL_UNITCUSTO, MT.VL_TOTCUSTO, MT.VL_TOTVENDA, MT.PS_SALDO, MT.QT_SALDO, MT.DS_OBSITEM, MT.QT_ADICIONAL, MT.PS_ADICIONAL, MT.CD_EMPRESA, MT.NR_CONTRATO, MT.CD_ITEM, IM.CD_SECAO, COALESCE(S.DS_SECAO, '') DS_SECAO
FROM CONTRATOINDMATPRIMA MT
INNER JOIN ITEM IM ON (IM.CD_ITEM = MT.CD_MATPRIMA)
LEFT JOIN SECAO S ON (S.CD_SECAO = IM.CD_SECAO)
WHERE MT.CD_EMPRESA = :CD_EMPRESA
  AND MT.NR_CONTRATO = :NR_CONTRATO
  AND MT.CD_ITEM = :CD_ITEM
ORDER BY DS_SECAO, MT.NR_SEQUENCIA CD_EMPRESA NR_CONTRATO CD_ITEM

Tabelas Utilizadas​

TabelaUso
CONTRATOINDMATPRIMAreferenciada nas queries do layout
CONTRATOINDUSTRIAreferenciada nas queries do layout
CONTRATOINDUSTRIAITEMreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
SECAOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOR024/ULOR024.pas
  • DFM: source/LOR024/ULOR024.dfm
  • Package: source/LOR024/LOR024.dpk