Pular para o conteúdo principal

LRF003 — Layout LRF003

Visão Geral​

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

Descrição​

Consulta baseada em EMPRESA, com junção em RETORNA_DADOSCADASTRAIS, SOCIO, TIPOSOCIO, filtrada por CD_EMPRESA, DT_APURACAO.

Chamada​

ExecLayout(Connection, [
  // 0 - Nome do Layout de Duplicata
  // 1 - Empresa
  // 2 - Data Inicial
  // 3 - Data Final
  // 4 -
  // 5 - Path Servidor
  // 6 - Visualiza -> V  ou  Imprime -> I
  // 7 - Impressora do Parametro
]);

SQL Base​

tabDECLARACAO #1​

SELECT E.NM_EMPRESA||', pessoa jurídica de direito privado, cadastrada no CNPJ/MF. sob o n° '|| RE.NR_CNPJCPF||', estabelecido na '||RE.DS_ENDCOMPLETO||', neste ato representado por'|| ' Sócio e '||coalesce(T.DS_TIPOSOCIO,'')||', Sr(a). '||coalesce(RS.NM_PESSOA,'')||', portador'|| ' da carteira de Identidade civil n° '||coalesce(RS.NR_RG,'')||' '||coalesce(RS.SG_ESTADORG,'')|| ' , CPF: n° '||coalesce(RS.NR_CNPJCPF,'')||' e por seu CONTADOR, DECLARAM para os devidos'|| ' fins de atualização cadastradal de conta corrente junto as Instituições Financeiras, que a empresa'|| ' auferiu no período de ' DS_TEXTO, RS.NM_PESSOA NM_SOCIO, T.DS_TIPOSOCIO
FROM EMPRESA E
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA,NULL) RE ON (1 = 1)
LEFT JOIN SOCIO S on (S.CD_EMPRESA = E.CD_EMPRESA
  AND S.ST_RESPONSAVEL = 'S')
LEFT JOIN TIPOSOCIO T on (T.CD_TIPOSOCIO = S.CD_TIPOSOCIO)
LEFT JOIN RETORNA_DADOSCADASTRAIS(S.CD_PESSOA,NULL) RS ON (1 = 1)
WHERE E.CD_EMPRESA = :CD_EMPRESA CD_EMPRESA
SELECT FORMATA_DATA(R.DT_APURACAO,'%m/%Y') DT_APURACAO, R.VL_VENDA, R.VL_SERVICOS, R.VL_RECEITABRUTA
FROM RELFATURAMENTO R
WHERE R.CD_EMPRESA = :CD_EMPRESA
  AND R.DT_APURACAO between PRIMEIRODIAMES(cast(replace('01/2005','/','/01/') as date))
  AND ULTIMODIAMES(cast(replace('03/2005','/','/01/') as date))
ORDER BY R.DT_APURACAO CD_EMPRESA

tabDECLARACAO #2​

SELECT E.NM_EMPRESA||', pessoa jurídica de direito privado, cadastrada no CNPJ/MF.'|| ' sob o n° '||RE.NR_CNPJCPF||', estabelecido na '||RE.DS_ENDCOMPLETO||', neste ato representado por'|| ' Sócio e '||coalesce(T.DS_TIPOSOCIO,'')||', Sr(a). '||coalesce(RS.NM_PESSOA,'')||', portador'|| ' da carteira de Identidade civil n° '||coalesce(RS.NR_RG,'')||' '||coalesce(RS.SG_ESTADORG,'')|| ' , CPF: n° '||coalesce(RS.NR_CNPJCPF,'')||' e por seu CONTADOR, DECLARAM para os devidos'|| ' fins de atualização cadastral de conta corrente junto as Instituições Financeiras, que a empresa'|| ' auferiu no período de '||FORMATA_DATA({Nulo}

tabDETALHE​

SELECT R.O_DT_COMPETENCIA DT_APURACAO, R.O_VL_VENDA VL_VENDA, R.O_VL_SERVICO VL_SERVICOS, R.O_VL_RECEITABRUTA VL_RECEITABRUTA
FROM RETORNA_RELACAOFATURAMENTO({iParametros}

Text #1​

SELECT E.NM_EMPRESA||', pessoa jurídica de direito privado, cadastrada no CNPJ/MF.'|| ' sob o n° '||RE.NR_CNPJCPF||', estabelecido na '||RE.DS_ENDCOMPLETO||', neste ato representado por'|| ' Sócio e '||coalesce(T.DS_TIPOSOCIO,'')||', Sr(a). '||coalesce(RS.NM_PESSOA,'')||', portador'|| ' da carteira de Identidade civil n° '||coalesce(RS.NR_RG,'')||' '||coalesce(RS.SG_ESTADORG,'')|| ' , CPF: n° '||coalesce(RS.NR_CNPJCPF,'')||' e por seu CONTADOR, DECLARAM para os devidos'|| ' fins de atualização cadastral de conta corrente junto as Instituições Financeiras, que a empresa'|| ' auferiu no período de '||FORMATA_DATA({Nulo(iParametros[2],}D{)},'%m/%Y')||' a '||FORMATA_DATA({Nulo(iParametros[3],}D{)},'%m/%Y')||', a seguinte receita: ' DS_TEXTO, RS.NM_PESSOA NM_SOCIO, T.DS_TIPOSOCIO, CONT.NM_PESSOA NM_CONTADOR
FROM EMPRESA E
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA,NULL) RE ON (1 = 1)
LEFT JOIN SOCIO S on (S.CD_EMPRESA = E.CD_EMPRESA
  AND S.ST_RESPONSAVEL = 'S')
LEFT JOIN TIPOSOCIO T on (T.CD_TIPOSOCIO = S.CD_TIPOSOCIO)
LEFT JOIN RETORNA_DADOSCADASTRAIS(S.CD_PESSOA,NULL) RS ON (1 = 1)
LEFT JOIN PARMFISCAL PF ON (PF.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN PESSOA CONT ON (CONT.CD_PESSOA = PF.CD_RESPONSAVEL)
WHERE E.CD_EMPRESA = {iParametros[1]}

Text #2​

SELECT R.O_DT_COMPETENCIA DT_APURACAO, R.O_VL_VENDA VL_VENDA, R.O_VL_SERVICO VL_SERVICOS, R.O_VL_RECEITABRUTA VL_RECEITABRUTA
FROM RETORNA_RELACAOFATURAMENTO({iParametros[1]},{Nulo(iParametros[2],}D{)},{Nulo(iParametros[3],}D{)}) R

Tabelas Utilizadas​

TabelaUso
EMPRESAreferenciada nas queries do layout
PARMFISCALreferenciada nas queries do layout
PESSOAreferenciada nas queries do layout
RELFATURAMENTOreferenciada nas queries do layout
RETORNA_DADOSCADASTRAISreferenciada nas queries do layout
RETORNA_RELACAOFATURAMENTOreferenciada nas queries do layout
SOCIOreferenciada nas queries do layout
TIPOSOCIOreferenciada nas queries do layout

Shared Units​

  • jCommon
  • jPesquisa

Fonte​

  • Unit: source/LRF003/ULRF003.pas
  • DFM: source/LRF003/ULRF003.dfm
  • Package: source/LRF003/LRF003.dpk