Pegar as informações da NFS-e ao enviar o RPS (protocolo)

[walter faria]

Bom dia, uso acbrNFSe para o envio das nota de serviço. No trunk não estava com este problema , não sei se foi mudado alguma coisa neste sentido.

Para enviar faco o seguinte :
1-Alimento o componente com as informações para o RPS
2-Faço o envio do RPS : FrmPrincipal.ACBrNFSe1.Enviar(CodNFS, false);

3-Para pegar as informações porque preciso gravar no BD, não esta vindo o protocolo , já deixei as configurações de consultar lote como true, aumentei o tempo também, mas ainda continua ficando zerado.
a rotina para pegar esta informação esta assim :
MemoResp.Lines.Clear;
MemoResp.Lines.Text   := UTF8Encode(FrmPrincipal.ACBrNFSe1.WebServices.ConsLote.RetWS);
 
ArquivoNFS:= FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NomeArq;
protocolo:=  FrmPrincipal.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo;
 

Olhando os arquivos : envio , consulta lote e etc que é gerado pelo componente , esta la o numero do protocolo.

Gostaria que os amigos me ajudasse a pegar este numero corretamente .
Em anexo os arquivos gerados .

Obrigado
 

3593-env-lot.xml

3593-env-lot-soap.xml

3593-rec.xml

3593-rec-soap.xml

102278356-con-lot.xml

102278356-con-lot-soap.xml

102278356-con-sit.xml

102278356-con-sit-soap.xml

102278356-lista-nfse.xml

102278356-lista-nfse-soap.xml

102278356-sit.xml

102278356-sit-soap.xml

[Italo Giurizzato Junior]

Boa tarde Walter,

Esse problema também ocorre com o programa exemplo?

Você esta com todos os fontes atualizados?

[walter faria]

Boa tarde, Italo.

 

Os fontes esta atualizados !!!

No programa de exemplo ainda não fiz o teste .
Mas o programa estava funcionando a muito tempo da forma que esta , so depois que migrei que esta acontecendo isto .

Italo, após eu enviar o RPS , quais formas consigo pegar o numero do protocolo ? ***visto que os XML de envio/retorno esta com este numero (sitaaco do lote, Consulta do lote )

Obrigado

[Marcos Gerene]

Boa tarde @walter faria,

Pegue o protocolo assim:

ACBrNFSe1.WebServices.ConsSitLoteRPS.Protocolo

 

[Italo Giurizzato Junior]

Boa tarde a todos,

O numero do protocolo é retornado logo após o envio no caso do método Enviar.

Sendo assim para obter o numero do protocolo basta:

sProtocolo := ACBrNFSe1.WebServices.EnviarLoteRPS.Protocolo;
 

[Enia]

Boa tarde,

Ainda não consegui retornar o numero de Protocolo.

Atualizei os fontes e fiz como solicitado acima, mais não obtive sucesso.

Alguém teve retorno e poderia me auxiliar?

 

Att.

Enia

[New Standard Software]

Estou com o mesmo problema, chamava o método Enviar, não ocorria nenhum erro, mas não retornava as informações de protocolo e número da NFSe.

Fiz o seguinte, antes de chamar o método Enviar, chamei o método GerarLote, também ativei a propriedade ConsultaLoteAposEnvio, depois disso, começou a gerar alguns erros de validação, como código incorreto, alíquotas não informadas, etc. Estou corrigindo esses problemas para testar o envio novamente, não sei se está indo de fato, ou se foi por conta de ativar aquela propriedade.

De qualquer maneira, se conseguir retornar as informações eu posto aqui.

[Elton Mamede]

Boa tarde Enia, voce pode anexar os xmls gerados?

[New Standard Software]

Pessoa, só pra constar, consegui realizar o envio.

Servidor da Ginfes, munícipio de Araraquara.

[Solivan]

Gostaria de saber como é gerado o CodigoVerificação é gerado pela aplicação ou se vem do provedor e como obter essa informação.

[Elton Mamede]

Boa tarde guerreiros.

Solivan, o Italo respondeu sua pergunta nesse topico. Esta na pagina 3.

Espero que seja esse.

[Solivan]

Obrigado Elton98

Editado 19 Fevereiro, 2016 por Solivan

[Edson.pol]

Boa tarde !

Estou me baseando no demo do ACBrNFSe para pegar o número do protocolo, após o comando Enviar...

(Provedor CONAM)

AlimentaComponente(sAux);
ACBrNFSe1.Enviar(vNumLote);
sProtocolo := ACBrNFSe1.WebServices.EnviarLoteRPS.Protocolo;

Ocorre que, se após o envio, recebo uma mensagem "Protocolo em processamento", e o fluxo não segue... é disparada uma exception com a mensagem e não consigo pegar o nr do protocolo para salvar no banco de dados.

Mesmo ajustando:

ConsultarLoteAposEnvio = True

AjustaAguardaConsultaRet = True

AguardarConsultaRet = 4000  (já tentei ir aumentando de mil em mil, até 10.000)

IntervaloEntreTentativas = 1000 (também aumentei de mil em mil)

Estou fazendo da forma correta ?

[]´s

Edson

[Italo Giurizzato Junior]

Boa tarde Edson,

O provedor Conam não segue o ABRASF, sendo assim ele ainda não esta 100%, é preciso "debugar" para encontrar onde esta o problema.

[Edson.pol]

Beleza Italo...

Vou pro terceiro round contra o CONAM (o bárbaro)...

Por enquanto é ele quem está ganhando...

Vou ver se consigo pegar o protocolo em algum outro ponto.

[]´s

Edson.

[almp1]

Olá Amigos

Fis o teste com o ultimo release do ACBr e consigo pegar o protocolo desta forma

ACBrNFSe1.WebServices.EnviarLoteRPS.Protocolo

Abraços,

 

[farnetani]

Pessoal, em pegar o protocolo na hora do envio, blz...mas e se eu precisar consultar um rps e ter que capturar o protocolo?

To usando: ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo 

e o mesmo está vindo em branco.

Estou usando depois de ler o rps: ACBrNFSe1.NotasFiscais.LoadFromString(DM_NFSe.nfse_xmlxml_rps.Value);

ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));

 

[Italo Giurizzato Junior]

Boa noite,

O numero do protocolo no caso da NFS-e tem o mesmo significado do numero do recibo ao enviar uma NF-e.

Ou seja só serve para lhe informar que o web service recebeu o lote.

Sendo assim o numero do protocolo da NFS-e só é retorno ao enviar o lote.