Retorno de NFSe

[Mega Online]

Bom dia,

Estou com um problema em um cliente que gera a NFSe através do servidor da Fiorilli (Fernandópolis).

Utilizo os comandos abaixo:

ACBrNFSe1.Gerar(StrToInt(NumVda));
Sleep(4000);

sNomeArq:= ACBrNFSe1.NotasFiscais.Items[0].NomeArq;
NumNot:= ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero;
Chave:=  ACBrNFSe1.NotasFiscais.Items[0].NFSe.InfID.ID;
CodVer:= ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao;
Protocolo:= ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo;

Ocorre que em alguns casos eu recebo o retorno.

E10
RPS já informado
Para essa Inscrição Municipal/CNPJ já existe um RPS informado com o mesmo número, série e tipo

Após essa mensagem se pesquisar a Nota no site a nota esta validada, como faço para fazer uma consulta antes de enviar a nota e caso esteja validada pegar o xml da nfse?

Obrigado

[Italo Giurizzato Junior]

Bom dia Luciano,

A sua aplicação é que tem que possuir um controle da numeração sequencial dos RPS e não deixar a cargo do usuário informar o numero que ele deseja.

[Mega Online]

Bom dia Italo,

O usuário não controla numeração de RPS conforme a variável "NumVda" essa variável e alimentada por um sequencial

ACBrNFSe1.Gerar(StrToInt(NumVda));

 

[Arconsoft]

Luciano, estou com problemas ao enviar para o provedor Fiorilli, para DUARTINA, o seu sistema envia notas normalmente usando este provedor?

[Italo Giurizzato Junior]

Boa tarde Luciano,

Uma coisa é esse numero que você passa como parâmetro no método Gerar, outra coisa é o numero que você informa ao alimentar o componente com os dados pertinentes ao RPS.

[Mega Online]

Boa Tarde alexandre,

Envia normalmente, mas as vezes ao enviar um rps ocorre o que falei no começo do post.

Boa Tarde Italo,

O componente é alimentando com a mesma variável conforme abaixo:

procedure TFrmPrincipal.AlimentaComponente(NumVda, _Empresa: String);
var
...

IdentificacaoRps.Numero:= FormatFloat('#########0', StrToInt(NumVda));

O usuário não controla essa numeração!!

Minha duvida é:

Como faço para fazer uma pesquisa antes de enviar o Rps e caso exista o mesmo baixar o xml na nfse?

Editado 17 Setembro, 2015 por Luciano Carvalho

[Italo Giurizzato Junior]

Luciano,

Se o numero do RPS é sequencial e controlado pela aplicação e mesmo assim o provedor de vez em quando acusa que já existe um RPS com o mesmo numero, só tem duas respostas para isso:

1. a emissão da nota é feita por duas ou mais maquinas e sua aplicação não esta controlando de forma eficiente a emissão de duas notas ao mesmo tempo.

2. ou existe algum bug na sua aplicação que esta provocando essa duplicidade.

Quanto a consultar existe um método chamado ConsultarNFSePorRPS onde você informa alguns dados referente ao RPS e caso exista uma NFS-e gerada a mesma será retornada.

Os parâmetros do método são:

    function ConsultarNFSeporRps(ANumero, ASerie, ATipo, ACnpj, AInscricaoMunicipal: String;
                                 ASenha: String = ''; AFraseSecreta: String = ''; ARazaoSocial: String = ''): Boolean;

A Senha, FraseSecreta e RazaoSocial depende do provedor, a principio não precisa informar.

 

[Mega Online]

Italo,

Vou verificar o que você relatou, obrigado pela informação da função.

[Arconsoft]

Estranho, porque no meu cliente não funciona, fala que o XML está incorreto, e antes do trunk2 estava funcionando normalmente. VocÊ tem os schemas da fiorilli fácil ai?talvez seja isso, vai saber.

Editado 17 Setembro, 2015 por alexandre.soares.sp

[Mega Online]

o schema da Fiorilli é o que esta junto com o Demo do ACBrNFSe, anexo.

Fiorilli.rar

[Mega Online]

Italo,

Como que eu pego o retorno após executar a function ConsultarNFSeporRps?

Obrigado!

[Italo Giurizzato Junior]

Essa função salva em disco o XML da NFS-e.

Qual é o retorno que você necessita?

[Mega Online]

Bom dia Italo,

Digamos que eu enviei o Rps número 17803 e o componente me retornou o xml da NFSe 7093-nfse.xml.

Como que eu pego esse numero 7093 da NFSe no retorno?

 

[Italo Giurizzato Junior]

Bom dia Luciano,

Se a consulta for através do método Consultar NFS-e por RPS você pode obter o numero da nota através da seguinte linha:

nNumNota := ACBrNFSe1.WebServices.ConsNfseRps.NFSeRetorno.ListaNfse.CompNfse.Items[X].Nfse.Numero;

Onde X é igual a zero, uma vez que você esta consultando uma NFS-e através de um RPS.