Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Eroni

Membros
  • Content Count

    35
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Eroni

  • Rank
    Membro

Contact Methods

  • Website URL
    http://www.cratus.net.br

Profile Information

  • Sexo
    Masculino
  • Location
    Criciuma/SC

Recent Profile Visitors

619 profile views
  1. Resolvido, problema de atribuição mesmo.
  2. 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
  3. Bom dia, poderia dizer como resolveu, pois estou enfrentando o mesmo problema. Grato.
  4. Boa tarde amigo, você deve estar com algum item com CST diferente ou errado.
  5. Comentei o codigo que gera a versão antiga e gerei o arquivo corretamente.
  6. 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.
  7. 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.
  8. 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.
  9. 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.
  10. 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.
  11. 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.
  12. É 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.
  13. 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?
  14. 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;
  15. 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.
×
×
  • Create New...