LAB001 — Layout LAB001

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 PARMLEITE, com junção em ITEM, filtrada por CD_EMPRESA.

Chamada

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

SQL Base

ExecutaConsulta/ExecUpdate

SELECT CD_ITEMLEITE, DS_ITEM
FROM PARMLEITE
INNER JOIN ITEM ON (ITEM.CD_ITEM = PARMLEITE.CD_ITEMLEITE)
WHERE CD_EMPRESA = {IntToStr}

Consulta

UPDATE
  OR INSERT INTO ANALISELEITE (CD_ANALISE, CD_EMPRESA, NR_MOVTOLEITE, NR_SEQUENCIAL, VL_APURADO, QT_DESCONTO, PC_DESCONTO, DT_REGISTRO, CD_TABDESCLEITE)
VALUES ({dmLAB001.dsANALISELEITECD_ANALISE.AsString},{dmLAB001.tabFiltrosCD_EMPRMOVTO.AsString},{ dmLAB001.tabFiltrosNR_MOVTOLEITE.AsString},(
SELECT COALESCE(MAX(NR_SEQUENCIAL), 1)
FROM ANALISELEITE
WHERE CD_ANALISE = {dmLAB001.dsANALISELEITECD_ANALISE.AsString}
  AND CD_EMPRESA = {dmLAB001.tabFiltrosCD_EMPRMOVTO.AsString}
  AND NR_MOVTOLEITE = {dmLAB001.tabFiltrosNR_MOVTOLEITE.AsString}),{ Nulo(setVLAnalise(dmLAB001.dsANALISELEITEVL_APURADO.AsString, dmLAB001.dsANALISELEITETP_DADO.AsString),}S{)},0, 0, CURRENT_TIMESTAMP, {dmLAB001.dsANALISELEITECD_TABDESCLEITE.AsString}) {#10} MATCHING(CD_ANALISE, CD_EMPRESA, NR_MOVTOLEITE, NR_SEQUENCIAL)

Tabelas Utilizadas

Tabela	Uso
ANALISELEITE	referenciada nas queries do layout
ITEM	referenciada nas queries do layout
OR	referenciada nas queries do layout
PARMLEITE	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LAB001/ULAB001.pas
• DFM: source/LAB001/ULAB001.dfm
• Package: source/LAB001/LAB001.dpk