Pular para o conteúdo principal

LRF002 — Layout LRF002

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, PARMFISCAL, PESSOA, 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, PE.NM_PESSOA NM_CONTADOR, RE.DS_MUNICIPIO||'/'||RE.SG_ESTADO DS_MUNICIPIOUF
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 P ON (P.CD_EMPRESA = E.CD_EMPRESA)
LEFT JOIN PESSOA PE ON (PE.CD_PESSOA = P.CD_RESPONSAVEL)
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, 'CNPJ: ' || RE.NR_CNPJCPF NR_CNPJ, RE.DS_MUNICIPIOEND, {#10}PP.NM_PESSOA NM_SOCIO, 'CPF ' || PP.NR_CNPJCPF CPF, T.DS_TIPOSOCIO, {#10}PE.NM_PESSOA NM_CONTADOR , 'CRC ' || C.NR_CRCCONTADOR CRC , C.DS_TITULOCONTADOR, {#10}RE.DS_MUNICIPIO||'/'||RE.SG_ESTADO DS_MUNICIPIOUF {#10}
FROM EMPRESA E {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, null) RE on (1 = 1) {#10}
LEFT JOIN SOCIO S on (S.CD_EMPRESA = E.CD_EMPRESA {#10}
  AND S.ST_RESPONSAVEL = 'S') {#10}
LEFT JOIN PARMFISCAL P on (P.CD_EMPRESA = E.CD_EMPRESA) {#10}
LEFT JOIN PESSOA PE on (PE.CD_PESSOA = P.CD_RESPONSAVEL) {#10}
LEFT JOIN CONTADOR C ON (C.CD_PESSOA = P.CD_RESPONSAVEL) {#10}
LEFT JOIN PESSOA PP on (PP.CD_PESSOA = S.CD_PESSOA) {#10}
LEFT JOIN TIPOSOCIO T on (T.CD_TIPOSOCIO = S.CD_TIPOSOCIO) {#10}
WHERE E.CD_EMPRESA = {iParametros}

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, 'CNPJ: ' || RE.NR_CNPJCPF NR_CNPJ, RE.DS_MUNICIPIOEND, {#10}PP.NM_PESSOA NM_SOCIO, 'CPF ' || PP.NR_CNPJCPF CPF, T.DS_TIPOSOCIO, {#10}PE.NM_PESSOA NM_CONTADOR , 'CRC ' || C.NR_CRCCONTADOR CRC , C.DS_TITULOCONTADOR, {#10}RE.DS_MUNICIPIO||'/'||RE.SG_ESTADO DS_MUNICIPIOUF {#10}
FROM EMPRESA E {#10}
LEFT JOIN RETORNA_DADOSCADASTRAIS(E.CD_PESSOA, null) RE on (1 = 1) {#10}
LEFT JOIN SOCIO S on (S.CD_EMPRESA = E.CD_EMPRESA {#10}
  AND S.ST_RESPONSAVEL = 'S') {#10}
LEFT JOIN PARMFISCAL P on (P.CD_EMPRESA = E.CD_EMPRESA) {#10}
LEFT JOIN PESSOA PE on (PE.CD_PESSOA = P.CD_RESPONSAVEL) {#10}
LEFT JOIN CONTADOR C ON (C.CD_PESSOA = P.CD_RESPONSAVEL) {#10}
LEFT JOIN PESSOA PP on (PP.CD_PESSOA = S.CD_PESSOA) {#10}
LEFT JOIN TIPOSOCIO T on (T.CD_TIPOSOCIO = S.CD_TIPOSOCIO) {#10}
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
CONTADORreferenciada nas queries do layout
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/LRF002/ULRF002.pas
  • DFM: source/LRF002/ULRF002.dfm
  • Package: source/LRF002/LRF002.dpk