Pesquisar na Comunidade

Boa tarde. Até há alguns dias atras eu usava sem problemas a função abaixo: ACBrNFe.Consultar(FRM_Data.ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID) Só para ficar mais claro, eu utilizada logo após a emissão da nota, para realmente me certificar qual era o STATUS da NFe na SEFAZ. Porém de faz alguns dias que ao executar essa função, aparece o erro: invalid pointer operation e isso faz a execução do sistema parar. Alguma dica? Desde já agradeço!

Senhores, preciso de um apoio: ao rodar o exemplo do Acbr Sintegra e gerar o arquivo, está retornando o seguinte erro: "Invalid pointer operation". Apenas copiei o bloco do registro 50 e o copiei algumas vezes, é como se ele não aceitasse adicionar mais de um registro para o mesmo: procedure TForm1.GerarRegistro50; var wregistro50: TRegistro50; begin wregistro50:=TRegistro50.Create; with ACBrSintegra do begin wregistro50.CPFCNPJ:='43.214.055/0042-85'; wregistro50.Inscricao:='349016872110'; wregistro50.DataDocumento:=Registro10.DataFinal; wregistro50.UF:='SP'; wregistro50.Modelo:='1'; wregistro50.Serie:='1'; wregistro50.Numero:='123'; wregistro50.Cfop:='2.102'; wregistro50.EmissorDocumento:='T'; wregistro50.ValorContabil:=1500; wregistro50.BasedeCalculo:=1500; wregistro50.Icms:=270; wregistro50.Isentas:=0; wregistro50.Outras:=0; wregistro50.Aliquota:=18; wregistro50.Situacao:='N'; ACBrSintegra.Registros50.Add(wregistro50); wregistro50.CPFCNPJ:='43.214.055/0042-85'; wregistro50.Inscricao:='349016872110'; wregistro50.DataDocumento:=Registro10.DataFinal; wregistro50.UF:='SP'; wregistro50.Modelo:='1'; wregistro50.Serie:='1'; wregistro50.Numero:='123'; wregistro50.Cfop:='2.102'; wregistro50.EmissorDocumento:='T'; wregistro50.ValorContabil:=1500; wregistro50.BasedeCalculo:=1500; wregistro50.Icms:=270; wregistro50.Isentas:=0; wregistro50.Outras:=0; wregistro50.Aliquota:=18; wregistro50.Situacao:='N'; ACBrSintegra.Registros50.Add(wregistro50); wregistro50.CPFCNPJ:='43.214.055/0042-85'; wregistro50.Inscricao:='349016872110'; wregistro50.DataDocumento:=Registro10.DataFinal; wregistro50.UF:='SP'; wregistro50.Modelo:='1'; wregistro50.Serie:='1'; wregistro50.Numero:='123'; wregistro50.Cfop:='2.102'; wregistro50.EmissorDocumento:='T'; wregistro50.ValorContabil:=1500; wregistro50.BasedeCalculo:=1500; wregistro50.Icms:=270; wregistro50.Isentas:=0; wregistro50.Outras:=0; wregistro50.Aliquota:=18; wregistro50.Situacao:='N'; ACBrSintegra.Registros50.Add(wregistro50); Pelo que me parece o erro está na função LimparRegistros. Como faço para adicionar vários Registros para este bloco 50? Desde já agradeço!