Pular para o conteúdo principal

LRA001 — Layout LRA001

Visão Geral​

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

Descrição​

Consulta baseada em NOTA, com junção em RETORNA_DADOSCADASTRAIS, RECEITANOTA, TECNICO, ITEMRECEITA, ITEM, CULTURA (+1), filtrada por CD_EMPRESA, NR_LANCAMENTO, CD_SERIE, TP_NOTA.

Chamada​

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Lancamento
  // 3 - Cod Serie
  // 4 - Tp Nota
  // 5 - Path Servidor
  // 6 - Visualiza -> V  ou  Imprime -> I
  // 7 - Usuario
]);

SQL Base​

Nota​

SELECT N.NR_NOTAFISCAL, P.NM_PESSOA, P.DS_ENDCOMPLETO, P.NR_TELEFONE, R.NR_ART, R.NR_RECEITA, S.NM_PESSOA NM_TECNICO, S.DS_ENDCOMPLETO DS_ENDTECNICO, S.NR_CNPJCPF, TEC.NR_REGISTRO NR_CREA, TEC.NR_VISTO, I.DS_ITEM, I.CD_ITEM, R.QT_ITEMRECEITA QTDE, C.DS_CULTURA, D.DS_DIAGNOSTICO, N.DT_EMISSAO, E.SG_UNIDMED, E.NR_REGISTRO, E.NR_APLICACAO, E.NR_DIASCARENCIA, E.DS_APLICACAO, E.DS_FORMULACAO, E.DS_MODALIDADE, E.DS_INTERVALO, E.DS_CONCENTRACAO, E.DS_DOSAGEM, E.DS_MANEJO, E.DS_RECOMENDACAO, E.CD_CLASSETOXICO, I.SG_UNIDMED SG_UNIDADE, R.QT_ITEMRECEITA / COALESCE(NULLIF(E.QT_DOSAGEM,0),1) QT_AREA
FROM NOTA N
LEFT JOIN RETORNA_DADOSCADASTRAIS(N.CD_PESSOA, NULL) P ON (1 = 1)
INNER JOIN RECEITANOTA R ON (N.CD_EMPRESA = R.CD_EMPRESA
  AND N.NR_LANCAMENTO = R.NR_LANCAMENTO
  AND N.CD_SERIE = R.CD_SERIE
  AND N.TP_NOTA = R.TP_NOTA)
INNER JOIN TECNICO TEC ON (TEC.CD_EMPRESA = R.CD_EMPRTECNICO
  AND TEC.CD_TECNICO = R.CD_TECNICO)
INNER JOIN ITEMRECEITA E ON (E.CD_ITEM = R.CD_ITEM
  AND E.CD_CULTURA = R.CD_CULTURA
  AND E.CD_DIAGNOSTICO = R.CD_DIAGNOSTICO)
INNER JOIN ITEM I ON (I.CD_ITEM = R.CD_ITEM)
INNER JOIN CULTURA C ON (C.CD_CULTURA = R.CD_CULTURA)
INNER JOIN DIAGNOSTICO D ON (D.CD_DIAGNOSTICO = R.CD_DIAGNOSTICO)
LEFT JOIN RETORNA_DADOSCADASTRAIS(R.CD_TECNICO, NULL) S ON (1 = 1)
WHERE N.CD_EMPRESA = :CD_EMPRESA
  AND N.NR_LANCAMENTO = :NR_LANCAMENTO
  AND N.CD_SERIE = :CD_SERIE
  AND N.TP_NOTA = :TP_NOTA CD_EMPRESA NR_LANCAMENTO CD_SERIE TP_NOTA

Tabelas Utilizadas​

TabelaUso
CULTURAreferenciada nas queries do layout
DIAGNOSTICOreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
ITEMRECEITAreferenciada nas queries do layout
NOTAreferenciada nas queries do layout
RECEITANOTAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
TECNICOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LRA001/ULRA001.pas
  • DFM: source/LRA001/ULRA001.dfm
  • Package: source/LRA001/LRA001.dpk