Jump to content

dev botao

Erro Registro J100


  • Este tópico foi criado há 3449 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • 1 month later...
  • 5 months later...
  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • Este tópico foi criado há 3449 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.