Solução paliativa.
Como meu padrão é uma Nota por Lote. Não uso mais o ACBrNFSe.NotasFiscais.Clear;
Tbem criei em RunTime o componente ACBRNFe, porem criando com Nil.
É criado e destruído a cada envio.
Segue Código usado:
///////////////////////////////////
// PROCESSA AS NOTAS SELECIONADAS
///////////////////////////////////
cdsNotas.First;
While (Not cdsNotas.Eof) Do
Begin
If (cdsNotas.FieldByName('MARDES').AsString = 'M') Then
Begin
objACBrNFSe := TACBrNFSe.Create(Nil);
Try
pSetaConfigAcbrNFSe(objACBrNFSe);
pnlInfo.Caption := objACBrNFSe.Configuracoes.Geral.xProvedor;
blnNFSValid := fGerarXmlNew(objACBrNFSe);
Finally
If AssigNed(objACBrNFSe) Then
objACBrNFSe.FreeOnRelease;
End;
If (blnNFSValid) Then
Begin
Inc(intNFSGerad);
End
Else
Begin
Break;
End;
End;
Application.ProcessMessages;
cdsNotas.Next;
End;
cdsNotas.First;
Agradeço Juliomar Marchetti pela disposição em me ajudar.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.