Ir para conteúdo
  • Cadastre-se

dev botao

Erro Registro J100


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

Recommended Posts

  • Consultores

você viu esse tópico?

[]'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 para o comentário
Compartilhar em outros sites

EMBarbosa, boa tarde

 

Achei o trecho do código onde faz a verificação da data, mas o mais estranho é que o campo DT_INI vai com valor 0 e não com data.

Como preciso validar o Sped, alterei a codificação para fazer o que precisa.

Grato

Bruno

BP Rossetti Serviços de Informática

[email protected]

www.bprossetti.com.br

Link para o comentário
Compartilhar em outros sites

  • Consultores

EMBarbosa, boa tarde

 

Achei o trecho do código onde faz a verificação da data, mas o mais estranho é que o campo DT_INI vai com valor 0 e não com data.

Como preciso validar o Sped, alterei a codificação para fazer o que precisa.

Grato

Bruno

Isso não tem nada a ver com o tópico que eu passei... :-|

[]'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 para o comentário
Compartilhar em outros sites

EMBarbosa, boa tarde

Sim, eu entendo, mas com isso, eu achei onde ele faz o IF da data e acertei pra liberar a versao do SPED.

O que eu nao achei, é porque a variavel DT_INI está como 0, visto que deveria vir com a data que eu passei.

BP Rossetti Serviços de Informática

[email protected]

www.bprossetti.com.br

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • 5 meses depois ...
  • Membros Pro

Bom dia!

 

Estou com um Problema ao Gerar o txt do Registro J100, o Erro e por causa do novo layout, que exige alguns campos a mais no arquivo, que pelo o que vi isso acontece apartir da data 01/01/2013, porem o registro 0000 esta correto pois a data esta sendo passada corretamente porem o J100 esta sendo passado para uma outra data que esta na unit ACBrSped e ja ate tentei passar por parâmetro essa data porem sempre vem em branco

 

o registro 0000 e passado pelo proprio registro

 

  TRegistro0000 = class
  private
    fDT_INI: TDateTime;       /// Data inicial das informações contidas no arquivo
    fDT_FIN: TDateTime;       /// Data final das informações contidas no arquivo
    fNOME: String;        /// Nome empresarial do empresário ou sociedade empresária.
    fCNPJ: String;        /// Número de inscrição do empresário ou sociedade empresária no CNPJ.
 

porem o J100 não e assim, a DT_INI em vermelho abaixo vem da unit de cor azul, onde ja criei uma passagem de parametros para ela dessa forma em verde mais nao funcionou

 

Var

  vACBR : TACBrSPED;
Begin

  vACBR        := TACBrSPED.create;
  vACBR.DT_INI := EDataInicial.Date;
  vACBR.DT_FIN := EDataFinal.Date;

 

 

  TACBrSPED = class(TACBrTXTClass)
  private
    FDT_INI: TDateTime;  /// Data inicial das informações contidas no arquivo
    FDT_FIN: TDateTime;  /// Data final das informações contidas no arquivo
    FGravado: Boolean;
  public
    property DT_INI : TDateTime read FDT_INI  write FDT_INI;
    property DT_FIN : TDateTime read FDT_FIN  write FDT_FIN;
    property Gravado: Boolean   read FGravado write FGravado ;
  end;

 

           /// Layout 2 a partir da escrituração ano calendário 2013
           if DT_INI >= EncodeDate(2013,01,01) then
           begin
             strRegistroJ100 :=  strRegistroJ100 + LFill('J100') +
                                                   LFill(COD_AGL) +
                                                   LFill(NIVEL_AGL) +
                                                   LFill(IND_GRP_BAL, 1) +
                                                   LFill(DESCR_COD_AGL) +
                                                   LFill(VL_CTA, 19, 2) +
                                                   LFill(IND_DC_BAL, 1) +
                                                   LFill(VL_CTA_INI, 19, 2) +
                                                   LFill(IND_DC_BAL_INI) +
                                                   Delimitador +
                                                   #13#10;
 

Dangelo Porto

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Não tem como passar para depois de gerar o txt, pois e tudo por parâmetros, estou passando dessa forma

 

Begin

  // REGISTRO J
  TSISPEDContabil.Bloco_J.LimpaRegistros;

  vACBR        := TACBrSPED.create;
  vACBR.DT_INI := EDataInicial.Date;
  vACBR.DT_FIN := EDataFinal.Date;

  lblTexto.Caption := 'Registro J';
  lblTexto.Refresh;
  With TSISPEDContabil.Bloco_J Do Begin

    lblTexto.Caption := 'Registro J001';
    lblTexto.Refresh;
    With RegistroJ001 Do Begin

      IND_DAD := 0;

      lblTexto.Caption := 'Registro J005';
      lblTexto.Refresh;
      With RegistroJ005.New Do Begin // 2

        DT_INI  := EDataInicial.Date;
        DT_FIN  := EDataFinal.Date;
        ID_DEM  := 1;
 

Dangelo Porto

Link para o comentário
Compartilhar em outros sites

  • Consultores

Você consegue reproduzir o problema com o DEMO?

[]'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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.