// сбрасываем остатки
// Скрипт должен быть запущен в параметрах командной строки к solaris.exe в задании Windows
// параметры рассылки указываются в настройках рассылки остатков. там должны быть выписаны каталоги исходящей почты,
// соответствующие складам-подписчикам.

var
    LogName :string;

var
    LogFile :TStringList;
    s :string;
begin
    LogName := extractfilepath(application.exename)+'exportgoodslog.log';


    LogFile := TStringList.create;
    try
      if fileexists(LogName)
      then begin
          LogFile.LoadFromFile(LogName);
      end;

      try
        s := ExportStorageGoods;
      except
        s := ExceptMessage;
      end;

      LogFile.add(datetimetostr(now)+': '+s);
      LogFile.SaveToFile(LogName);


    finally
      Application.Terminate;
      LogFile.free
    end;
end.
