Método

Método utilizado para extrair os dados do xmlgnre (retorno do EnviarGuia) para uma lista de TspdRetDadosGNRE para que se possa parsear os campos.

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

Este método retorna os dados do XML passados para a lista de objetos TspdRetDadosGNRE.

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;

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);

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