Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2083 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá.

Estou tentando gerar o arquivo para SPED e estou encontrando a seguinte mensagem: Informe a data inicial das informações contidas no arquivo!

Porém, creio que estou passando os valores corretamente.


  with SPED.Bloco_0 do
    begin
      with Registro0000New do
        begin
          COD_VER := vlVersao202;

          if rbOriginal.Checked then
            TIPO_ESCRIT := tpEscrOriginal
          else
            TIPO_ESCRIT := tpEscrRetificadora;

          IND_SIT_ESP := indNenhum;
          DT_INI := StrToDate('01/' + EditDataBase.Text);
          DT_FIN := EndOfTheMonth(StrToDate('01/' + EditDataBase.Text));

 

Atualizei o ACBr hoje e depois disso não consegui mais gerar o arquivo.

Obrigado.

bruno.gif

Link para o comentário
Compartilhar em outros sites

Comentei as linhas 420, 421, 423 e 424 na unit ACBrSpedPisCofins e o arquivo foi gerado corretamente e validado no programa da Receita.

//  if FDT_INI = 0 then
//    raise Exception.Create(ACBrStr('Informe a data inicial das informações contidas no arquivo!'));

//  if FDT_FIN = 0 then
//    raise Exception.Create(ACBrStr('Informe a data final das informações contidas no arquivo!'));

Seria um bug?

Detalhe é que aqui validou corretamente:

FACBrTXT.Check(DayOf(FDT_INI) = 1, 'CHECAGEM INICIAL: A data inicial deve '
    + 'corresponder ao primeiro dia do mês informado!');

Utilizo Delphi 2007.

Obrigado.

Editado por Bruno Cezar Arcanjo Braga

bruno.gif

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Estranho pois N pessoas usam a tempos o componente e não tiveram problemas. 

chegou a chegar como está usando? chegou a testar com o exemplo do svn?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Eu também gerava corretamente até atualizar o ACBr.

O exemplo do SVN gerou sem a mesnagem.

O que mais me causa estranheza, é que se eu comentar a validação  if FDT_INI = 0 then, a rotina segue corretamente e valida sem problemas FACBrTXT.Check(DayOf(FDT_INI) = 1, 'CHECAGEM INICIAL: A data inicial deve '
    + 'corresponder ao primeiro dia do mês informado!');. 
O que indica que  FDT_INI tem uma data correta.

Vou analisar mais um pouco e ver o que consigo.

Obrigado.

 

Apenas para registro, encontrei esse erro ao abrir o exemplo:

image.png.eff1e18b3539d21528f8ae0d5711b1e1.png

bruno.gif

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2083 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.