Nfs-E Verificar Se O Serviço Provedor Esta Disponivel

[Ebnezer]

ola, migos como que faço para verificar se o serviçõ da NFS-e esta disponivel ???   parecido com NFe

[Juliomar Marchetti]

Boa tarde

Tem já alguns posts do Italo explicando que não é igual a NF-e ! 

um que outro provedor implementou mas não tem essa opção!

o que tem que fazer é enviar a nfs-e se retorna erro quer dizer que está fora do ar !

[Ebnezer]

certo , tem tratar com Try except end para pode fazer isso ???

[Leandro Araújo]

Olá.

Como posso pegar o código da mensagem de erro, por exemplo, queria pegar o código E178, que quer dizer que o lote foi enviado mas ainda não processado pela prefeitura.

Estou tentando fazer assim após o envio:

WCodRetorno := DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Items[0].Codigo;

Mas dá o erro: List Index out of bounds(0)

 

Para confirmar, fiz:

ShowMessage(IntToStr(DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Count));

E retorna 0 mesmo.

 

Como faço para pegar aquele código que aparece naquela caixa de diálogo que o próprio componente exibe?

Obrigado.

Editado 5 Junho, 2014 por Leandro Araújo

[Leandro Araújo]

Olá.

Como posso pegar o código da mensagem de erro, por exemplo, queria pegar o código E78, que quer dizer que o lote foi enviado mas ainda não processado pela prefeitura.

Estou tentando fazer assim após o envio:

WCodRetorno := DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Items[0].Codigo;

Mas dá o erro: List Index out of bounds(0)

 

Para confirmar, fiz:

ShowMessage(IntToStr(DMNFSe.ObjetoNFSe.WebServices.Enviar.NFSeRetorno.InfRec.MsgRetorno.Count));

E retorna 0 mesmo.

 

Como faço para pegar aquele código que aparece naquela caixa de diálogo que o próprio componente exibe?

Obrigado.

Entendido.

Só se der algum erro que ele carrega nessa lista as mensagens, caso contrário apenas informações de lote, protocolo, provedor etc.

ACBrNFSeWebServices, Linhas: 2998-3023.

// Lista de Mensagem de Retorno
    FMsg := '';
    if NFSeRetorno.InfRec.MsgRetorno.Count>0
     then begin
      aMsg:='';
      for i:=0 to NFSeRetorno.InfRec.MsgRetorno.Count - 1 do
       begin
        FMsg := FMsg + NFSeRetorno.infRec.MsgRetorno.Items[i].Mensagem + IfThen(FMsg = '', '', ' / ');

        aMsg := aMsg + 'Código Erro : ' + NFSeRetorno.InfRec.MsgRetorno.Items[i].Codigo + LineBreak +
                       'Mensagem... : ' + NFSeRetorno.infRec.MsgRetorno.Items[i].Mensagem + LineBreak+
                       'Correção... : ' + NFSeRetorno.InfRec.MsgRetorno.Items[i].Correcao + LineBreak+
                       'Provedor... : ' + FxProvedor + LineBreak;
       end;
     end
     else begin
      for i:=0 to FNotasFiscais.Count -1 do
       begin
        FNotasFiscais.Items[i].NFSe.Protocolo     := FProtocolo;
        FNotasFiscais.Items[i].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;
     end;

Editado 5 Junho, 2014 por Leandro Araújo