{ exchange #2629: Заменять  символы « » на " " }
var
  vCfg_ExchangeQuoteChars_2629: boolean;



{~ExchangeQuoteChars2629
  exchange #2629
  замена символов « » на " " в тексте aText разделов aTopic
  при включенной настройке: "Заменять  символы « » на " "" = Да.

    замена выполняется только для текста в разделах: DK, FD, FC, FN, KD, WN, TL
  в полях CNAME, NAME.

  замену текста для раздела DK реализовать для нового и старого алгоритмов.

  exchange #2646
  всвязи с доработкой по другим выгрузкам КБК проверка допустимых разделов
  больше не проверяется - это оказалось лишней операцией.
  а параметр останется, поскольку поправлять уже проверенный код не хочется.}
function ExchangeQuoteChars2629( aTopic, aText: string): string;
begin

    try
      //if (aTopic in [ 'DK', 'FD', 'FC', 'FN', 'KD', 'WF', 'TL']) then
        if vCfg_ExchangeQuoteChars_2629 then begin
          Result := StringReplace(
                      StringReplace( aText, '«', '"'),
                      '»', '"');

          EXIT;
        end;

      Result := aText;
      except
        ExceptionLog( 'Сбой Un_Exch2629.ExchangeQuoteChars2629');
    end;

end;


{~Exch2629_Initialize
   получения параметра из конфигурации.}
procedure Exch2629_Initialize( aConfig: TStringList);
begin

    try
      vCfg_ExchangeQuoteChars_2629 :=
                 ( LOWERCASE( aConfig.Values( 'Заменять  символы « » на " "'))
                   = 'да');

      except
        ExceptionLog( 'Сбой Un_Exch2629.Exch2629_Initialize');
    end;

end;


begin
end.
