Jump to content

dev botao

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


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

Recommended Posts

Posted (edited)

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

  • Consultores
Posted

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.
Posted (edited)

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

  • Consultores
Posted

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.
  • Solution
Posted

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

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

The popup will be closed in 10 seconds...