Pular para o conteúdo principal

LFC001 — Listagem LFC001

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 PARMFATUR, com junção em CONTRATOLEITE, MOVTOLEITE, EMPRESA, RETORNA_DADOSCADASTRAIS, PESSOA, ENDERECOPESSOA (+10), filtrada por CD_EMPRESA, OQT_, QT_, F, JO, NR_CONTRATO (+15).

Chamada​

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

SQL Base​

tabLEITE​

SELECT DISTINCT F.CD_EMPRESA, RD.DS_ENDERECO EDS_ENDERECO, RD.DS_MUNICIPIO||'/'||RD.SG_ESTADO EDS_MUNICIPIO, RD.NR_CEP ENR_CEP, RD.DS_EMAIL EDS_EMAIL, RD.DS_SITE EDS_SITE, RD.NR_CNPJCPF ENR_CNJPCPF, RD.NR_INSCEST ENR_INSCEST, COALESCE(RD.NR_FONE, RD.NR_FAX, RD.NR_CELULAR) ENR_FONE, (
SELECT DS_LOGOTIPO
FROM PARMFATUR
WHERE CD_EMPRESA = CL.CD_EMPRESA) DS_LOGOTIPO, P.NM_PESSOA, E.DS_ENDERECO, MP.DS_MUNICIPIO||MP.SG_ESTADO DS_MUNICIPIO, P.NR_CNPJCPF, E.NR_FONE, CL.DT_COMPETENCIA, CL.NR_CONTRATO, F.VL_SALDO, F.VL_CREDITO, F.VL_DEBITO, F.VL_PRECO, F.QT_FECHAMENTO, CL.ST_CONTRATOLEITE, F.VL_TOTALIMPOSTO, /*CASE MT.TP_MOVTOLEITE WHEN 'C' THEN 'Recebimento' WHEN 'E' THEN 'Transferência de Entrada' WHEN 'S' THEN 'Transferência de Saída' WHEN 'D' THEN 'Devolução' END*/ '' TP_MOVTOLEITE, CL.CD_PESSOA, CI.OQT_INCENTIVO QT_INCENTIVO
FROM FECHAMENTOCONTRATO F
INNER JOIN CONTRATOLEITE CL ON (CL.CD_EMPRESA = F.CD_EMPRESA
  AND CL.NR_CONTRATO = F.NR_CONTRATO)
INNER JOIN MOVTOLEITE MT ON (MT.CD_EMPRCONTRATO = CL.CD_EMPRESA
  AND MT.NR_CONTRATO = CL.NR_CONTRATO)
INNER JOIN EMPRESA ON (EMPRESA.CD_EMPRESA = CL.CD_EMPRESA)
LEFT JOIN RETORNA_DADOSCADASTRAIS(EMPRESA.CD_PESSOA,NULL) RD ON (1=1)
INNER JOIN PESSOA P ON (P.CD_PESSOA = CL.CD_PESSOA)
INNER JOIN ENDERECOPESSOA E ON (E.CD_PESSOA = CL.CD_PESSOA
  AND E.CD_ENDERECO = CL.CD_ENDERECO)
INNER JOIN MUNICIPIO MP ON (MP.CD_MUNICIPIO = E.CD_MUNICIPIO)
LEFT JOIN CALCULA_INCENTIVOPRODUCAO(CL.CD_EMPRESA, CL.NR_CONTRATO, NULL, NULL) CI ON (1 = 1)
WHERE CL.ST_CONTRATOLEITE = 'F'
  AND F.CD_EMPRESA = :CD_EMPRESA
  AND F.NR_SEQUENCIAL = (
SELECT MAX(NR_SEQUENCIAL)
FROM FECHAMENTOCONTRATO
WHERE CD_EMPRESA = CL.CD_EMPRESA
  AND NR_CONTRATO = CL.NR_CONTRATO) CD_EMPRESA
SELECT F.NR_CONTRATO, C.NR_DOCUMENTO, H.DS_HISTORICO, H.CD_HISTORICO, SUM(F.VL_DEBITO) VL_DOCUMENTO, CASE WHEN C.TP_DOCUMENTO = 'NT' THEN 'Nota Fiscal' WHEN C.TP_DOCUMENTO = 'CL' THEN 'Contrato' WHEN C.TP_DOCUMENTO = 'AD' THEN 'Adto' WHEN C.TP_DOCUMENTO = 'DP' THEN 'Dupl' END TP_DOCTO
FROM FECHAMENTODEBITO F
INNER JOIN CONTAS C ON (C.CD_EMPRESA = F.CD_EMPRCONTAS
  AND C.NR_LANCAMENTO = F.NR_LANCAMENTO
  AND C.CD_PESSOA = F.CD_PESSOA
  AND C.CD_TIPOCONTA = F.CD_TIPOCONTA
  AND C.NR_PARCELA = F.NR_PARCELA)
INNER JOIN CONTASHISTORICO CH ON (CH.CD_EMPRESA = F.CD_EMPRCONTAS
  AND CH.NR_LANCAMENTO = F.NR_LANCAMENTO
  AND CH.CD_PESSOA = F.CD_PESSOA
  AND CH.CD_TIPOCONTA = F.CD_TIPOCONTA
  AND CH.NR_PARCELA = F.NR_PARCELA)
INNER JOIN HISTORICO H ON (CH.CD_HISTORICO = H.CD_HISTORICO)
WHERE F.CD_EMPRESA = :CD_EMPRESA
  AND F.NR_CONTRATO = :NR_CONTRATO
  AND C.ST_CONTAS <> 'C'
  AND F.TP_FECHAMENTO <> 'C'
  AND C.TP_CONTAS = 'E'
  AND C.TP_DOCUMENTO <> 'CL'
GROUP BY F.NR_CONTRATO, C.NR_DOCUMENTO, H.DS_HISTORICO, H.CD_HISTORICO, C.TP_DOCUMENTO CD_EMPRESA NR_CONTRATO
SELECT F.NR_CONTRATO, C.NR_DOCUMENTO, H.DS_HISTORICO, H.CD_HISTORICO, SUM(F.VL_DEBITO) VL_DOCUMENTO, CASE WHEN C.TP_DOCUMENTO = 'NT' THEN 'Nota Fiscal' WHEN C.TP_DOCUMENTO = 'CL' THEN 'Contrato' WHEN C.TP_DOCUMENTO = 'AD' THEN 'Adto' WHEN C.TP_DOCUMENTO = 'DP' THEN 'Dupl' END TP_DOCTO
FROM FECHAMENTODEBITO F
INNER JOIN CONTAS C ON (C.CD_EMPRESA = F.CD_EMPRCONTAS
  AND C.NR_LANCAMENTO = F.NR_LANCAMENTO
  AND C.CD_PESSOA = F.CD_PESSOA
  AND C.CD_TIPOCONTA = F.CD_TIPOCONTA
  AND C.NR_PARCELA = F.NR_PARCELA)
INNER JOIN CONTASHISTORICO CH ON (CH.CD_EMPRESA = F.CD_EMPRCONTAS
  AND CH.NR_LANCAMENTO = F.NR_LANCAMENTO
  AND CH.CD_PESSOA = F.CD_PESSOA
  AND CH.CD_TIPOCONTA = F.CD_TIPOCONTA
  AND CH.NR_PARCELA = F.NR_PARCELA)
INNER JOIN HISTORICO H ON (CH.CD_HISTORICO = H.CD_HISTORICO)
WHERE F.CD_EMPRESA = :CD_EMPRESA
  AND F.NR_CONTRATO = :NR_CONTRATO
  AND C.ST_CONTAS <> 'C'
  AND F.TP_FECHAMENTO <> 'C'
  AND C.TP_CONTAS = 'S'
GROUP BY F.NR_CONTRATO, C.NR_DOCUMENTO, H.DS_HISTORICO, C.TP_CONTAS, C.TP_DOCUMENTO, H.CD_HISTORICO CD_EMPRESA NR_CONTRATO
SELECT F.VL_SALDO, F.VL_CREDITO, F.VL_DEBITO, F.VL_PRECO, /*CAST(SUM(MT.QT_LEITE) AS DOM_NUMERIC15_2) QT_FECHAMENTO,*/ F.QT_FECHAMENTO, CL.ST_CONTRATOLEITE, F.VL_TOTALIMPOSTO, /*CASE WHEN MT.TP_MOVTOLEITE = 'C' THEN 'Recebimento' WHEN MT.TP_MOVTOLEITE = 'E' THEN 'Transferência de Entrada' WHEN MT.TP_MOVTOLEITE = 'S' THEN 'Transferência de Saída' WHEN MT.TP_MOVTOLEITE = 'D' THEN 'Devolução' END TP_MOVTOLEITE, */ CAST(NULL AS DOM_CHAR1)TP_MOVTOLEITE, ITEM.DS_ITEM, CL.CD_PESSOA, P.NM_PESSOA, VL.O_VALOR, M.O_DS_MES, 'Recebi de '||E.NM_EMPRESA||', a importância de supra mencionada de R$ '||F.VL_SALDO|| ' ('||VL.O_VALOR||'), referente ao meu fornecimento de '||F.QT_FECHAMENTO|| ' litros de Leite cru in natura durante o mês de '||M.O_DS_MES||' de '||SUBSTRING(Cl.DT_COMPETENCIA
FROM 4 FOR 7)|| '. Para maior firmo o presente recibo de conformidade com a lei.' RECIBO, MC.DS_MUNICIPIO||', '||FORMATA_DATA(F.DT_FECHAMENTO,'%d')||' de '||MF.O_DS_MES|| ' de '||FORMATA_DATA(F.DT_FECHAMENTO,'%Y')||'.' DT_CIDADE
FROM CONTRATOLEITE CL
INNER JOIN FECHAMENTOCONTRATO F ON (F.CD_EMPRESA = CL.CD_EMPRESA
  AND F.NR_CONTRATO = CL.NR_CONTRATO
  AND F.NR_SEQUENCIAL = (
SELECT MAX(NR_SEQUENCIAL)
FROM FECHAMENTOCONTRATO
WHERE CD_EMPRESA = CL.CD_EMPRESA
  AND NR_CONTRATO = CL.NR_CONTRATO))
INNER JOIN MOVTOLEITE MT ON (MT.CD_EMPRCONTRATO = CL.CD_EMPRESA
  AND MT.NR_CONTRATO = CL.NR_CONTRATO)
INNER JOIN PARMLEITE PL ON (PL.CD_EMPRESA = CL.CD_EMPRESA)
INNER JOIN ITEM ON (ITEM.CD_ITEM = PL.CD_ITEMLEITE)
INNER JOIN PESSOA P ON (P.CD_PESSOA = CL.CD_PESSOA)
LEFT JOIN VALOR_EXTENSO(F.VL_SALDO) VL ON (1=1)
LEFT JOIN MES_EXTENSO('01.'||REPLACE(CL.DT_COMPETENCIA,'/','.')) M ON (1=1)
INNER JOIN EMPRESA E ON (E.CD_EMPRESA = F.CD_EMPRESA)
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = E.CD_PESSOA)
LEFT JOIN ENDERECOPESSOA EP ON (EP.CD_PESSOA = PE.CD_PESSOA)
LEFT JOIN MUNICIPIO MC ON (MC.CD_MUNICIPIO = EP.CD_MUNICIPIO)
LEFT JOIN MES_EXTENSO(F.DT_FECHAMENTO) MF ON (1=1)
WHERE F.CD_EMPRESA = COALESCE(:CD_EMPRESA,0)
  AND F.NR_CONTRATO = COALESCE(:NR_CONTRATO,0)
  AND F.NR_SEQUENCIAL = (
SELECT MAX(NR_SEQUENCIAL)
FROM FECHAMENTOCONTRATO
WHERE CD_EMPRESA = CL.CD_EMPRESA
  AND NR_CONTRATO = CL.NR_CONTRATO)
GROUP BY F.VL_SALDO, F.VL_CREDITO, F.VL_DEBITO, F.VL_PRECO, F.QT_FECHAMENTO, CL.ST_CONTRATOLEITE, F.VL_TOTALIMPOSTO, /* CASE WHEN MT.TP_MOVTOLEITE = 'C' THEN 'Recebimento' WHEN MT.TP_MOVTOLEITE = 'E' THEN 'Transferência de Entrada' WHEN MT.TP_MOVTOLEITE = 'S' THEN 'Transferência de Saída' WHEN MT.TP_MOVTOLEITE = 'D' THEN 'Devolução' END,*/ ITEM.DS_ITEM, CL.CD_PESSOA, P.NM_PESSOA, VL.O_VALOR, M.O_DS_MES, 'Recebi de '||E.NM_EMPRESA||', a importância de supra mencionada de R$ '||F.VL_SALDO|| ' ('||VL.O_VALOR||'), referente ao meu fornecimento de '||F.QT_FECHAMENTO|| ' litros de Leite cru in natura durante o mês de '||M.O_DS_MES||' de '||SUBSTRING(Cl.DT_COMPETENCIA
FROM 4 FOR 7)|| '. Para maior firmo o presente recibo de conformidade com a lei.', MC.DS_MUNICIPIO||', '||FORMATA_DATA(F.DT_FECHAMENTO,'%d')||' de '||MF.O_DS_MES|| ' de '||FORMATA_DATA(F.DT_FECHAMENTO,'%Y')||'.' CD_EMPRESA NR_CONTRATO
SELECT C.CD_EMPRESA, C.CD_PESSOA, C.NR_LANCAMENTO, C.TP_DOCUMENTO, C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO, C.VL_SALDO, MIN(CH.CD_HISTORICO) CD_HISTORICO, C.NR_DOCUMENTO, (
SELECT DS_HISTORICO
FROM HISTORICO
WHERE CD_HISTORICO = MIN(CH.CD_HISTORICO)) DS_HISTORICO, C.CD_TIPOCONTA, C.TP_CONTAS, CASE C.TP_DOCUMENTO WHEN 'NT' THEN 'Nota Fiscal' WHEN 'AD' THEN 'Adiantamento' WHEN 'DP' THEN 'Duplicata' END TP_DOCTO
FROM CONTAS C
INNER JOIN CONTASHISTORICO CH ON (CH.NR_LANCAMENTO = C.NR_LANCAMENTO
  AND CH.CD_PESSOA = C.CD_PESSOA
  AND CH.CD_EMPRESA = C.CD_EMPRESA
  AND CH.NR_PARCELA = C.NR_PARCELA
  AND CH.CD_TIPOCONTA = C.CD_TIPOCONTA)
WHERE C.ST_CONTAS IN ('T','P')
  AND C.TP_CONTAS = 'S'
  AND C.TP_DOCUMENTO IN ('NT','DP','AD')
  AND C.CD_PESSOA = :CD_PESSOA
GROUP BY C.CD_EMPRESA, C.CD_PESSOA, C.NR_LANCAMENTO,C.TP_DOCUMENTO, C.NR_PARCELA, C.DT_VENCIMENTO, C.VL_DOCUMENTO, C.VL_SALDO, C.NR_DOCUMENTO, C.CD_TIPOCONTA, C.TP_CONTAS CD_PESSOA

Tabelas Utilizadas​

TabelaUso
CALCULA_INCENTIVOPRODUCAOreferenciada nas queries do layout
CONTASreferenciada nas queries do layout
CONTASHISTORICOreferenciada nas queries do layout
CONTRATOLEITEreferenciada nas queries do layout
EMPRESAreferenciada nas queries do layout
ENDERECOPESSOAreferenciada nas queries do layout
FECHAMENTOCONTRATOreferenciada nas queries do layout
FECHAMENTODEBITOreferenciada nas queries do layout
HISTORICOreferenciada nas queries do layout
ITEMreferenciada nas queries do layout
MES_EXTENSOreferenciada nas queries do layout
MOVTOLEITEreferenciada nas queries do layout
MUNICIPIOreferenciada nas queries do layout
PARMFATURreferenciada nas queries do layout
PARMLEITEreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
VALOR_EXTENSOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LFC001/ULFC001.pas
  • DFM: source/LFC001/ULFC001.dfm
  • Package: source/LFC001/LFC001.dpk