Pesquisar na Comunidade
Showing results for tags 'infdoc.infnfe.add;'.
Encontrado 1 registro
-
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......