Para realizar o descarte de uma NFS-e/RPS podemos utilizar dois métodos disponíveis na interface do Manager Client, são eles:
- DescartarNFSePorHandle
- DescartarNFSePorRPS
Todos utilizam a mesma interface de retorno. Seguem abaixo os detalhes dos métodos e de seus retornos.
Detalhes DescartarNFSePorHandle
Função: Realiza o descarte uma NFS-e/RPS utilizando o identificador do registro no banco de dados do Manager SaaS/EDoc.
Classe: TspdNFSeClientX
Método: DescartarNFSePorHandle
Tipo Retorno: spdRetDescartaX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aHandle | Texto | Sim |
Número do identificador único da NFS-e no banco de dados do Manager SaaS/EDoc. Observação: o handle é informado no retorno do envio do RPS. |
Detalhes DescartarNFSePorRPS
Função: Realiza o descarte de um RPS através dos dados do RPS.
Classe: TspdNFSeClientX
Método: DescartarNFSePorRPS
Tipo Retorno: spdRetDescartaX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aNumRPS | Texto | Sim |
Número do RPS enviado ao WebService da prefeitura. |
aSerie | Texto | Sim |
Série do RPS. |
aTipoRPS | Texto | Sim |
Tipo do RPS enviado. Exemplos: 1 - RPS (Padrão) 2 - Nota Fiscal Conjugada (Mista) 3 - Cupom |
Atenção!
Para uma nota ser descartada ela deve estar com a situação REJEITADA, INUTILIZADA ou IMPORTADA, ou o Manager SaaS/eDoc irá retornar uma mensagem dizendo que a nota precisa estar em alguma dessas situações para poder ser descartada.
Delphi
procedure TfrmExemplo.btnDescartarNFSePorHandleClick(Sender: TObject);
var
_Retorno: spdRetDescartaX;
_Handle: string;
begin
if not InputQuery('Handle', 'Handle da Nota:', _Handle) then exit;
//Esse método descarta a nota através do Componente Manager Client
_Retorno := NFSe.DescartarNFSePorHandle(_Handle);
//Exibe o retorno no memo
memoRetorno.Clear;
if _Retorno.Status = Sucesso then
memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem)
else
memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
end;
No exemplo acima utilizamos o método DescartarNFSePorHandle, mas o processo e o tipo de retorno é exatamente o mesmo para os demais métodos, bastando trocar a linha do exemplo onde o _Retorno recebe seu valor.
Para o método DescartarNFSePorRPS:
//Esse método descarta a nota através do Componente Manager Client
_Retorno := NFSe.DescartarNFSePorRPS(_NumRPS,_SerieRPS,_TipoRPS);
C#
private void DescartarNFSe_Click(object sender, EventArgs e)
{
spdRetDescartaX Retorno = null;
string Handle= InputBox("Handle da Nota", "Handle da Nota:", "");
if (Handle != "")
{
//Esse método descarta a NFSe através do Componente Manager Client
Retorno = NFSe.DescartarPorHandle(Handle);
//Exibe o retorno no memo
memoRetorno.Text = "";
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = ("Mensagem: " + Retorno.Mensagem);
else
memoRetorno.Text = ("Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem);
}
}
Para o método DescartarNFSePorRPS:
//Esse método descarta a NFSe através do Componente Manager Client
Retorno = NFSe.DescartarNFSePorRPS(_NumRPS,_SerieRPS,_TipoRPS);
Visual Basic 6
Private Sub btnDescartarNFSe_Click()
Dim Retorno As spdRetDescartaX
Dim Handle As String
Chave = InputBox("Handle da Nota:", "Handle da Nota", "")
'Esse método descarta a NFSe através do Componente Manager Client
Set Retorno = NFSe.DescartarNFSePorHandle(Handle)
'Exibe o retorno do memo
If Retorno.Status = Sucesso Then
For I = 0 To Retorno.Count - 1
memoRetorno.Text = memoRetorno.Text + "Mensagem: " + Retorno.Item(I).Mensagem + " - Chave: " + Retorno.Item(I).NumeroNFSe + vbCrLf
Next I
Else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
End Sub
Para o método DescartarNFSePorRPS:
'Esse método descarta a NFSe através do Componente Manager Client
Set Retorno = NFSe.DescartarNFSePorRPS(NumRPS,SerieRPS,TipoRPS)
Retorno
O tipo spdRetDescartaX possui os seguintes campos:
Campo | Tipo | Descrição |
Status | Constante | Retorna o status da operação: Sucesso ou Erro. |
NomeExcecao | Texto | Em caso de erro retorna a classe da Exception. |
Mensagem | Texto | Retorna a descrição da resposta do servidor. |
Comentários
0 comentário
Por favor, entre para comentar.