LFC002 — Listagem LFC002

Visão Geral

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

Descrição

Consulta baseada em CONTRATOLEITE, com junção em PRODUTORLEITE, PESSOA, ENDERECOPESSOA, MUNICIPIO, ESTADO, FECHAMENTOCONTRATO (+4), filtrada por CD_EMPRESA, NR_CONTRATO, JO, CD_FORMAPAGTO, CD_PESSOA, CD_ENDERECO (+3).

Chamada

ExecLayout(Connection, [
  // 0 - Nome do Layout
  // 1 - Cod Empresa
  // 2 - Nr Contrato
  // 3 - Path Servidor
  // 4 - Visualiza -> V  ou  Imprime -> I
]);

SQL Base

tabFECHAMENTO

SELECT C.CD_EMPRESA, E.NM_EMPRESA, C.NR_CONTRATO, C.DT_COMPETENCIA, C.NR_CONTRATO||' / '||CASE C.ST_CONTRATOLEITE WHEN 'V' THEN 'Válido' WHEN 'F' THEN 'Fechado' WHEN 'C' THEN 'Cancelado' END DS_SITUACAO, P.NM_PESSOA||' - '||C.CD_PESSOA NM_PESSOA, P.NM_FANTASIA, P.NR_CNPJCPF, P.DS_EMAIL, EP.CD_ENDERECO, CAST(EP.DS_ENDERECO||COALESCE(', N° '||EP.NR_ENDERECO,'')|| COALESCE(', '||EP.DS_BAIRRO,'') AS DOM_VARCHAR250) DS_ENDERECO, EP.DS_COMPLEMENTO, MU.CD_MUNICIPIO, MU.DS_MUNICIPIO||' - '||MU.SG_ESTADO DS_MUNICIPIO, EP.NR_CEP, EP.NR_FONE, EP.NR_CELULAR, EP.NR_FAX, EP.NR_INCRA, EP.NR_INSCPRODUTOR, F.VL_PRECO, COALESCE(F.VL_UNITFECHAMENTO, F.VL_PRECO) VL_UNITFECHAMENTO, COALESCE(F.VL_UNITFECHAMENTO, F.VL_PRECO) * F.QT_FECHAMENTO VL_LEITE, CAST(COALESCE(F.VL_INCENTIVO,0) * F.QT_FECHAMENTO AS DOM_NUMERIC15_4) VL_INCENTIVO, F.DT_FECHAMENTO, COALESCE(F.VL_CREDITO,0) VL_CREDITO, COALESCE(F.VL_DEBITO,0) VL_DEBITO, COALESCE(F.VL_SALDO,0)VL_SALDO, F.DT_REGISTRO, F.CD_USUARIO, COALESCE(F.QT_NOTAFISCAL,0) QT_NOTAFISCAL, COALESCE(F.VL_TOTALIMPOSTO,0) VL_TOTALIMPOSTO, F.NR_NOTAFISCAL, F.NR_NOTAFOR, F.CD_SERIE, F.CD_SERIEFOR, COALESCE(F.QT_FECHAMENTO,0) QT_FECHAMENTO, COALESCE(F.VL_BENEFICIO,0) VL_BENEFICIO, COALESCE(F.VL_PAGTOINDENIZACAO,0) VL_PAGTOINDENIZACAO, COALESCE(F.VL_COMPLEMENTO,0) VL_COMPLEMENTO, COALESCE(F.QT_PONTUACAO,0) QT_PONTUACAO, F.DT_EMISSAONOTA, COALESCE(F.PC_FUNRURAL,0) PC_FUNRURAL, COALESCE(F.VL_FUNRURAL,0) VL_FUNRURAL, COALESCE(F.VL_ENERGETICO,0) VL_ENERGETICO, COALESCE(F.VL_MANUTENCAO,0) VL_MANUTENCAO, COALESCE(F.VL_REPOSICAO,0) VL_REPOSICAO, COALESCE(F.VL_ASSOCTANQUE,0) VL_ASSOCTANQUE, COALESCE(F.VL_FRETE,0) VL_FRETE, COALESCE(F.VL_DESCONTO,0) VL_DESCONTO, COALESCE(F.VL_OUTROS,0) VL_OUTROS, FG.DS_FORMAPAGTO
FROM CONTRATOLEITE C
INNER JOIN PRODUTORLEITE PR ON (PR.CD_PESSOA = C.CD_PESSOA
  AND PR.CD_ENDERECO = C.CD_ENDERECO)
INNER JOIN PESSOA P ON (P.CD_PESSOA = PR.CD_PESSOA)
INNER JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = C.CD_PESSOA
  AND EP.CD_ENDERECO = C.CD_ENDERECO)
INNER JOIN MUNICIPIO MU ON (MU.CD_MUNICIPIO = EP.CD_MUNICIPIO)
INNER JOIN ESTADO ES ON (ES.SG_ESTADO = MU.SG_ESTADO)
INNER JOIN FECHAMENTOCONTRATO F ON (F.CD_EMPRESA = C.CD_EMPRESA
  AND F.NR_CONTRATO = C.NR_CONTRATO
  AND F.NR_SEQUENCIAL = (
SELECT MAX(NR_SEQUENCIAL)
FROM FECHAMENTOCONTRATO
WHERE CD_EMPRESA = C.CD_EMPRESA
  AND NR_CONTRATO = C.NR_CONTRATO))
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = C.CD_EMPRESA)
LEFT JOIN FORMAPAGTO FG ON (FG.CD_FORMAPAGTO = C.CD_FORMAPAGTO)
LEFT JOIN PRODUTORROTACAP PRC ON (PRC.CD_PESSOA = PR.CD_PESSOA
  AND PRC.CD_ENDERECO = PR.CD_ENDERECO)
LEFT JOIN LINHACAPTACAO L ON (L.CD_LINHACAPTACAO = PRC.CD_LINHACAPTACAO)
WHERE C.CD_EMPRESA = :CD_EMPRESA CD_EMPRESA CD_EMPRESA;NR_CONTRATO
SELECT ODT_MOVTOLEITE DT_MOVTOLEITE, OQT_LEITE QT_LEITE, OTP_MOVTOLEITE TP_MOVTOLEITE, OST_MOVTOLEITE ST_MOVTOLEITE, ONR_PLACA NR_PLACA, ONM_PESSOA NM_PESSOA
FROM VIEW_RCA001 (:CD_EMPRESA, :NR_CONTRATO, 'N', NULL)
ORDER BY ONR_ORDEM CD_EMPRESA NR_CONTRATO

Tabelas Utilizadas

Tabela	Uso
CONTRATOLEITE	referenciada nas queries do layout
EMPRESA	referenciada nas queries do layout
ENDERECOPESSOA	referenciada nas queries do layout
ESTADO	referenciada nas queries do layout
FECHAMENTOCONTRATO	referenciada nas queries do layout
FORMAPAGTO	referenciada nas queries do layout
LINHACAPTACAO	referenciada nas queries do layout
MUNICIPIO	referenciada nas queries do layout
PESSOA	referenciada nas queries do layout
PRODUTORLEITE	referenciada nas queries do layout
PRODUTORROTACAP	referenciada nas queries do layout
[[VIEW_RCA001]]	referenciada nas queries do layout

Shared Units

• jCommon
• jPesquisa

Fonte

• Unit: source/LFC002/ULFC002.pas
• DFM: source/LFC002/ULFC002.dfm
• Package: source/LFC002/LFC002.dpk