Jump to content

dev botao

List Index Out Of Bounds (-1) Sped Fiscal Registroc114New


Solivan
Go to solution Solved by Solivan,
  • Este tópico foi criado há 3652 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa Noite a todos, estou recebendo o erro Indice da Lista está fora da faixa (List Index Out of Bounds (-1)), implementei todos os registros do bloco C sem problemas mas justamente nesse estou recebendo a mssg de erro. Gostaria da ajuda de vocês afim de detectar e resolver o problema.

 

Obrigado!

 

Segue o trecho do código onde gero o registro em questão.

 

                     

 

                     if IND_EMIT = edEmissaoPropria then
                        begin
                          if BuscarREGISTROS_C114( NotasFiscais.FieldByName('CODIGO').AsString ) then
                            begin
                              ConsRC114.First ;

                              for ItensC114 := 1 to ConsRC114.RecordCount do
                                begin
                                  // Aparentemente o erro acontece ao gerar o registro

                                  with RegistroC114New do
                                    begin
                                      COD_MOD := ConsRC114.FieldByName('COD_MOD').AsString ;
                                      ECF_FAB := ConsRC114.FieldByName('ECF_FAB').AsString ;
                                      ECF_CX  := ConsRC114.FieldByName('ECF_CX').AsString ;
                                      NUM_DOC := ConsRC114.FieldByName('NUM_DOC').AsString ;
                                      DT_DOC  := ConsRC114.FieldByName('DT_DOC').AsDateTime ;
                                    end;

                                  ConsRC114.Next ;

                                end;
                            end;
                        end;
 

Edited by Solivan

Sistema de Automação Comercial para diversos segmentos
NF-e, NFC-e, SPED Fiscal - www.arenasoft.com.br

Link to comment
Share on other sites

  • Consultores

Você vai precisar usar o debug, usando o F7, e descobrir qual exatamente a linha do método RegistroC114New onde acontece esse problema.

[]'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

Obrigado pelo retorno:

Debuguei o código e a linha onde acontece o erro é a seguinte em negrito

dentro do arquivo ACBrEFDBloco_C_Class.pas

 

teste efetuado usando o DEMO do ACBr

 

function TBloco_C.RegistroC114New: TRegistroC114;
var
C100Count: integer;
C110Count: integer;
begin
   C100Count := FRegistroC001.RegistroC100.Count -1;
   C110Count := FRegistroC001.RegistroC100.Items[C100Count].RegistroC110.Count -1;
   //
   Result := FRegistroC001.RegistroC100.Items[C100Count].RegistroC110.Items[C110Count].RegistroC114.New;
end;
 

Edited by Solivan

Sistema de Automação Comercial para diversos segmentos
NF-e, NFC-e, SPED Fiscal - www.arenasoft.com.br

Link to comment
Share on other sites

  • Consultores

O registro C114 é filho do C110. Você está criando os registros C110 antes?

 

teste efetuado usando o DEMO do ACBr

Não consegui reproduzir seu problema com o Demo do ACBrSPEDFiscal. Você fez alguma alteração no código do Demo para testar? Queira disponibilizar para que eu possa averiguar.

[]'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

  • Solution

Desculpe pela demora em retornar, era isso que você disse o registro C114 é filho do C110, o erro acontecia por que eu o estava gerando de forma isolada, foi so colocar dentro do mesmo método que funcionou.

 

 

Sistema de Automação Comercial para diversos segmentos
NF-e, NFC-e, SPED Fiscal - www.arenasoft.com.br

Link to comment
Share on other sites

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