Apartir da ultima atualizacao a gnre comecou a devolver no retorno representacaonumerica em branco.
Indenfiquei no acbrgnrewebservices.pas hove alteracoes, para retornar essa informacao alterei o bloco abaixo.
function TGNRERetRecepcao.SalvarTXT(AResultado: String): Boolean;
var
SL, SLAux: TStringList;
i, GuiasOk: Integer;
Cabec, RepresentacaoNumerica, SituacaoGuia, PathNome: String;
begin
GuiasOk := 0;
FGNRERetorno.resGuia.Clear;
SL := TStringList.Create;
SLAux := TStringList.Create;
try
SL.Text := AResultado;
Cabec := SL.Strings[0];
for i := 0 to SL.Count - 1 do
begin
if SameText(Copy(SL.Strings[i], 1, 1), '1') then
begin
SituacaoGuia := Trim(Copy(SL.Strings[i], 6, 1));
if SameText(SituacaoGuia, '0') then
begin
SLAux.Add(Cabec);
SLAux.Add(SL.Strings[i]);
Inc(GuiasOk);
RepresentacaoNumerica := Copy(SL.Strings[i], 979, 48);
FGNRERetorno.resGuia.New;
FGNRERetorno.resGuia.Items[GuiasOk-1].TXT := SLAux.Text;
/******/
FGNRERetorno.resGuia.Items[GuiasOk-1].RepresentacaoNumerica := RepresentacaoNumerica; // *** RNR ****
/*****/
if FPConfiguracoesGNRE.Arquivos.SalvarTXT then
begin
if not DirectoryExists(FPConfiguracoesGNRE.Arquivos.PathArqTXT) then
ForceDirectories(FPConfiguracoesGNRE.Arquivos.PathArqTXT);
PathNome := PathWithDelim(FPConfiguracoesGNRE.Arquivos.PathArqTXT) +
RepresentacaoNumerica+'-guia.txt';
........