Para fazer o upload de um XML de NF-e para que seja importado pelo Manager SaaS/eDoc basta utilizar o método UploadNFe informando o conteúdo do arquivo XML da NF-e. Segue abaixo os detalhes do método e de seu retorno.
Detalhes UploadNFe
Função: Realiza o upload do XML de NF-e para ser importada pelo Manager SaaS/eDoc.
Classe: TspdNFeClientX
Método: UploadNFe
Tipo Retorno: spdRetUploadX
Parâmetros aceitos:
Nome | Tipo | Obrigatório | Valor |
aXML | Texto | Sim |
Conteúdo do arquivo XML da NF-e que será importada pelo Manager SaaS/eDoc. |
Delphi
procedure TfrmExemplo.btnUploadClick(Sender: TObject);
var
_Retorno: spdRetUploadX;
_Nota: TStringList;
begin
if odUpload.Execute then
begin
_Nota := TStringList.Create;
try
_Nota.LoadFromFile(odUpload.FileName);
//Esse método envia as notas através do Componente Manager Client
_Retorno := NFe.UploadNFe(_Nota.Text);
//Após capturar o retorno, o exibimos no memo
memoRetorno.Clear;
if _Retorno.Status = Sucesso then
memoRetorno.Lines.Add('Mensagem: ' + _Retorno.Mensagem)
else
memoRetorno.Lines.Add('Erro: ' + _Retorno.NomeExcecao + ', ' + _Retorno.Mensagem);
finally
FreeAndNil(_Nota);
end;
end;
end;
C#
private void btnUploadXMLNFe_Click(object sender, EventArgs e)
{
string Nota;
spdRetUploadX Retorno = null;
DialogResult result = cdupload.ShowDialog();
if (result == DialogResult.OK)
{
string file = cdupload.FileName;
Nota = File.ReadAllText(file);
//Esse método envia as notas para o banco de dados do Manager eDoc através do Componente Manager Client
Retorno = NFe.UploadNFe(Nota);
//Exibe o retorno no memo
memoRetorno.Text = "";
if (Retorno.Status == spdManagerClientX.TStatus.Sucesso)
memoRetorno.Text = memoRetorno.Text + "Mensagem: " + Retorno.Mensagem;
else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem;
}
}
Visual Basic 6
Private Sub btnUpload_Click()
Dim Handle As Integer
Dim Nota As String
Dim Retorno As spdRetUploadX
cdUpload.ShowOpen
If cdUpload.FileName <> "" Then
Handle = FreeFile
Open cdUpload.FileName For Input As #Handle
Nota = Input$(LOF(Handle), Handle)
Close #Handle
'Esse método envia as notas para o banco de dados do Manager eDoc através do Componente Manager Client
Set Retorno = NFe.UploadNFe(Nota)
'Exibe o retorno no memo
memoRetorno.Text = ""
If Retorno.Status = Sucesso Then
memoRetorno.Text = memoRetorno.Text + "Mensagem: " + Retorno.Mensagem
Else
memoRetorno.Text = "Erro: " + Retorno.NomeExcecao + ", " + Retorno.Mensagem
End If
cdUpload.FileName = ""
End If
End Sub
Retorno
O tipo spdRetUploadX 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.