LSO001 — Layout LSO001

Visão Geral

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

Descrição

Consulta baseada em ITEMSOLICITACAO, com junção em ITEM, SOLICITACAO, TIPOCALCULO, HABILITA_PESOQTDE, USUARIO, EMPRESA (+5), filtrada por CD_EMPRESA, NR_SOLICITACAO, ST_ITEMSOLICITACAO.

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Solicitação
  // 3 - Tp Pedido  --- Nao usado
  // 4 - Path Servidor
  // 5 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

Pedido

SELECT SI.CD_EMPRESA, SI.NR_SOLICITACAO, S.DT_SOLICITACAO, S.DT_DESEJADA, S.DS_OBSERVACAO, SI.CD_ITEM, I.DS_ITEM, I.SG_UNIDMED, I.SG_UNIDALT, I.PS_LIQUIDO, I.PS_EMBALAGEM, I.CD_TIPOCALCULO, T.FT_CALCULO, T.TP_CALCULO, T.TP_UNIDADE, SI.DS_OBSERVACAO DS_OBSITEM, SI.PS_SOLICITADO, SI.QT_SOLICITADA, CASE T.TP_UNIDADE WHEN 'Q' THEN SI.QT_SOLICITADA ELSE SI.PS_SOLICITADO END QTDE, SI.ST_ITEMSOLICITACAO, SI.DT_REGISTRO, S.CD_SOLICITANTE, U.NM_USUARIO NM_SOLICITANTE, S.DT_SOLICITACAO, S.DT_DESEJADA, S.CD_AUTORIZADOR, CASE S.TP_SOLICITACAO WHEN 'N' THEN 'Normal' ELSE 'Urgente' END TP_SOLICITACAO, S.ST_SOLICITACAO, S.DT_REGISTRO, S.CD_EMPRORC, S.NR_ORCAMENTO, P.NM_PESSOA, P.NR_CNPJCPF, COALESCE(EP.DS_ENDERECO||' - ', '')|| COALESCE(EP.NR_ENDERECO||' - ', '')|| COALESCE(EP.DS_BAIRRO, '') DS_ENDERECO, EP.NR_CEP, EP.NR_INSCEST, EP.NR_FONE, EP.NR_FAX, M.DS_MUNICIPIO||' - '||M.SG_ESTADO CIDADE, PM.DS_LOGOTIPO, CASE T.TP_UNIDADE WHEN 'Q' THEN HPQ.SG_QTDE ELSE HPQ.SG_PESO END SG_UNIDADE, I.CD_FORNECEDOR1
FROM ITEMSOLICITACAO SI
INNER JOIN ITEM I ON (SI.CD_ITEM = I.CD_ITEM)
INNER JOIN SOLICITACAO S ON (S.CD_EMPRESA = SI.CD_EMPRESA
  AND S.NR_SOLICITACAO = SI.NR_SOLICITACAO)
INNER JOIN TIPOCALCULO T ON (I.CD_TIPOCALCULO = T.CD_TIPOCALCULO)
LEFT JOIN HABILITA_PESOQTDE(SI.CD_ITEM) HPQ ON (1=1)
INNER JOIN USUARIO U ON (U.CD_USUARIO = S.CD_SOLICITANTE)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = SI.CD_EMPRESA)
INNER JOIN PESSOA P ON (P.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN RETORNA_ENDERECO(E.CD_PESSOA, NULL) RE ON (1=1)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = E.CD_PESSOA
  AND EP.CD_ENDERECO = RE.O_CD_ENDERECO)
LEFT JOIN MUNICIPIO M ON (M.CD_MUNICIPIO = EP.CD_MUNICIPIO )
LEFT JOIN PARMFATUR PM ON (PM.CD_EMPRESA = SI.CD_EMPRESA)
WHERE SI.CD_EMPRESA = :CD_EMPRESA
  AND SI.NR_SOLICITACAO = :NR_SOLICITACAO
  AND SI.ST_ITEMSOLICITACAO <> 'C'
ORDER BY SI.CD_ITEM CD_EMPRESA NR_SOLICITACAO

Tabelas Utilizadas

Tabela	Uso
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
HABILITA_PESOQTDE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
ITEMSOLICITACAO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PARMFATUR	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
RETORNA_ENDERECO	referenciada nas queries do layout
SOLICITACAO	referenciada nas queries do layout
TIPOCALCULO	referenciada nas queries do layout
USUARIO	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LSO001/ULSO001.pas
• DFM: source/LSO001/ULSO001.dfm
• Package: source/LSO001/LSO001.dpk