Alteração Da Tacbrtefd.infoecfasstring Em 04 De Julho.

[wiglan]

Boa tarde, 

 

pelo log do acbr, o usuario DOPI mandou para o servidor a seguinte alteração

 

Antes:

 
function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String;
var
   Retorno: String;
begin
   Retorno := '';
   fTefClass.GravaLog( 'InfoECF: '+
     GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ;
 
   try
      OnInfoEcf( Operacao, Retorno ) ;
   except
      On E : Exception do
      begin
         fTefClass.GravaLog( fTefClass.Name +'   Erro: '+E.Message ) ;
         raise EACBrTEFDECF.Create(E.Message);
      end;
   end;
 
   fTefClass.GravaLog( '    Ret: '+Retorno ) ;
   Result := Retorno;
end;
 

 

Atual:

 

 

function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String;
var
   Retorno: String;
begin
   Retorno := '';
   fTefClass.GravaLog( 'InfoECF: '+
     GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ;
 
   while Retorno = '' do
   begin
      try
         OnInfoEcf( Operacao, Retorno ) ;
      except
         On E : Exception do
         begin
            fTefClass.GravaLog( fTefClass.Name +'   Erro: '+E.Message ) ;
 
            if DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoResponde ) <> mrYes then
               raise EACBrTEFDECF.Create(E.Message);
         end;
      end;
   end;
 
   fTefClass.GravaLog( '    Ret: '+Retorno ) ;
   Result := Retorno;
end;
 

 

a partir desta atualização, minha aplicação fica em loop infinito neste while adicionado. Eu pesquisei nos fontes e tentei entender o objetivo com isso, 

mas ainda nao obtive resultados. 

 

Dopi e demais  usuarios, o que seria  exatamente a necessidade desta alteração?

 

obrigado.

 

 

[wiglan]

opa, agora consegui entender. Problema que na verdade nao era um problema foi resolvido.

 

obrigado. 

[Daniel Simoes]

A descrição do motivo da alteração está no Changelog do ACBrTEF

[prog_softer]

Eu estou tendo o mesmo problema, minha aplicação também está em Loop nessa rotina.

 

Afinal, wiglan, qual era o problema que não era problema? Pois estou com o mesmo problema... que não é problema.

[Daniel Simoes]

O problema é que o seu evento (dentro do seu código) não está devolvendo um valor para o Parâmetro que é passado por referencia (var)