Sped ECF Disponibilizado do Trunk2

[arielguareschi]

Boa tarde Pessoal,

Revisei a indentação de todas as classes para seguir o padrão utilizado pela ACBr. e implementei o bloco E, o mesmo esta gerando o arquivo.

ACBrECFBloco_K.pas

ACBrECFBloco_L.pas

ACBrECFBloco_N.pas

ACBrECFBloco_P.pas

ACBrECFBloco_Y.pas

ACBrECFBlocos.pas

ACBrECFBloco_0.pas

ACBrECFBloco_0_Class.pas

ACBrECFBloco_9_Class.pas

ACBrECFBloco_C_Class.pas

ACBrECFBloco_E.pas

ACBrECFBloco_E_Class.pas

ACBrECFBloco_J.pas

ACBrECFBloco_J_Class.pas

ACBrECFBloco_K_Class.pas

ACBrECFBloco_M_Class.pas

ACBrECFBloco_M.pas

ACBrECFBloco_U_Class.pas

ACBrECFBloco_T_Class.pas

ACBrECFBloco_P_Class.pas

ACBrECFBloco_N_Class.pas

ACBrECFBloco_L_Class.pas

ACBrECFBloco_X_Class.pas

ACBrECFBloco_Y_Class.pas

ACBrSpedECF.pas

[arielguareschi]

Segue a correção do bloco M para gerar corretamente.

ACBrECFBloco_M_Class.pas

[Juliomar Marchetti]

No svn

[igcastro]

Desculpa, mas não vai ter um exemplo de como utilizar os blocos?

como tem no ACBrSPEDContabil e ACBrSPEDPISCOFINS

[Juliomar Marchetti]

Desculpa, mas não vai ter um exemplo de como utilizar os blocos?

como tem no ACBrSPEDContabil e ACBrSPEDPISCOFINS

Como você já mencionou ele é igual, basta usar a mesma metodologia o componente é igual em seu funcionamento e preenchimento!

[HELIO DA SILVA RODRIGUES]

Desculpe, mas não localizei o ACBrECFBloco_T

[Juliomar Marchetti]

Desculpe, mas não localizei o ACBrECFBloco_T

Está ali os escopos!

se quiser arregaçar as mangas e contribuir fique a vontade! depois basta anexar aqui

[Mozart]

Boa tarde, no ACBrECFBloco_M_Class.pas na procedure TBloco_M.WriteRegistroM300(RegM030: TRegistroM030); está assim:

with RegM030.RegistroM300.Items[intFor] do
      begin
        Add(LFill('M300')          +
            LFill(DESCRICAO)          +
            LFill(DESCRICAO)       +
            LFill(TIPO_LANCAMENTO) +
            LFill(IND_RELACAO)     +
            VLFill(VALOR,19,2)      +
            LFill(HIST_LAN_LAL));
      end;

 

Fiz a alteração no meu arquivo para liberar pro meu cliente. Na segunda linha, logo após o M300 troquei DESCRICAO por CODIGO

 

Outro erro que está acontencendo, é que ele está gerando uma data onde não tem data. 

Esta é a linha do registro gerado:

 

|M300|Provisões Não Dedutíveis|Provisões Não Dedutíveis|A|31121899|12,00||

 

já procurei em todo o componente, mas em lugar nenhum ele joga essa data. E no meu registro, ele 04  (Sem Relacionamento). Este campo seria o IND_RELACAO.

[arielguareschi]

Boa tarde, no ACBrECFBloco_M_Class.pas na procedure TBloco_M.WriteRegistroM300(RegM030: TRegistroM030); está assim:

with RegM030.RegistroM300.Items[intFor] do
      begin
        Add(LFill('M300')          +
            LFill(DESCRICAO)          +
            LFill(DESCRICAO)       +
            LFill(TIPO_LANCAMENTO) +
            LFill(IND_RELACAO)     +
            VLFill(VALOR,19,2)      +
            LFill(HIST_LAN_LAL));
      end;

 

Fiz a alteração no meu arquivo para liberar pro meu cliente. Na segunda linha, logo após o M300 troquei DESCRICAO por CODIGO

 

Outro erro que está acontencendo, é que ele está gerando uma data onde não tem data. 

Esta é a linha do registro gerado:

 

|M300|Provisões Não Dedutíveis|Provisões Não Dedutíveis|A|31121899|12,00||

 

já procurei em todo o componente, mas em lugar nenhum ele joga essa data. E no meu registro, ele 04  (Sem Relacionamento). Este campo seria o IND_RELACAO.

Boa tarde,

Primeiramente, você está com os fontes atualizados?

estes erros já foram corrigidos, mas o caso da data, coloca lfill(ind_relacao, 0)

[Mozart]

Boa tarde, no ACBrECFBloco_M_Class.pas na procedure TBloco_M.WriteRegistroM300(RegM030: TRegistroM030); está assim:

with RegM030.RegistroM300.Items[intFor] do
      begin
        Add(LFill('M300')          +
            LFill(DESCRICAO)          +
            LFill(DESCRICAO)       +
            LFill(TIPO_LANCAMENTO) +
            LFill(IND_RELACAO)     +
            VLFill(VALOR,19,2)      +
            LFill(HIST_LAN_LAL));
      end;

 

Fiz a alteração no meu arquivo para liberar pro meu cliente. Na segunda linha, logo após o M300 troquei DESCRICAO por CODIGO

 

Outro erro que está acontencendo, é que ele está gerando uma data onde não tem data. 

Esta é a linha do registro gerado:

 

|M300|Provisões Não Dedutíveis|Provisões Não Dedutíveis|A|31121899|12,00||

 

já procurei em todo o componente, mas em lugar nenhum ele joga essa data. E no meu registro, ele 04  (Sem Relacionamento). Este campo seria o IND_RELACAO.

Boa tarde,

Primeiramente, você está com os fontes atualizados?

estes erros já foram corrigidos, mas o caso da data, coloca lfill(ind_relacao, 0)

Obrigado pela resposta rápida. 

Respondendo à sua pergunta, eu tinha acabado de atualizar meus fontes pelo svn, e não tinha correção para esta função. 

Realmente era o LFILL, porém o LFILL passado estava como parâmetro TDateTime. Troquei para pegar o LFILL que tem como parâmetro o Int64. 

Acabei de rodar o sped novamente e funcionou. 

Se puderem dar uma olhada nos fontes só pra confirmar, agradeceria.

Mais uma vez, obrigado pela resposta rápida.

[Dalvan]

Boa Tarde,

Vou enviar um arquivo zipado com alguns ajustes encontrados na Classe ACBRECF
e implementação dos Registros faltantes para Bloco T - Lucro Arbitrado.

Att.
Dalvan

ACBrSPEDECF_Bloco_T_e_Ajustes.zip

[Juliomar Marchetti]

Boa tarde

Obrigado.. já está no svn!

[igcastro]

Alguem sabe se vai ter o exemplo e o componente para passar o ECF?

[Rodrigo - Digibyte]

Alguem sabe se vai ter o exemplo e o componente para passar o ECF?

O componente já existe, é justamente isso que está no título do tópico, basta instalar pelo trunk2o o instalador acbr).

Quanto ao exemplo provavelmente por enquanto não vai ter mas segue o padrão dos outros componente e em uma das páginas iniciais do tópico tem um exemplo de código em Delphi que coloquei.

[Carlos Renato Grandizoli Barbosa]

bom dia pessoal o Registro 0035 não está inserindo os dados,

ele gera o registro somente com a Reg 0035 e os outros dois campo vazios.

minha implementação está assim.

while not Qry_SCP.Eof do
               begin
                  with Registro0035New do
                  begin
                     COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14);
                     NOME_SCP := Qry_SCPNOM_PESSOA_2.Value;
                  end;
                  Application.ProcessMessages;
                  Qry_SCP.Next;
               end;

[Juliomar Marchetti]

só se estiver preenchendo errado pois ele faz o write desse bloco no txt

[Carlos Renato Grandizoli Barbosa]

as variáveis fcod_scp e fnome_scp estão vazias no Result

desta function

function TRegistro0035List.New: TRegistro0035;
begin
  Result := TRegistro0035.Create;
  Add(Result);
end;
 

[igcastro]

quando mando instalar não aparece o componente...porque?

segue em anexo o que aparece.

SPEDECF.docx

Pessoal alguem tem algum exemplo de ECF que ja foi validada para eu ver como é.

[Juliomar Marchetti]

Você está no trunk2?

senão estiver não vai adiantar ! deve de estar perto do décimo post que tu fala isso mas já prestou atenção no que perguntei!

[igcastro]

estava sim com o truck2 e não consegui mesmo, agradeço pelo apoio,mas consegui passar o meu spedECF através das divas deste post.

http://acontabilidade.blogspot.com.br/2015/08/sped-ecf-compensacao-de-prejuizo.html  

  

[Carlos Renato Grandizoli Barbosa]

boa tarde pessoal, ainda não consegui fazer o gravar o Registro0035

alguém tem alguma ideia de o pq ele não traz nada nas variáveis fcod_scp e fnome_scp

nesta function

function TRegistro0035List.New: TRegistro0035;
begin
  Result := TRegistro0035.Create;
  Add(Result);
end;

sendo que está sendo informado valores pra elas?

[Carlos Renato Grandizoli Barbosa]

bom dia, alguém tem alguma solução por favor ?!!!

[Isaque Pinheiro]

Meu amigo, se ninguém te respondeu ainda é bem provável que ninguém tenha feito, então não gaste seu tempo em ficar toda hora enchendo o fórum com a mesma pergunta, ponha a mão na massa e faça você mesmo com o tempo gasto em ficar toda hora perguntando.

O Código dos outros estão ai, estude de desenvolva, e se quiser disponibilize como contribuição se não quiser fique só para você.  

[arielguareschi]

boa tarde pessoal, ainda não consegui fazer o gravar o Registro0035

alguém tem alguma ideia de o pq ele não traz nada nas variáveis fcod_scp e fnome_scp

nesta function

function TRegistro0035List.New: TRegistro0035;
begin
  Result := TRegistro0035.Create;
  Add(Result);
end;

sendo que está sendo informado valores pra elas?

Bom dia Carlos,

 

Esta função que você citou, ela cria um registro do tipo 0035 e não precisa as variáveis, você esta usando a função Registro0035new?

 

[Carlos Renato Grandizoli Barbosa]

sim estou,

estou usando assim:

while not Qry_SCP.Eof do
               begin
                  with Registro0035New do
                  begin
                     COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14);
                     NOME_SCP := Qry_SCPNOM_PESSOA_2.Value;
                  end;
                  Application.ProcessMessages;
                  Qry_SCP.Next;
               end;