Nfs-E Envio E Retorno

[Marcelo Bill]

Feliz ano novo a todos

 

Regys

 

Não sei se tenho o devido direito a lhe perguntar sobre NFS-e nesse portal pago, mas como o componente foi adicionado ao pacote acbr, entendi que poderia fazer tal pergunta:

 

Tem como me passar uma dica de como enviar a NFS-e/Rps e com seu devido retorno?

Ex:

 

nfse.notasfiscais.clear;

GerarXML(Lote);

nfse.enviar(Lote);

vStatus:=nfse.notasfiscais.webservice.retorno.itens[0].status;

vProtocolo:=nfse.notasfiscais.webservice.retorno.itens[0].protocolo;

Case vStatus of

1:Retorna o codigo do Retorno

2:Retorna o codigo do Retorno

3:Retorna o codigo do Retorno

4:Retorna Sucesso

end;

 

MinhaNota.Edit;

MinhaNota.Status.AsInteger:=vStatus;

MinhaNota.Protocolo.AsString:=vProtocolo;

MinhaNota.Post;

 

Assim como é feito na NFE

 

Agradeço se puder me ajudar

 

Abraço

 

 

[Régys Silveira]

Olá, não estou muito envolvido na NFS-e, quem está mais envolvido é o Italo, vamos esperar a volta do feriado para que ele possa nos ajudar.