Nome da procedure:  ExtrairDadosRetorno

Descrição: Método usado para parsear o conteúdo de um XmlGnre gerado pela consulta recibo de uma guia. Ele guarda os valores dos campos comuns nas impressões dos 3 servidores (nacional, ES e RJ) para tornar mais fácil a utilização dos mesmos. 

Parâmetros:

Nome Tipo Descrição
aXmlGNRE string XmlGnre de uma guia
aListaRetorno TspdRetDadosGNREList Lista usada para guardar os retornos do conteúdo da guia

 

OBS:  O parâmetro aListaRetorno deve ser instanciado antes de ser informado ao método, como no exemplo abaixo.

Também deve-se descrever nas uses do projeto : spdGnreType.

Declaração:

procedure TspdGnre.ExtrairDadosRetorno(const aXmlGNRE : WideString; var aListaRetorno : TspdRetDadosGNREList);

Exemplo de uso:

var
  lista : TspdRetDadosGNREList;
  I: Integer;
begin
  try
    lista := TspdRetDadosGNREList.Create;
    FGnre.ExtrairDadosRetorno(Memo1.Lines.Text, lista);
    Memo1.Lines.Text :=  lista.Item(0).RazaoSocialContribuinte
    { Após utilizar o dados deve-se limpar a lista da memória para não ocorrer memory leak. Como no finally abaixo. }
  finally
    lista.free
  end;
end;

Exceções possíveis:

EspdGnreRetDadosListException Quando o parâmetro aListaRetorno é passado sem ser instanciado.

Exemplo de retorno de um item da lista :

('9', '08187168000160', 'TECNOSPEED TI', 'AV. DUQUE DE CAXIAS, 882', 'MARINGA', 'PR', '87020025', '', 'RS', '100102', '02/03/2016', '000000000000002994', '', '523530,44', '0,5', '8,1', '523539,04', '', '02/03/2016', '85830000000000203101606201005611603746606000')
 

Propriedades da classe  TspdRetDadosGNRE

PROPRIEDADE DESCRIÇÃO
Ambiente Referente a qual ambiente (produção ou homologação) o XmlGnre corresponde
CnpjCpfContribuinte CNPJ ou CPF do contribuinte
RazaoSocialContribuinte Razão social do contribuinte
MunicipioContribuinte Município do contribuinte
EnderecoContribuinte Endereço do contribuinte
UfContribuinte UF do contribuinte
CepContribuinte CEP do contribuinte
TelefoneContribuinte Telefone do contribuinte
UfFavorecida UF para qual a GNRE foi gerada
CodigoReceita Código da receita da guia gerada (ST, FCP e Partilha de ICMS)
DataVencimento Data de vencimento da guia
NumeroDocOrigem Número da NF-e para qual a guia foi gerada
PeriodoRerefencia Período onde a guia é referenciada, geralmente mês e ano
ValorPrincipal Valor principal da guia
ValorJuros Valor dos juros
ValorMulta Valor da multa
ValorTotalARecolher Total da guia mais os acréscimos
InformacoesComplementares Informações complementares da guia
DataValide Data de validade da guia
BarCode Valor do código de barras
Cstat Código da situação da guia
Xmotivo Mensagem da possível rejeição da guia
Situacao Situação da guia (Rejeitada, Autorizada)

 

Usando o método na OCX:

O uso do método na OCX é um pouco diferente da maneira usada no componente Delphi. Na OCX ele passa a ser uma Função  onde seu retorno é do tipo  IspdRetDadosGnreListX.  É necessário declarar uma variável desse tipo (não é necessário instanciar) e atribuir o retorno do método a ela.
OBS:  Perceba que na OCX somente é passado um parâmetro (aXmlGNRE).

Declaração:

function ExtrairDadosRetorno(const aXmlGNRE: WideString): IspdRetDadosGnreListX;

Exemplo de uso:

var
  _listaRetorno : IspdRetDadosGnreListX;
begin
  _listaRetorno := FGnreX.ExtrairDadosRetorno('CaminhoXml.xml');
  showmessage( _listaRetorno.Item(0).Ambiente);
end;

 

Método disponível a partir da versão 1.7.2 do componente.

 

Sumário