Размер шрифта: +

В Дела&Финансы 7 добавлен клиент сервиса обмена файлами

Для организации обмена данными между филиалами в систему Дела&Финансы добавлен клиент сервиса файлового обмена из 8 версии.
Параметры подключения описываются в ОПС.
Клиент файлового обмена объявлен как компонент для FastScript.



П​ример функции для отправки файла

   f := TdfFileExchanger.Create(nil);
      try
        if f.Connect then
          begin
            if not (f.PutFile(IdFilial,FileName)) then
              begin
               ShowMessage('False');
              end
              else
               ShowMessage('True');
            f.Disconnect;
          end;
      finally
        f.Free;
      end; 

Пример скрипта для отправки и получения файлов

const
  InDir = 'c:\DelFin\Import\';
  OutDir = 'c:\DelFin\Export\';
  SendDir = 'c:\DelFin\Send\';
  ParentFilialDir = 'c:\DelFin\ParentFilial\';

procedure WriteExchangeLog(AFileName, AMessage: string);
begin
  try
    WriteLnSave(AFileName, FormatDateTime('dd.mm.yyyy hh:nn:ss', Now) + ' ' + '************');
    WriteLnSave(AFileName, AMessage);
    WriteLnSave(AFileName, '********************************');
  except
  end;
end;

function SendFileToFilial(IdFilial: Integer; FileName: string; TransferMethod: integer; E_Mail: string): Boolean;
var
  f: TdfFileExchanger;
  slFiles: TStringList;
  fn: string;
  sError: string;
  TransferMethodFilial: integer;
begin
  result := false;

  TransferMethodFilial := SqlSelect('select TransferMethod from FilialList where id = ' + IntToStr(frVariables['IdOwnerBase']));

   if (TransferMethod = 0) and (TransferMethodFilial = 0) then
    begin
      f := TdfFileExchanger.Create(nil);
      try
        if f.Connect then
          begin
            if (f.PutFile(IdFilial, FileName)) then
              begin
                Result := true;

              end;
            f.Disconnect;
          end;
      finally
        f.Free;
      end;
    end;

end;

procedure ReciveFilesToFilial(IdFilial: Integer);
var
  f: TdfFileExchanger;
  slFiles: TStringList;
  i: Integer;
  IsFileToParentFilial: boolean;
begin
  f := TdfFileExchanger.Create(nil);
  try
    if (not DirectoryExists(InDir)) then
      ForceDirectories(InDir);

    try
      if f.Connect then
        begin
          f.GetFiles(IdFilial, Indir, 'Admin*.7z');
          f.GetFiles(IdFilial, Indir, 'Doc*.7z');
          f.Disconnect;
        end;
    except
      ShowMessage(csGetLastErrorText);
    end;

  finally
    f.Free;
  end;
end;

begin

end. 
в App Store опубликовано наше приложение MobileRep...
В Дела&Финансы 8.0 добавлен обработчик события - п...

Комментарии

 
Еще нет комментариев
Уже зарегистрированны? Войти на сайт
Гость
28.03.2024
Если вы хотите зарегистрироваться, пожалуйста заполните формы имени и имя пользователя.
Мы разрабатываем программы для автоматизации бизнеса.
Челябинск
+7 (351) 729-96-90
+7 (351) 280-79-17
Екатеринбург
+7 (343) 204-75-01
Ессентуки 
+7 (961) 448-93-58
Тюмень
+7 (909) 742-91-75
Республика Ингушетия 
+7 (918) 811-14-44
 
Подписаться на новости!
Нажимая кнопку «Подписаться», я даю свое согласие на обработку моих персональных данных, в соответствии с Федеральным законом от 27.07.2006 года №152-ФЗ «О персональных данных», на условиях и для целей, определенных в Согласии на обработку персональных данных