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

Регистрация продаж алкоголя в ЕГАИС

В версии 8.0.4.14 реализована регистрация продаж алкоголя в ЕГАИС
Для включения
1. Восстановить системные справочнике в режиме Диагностика данных (нужно будет запустить 2 раза, что бы система создала индексы на новые таблицы)
2. В режиме Общие Параметры Системы настроить параметры раздела ЕГАИС 

Реализована печать QR кодов при прямой печати чеков и при работе через очередь печати.
Проверено на ККМ Атол. 
Может потребоваться внесение изменений в печать QR кодов для ККМ Штрих - у них для разных аппаратов может потребоваться вызывать разные методы из драйвера.


Внимание. Пока это работает на старых DEF файлах, в ближайшие дни потребуется сделать новые лицензионные файлы в которых будет разрешено использование ЕГАИС



Настройка параметров системы

Поле в карточке товара (признак алкоголя)


Диалог принудительного сканирования акцизной марки

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

Новая версия файлового сервиса обновлений и обмена данными

  1. Изменен алгоритм получения данных о файлах расположенных на сервере обновлений, за счет этого значительно увеличена скорость проверки новых файлов и запуска системы.


  2. На​ одном из объектов пришлось установить 4 экземпляра сервиса обновлений (Vers)  что бы разные рабочие места получали с сервера только нужные им файлы. Это не красивое решение, поэтому выпущена новая версия сервиса обновлений. В новой версии DelFinVers.exe в DelFinVers.ini можно указать новый параметр - путь на сервере к файлам обновлений (этот путь относительный, добавляется к корневому пути сервиса). Вот пример использования параметра:

    [SERVER]
    UserPath=​CaBaReFront

  3. Для того что бы организовать обмен данными между филиалами наших клиентов на одном сервере, в сервис обмена данными добавлен аналогичный параметр, определяющий относительный путь до каталогов с файлами обмена на сервере. Этот параметр задается в режиме Общие параметры системы (см. рис)

​Еще один способ разнести рабочие каталоги разных пользователей реализован через авторизацию на сервисе. В файле, описывающем пользователей сервиса и права доступа, можно указать четвертый параметр - рабочий каталог.

Для Vers

UserVersCabare:UserVersPass:VersReader:CabareFront
UserVersCAMP:UserVersPass:VersReader:Camp

Для Обмена
UserExchange1:UserExchangePass1:Exchange:DelFin
UserExchange2:UserExchangePass2:Exchange:4574574875AB33


 

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

Фильтр в пакетном вводе строк справочников

Если для ввода строк (такие как строки калькуляций) справочника нужно наложить фильтр в пакетном вводе то в скрипте на загрузку формы справочника в новых версиях можно использовать такой код: ​

CALCULATION.PI.UserFilterText := '(Status < 0)';

CALCULATION - имя поля типа "Перечисление строки"

Ранее это можно было сделать через константу

SetConst('PI_IDLABELPRODUCT.FILTERTEXT', 'status < 0');

IDLABELPRODUCT - Поле в справочнике типа "Перечисление строки"  основание для пакетного ввода

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

Подарочные сертификаты в "Дела&Финансы. КаБаРе"

Новый функционал в КаБаРе

Подарочные сертификаты реализованы на базе лицевых счетов гостей с типом «Подарочный сертификат»

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

Работа TcsFormDbDialog в FastScript 7 и 8 версии

​В Дела&Финансы версии  7  на форме TcsFormDbDialog лежит Grid : TBDBGrid а в 8 версии это класс TdfDBGrid. Для корректной работы старых скриптов в 8 версии нужно изменить код как в примере. Такой скрипт будет работать и в 7 и в 8 версии от 20.01.2016


var f : TcsFormDbDialog;
begin
 f := TcsFormDbDialog.Create(nil);

 // f.grid.Columns.Clear;
 f.grid.ClearColumns;

 // with f.Grid.Columns.Create do
 with f.Grid.CreateColumn do
  begin

   //Title.Caption := 'Тест';
   //Title.Alignment := taCenter;
   TitleCaption := 'Тест';
   TitleAlignment := taCenter;
   FieldNAme := 'NAme';
 end;
 f.Query.Databasename := MainDatabasename;
 f.Query.SQL.Add('select code, name from type_oper');
 f.Query.Open;
 f.ShowModal;
 f.Free;

end.


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

Работа программы Дела&Финансы. Киоск


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

ЕГАИС. Как узнать свой FSRAR_ID (код регистрации в РАР)

FSRAR_ID можно посмотреть двумя способами:

  1. ​В ключе шифрования записанному в память JaCarta
  2. В файлах протоколов работы УТМ.
Вадим Мещеряков

Выпущена новая версия системы управления рестораном "Дела&Финансы. КаБаРе" 7.5.1.3

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

Сетевая бонусная система в КаБаРе

​Система управления ресторанным бизнесом "КаБаРе" интегрирована с бонусной системой "Дела&Финансы. Бонус". 
Для подключения рабочей станции к бонусной системе необходимо:

  • Установить клиента бонусной системы
  • Зарегистрировать рабочую станцию на бонусном сервере (получить лицензию)
  • Загрузить начальные данные на бонусный сервер
  • Включить в ОПС Ресторан работу с бонусным сервером
  • Установить сервис для синхронизации данных локальной базы с сервером


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

Выпущена новая версия Дела&Финансы 7.4.20.25

​В новой версии

  • В режиме быстрого ввода можно включить панель с кнопками выбора вида оплаты, поиска, открытия денежного ящика (см. рис)
  • В ОПС можно указать по каким видам  оплаты  не нужно автоматически заполнять сумму оплаты. Такое может потребоваться для оплаты Подарочными сертификатами (не связанными с бонусной системой)(см. рис)
  • Изменен алгоритм автоматического расчета суммы по второму виду оплаты (в диалоге ввода оплаты). Если общая сумма оплаты по всем видам больше суммы чека​ то она уменьшается (ранее оставалась неизменной) в случае 


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

Выпущена новая версия Дела&Финансы 7.4.20.11

​Исправлена такая проблема:

Если в при выполнении скрипта FastScript произошла ошибка и в результате не был уничтожен созданный в этом скрипте объект класса TProgressForm, то после выхода из программы показывалось окно с ошибкой. 

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

Централизованное управление настройками в магазинах

Проблема

Есть магазины (О1 Внутренний и О1 Внешний) со своей схемой работы

  • Общий склад, следовательно и общая база данных
  • Работают через накладные а не через быстрый ввод чеков
  • Печатают чеки по требованию (после того как документ готов)
  • На внешнем магазине свои ОУ в документах (Выручка) и вид оплаты "Наличные"
  • На внутреннем магазине свои ОУ в документах (Покупатели) и вид оплаты "Безнал"
  • Не нужен контроль лимита суммы чека

Решение

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

Системная генерация кода аналитического справочника

Надоело писать скрипты на загрузку аналитических справочников что бы делать код справочника уникальным в сети подразделений.

В 8 версии добавлена системная логика создания новых кодов аналитического справочника

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

Отправка SMS из FastScript

Для отправки SMS предназначен класс TWebSMSSender.

Пример использования:

var t : TWebSMSSender;
begin
 t := TWebSMSSender.Create;
 t.IsTestMode := False;
 if not t.SendSMS('79226395170','Проверка связи') then
  ShowMessage(t.ErrorText);
 t.Free;
end.

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

Новое в режиме Диагностика данных

Из режима Диагностика данных вынесены в главное меню две часто используемые функции (что бы пользователи могли запускать  сами)

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

Мобильные отчеты в Play Google

В Play Google выложено приложение - Мобильные отчеты

https://play.google.com/store/apps/details?id=com.delfin.ReportMobileClient

 

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

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

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

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

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

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

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

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

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

 

 

 

 

897 просмотров
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.

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

905 просмотров
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. 
1046 просмотров
0 Комментариев
Вадим Мещеряков

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

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

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

942 просмотров
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
Подписаться на новости!