Gerar E Enviar Lote - Erro No Retorno

[Vanessa]

Boa tarde...

 

Estou utilizando a opção de gerar e enviar lote mas não retorna nenhum erro porém não carrega o protocolo.

 

Passa pela função 

  function TNFSeEnviarLoteRPS.Executar: Boolean;

 

entra nesta condição

 

   for i:=0 to FNotasFiscais.Count -1 do

     begin

      FNotasFiscais.Items.NFSe.Protocolo     := FProtocolo;

      FNotasFiscais.Items.NFSe.dhRecebimento := FDataRecebimento;

     end;

    aMsg := 'Numero do Lote : ' + NFSeRetorno.InfRec.NumeroLote + LineBreak +

            'Recebimento... : ' + DFeUtil.SeSenao(FDataRecebimento = 0, '', DateTimeToStr(FDataRecebimento)) + LineBreak +

            'Protocolo..... : ' + FProtocolo + LineBreak +

            'Provedor...... : ' + FxProvedor + LineBreak;

 

porém o retorno está vazio.

 

Aguem poderia me ajudar, obrigada.

 

 

[Daniel Fantastsoft]

Também estou tendo o mesmo problema aqui no sistema da minha empresa. No XML não consta nenhum tipo de erro, e a função não retorna nenhum erro também. Gostaria de saber o que está ocorrendo ou o que pode provocar esse tipo de erro para que eu posso solucionar isto o mais rápido possível aqui. O financeiro da empresa precisa de emitir essas notas até amanhã! 

[Italo Giurizzato Junior]

Boa tarde Pessoal,

 

Se tratando da NFS-e por favor, informe sempre a cidade e o seu provedor para que possamos ajudar.

[Vanessa]

Bom dia..

 

Cidade 3524709 Jaguariúna/SP (GINFES)

 

 

[Italo Giurizzato Junior]

Bom dia Vanessa,

 

Existem relatos sobre o provedor GINFES que costuma sair fora do ar ou até mesmo demorar para responder.

 

O problema não é no componente e sim com o provedor.

[Daniel Fantastsoft]

Estou emitindo as notas para Belo Horizonte

Provedor Abrasf

Editado 31 Janeiro, 2013 por Daniel Fantastsoft

[Vanessa]

Entendi...mas com quem eu posso entrar em contato para verificar?

 

Obrigada

[Endrigo Rodrigues]

Olá pessoal.

 

Seguinte, estou em Belo Horizonte/MG utilizando BHISS. Estou enviando um lote com 20 notas e estou recebendo o seguinte XML de retorno:

<?xml version="1.0" encoding="UTF-8" ?> 
<ConsultarSituacaoLoteRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd">
  <NumeroLote>936</NumeroLote> 
  <Situacao>2</Situacao> 
</ConsultarSituacaoLoteRpsResposta>

 

Mas pelo que vejo, por ter me retornado Situacao=2, deveria ter vindo também a chave ListaMensagemRetorno, mas não veio, e não tenho como saber o que está dando erro, deve ser o mesmo problema da Vanessa.

 

 

Tem alguma coisa que posso fazer para ajudar a corrigir o problema?

[Vanessa]

acessei o endereço http://www.abrasf.org.br/nfse.xsd e apresentou o seguinte erro

 

Error Summary

HTTP Error 404.0 - Not Found The resource you are looking for has been removed, had its name changed, or is temporarily unavailable.

Detailed Error Information

Module IIS Web Core Notification MapRequestHandler Handler StaticFile Error Code 0x80070002

Requested URL http://www.abrasf.org.br:80/abrasf/nfse.xsd Physical Path e:\home\igenio\web\abrasf\nfse.xsd Logon Method Anonymous Logon User Anonymous

 

acessei também o endereço no qual estou utilizando 'https://homologacao.ginfes.com.br/ServiceGinfesImpl' e apresentou a mesma mensagem.

 

 

Pode ser esse o motivo para não gerar o arquivo de retorno corretamente???

 

Obrigada

Editado 31 Janeiro, 2013 por Vanessa

[Lincoln D]

Bom dia, Pessoal. Seguinte, estou tentando usar o método "Gerar e Enviar Lote" da aplicação de exemplo, porém a aplicação está travando. Notei que, através da depuração, o protocolo é retornado, só que chega num determinado ponto ele parece entrar em algum tipo de loop. Meu provedor é o BHISS e estou tentando transmitir à prefeitura de BH. Também já atualizei os fontes através do novo endereço.

 

Obrigado

 

O gargalo parece estar aqui:

 

  while Processando do  // Enquanto FSituacao = 2 (Não Processado) tenta mais uma vez

  begin

    if TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.IntervaloTentativas > 0 then

       sleep(TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.IntervaloTentativas)

    else

       sleep(vCont);

 

    if vCont > (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Tentativas * 10000) then

      break;

 

    vCont := vCont + 10000;

  end;

 

 

Ele vai tentando a vida toda

Editado 28 Junho, 2013 por Lincoln D

[Lincoln D]

Consegui entender as configurações de tentativa aqui.

 

Obrigado