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

[Solivan]

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;
 

Editado 13 Junho, 2014 por Solivan

[EMBarbosa]

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

[Solivan]

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;
 

Editado 13 Junho, 2014 por Solivan

[EMBarbosa]

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.

[Solivan]

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.