representacaonumerica em branco

[veleiropedevento]

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';
........

 

[Juliana Tamizou]

Bom dia.

Obrigada por querer ajudar, por favor anexe o pas alterado aqui.

Att.