Jump to content

click.png click.png click.png

click.png

click.png

click.png

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

click.png

click.png

click.png

click.png

click.png

click.png

Registro J800 - Sped Contábil (resolvido)


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

Recommended Posts

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.

Link to comment
Share on other sites

  • Consultores

Você está usando o ACBrSPEDContabil?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • 4 months later...
  • 1 year later...

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!

Dangelo Porto

Link to comment
Share on other sites

  • Consultores

Rapaz,

  1.   Ele não utiliza o ACBrSPEDContabil :(
  2.   A última mensagem é de novembro de 2011. :D
  • Like 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.