usar função de TAG:%TAGNIVEL% é possivel

[Antonio Carlos L]

Caros onde encontro a função que faz a substituição em FormatoAlert TAG:%TAGNIVEL%  ?

Explico eu preciso dentro de um texto padrão,  mensagem complementares do simples nacional, passar o percentual de aproveitamento de credito e o valor e creio que esse seja o mesmo principio aqui desenvolvido, pode ser que eu possa utilizar ao inves de ter que inventar.

Obrigado

 

Antonio

 

 

[Régys Silveira]

procedure TGerador.wAlerta(const ID, TAG, Descricao, Alerta: string);
var
  s: string;
begin
  // O Formato da mensagem de erro pode ser alterado pelo usuario alterando-se a property FFormatoAlerta: onde;
  // %TAGNIVEL%  : Representa o Nivel da TAG; ex: <transp><vol><lacres>
  // %TAG%       : Representa a TAG; ex: <nLacre>
  // %ID%        : Representa a ID da TAG; ex X34
  // %MSG%       : Representa a mensagem de alerta
  // %DESCRICAO% : Representa a Descrição da TAG
  s := FOpcoes.FFormatoAlerta;
  s := stringReplace(s, '%TAGNIVEL%', FTagNivel, [rfReplaceAll]);
  s := stringReplace(s, '%TAG%', TAG, [rfReplaceAll]);
  s := stringReplace(s, '%ID%', ID, [rfReplaceAll]);
  s := stringReplace(s, '%MSG%', Alerta, [rfReplaceAll]);
  s := stringReplace(s, '%DESCRICAO%', Trim(Descricao), [rfReplaceAll]);
  if Trim(Alerta) <> '' then
    FListaDeAlertas.Add(s);
end;

pcnGerador.pas dentro da pasta PCNCOMUM linha 679.

[Antonio Carlos L]

Muito Obrigado