SAT - Incluir evento para buscar a pasta de gravação do XML

[amarildolacerda]

Olá Daniel,

Gostaria de ter mais flexibilidade para escolher o local de gravação do XML... É possível incluir um evento neste procedimento ?

O evento retornaria a pasta onde será gravado o XML;

 

function TACBrSATConfigArquivos.CalcPath(APath: String; CNPJ: String;
  Data: TDateTime): String;
 

 

 

ACBrSATClass.pas

Editado 18 Março, 2016 por amarildolacerda

[Daniel Simoes]

Amarildo,

Apliquei modificações nos fontes, baseados na sugestão... a diferença, é que deixei o evento como Published em ACBrSAT

Citar

-- ACBrSAT --
[+] Adicionado o evento:
    OnCalcPath(var APath: String; ACNPJ: String; AData: TDateTime);
    Que será disparado quando o componente computar o Path onde será gravado o
    XML, permitindo a aplicação modificar o Path computado, atribuindo um novo
    valor ao parâmetro "APath"               (Por: DSA e Amarildo)