Registro J800 - Sped Contábil (resolvido)

[wolver]

Pessoal,

Trabalho com Delphi e estou com a seguinte dificuldade, como faço para gerar o registro J800?

Já efetuei várias pesquisas e não encontrei nada ainda, se alguém puder me ajudar desde já agradeço.

[EMBarbosa]

Você está usando o ACBrSPEDContabil?

[wolver]

Você está usando o ACBrSPEDContabil?

Não utilizo.

[Dangelo2010]

Var

  _Caminho : String;

  _LendoArquivo : TMemo;
 

 

                With RegistroJ800.New Do Begin // 3

                  _LendoArquivo        := TMemo.Create(Nil);
                  _LendoArquivo.Parent := FormGerador;

                  _Caminho             := 'C:\' + FormatFloat('000', ModuloPesquisa.IBQRegistroJ800SEQUENCIA.AsInteger) + '.rtf';

                  Try

                    TBlobField(ModuloPesquisa.IBQRegistroJ800.FieldByName('ARQUIVO')).SaveToFile(_Caminho);

                    _LendoArquivo.Lines.LoadFromFile(_Caminho);

                    ARQ_RTF := _LendoArquivo.Text;

                    DeleteFile(_Caminho);
                  Finally

                    _LendoArquivo.Free;
                  End;
                End;
 

 

Abraço!

[EMBarbosa]

Rapaz,

1.   Ele não utiliza o ACBrSPEDContabil
2.   A última mensagem é de novembro de 2011.