Retorno Das Nfes Vazio Com A Última Versão Do Acbrnfe

[Thiago_Kverna]

Olá,

 

Fiz o update para a última versão do ACBrNFe presente no SVN e o sistema não estava conseguindo tratar os retornos do webservice.

Todas as propriedades estavam ficando vazios.

 

Depurando, descobri que ao tentar pegar apenas a parte do retorno referente ao NfeConsultaNF2Result a função SeparaDados da ACBrUtil não estava encontrando a tag.

 

Alterei a função para jogar as strings para maiúsculas antes de comparar e aí encontrou.

 

Segue o código alterado caso alguém esteja encontrando os mesmos problemas.

 

*Função se encontra em Fontes\ACBrComum\ACBrUtil

function SeparaDados( Texto : AnsiString; Chave : String; MantemChave : Boolean = False ) : AnsiString;
var
  PosIni, PosFim : Integer;
  Texto_temp, Chave_temp: String;
begin
  //Internews
  {Done: Alteração da Internews}
  Texto_temp := AnsiUpperCase(String(Texto));
  chave_temp := AnsiUpperCase(Chave);
  if Mantemchave then
   begin
     PosIni := Pos(String(chave_temp),String(Texto_temp))-1;
     PosFim := Pos('/'+String(chave_temp),String(Texto_temp))+length(String(chave_temp))+3;

     if (PosIni = 0) or (PosFim = 0) then
      begin
        PosIni := Pos('ns2:'+String(chave_temp),String(Texto_temp))-1;
        PosFim := Pos('/ns2:'+String(chave_temp),String(Texto_temp))+length(String(chave_temp))+3;
      end;
   end
  else
   begin
     PosIni := Pos(String(chave_temp),String(Texto_temp))+Pos('>',copy(String(Texto_temp),Pos(String(chave_temp),String(Texto_temp)),length(String(Texto_temp))));
     PosFim := Pos('/'+String(chave_temp),String(Texto_temp));

     if (PosIni = 0) or (PosFim = 0) then
      begin
        PosIni := Pos('ns2:'+String(chave_temp),String(Texto_temp))+Pos('>',copy(String(Texto_temp),Pos('ns2:'+String(chave_temp),String(Texto_temp)),length(String(Texto_temp))));
        PosFim := Pos('/ns2:'+String(chave_temp),String(Texto_temp));
      end;
   end;
  Result := AnsiString(copy(String(Texto),PosIni,PosFim-(PosIni+1)));
end;

[Italo Giurizzato Junior]

Bom dia Thiago,

 

Uma coisa é certa você não esta com os fontes atualizados.

 

Pois essa alteração foi realizada pelo Jairo e disponibilizada por mim em 15/04/2014.

[Thiago_Kverna]

Realmente rsrsrs.

Devo ter atualizado apenas a pasta referente ao ACBrNFe.

 

Valews