Вадим Мещеряков

Изменения в режиме Ревизионные ведомости

Задача - запрещать открывать проведенные и учтенные ревизионные ведомости.

В реестре Ревизии теперь точно так же как в реестрах документов три статуса документов

  1. Черновик
  2. Чистовик
  3. Закрыт 
Вадим Мещеряков

В Дела&Финансы 8.0 добавлен обработчик события - попытка закрыть главное окно программы

В Дела&Финансы 8.0 добавлен обработчик события - попытка закрыть главное окно программы

В Дела&Финансы 8.0 добавлен обработчик события – попытка закрыть главное окно программы

В скрипте доступна csVariables[‘CanClose’]
Если по какому то условию нужно заблокировать выход пользователя из программы то можно использовать такой код
csVariables[‘CanClose’] := True;
Так же этот скрипт отработает при нажатии «Завершить сеанс»

 

 

 

 

1840 просмотров
0 Комментариев
Вадим Мещеряков

Экспорт отчетов FR4 из FastScript

В Дела&Финансы, начиная с версии  7.4.18.6

В FastScript можно использовать такие команды для экспорта отчетов FR4 в файлы

begin
//fr_savereport(809946,'c:\1\333.xls');
fr_savereport(809946,'c:\1\333.pdf');
fr_savereport(809946,'c:\1\333.rtf');
fr_savereport(809946,'c:\1\333.fr3');
end.

Это позволяет решить задачу пакетного экспорта кучи документов в файлы нужного формата

1699 просмотров
0 Комментариев
Вадим Мещеряков

Постоянные фильтры (по пользователям) в Прейскуранте

Постоянные фильтры (по пользователям) в Прейскуранте

В новом exe для прейскуранта может быть задан скрипт на загрузку формы, в нем можно задать системный фильтр для реестра

В скрипте доступны все глобальные FR.Variables +  такие переменные

FORM.TABLENAME                      (‘PRICE');
FORM.IdSHOP                                 (IdShop);
FORM.FIRSTFILTERTEXT  SQL код фильтра

Вадим Мещеряков

В Дела&Финансы 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. 
1937 просмотров
0 Комментариев
Вадим Мещеряков

в App Store опубликовано наше приложение MobileReport

"MobileReport" - возможность получать и просматривать отчеты из системы управления предприятием Дела&Финансы через Интернет .

Вот ссылка для скачивания: https://itunes.apple.com/ru/app/id848899709

1718 просмотров
0 Комментариев
Мы разрабатываем программы для автоматизации бизнеса.
Челябинск
+7 (351) 729-96-90
+7 (351) 280-79-17
Екатеринбург
+7 (343) 204-75-01
Ессентуки 
+7 (906) 479-47-77
Санкт-Петербург
+7 (812) 908-55-25
Москва
+7 (926) 484-49-99
Подписаться на новости!
Нажимая кнопку «Подписаться», я даю свое согласие на обработку моих персональных данных, в соответствии с Федеральным законом от 27.07.2006 года №152-ФЗ «О персональных данных», на условиях и для целей, определенных в Согласии на обработку персональных данных