LAB002 — Layout LAB002

Visão Geral

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

Descrição

Consulta baseada em APLICA_DESCONTOLEITE.

Chamada

ExecLayout(Connection, [
  // parametros nao documentados no .pas
]);

SQL Base

ExecutaConsulta/ExecUpdate #1

SELECT ODS_MENSAGEM
FROM APLICA_DESCONTOLEITE ({Nulo(}R{,}S{)}, NULL, NULL, { dmLAB002.tabMasterCD_EMPRESA}

ExecutaConsulta/ExecUpdate #2

DELETE FROM ANALISELEITE
WHERE CD_EMPRESA = {dmLAB002.tabMasterCD_EMPRESA}

tabMaster

SELECT CAST(' ' AS VARCHAR(1)) ST_EXCLUI, AL.CD_EMPRESA, AL.NR_MOVTOLEITE, AL.NR_SEQUENCIAL, PESSOA.CD_PESSOA, PESSOA.NM_PESSOA, EP.DS_ENDERECO||' / '|| MUNICIPIO.DS_MUNICIPIO||' - '||MUNICIPIO.SG_ESTADO DS_ENDERECO, CL.DT_COMPETENCIA, CL.NR_CONTRATO
FROM ANALISELEITE AL
INNER JOIN MOVTOLEITE ML ON (ML.CD_EMPRESA = AL.CD_EMPRESA
  AND ML.NR_MOVTOLEITE = AL.NR_MOVTOLEITE)
INNER JOIN CONTRATOLEITE CL ON (CL.CD_EMPRESA = ML.CD_EMPRCONTRATO
  AND CL.NR_CONTRATO = ML.NR_CONTRATO)
INNER JOIN PESSOA ON (PESSOA.CD_PESSOA = CL.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = CL.CD_PESSOA
  AND EP.CD_ENDERECO = CL.CD_ENDERECO)
INNER JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO)
WHERE CL.ST_CONTRATOLEITE = 'V'
  AND ML.ST_MOVTOLEITE = 'N'
  AND ML.TP_MOVTOLEITE = 'C'
  AND ML.CD_EMPRESA = {dmLAB002}

Text

SELECT CAST(' ' AS VARCHAR(1)) ST_EXCLUI, AL.CD_EMPRESA, AL.NR_MOVTOLEITE, AL.NR_SEQUENCIAL, PESSOA.CD_PESSOA, PESSOA.NM_PESSOA, EP.DS_ENDERECO||' / '|| MUNICIPIO.DS_MUNICIPIO||' - '||MUNICIPIO.SG_ESTADO DS_ENDERECO, CL.DT_COMPETENCIA, CL.NR_CONTRATO
FROM ANALISELEITE AL
INNER JOIN MOVTOLEITE ML ON (ML.CD_EMPRESA = AL.CD_EMPRESA
  AND ML.NR_MOVTOLEITE = AL.NR_MOVTOLEITE)
INNER JOIN CONTRATOLEITE CL ON (CL.CD_EMPRESA = ML.CD_EMPRCONTRATO
  AND CL.NR_CONTRATO = ML.NR_CONTRATO)
INNER JOIN PESSOA ON (PESSOA.CD_PESSOA = CL.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = CL.CD_PESSOA
  AND EP.CD_ENDERECO = CL.CD_ENDERECO)
INNER JOIN MUNICIPIO ON (MUNICIPIO.CD_MUNICIPIO = EP.CD_MUNICIPIO)
WHERE CL.ST_CONTRATOLEITE = 'V'
  AND ML.ST_MOVTOLEITE = 'N'
  AND ML.TP_MOVTOLEITE = 'C'
  AND ML.CD_EMPRESA = {dmLAB002.FiltroCD_EMPRESA.AsString}
  AND CL.DT_COMPETENCIA = {Nulo(dmLAB002.FiltroDT_COMPETENCIA.AsString,}S{)} { Filtro}
GROUP BY AL.CD_EMPRESA, AL.NR_MOVTOLEITE, AL.NR_SEQUENCIAL, PESSOA.CD_PESSOA, PESSOA.NM_PESSOA, EP.DS_ENDERECO, MUNICIPIO.DS_MUNICIPIO, MUNICIPIO.SG_ESTADO, CL.DT_COMPETENCIA, CL.NR_CONTRATO

Tabelas Utilizadas

Tabela	Uso
ANALISELEITE	referenciada nas queries do layout
APLICA_DESCONTOLEITE	referenciada nas queries do layout
CONTRATOLEITE	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
MOVTOLEITE	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LAB002/ULAB002.pas
• DFM: source/LAB002/ULAB002.dfm
• Package: source/LAB002/LAB002.dpk