Para realizar a inutilização de uma faixa de numeração do CT-eOS basta utilizar o método InutilizarCTeOS informando o ano, série, número inicial, número final e a justificativa da inutilização. Segue abaixo os detalhes do método e de seu retorno.
Detalhes InutilizarCTeOS
Função: Inutilizar uma faixa de numeração para evitar "buracos" na numeração.
Classe: TspdCTeOSClientX
Método: InutilizarCTeOS
Tipo Retorno: spdRetInutilizacaoX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aAno | Texto | Sim | Ano da inutilização. |
aCTeOSIni | Texto | Sim | Número inicial da faixa de numeração. |
aCTeOSFin | Texto | Sim | Número final da faixa de numeração. |
aJustificativa | Texto | Sim | Justificativa da inutilização. (Minimo 15 caracteres) |
aSerie | Texto | Sim | Série da faixa de numeração. |
Delphi
procedure TfrmInutilizarCTeOS.btnInutilizarCTeOSClick(Sender: TObject);
var
_Retorno: spdRetInutilizacaoX;
begin
//Esse metodo faz o pedido de inutilização através do Componente Manager Client
_Retorno := frmExemplo.CTeOS.InutilizarCTeOS(edtAno.Text, edtInicio.Text, edtFim.Text, edtJustificativaCTeOS.Text, edtSerieCTeOS.Text);
//Exibe o retorno no memo
frmExemplo.memoRetorno.Clear;
if _Retorno.Status = Sucesso then
frmExemplo.memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem)
else
frmExemplo.memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
Self.Close;
end;
C#
private void btnInutilizarCTeOS_Click(object sender, EventArgs e)
{
string s = InutilizaCTeOSForm("Email", "Exemplo Manager Client:", "");
if ((s != "fechar") && (s != ""))
{
string[] lines = Regex.Split(s, "\r\n");
string edtAno = lines[0];
string edtSerie = lines[1];
string edtInicio = lines[2];
string edtFim = lines[3];
string edtJustificativaCTeOS = lines[4];
spdRetInutilizacaoX Retorno = null;
//Esse método inutiliza uma faixa de CTeOS's pelo Componente Manager Client
Retorno = CTeOS.InutilizarCTeOS(edtAno, edtInicio, edtFim, edtJustificativaCTeOS, edtSerie);
//O retorno do método é exibido no memo
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = "Mensagem: " + Retorno.Mensagem + "\n";
else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem;
}
}
Visual Basic 6
Private Sub btnInutilizarCTeOS_Click()
Dim Retorno As spdRetInutilizacaoX
'Esse método inutiliza uma faixa de CTeOS's pelo Componente Manager Client
Set Retorno = frmExemplo.CTeOS.InutilizarCTeOS(edtAno.Text, edtInicio.Text, edtFim.Text, edtJustificativa.Text, edtSerie.Text)
'O retorno do método é exibido no memo
If Retorno.Status = Sucesso Then
frmExemplo.memoRetorno.Text = "Mensagem: " + Retorno.Mensagem + vbCrLf
Else
frmExemplo.memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
Me.Hide
End Sub
Retorno
O tipo spdRetInutilizacaoX 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. |
NumeroProtocolo | Texto | Número do protocolo da inutilização. |
CodigoStatus | Texto | Código cstat retornado pelo WebService de Inutilização. |
Comentários
0 comentário
Por favor, entre para comentar.