Olá, boa tarde… Estou tentando gerar uma NFC-e com maus de uma forma de pagamento {parte em dinheiro e outra parte em cartão}… Mas no SDK, está dando erro de “Argument out of Range”…
O código que estou usando está assim:
FOR I:= 0 TO PRED(mPagNFC.Count) DO
begin
InfNFe.pag:= TNfeSefazPag.Create;
InfNFe.pag.detPag.Add(TNfeSefazDetPag.Create);
InfNFe.pag.detPag[I].indPag:= mPagNFC[I].IndPag;
InfNFe.pag.detPag[I].tPag:= mPagNFC[I].TipoPag;
InfNFe.pag.detPag[I].vPag:= mPagNFC[I].ValorPag;
end;
Sua lógica em Pascal está errada, está criando um novo objeto TNfeSefazPag em cada iteração, ou seja, N objetos TNfeSefazPag, cada um com um único objeto detalhe TNfeSefazDetPag, e portanto na segunda interação vai dar o erro (I = 1 mas só tem um objeto na coleção detPag.