Pular para o conteúdo principal

LOD001 — Layout LOD001

Visão Geral​

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

Descrição​

Consulta baseada em ORCAMENTO, com junção em MAQUINAORCAMENTO, ITEMORCAMENTO, ITEM, GRUPO, MARCA, SUBGRUPO (+7), filtrada por CD_EMPRESA, NR_ORCAMENTO, DS_L, MAQU, O, JO (+7).

Chamada​

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Orcamento
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
  // 5 - Máquinas da Ordem de Serviço
]);

SQL Base​

Orcamento​

SELECT O.CD_EMPRESA, E.NM_EMPRESA, P.NR_CNPJCPF, N.DS_ENDERECO||COALESCE(', '||N.NR_ENDERECO,'')||COALESCE(' - '||COALESCE(' - '||N.DS_BAIRRO, N.DS_COMPLEMENTO),'') DS_ENDERECO, U.DS_MUNICIPIO||' - '||U.SG_ESTADO DS_MUNICIPIO, N.NR_FONE, N.NR_FAX, N.NR_CEP, N.NR_INSCEST, O.NR_ORCAMENTO, O.DT_ORCAMENTO, O.NR_DIASENTREGA, P.DS_EMAIL, T.NM_PESSOA||' - '||T.CD_PESSOA NM_TERCEIRO, O.DS_CONTATO, O.DT_ENTREGA, P.CD_PESSOA, P.NM_PESSOA, M.NR_MAQUINA, M.DS_MAQUINA, M.DS_ESPECIFICACAO, M.DT_INISERVICO, M.DT_FIMSERVICO, M.QT_MAQUINA, M.DS_OBSERVACAO, I1.DS_ITEM, I1.CD_ITEM, 'Observação.: '||O.DS_OBSERVACAO DS_OBS, G.CD_GRUPO, G.DS_GRUPO, A.CD_MARCA, A.DS_MARCA, CONDPAGTO.DS_CONDPAGTO, S.CD_SUBGRUPO, S.DS_SUBGRUPO, I2.CD_ITEM CD_ITEMMP, I2.DS_ITEM DS_ITEMMP, COALESCE(I.PS_ORCAMENTO,I.QT_ORCAMENTO) QT_ITEMMP, I2.SG_UNIDMED, G.CD_GRUPO||COALESCE(S.CD_SUBGRUPO,0)||A.CD_MARCA CD_QUEBRA, M.VL_UNITARIO, M.VL_TOTAL
FROM ORCAMENTO O
INNER JOIN MAQUINAORCAMENTO M ON (M.CD_EMPRESA = O.CD_EMPRESA
  AND M.NR_ORCAMENTO = O.NR_ORCAMENTO)
LEFT JOIN ITEMORCAMENTO I ON (I.CD_EMPRESA = M.CD_EMPRESA
  AND I.NR_ORCAMENTO = M.NR_ORCAMENTO
  AND I.NR_MAQUINA = M.NR_MAQUINA)
LEFT JOIN ITEM I2 ON (I.CD_ITEM = I2.CD_ITEM)
LEFT JOIN ITEM I1 ON (M.CD_ITEM = I1.CD_ITEM)
LEFT JOIN GRUPO G ON (G.CD_GRUPO = I1.CD_GRUPO)
LEFT JOIN MARCA A ON (A.CD_MARCA = I1.CD_MARCA)
LEFT JOIN SUBGRUPO S ON (S.CD_SUBGRUPO = I1.CD_SUBGRUPO)
INNER JOIN EMPRESA E ON (O.CD_EMPRESA = E.CD_EMPRESA)
INNER JOIN PESSOA P ON (O.CD_PESSOA = P.CD_PESSOA)
INNER JOIN ENDERECOPESSOA N ON (N.CD_PESSOA = O.CD_PESSOA
  AND N.CD_ENDERECO = O.CD_ENDERECO)
INNER JOIN MUNICIPIO U ON (U.CD_MUNICIPIO = N.CD_MUNICIPIO)
LEFT JOIN PESSOA T ON (O.CD_TERCEIRO = T.CD_PESSOA)
LEFT JOIN CONDPAGTO ON (CONDPAGTO.CD_CONDPAGTO = O.CD_CONDPAGTO)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO CD_EMPRESA 1 NR_ORCAMENTO 68
SELECT L.DS_LINHA||' '||C.DS_COLUNA DS_LINHA, O.QT_GRADE
FROM MAQUINAORCAMENTOGRADE O
INNER JOIN LINHAGRADE L ON (L.CD_GRADE = O.CD_GRADE
  AND L.NR_LINHA = O.NR_LINHA)
INNER JOIN COLUNAGRADE C ON (C.CD_GRADE = O.CD_GRADE
  AND C.NR_COLUNA = O.NR_COLUNA)
WHERE O.CD_EMPRESA = :CD_EMPRESA
  AND O.NR_ORCAMENTO = :NR_ORCAMENTO
  AND O.NR_MAQUINA = :NR_MAQUINA
ORDER BY L.NR_LINHA, C.NR_COLUNA CD_EMPRESA 1 NR_ORCAMENTO 68 NR_MAQUINA

Consulta​

SELECT ST_ORCAMENTO
FROM ORCAMENTO
WHERE CD_EMPRESA = {iParametros[1]}
  AND NR_ORCAMENTO = {iParametros[2]}

Tabelas Utilizadas​

TabelaUso
COLUNAGRADEreferenciada nas queries do layout
CONDPAGTOreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
GRUPOreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMORCAMENTOreferenciada nas queries do layout
LINHAGRADEreferenciada nas queries do layout
MAQUINAORCAMENTOreferenciada nas queries do layout
MAQUINAORCAMENTOGRADEreferenciada nas queries do layout
MARCAreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
ORCAMENTOreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
SUBGRUPOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LOD001/ULOD001.pas
  • DFM: source/LOD001/ULOD001.dfm
  • Package: source/LOD001/LOD001.dpk