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......