SAT - Alterado para permitir uma Mascara para Pasta de Gravação dos Arquivos

[amarildolacerda]

 

Alterado para permitir configurar um pasta em uma árvore de pasta "configurável".

Incluído propriedade:     

       TACBrSATConfigArquivos.MascaraPath   

Incluído propriedade:

       TACBrSATConfigArquivos.SepararPorSerie    (usado para formatar uma mascara quando não informado a mascara);

 

Se não for informado a mascara, irá montar uma sequência no formado existe seguindo os parâmetros configurados ( on - off );

Palavras chaves para substituição na mascara:     

    {tipo}     -> indica   "venda, cancelamento....."

   {cnpj} -> substitui pelo cnpj

  {serie}   -> palavra nova incluído na implementação

{anomes}  -> substitui pelo   AAAAMM

Exemplo de uma máscara:     {tipo}\{cnpj}\{serie}\{anomes}

 

 

(OBS: não consegui excluir o anexo.... )

 

Alterar  Linha 440:

 

 

  if EstaVazio(APath) then
    Dir := PathWithDelim(extractFilePath(PastaCFeVenda)) + StringReplace( fsMascaraPath,'{tipo}', ExtractFileName(PastaCFeVenda),[])
  else
    Dir := PathWithDelim(extractFilePath(APath)) + StringReplace( fsMascaraPath,'{tipo}', ExtractFileName(APath),[]);

 

 

 

ACBrSATClass.pas

Editado 3 Novembro, 2015 por amarildolacerda
Contem erro no codigo anexado, nao consegui excluir o anexo.

[amarildolacerda]

Código alterado com a correção

ACBrSATClass.pas