Configurações Geral: Formato Alerta

[Marcelo Toller]

Olá, utilizo o componente ACBrNFSeX e gostaria de saber como utilizar o formato de Alertas nas configurações gerais:

No programa de exemplo ele vem assim:
Configuracoes.Geral.FormatoAlerta = 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'

Alguém podera explicar como usar esse formato? quais valores eu devo substituir nessas macros como %TANGIVEL% por exemplo, eu realmente não saquei..
Obrigado!!
 

[Italo Giurizzato Junior]

Bom dia Marcelo,

Na unit pcnGerador temos a procedure wAlerta responsável por gerar os alertas, veja:

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;

 

[Marcelo Toller]

3 minutos atrás, Italo Giurizzato Junior disse:

Bom dia Marcelo,

Na unit pcnGerador temos a procedure wAlerta responsável por gerar os alertas, veja:

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;

 

 

ENTENDI!! MUITO OBRIGADO!!!!

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.