Erro Registro J100

[cueiogordo]

Bom dia Pessoal

Estou gerando o SPED Contábil na versao 2.0 mas o registro J100 está gerando apenas 7 campos, sendo que no layout tem 9 (adicionados os campos VL_CTA_INI e IND_DC_BAL_INI).

 

Alguem passou por esse problema?

Grato

Bruno

[Juliomar Marchetti]

Bom dia

confere se a data inicial do seu arquivo é maior que 01/01/2013?

[cueiogordo]

Sim, a data inicial é 01/01/2013.

[cueiogordo]

Segue primeira linha do arquivo.

|0000|LECD|01012013|31122013|USIBAG INDUSTRIA E COMERCIO DE EMBALAGENS LTDA|09246304000108|SP|417297380110|3526902||||1|0|||0|

[EMBarbosa]

você viu esse tópico?

[cueiogordo]

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

[EMBarbosa]

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...

[cueiogordo]

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.

[Juliomar Marchetti]

Ele só estará zerado senão informar ele antes de gerar o arquivo!

[Eroni]

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.

[Eroni]

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.

[Rinaldo Tavares de Almeida]

Alguem conseguiu resolver o problema da DT_INI ficar 30/12/1899?

[Dangelo2010]

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;
 

[Juliomar Marchetti]

Boa tarde

você informa a data inicial e final antes de iniciar a geração do arquivo ou somente depois para salvar o txt?

[Dangelo2010]

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;
 

[Dangelo2010]

tudo e antes de gerar o txt

[EMBarbosa]

Você consegue reproduzir o problema com o DEMO?

[Dangelo2010]

Obrigado Amigo

 

Consequi Resolver

 

No Final do Código antes de gerar o Txt eu coloquei

 

   with ACBrSPEDContabil1 do
   begin
      DT_INI := StrToDate('01/12/2013');
      DT_FIN := StrToDate('31/12/2013');
   end;