Argument out of Range

[Leonardo Quinino]

Prezados, desde sexta feira, após receber algumas atualizações ACBr, uma rotina de geração de um determinado item começou ocorrer o erro Argument out of Range,

debugando o código me parece que a Coleção não está sendo criada corretamente.

O código como está:

function TCTE.GerarCTE...

 var

  i, x, z: Integer;
  CTE: Conhecimento;
  DocNFe: TInfNFeCollectionItem;
  UndCarga: TinfUnidCargaCollectionItem;
begin
      ACBrCTe.Conhecimentos.Clear;
      CTE := ACBrCTe.Conhecimentos.Add;
      CTE.CTE.ide. ...varias rotinas de geração ... (para receber os dados...)
      CTE.CTE.ide.Toma.
      CTE.CTE.ide.Toma4.
      CTE.CTE.compl.xEmi := 'Emitente....'
      ... (até aqui está funcionando)....

       //aqui criando coleções para informar as chave NFe

       for i  := 0 to lista_inf_nfe.count -1 do
       begin
           DocNFe := CTE.CTE.infCTeNorm.infDoc.infNFe.Add;
           DocNFe.Chave := EntyCTE.cte_inf_nfe.Chave;   //AQUI O ERRO
           DocNFe.PIN := EntyCTE.cte_inf_nfe.PIN;

           ..... codigo abaixo para add unidades
           for x := 0 to lista_inf_nfe.unidadesCarga.Count -1 do
          begin  ...codigo continua......

 

[BigWings]

31 minutos atrás, Leonardo Quinino disse:

           DocNFe.Chave := EntyCTE.cte_inf_nfe.Chave;   //AQUI O ERRO

Tentei simular o erro com o que posso replicar do seu trecho de código:

uses
  ACBrCTeConhecimentos, pcteCTe;

procedure TForm3.Button1Click(Sender: TObject);
var
  i, x, z: Integer;
  CTE: Conhecimento;
  DocNFe: TInfNFeCollectionItem;
  UndCarga: TinfUnidCargaCollectionItem;
begin
  ACBrCTe.Conhecimentos.Clear;
  CTE := ACBrCTe.Conhecimentos.Add;
  CTE.CTE.compl.xEmi := 'Emitente....';

  for i := 0 to 9 do
  begin
    DocNFe := CTE.CTE.infCTeNorm.infDoc.infNFe.Add;
    DocNFe.Chave := ''; //EntyCTE.cte_inf_nfe.Chave;
    DocNFe.PIN := ''; //EntyCTE.cte_inf_nfe.PIN;
  end;
end;

Executou normalmente.

 

[luisclaudio_jr]

Notei que aqui acontece o mesmo problema, porém é algo que ocorre esporadicamente e se tentar fazer o reenvio acaba indo.. Vou analisar essa função

[Leonardo Quinino]

16 minutos atrás, luisclaudio_jr disse:

Notei que aqui acontece o mesmo problema, porém é algo que ocorre esporadicamente e se tentar fazer o reenvio acaba indo.. Vou analisar essa função

Ate´ percebi que se fizer .

 DocNFe := CTE.CTE.infCTeNorm.infDoc.infNFe.Add;

 DocNFe := CTE.CTE.infCTeNorm.infDoc.infNFe.Add;

passa, porém ao montar o XML. o primeiro item (obviamente ficará vazio, porém não ocorre o erro de argument  ou of range).

Estou procurando solução, assim que vou resolver e certamente irei, posto aqui.

[Leonardo Quinino]

Conforme havia prometido.... resolvido o problema.

Quando o colega disse que no caso dele era esporadicamente, desconfiei que tinha outra coisa interferindo. 

O problema ocorria porque tentava enviar um CTE com InfNFe  e InfOutros..

Parece que pela regras,  só pode ser feito um ou outro.

Isolei o CTe, para fazer somente um tipo e não ocorreu mais.