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

Преимущество Firebird 3.0 на медленных каналах связи

​В Firebird 3.0 есть возможность включить сжатие трафика между сервером и клиентом, это позволяет в 3 раза уменьшить количество TCP/IP пакетов и до 10 раз уменьшить объем передаваемых данных. Сжатие данных включается в настройках клиентов,  поэтому можно избирательно включить сжатие трафика для клиентов подключаемым по медленным каналам. 

Для это нужно:

  • На сервере включить параметр WireCompression = true в файле firebird.conf
  • На клиенте положить в каталог с программой fbclient.dll (от 3 версии), firebird.conf (с аналогичным параметром WireCompression = true) и zlib1.dll. 

Не забывайте что все dll должны быть взяты из дистрибутива Firebird 3 (32 bit). 

Теги:
39 просмотров
0 Комментариев
Вадим Мещеряков

Настройка печати сумм налогов в кассовом чеке

В ФЗ-54 есть такой текст: 

1. Кассовый чек и бланк строгой отчетности содержат, за исключением случаев, установленных настоящим Федеральным законом, следующие обязательные реквизиты:

.......

наименование товаров, работ, услуг (если объем и список услуг возможно определить в момент оплаты), платежа, выплаты, их количество, цена за единицу с учетом скидок и наценок, стоимость с учетом скидок и наценок, с указанием ставки налога на добавленную стоимость (за исключением случаев осуществления расчетов пользователями, не являющимися налогоплательщиками налога на добавленную стоимость или освобожденными от исполнения обязанностей налогоплательщика налога на добавленную стоимость, а также осуществления расчетов за товары, работы, услуги, не подлежащие налогообложению (освобождаемые от налогообложения) налогом на добавленную стоимость);

сумма расчета с отдельным указанием ставок и сумм налога на добавленную стоимость по этим ставкам (за исключением случаев осуществления расчетов пользователями, не являющимися налогоплательщиками налога на добавленную стоимость или освобожденными от исполнения обязанностей налогоплательщика налога на добавленную стоимость, а также осуществления расчетов за товары, работы, услуги, не подлежащие налогообложению (освобождаемые от налогообложения) налогом на добавленную стоимость);

Для настройки печати чека в соответствии с этими требованиями  в Дела&Финансы версии 8.0.6.7 изменен параметр в виде движения "Печать налогов в чеке"

  • ​Добавлен новый тип "Печатать встроенным в ККМ способом (ФЗ-54)" для on-line ККТ
  • Добавлен параметр - Формула строки налогов для подвала чека в случае если параметр "Печать налогов в чеке"​ выставлен в  Печатать после каждой строки
Примеры формул 
для строки чека:
'Сумма НДС '+ FormatFloat('0',Doc.NDS) + '%' + PadL(FormatFloat('0.00', Doc.SummaNDS), 6, ' ')
для подвала чека:

'в т.ч. налоги ' + ' НДС 10 %' + PadL(FormatFloat('0.00', Main.SummaNDS10), 11, ' ') + ' НДС 18 %' + PadL(FormatFloat('0.00', Main.SummaNDS18), 11, ' ')

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

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

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

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


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



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

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


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

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


 

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

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

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

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

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

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

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

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

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


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

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


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

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

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

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

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

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

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

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

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


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

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

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

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


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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

 

 

 

 

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

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

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

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

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

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

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