Função:  Realiza a emissão de um CTeOS.
Classe:  TspdCTeOSClientX
Método:  EnviarCTeOS
Tipo Retorno: spdRetEnvioListX
Parâmetros aceitos:

 Nome   Tipo   Obrigatório   Descrição   Exemplo 
 aNota  Texto   Sim   Conteúdo do Tx2 

 formato=tx2
 incluirCTeOS
 cUF_6=41
 cCT_7=6021959
 CFOP_8=5352
 natOp_9=Aquisicao
 mod_10=67
 serie_11=1
 nCT_12=1
 dhEmi_13=2017-09-23T08:01:01-03:00...

 

 

Exemplo em Delphi:

 
  procedure TfrmExemplo.btnEnviarCTeOSClick(Sender: TObject);
var
  _Retorno: spdRetEnvioListX;
  _Nota: TStringList;
  I: Integer;
begin
  if odNota.Execute then
  begin
    _Nota := TStringList.Create;
    try
      _Nota.LoadFromFile(odNota.FileName);

      //Esse método envia as notas através do Componente Manager Client
      _Retorno := CTeOS.EnviarCTeOS(_Nota.Text);

      //Após capturar o retorno, faremos um loop no lote de notas enviadas
      memoRetorno.Clear;
      if _Retorno.Status = Sucesso then
      begin
        for I := 0 to _Retorno.Count - 1 do
        begin
          if (_Retorno.Item(I).Chave <> EmptyStr) then
          begin
            memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Item(I).Mensagem + ' - Chave: ' + _Retorno.Item(I).Chave
              + ' - Situacao: ' + _Retorno.Item(I).situacao)
          end
          else
            memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Item(I).Mensagem);
        end;
      end
      else
      begin
        memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
      end;
    finally
      FreeAndNil(_Nota);
    end;
  end;
end;   

 

Formato do retorno:

  • _Retorno.Status retorna o status da operação Erro ou Sucesso;
  •   _Retorno.NomeExcecao em caso de erro retorna a classe da Exception;
  • _Retorno.Mensagem retorna string com a resposta do servidor.
     

Voltar ao sumário manual Manager Client