[Sped Contábil - Layout Versão 3.00]

Resolvido, problema de atribuição mesmo.

[Sped Contábil - Layout Versão 3.00]

Boa tarde e obrigado Juliomar, na realidade este procedimento já fiz e descobri que o problema é outro.

procedure TACBrSPEDContabil.IniciaGeracao;
var
  intFor: integer;
begin

  showmessage( fpath );
  showmessage( arquivo ); // esta variavel chega aqui nula, sem valor

  if FInicializado then exit;

  if (Trim(Arquivo) = '') or (Trim(fPath) = '') then
     raise Exception.Create( ACBrStr('Caminho ou nome do arquivo não informado!'));

  FACBrTXT.NomeArquivo := FPath + Arquivo ;
  FACBrTXT.Reset;    // Apaga o Arquivo e limpa memória
  InicializaBloco( Bloco_0 ) ;
  InicializaBloco( Bloco_I ) ;
  InicializaBloco( Bloco_J ) ;
  InicializaBloco( Bloco_9 ) ;

  /// Preparação para totalizações de registros.
  Bloco_0.Registro0990.QTD_LIN_0 := 0;
  Bloco_I.RegistroI990.QTD_LIN_I := 0;
  Bloco_J.RegistroJ990.QTD_LIN_J := 0;
  Bloco_9.Registro9990.QTD_LIN_9 := 0;
  Bloco_9.Registro9999.QTD_LIN   := 0;

  for intFor := 0 to Bloco_9.Registro9900.Count - 1 do
  begin
     Bloco_9.Registro9900.Items[intFor] := nil;
     Bloco_9.Registro9900.Items[intFor].Free;
  end;

  Bloco_9.Registro9900.Clear;

  FInicializado := True;
end;

 

[Sped Contábil - Layout Versão 3.00]

Boa noite, Srs.,

 

O SPedContabil está dando erro no procedimento abaixo

 

procedure TACBrSPEDContabil.InicializaBloco(Bloco: TACBrSPED);

begin

   Bloco.NomeArquivo  := FACBrTXT.NomeArquivo;

   Bloco.LinhasBuffer := FACBrTXT.LinhasBuffer;

   Bloco.Gravado      := False ;

   if not Assigned(Bloco.Conteudo) then

     Bloco.Conteudo := TStringList.Create;

   Bloco.Conteudo.Clear;

end;

 

Especificamente na linha negritada, com o erro de read only propertie. 

 

O que posso fazer?

 

Abraço

Bom dia, poderia dizer como resolveu, pois estou enfrentando o mesmo problema.

Grato.

[Duvida Sped Piscofins Bloco M]

Boa tarde amigo, você deve estar com algum item com CST diferente ou errado.

[Sped Contábil - Layout Versão 2.00]

Até agora ainda não descobri, o registro J100 está com o mesmo problema, onde tem DT_INI está vindo com o valor de 30/12/1899. No registro I030 no fonte ACBrECDBloco_I_Class onde tem if DT_INI >= EncodeDate(2013,01,01) then resolvi colocar if DT_EX_SOCIAL >= EncodeDate(2012,12,31) then e funcionou, porém no registro J100 não funciona.

Continuando a tentar descobrir onde DT_INI ou está faltando atribuir o valor correto.

Comentei o codigo que gera a versão antiga e gerei o arquivo corretamente.

[Erro Registro J100]

Boa tarde, também estou com o mesmo problema, a DT_INI passado no registro 0000 entra como 01/01/2013, porém ao chegar neste registro o mesmo chega com 30/12/1899. Já tentei rastrear mas não consegui localizar onde está o problema.

Resolvi comentando o código onde analiza a DT_INI, optei por gerar automaticamente a versão 2.00, acredito que não ficará assim definitivamente.

[Sped Contabil Em C#]

Boa tarde, estou usando o Sped contábil, mas com alguns problemas ainda não resolvidos, mas estou mexendo e tentando resolver, uso o sped contábil, fiscal e contribuições. Pode entrar em contato sim, meu skype é eroni_americo.

Consegui validar o Sped contabil, fazendo algumas alterações a meu jeito, acredito que não ficará definitivamente assim, mas resolvi, se quiser alguma ajuda por skype, estou a disposição.

[Sped Contabil Em C#]

Oi Eroni,

 

Já trabalhei com Delphi do 2 ao 7.

 

Você está utilizando o SPED Contabil sem problemas? Posso entrar em contato para trocarmos algumas ideias?

 

Att e obr pela resposta,

Boa tarde, estou usando o Sped contábil, mas com alguns problemas ainda não resolvidos, mas estou mexendo e tentando resolver, uso o sped contábil, fiscal e contribuições. Pode entrar em contato sim, meu skype é eroni_americo.

[Erro Registro J100]

Boa tarde, também estou com o mesmo problema, a DT_INI passado no registro 0000 entra como 01/01/2013, porém ao chegar neste registro o mesmo chega com 30/12/1899. Já tentei rastrear mas não consegui localizar onde está o problema.

[Sped Contábil - Layout Versão 2.00]

OK, Juliomar, obrigado pelas dicas e desculpe por não ter explicado desde o inicio, é que já tinha mencionado em outras ocasiões de outros tópicos e acabei esquecendo de mencionar. Vou tentar seguir os passos seguindo as datas agora a tarde e tentar descobrir.

Até agora ainda não descobri, o registro J100 está com o mesmo problema, onde tem DT_INI está vindo com o valor de 30/12/1899. No registro I030 no fonte ACBrECDBloco_I_Class onde tem if DT_INI >= EncodeDate(2013,01,01) then resolvi colocar if DT_EX_SOCIAL >= EncodeDate(2012,12,31) then e funcionou, porém no registro J100 não funciona.

Continuando a tentar descobrir onde DT_INI ou está faltando atribuir o valor correto.

[Sped Contábil - Layout Versão 2.00]

OK, Juliomar, obrigado pelas dicas e desculpe por não ter explicado desde o inicio, é que já tinha mencionado em outras ocasiões de outros tópicos e acabei esquecendo de mencionar. Vou tentar seguir os passos seguindo as datas agora a tarde e tentar descobrir.

[Sped Contábil - Layout Versão 2.00]

É que eu uso uma outra linguagem e dentro dela eu chamo uma dll que faz a geração do arquivo. Essa dll é gerada em Deplhi, usando os componentes da ACBR.  Então as parte que fornece os dados é na minha outra linguagem e a geração do arquivo é uma dll que é feita em Dephi.

[Sped Contábil - Layout Versão 2.00]

Juliomar, o problema é que eu não tenho idéia de como tenho que checar isso, o componente que vc fala, é o fonte que eu gero a dll? A ocorrencia não foi encontrada, é algum outro fonte?

 

[Sped Contábil - Layout Versão 2.00]

Alterei o fonte conforme abaixo, fiquei espeando a mensagem, mas não apareceu nada, será que esta função não está sendo chamada onde deveria?

 

 

procedure TACBrSPEDContabil.SetDT_INI(const Value: TDateTime);

begin

  showmessage( 'teste' ) ;                     // aqui - eroni

  showmessage( datetostr( Value ) ) ;  // aqui - eroni

  FDT_INI := Value;

  //

  FBloco_0.DT_INI := Value;

  FBloco_I.DT_INI := Value;

  FBloco_J.DT_INI := Value;

  FBloco_9.DT_INI := Value;

  //

  if Assigned(FBloco_0) then

  begin

     FBloco_0.Registro0000.DT_INI := Value;

  end;

end;

[Sped Contábil - Layout Versão 2.00]

Obrigado Juliomar, é que não sou programador Delphi, uso uma outra linguagem, então vou apanhar um pouco para implementar os devidos debugs, mas vou me virando e posto o resultado aqui.

[Sped Contábil - Layout Versão 2.00]

Boa tarde, Juliomar, obrigado pela ajuda, seguindo suas instruções, coloquei um aviso no ponto que você mencionou, a data que estou passando como parâmetro do meu sistema é 01/01/2013 e o valor que está chegando lá é 30/12/1899, conforme a imagem que anexei. Alguma idéia de onde posso estar errando?  Antecipadamente obrigado pela atenção.

[Sped Contábil - Layout Versão 2.00]

Boa noite, estou gerando o arquivo na versão 2.00, o registro 0000 gera os campos adicionais que foram criados normalmente, porém o registro I030 insiste em gerar como na versão 1.00, mesmo eu passando os parametros corretos na chamada da função, as datas serem de 2013 e a versao passada no registro I010 ser 2.00, alguem já passou por isso? Boa noite a todos.

[Registro I015]

Obrigado EMBarbosa. Resolvido.

[Registro I015]

Sim, eu conferi o codigo que tenho aqui em ACBrECDBloco_I.pas e está igual ao seu acima. Mas não consegui entender o que preciso mexer.

[Registro I015]

Boa tarde, Juliomar, acredito que estes erros deve ser minha falta de conhecimento em Delphi mesmo, a ultima vez que eu trabalhei com Delphi estava na versão 5 ainda, de la pra cá não mexi mais, meu aplicativo é em outra ferramenta. Mas vou tentar voltar a ter a mesma prática que tinha antes, e assim, também vou poder contribuir para esta comunidade. Alguma dica de documentação para quem está enferrujado?

Grato.

[Registro I015]

Bom dia, no meu caso, na geração da dll, o erro está dando neste ponto:

 

Function RegistroI015(SEQ_ITEM:integer; COD_CTA_RES: PChar): Integer; Export; stdcall;
begin
   Result := 0;
   try
     SC.Bloco_I.RegistroI015.New;   // erro aqui
     SC.Bloco_I.RegistroI015.Items[sEQ_ITEM].COD_CTA_RES := COD_CTA_RES; // erro aqui
   except
     Result := -1;
   end;
end;

[Registro I015]

Olá, também estou com o mesmo problema, CharlesCmS, conseguiu resolver?

[Dll Gerada Em Delphi 2007 Não Roda Em Outra Máquina]

Grato EMBarbosa.

[Sped Contabil Em C#]

Bom dia, acredito que sim, pois eu uso gerando uma dll em Delphi que abro na minha aplicação que é feita em outra linguagem. Mas tem que saber Delphi para gerar a dll.

[Dll Gerada Em Delphi 2007 Não Roda Em Outra Máquina]

Bom dia, recentemente tive que formatar o pc e re-instalar o Delphi, quando recompilo um projeto que gera dll, funciona na minha máquina onde o Delphi está instalado, mas em outra máquina não funciona, diz que está faltando o arquivo rtl100.bpl. já procurei tutorial sobre o assunto mas não encontrei, alguem sabe o que ocorre?

 

Grato a todos.