walfrido

Atualizei os fontes e deu essa mensagem agora. Mudou alguma coisa?

Preciso enviar cerca de 500 notas no final de cada mês, então seria por volta de 10 lotes com 50 notas cada. Acontece que ao receber o primeiro lote de 50 notas, a GINFES processa normalmente, mas não deixa enviar mais. Tem alguma configuração que precisa ajustar? source_nfse.pas

mesmo erro... agora vou instalar o windows 10.

vou refazer a instalação, mas acredito que não seja isso! Att

Não tenho... somente uma! Acabei de formatar o meu PC e baixei o ACBr!

Mesmo erro...

Em anexo! log_Delphi_10.3_Rio.txt

sim

o caminho "ACBr\Lib\Delphi\LibD26" está ficando vazio....

Estou usando o windows 7 64 bits; Funcionou certinho anteriormente, só formatei a máquina e agora deu essa mensagem. Vasculhei o fórum mas não consegui resolver.

Estou passando por este problemas a dias e não encontro a solução. O erro de "Lote não Transmitido" é constante, mas para envio único funciona normalmente. O Suporte sempre responde a mesma coisa como "Verificamos que os métodos WSDL estão funcionando normalmente, onde os lotes recepcionados estão sendo processados. Conforme pode ser verificado abaixo, a URL de integração está sendo acessada normalmente." Se alguém tiver alguma idéia e puder ajudar vou agradecer muito. Abraço;

dba.ACBrNFSe1.GerarLote(vNumLote); //.Enviar(vNumLote); Desculpa, tinha feito um teste para ver se estava gerando o lote certinho, mas o código correto é este abaixo; dba.ACBrNFSe1.Enviar(vNumLote); Mas a questão é tenho que inserir apenas 50 notas por lote, certo? Mas neste caso preciso enviar mais de 500... Então coloquei um contador que ao atingir 50 registro ele envia e depois continua até terminar de enviar tudo... while not qryNotas.Eof do begin c := 1; dba.ACBrNFSe1.NotasFiscais.Clear; while not qryNotas.Eof and (c <= 50) do begin seqRPS := IntToStr(numeroRPS); AlimentaComponente(seqRPS); inc(numeroRPS); inc(c); qryNotas.Next; end; dba.ACBrNFSe1.Enviar(vNumLote); inc(vNumLote); end; Seria assim neh? Mas gerando timeout!

Italo, tudo bem? Está certo a forma que estou enviando as notas fiscais por lotes? Na qryNotas tem 500 registros para enviar. Só dá timeout, já aumentei o tempo para 50000 e não resolveu; *************************************************** c := 0; vNumLote := StrToInt(_Numero_do_Lote); numeroRPS := StrToIntDef(vNumNota, 1); // numero do RPS qryNotas.First; while not qryNotas.Eof do begin c := 1; dba.ACBrNFSe1.NotasFiscais.Clear; while not qryNotas.Eof and (c <= 50) do begin seqRPS := IntToStr(numeroRPS); AlimentaComponente(seqRPS); inc(numeroRPS); inc(c); qryNotas.Next; end; dba.ACBrNFSe1.GerarLote(vNumLote); //.Enviar(vNumLote); MemoDados.Lines.Add('Nome XML: '+dba.ACBrNFSe1.NotasFiscais.Items.NomeArq); MemoDados.Lines.Add('Nota Numero: '+dba.ACBrNFSe1.NotasFiscais.Items.NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: '+dba.ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao); inc(vNumLote); end;

Opa, não deu certo, coloquei timeout=30.000 E mesmo assim não vai.... Uma por vez vai normal.

Italo, o Timeout=5000; Qual valor é aconselhável????

Isso mesmo Italo. Vou aumentar o tempo de Timeout e posto o resultado.

A emissão de nota única, funciona perfeitamente! Só ocorre quando vai enviar por lote.

Estou usando o codigo abaixo para gerar os arquivos RPS e enviar os lotes com 50 notas Mas apresenta esse erro! O código é este: qrySQL.First; while not qrySQL.Eof do begin c := 1; dba.ACBrNFSe1.NotasFiscais.Clear; while not qrySQL.Eof and (c <= 50) do begin seqRPS := IntToStr(numeroRPS); AlimentaComponente(seqRPS); inc(numeroRPS); inc(c); qrySQL.Next; end; dba.ACBrNFSe1.Enviar(vNumLote); MemoDados.Lines.Add('Nome XML: '+dba.ACBrNFSe1.NotasFiscais.Items[i].NomeArq); MemoDados.Lines.Add('Nota Numero: '+dba.ACBrNFSe1.NotasFiscais.Items[i].NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: '+dba.ACBrNFSe1.NotasFiscais.Items[i].NFSe.CodigoVerificacao); inc(vNumLote); end; ShowMessage('Arquivo gerado em: '+dba.ACBrNFSe1.NotasFiscais.Items[0].NomeArq); Alguém poderia dar uma ajuda?

Essas propriedades também estão disponíveis para o ACBRNFSe??

Italo, Então neste caso eu teria que fazer um loop pra gerar mais de um lote, contendo 50 RPS cada um? Depois de gerados ele envia todos lotes ?

Já liguei no suporte e o certificado está tudo certo, só da erro na hora de enviar!

você poderia postar como resolveu?

Tem como contornar isso?

Ao enviar as notas, apresenta a seguinte mensagem: "O Cartão não pode ser acessado porque o PIN errado foi apresentado", alguém sabe como resolvo? Desde já agradeço

Como faço para enviar lotes com mais de 100 notas fiscais?