Método utilizado para extrair os dados do xmlgnre (retorno do EnviarGuia) para uma lista de TspdRetDadosGNRE para que se possa parsear os campos.
Método
ExtrairDadosRetornoEnvio(aXmlGNRE: WideString; aListaRetorno : TspdRetDadosGNREList);
Parâmetros
Argumento | Tipo | Detalhes |
aXmlGNRE | String | É o xml da GNRe podendo ser o conteudo ou o nome do arquivo |
aListaRetorno | String | É uma lista de objetos do tipo TspdRetDadosGNRE que precisa ser instanciado antes da de ser informado |
Retorno
Este método retorna os dados do XML passados para a lista de objetos TspdRetDadosGNRE.
Exemplos
Delphi
var
lista : TspdRetDadosGNREList;
begin
lista := TspdRetDadosGNREList.Create;
spdGNRe.ExtrairDadosRetornoEnvio(Memo1.Lines.Text, lista);
Memo1.Lines.Text := lista.Item(0).RazaoSocialContribuinte
Memo1.Lines.Text := lista.Item(0).DataVencimento
Memo1.Lines.Text := lista.Item(0).BarCode
Memo1.Lines.Text := lista.Item(0).Situacao
Memo1.Lines.Text := lista.Item(0).ValorTotalARecolher
Memo1.Lines.Text := lista.Item(0).Xmotivo
lista.free
end;
C#
IspdRetDadosGnreListX _listaRetorno;
_listaRetorno = spdGNRe.ExtrairDadosRetornoEnvio(textBox.Text);
MessageBox.Show(_listaRetorno.Item(0).Receita);
MessageBox.Show(_listaRetorno.Item(0).DataVencimento);
MessageBox.Show(_listaRetorno.Item(0).BarCorde);
MessageBox.Show(_listaRetorno.Item(0).Situacao);
MessageBox.Show(_listaRetorno.Item(0).ValorTotalARecolher);
MessageBox.Show(_listaRetorno.Item(0).Xmotivo);
Visual Basic 6
Dim item As GnreX.spdRetDadosGnreX
Set lista = spdGNRe.ExtrairDadosRetornoEnvio(mmoXML.Text)
Set item = lista.item(0)
MsgBox item.Receita
MsgBox item.DataVencimento
MsgBox item.BarCorde
MsgBox item.Situacao
MsgBox item.ValorTotalARecolher
MsgBox item.Xmotivo
Comentários
0 comentário
Por favor, entre para comentar.