Установка бонусов кассирам

Содержание

1 Требования
2 Установить ТМС
3 Включить вызов ТМС
4 Отображение кол-ва бонус в окне информации о чеке
5 Расчет премии
6 Настройка с какого дня расчитывать премию/выручку
7 Параметры для отображения премии и графика выручки, по умолчанию все выключено
8 Добавить отчет по премиям
9 Как себя проверить

Требования

1) Версия Кассира zkassa.exe на версию 2.17.9 от 25.09.2014 или выше;
2) ОС не ниже WinXP Sp3.

Установить ТМС

Создать новую ТМС в Кассире и назвать ее "Бонусы кассирам"
Исходный код данной ТМС:

uses
  Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, ibquery, DB, ChequeList, FR,
  ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
  IBDataBase, SysUtils;
       
 Procedure BonusRecalc;
 var
  iq: tibquery;
  BONUS_CALCULATE_DAY: string;
  i: integer;
 begin
   Try
   //Создаем соединение с базой
   iq := tibquery.create(nil);
   iq.transaction := CreateRT(CurrDB);
   iq.transaction.starttransaction;
   iq.active := False;

   //Определяем день, с которого считать бонусы
   iq.sql.text := 'select param_value from params where param_id=''BONUS_CALCULATE_DAY''';
   iq.active := True;
   //забираем данные
   if iq.Eof then exit;
   BONUS_CALCULATE_DAY:= Trim(iq.FieldByName('param_value').AsString);

      TagVisible(fmMain.ewbInfo, 'tr_bonus_all', false);
      TagVisible(fmMain.ewbInfo, 't_bonus_all', false);
      TagVisible(fmMain.ewbInfo, 't_bonus_all_cap', false);
      TagVisible(fmMain.ewbInfo, 'tr_bonus_smena', false);
      TagVisible(fmMain.ewbInfo, 't_bonus_smena_cap', false);
      TagVisible(fmMain.ewbInfo, 't_bonus_smena', false);
      TagVisible(fmMain.ewbInfo, 'tr_bonus', false);
      TagVisible(fmMain.ewbInfo, 't_bonus', false);
      TagVisible(fmMain.ewbInfo, 't_bonus_cap', false);

   //Отображать график выручки?
   iq.active := False;
   iq.sql.text := 'select param_value from params where param_id=''CASH_GRAPH_ENABLE''';
   iq.active := True;
   if Not iq.Eof then
   Begin
    if iq.FieldByName('param_value').AsInteger = 1  Then
    Begin
      //Определяем суммарную выручку за месяц по всем кассирам
      iq.active := False;
      iq.sql.text := 'select first 10 * from '+
      '(select u.username, '+
      ' (select coalesce(-1*sum(summa),0) as summa_all from DOCS d Where d.status = 1 and d.commitdate between '''+BONUS_CALCULATE_DAY+''' || ''.'' || iif('+BONUS_CALCULATE_DAY+' > EXTRACT(DAY from CURRENT_DATE), EXTRACT(MONTH from DATEADD(month, -1, CURRENT_DATE)),EXTRACT(MONTH from CURRENT_DATE)) || ''.'' || iif(1 = EXTRACT(MONTH from CURRENT_DATE), EXTRACT(YEAR from DATEADD(YEAR, -1, CURRENT_DATE)),EXTRACT(YEAR from CURRENT_DATE)) || '' 00:00'' and CURRENT_DATE || '' 23:59'' and ' +
      '   ((doc_type = 3 and d.owner = u.id) or (doc_type = 9 and (select d2.owner from docs d2 where d2.id = d.parent_id)=u.id))) as summa_all '+
      ' from users u '+
      ' where u.status = 0 and exists(select * from GROUP_DETAIL where GROUPTABLE_ID = u.id and GROUPTABLE = ''USERS'' and GROUP_ID = -1) ) as data '+
      ' order by summa_all desc';
      iq.active := True;
      i:=0;
      While not(iq.Eof) do
      begin
        i:=i+1;
        TagSetContent(fmMain.ewbInfo, 't_kassir_caption'+IntToStr(i), iq.FieldByName('username').AsString);
        TagSetContent(fmMain.ewbInfo, 't_kassir_bonus'+IntToStr(i), StringReplace(iq.FieldByName('summa_all').AsString, '.', ',', 1) );
//           showmessage(iq.FieldByName('username').AsString + ':' +iq.FieldByName('summa_all').AsString);
        iq.Next;
      end
      TagSetContent(fmMain.ewbInfo, 't_bonus', '0' );
      TagSetContent(fmMain.ewbInfo, 't_bonus_smena', '0' );
      TagSetContent(fmMain.ewbInfo, 't_bonus_all', '0' );
    end;

   //Отображать бонусы?
   iq.active := False;
   iq.sql.text := 'select param_value from params where param_id=''BONUS_ENABLE''';
   iq.active := True;
   if Not iq.Eof then
   Begin
    if iq.FieldByName('param_value').AsInteger = 1  Then
    Begin
      TagVisible(fmMain.ewbInfo, 'tr_bonus_all', True);
      TagVisible(fmMain.ewbInfo, 't_bonus_all', True);
      TagVisible(fmMain.ewbInfo, 't_bonus_all_cap', True);
      TagVisible(fmMain.ewbInfo, 'tr_bonus_smena', True);
      TagVisible(fmMain.ewbInfo, 't_bonus_smena_cap', True);
      TagVisible(fmMain.ewbInfo, 't_bonus_smena', True);
      TagVisible(fmMain.ewbInfo, 'tr_bonus', True);
      TagVisible(fmMain.ewbInfo, 't_bonus', True);
      TagVisible(fmMain.ewbInfo, 't_bonus_cap', True);

      //Определяем бонус за последний чек
      iq.active := False;
      iq.sql.text := 'select Round(coalesce(sum(bonus),0),2) as sum_bonus from DOCS d where d.id = '+
                     '(select max(id) from DOCS d2 where status = 1 and ( (doc_type = 3 and owner = ' + inttostr(userid) + ') or (doc_type = 9 and (select owner from docs d3 where d3.id = d2.parent_id) = ' +  inttostr(userid) + ') ))'
      iq.active := True;
      TagSetContent(fmMain.ewbInfo, 't_bonus', StringReplace(iq.FieldByName('sum_bonus').AsString, '.', ',', 1) );
      //Определяем суммарный бонус за смену
      iq.active := False;
      iq.sql.text := 'select Round(coalesce(sum(bonus),0),2) as sum_bonus from DOCS d where status = 1 and' +
      '((doc_type = 3 and d.owner = ' + inttostr(userid) + ') or (doc_type = 9 and (select owner from docs d2 where d2.id = d.parent_id) = ' + inttostr(userid) + ')) and ' +
      'd.commitdate between CURRENT_DATE || '' 00:00'' and CURRENT_DATE || '' 23:59''';
      iq.active := True;
      TagSetContent(fmMain.ewbInfo, 't_bonus_smena', StringReplace(iq.FieldByName('sum_bonus').AsString, '.', ',', 1) );
      //Определяем суммарный бонус за месяц
      iq.active := False;
      iq.sql.text := 'select Round(coalesce(sum(bonus),0),2) as sum_bonus from DOCS d where status = 1 and' +
      '((doc_type = 3 and d.owner = ' + inttostr(userid) + ') or (doc_type = 9 and (select owner from docs d2 where d2.id = d.parent_id) = ' + inttostr(userid) + ')) and ' +
      'd.commitdate between '''+BONUS_CALCULATE_DAY+''' || ''.'' || iif('+BONUS_CALCULATE_DAY+' > EXTRACT(DAY from CURRENT_DATE), EXTRACT(MONTH from DATEADD(month, -1, CURRENT_DATE)),EXTRACT(MONTH from CURRENT_DATE)) || ''.'' || iif(1 = EXTRACT(MONTH from CURRENT_DATE), EXTRACT(YEAR from DATEADD(YEAR, -1, CURRENT_DATE)),EXTRACT(YEAR from CURRENT_DATE)) || '' 00:00''' +
      ' and CURRENT_DATE || '' 23:59''';
      iq.active := True;
      TagSetContent(fmMain.ewbInfo, 't_bonus_all', StringReplace(iq.FieldByName('sum_bonus').AsString, '.', ',', 1) );
    end;
   end;

  end;

  finally 
   iq.active := False;
   iq.transaction.free;
   iq.free;
  end;

 end;

Включить вызов ТМС

Включить вызов ТМС из п.1 в "После печати очереди чеков" (а если позволяет производительность системы, то и в "После смены позиции", для более оперативного обновления данных), p84u1 заменить на соответствующий из п.1.
Затем Перекомпилировать скрипты.

 uses
  Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, ibquery, DB, ChequeList, FR,
  ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
  IBDataBase, SysUtils, p84u1;

 begin
   BonusRecalc;
 end;

Отображение кол-ва бонус в окне информации о чеке

В кассире в правом окне сумм итогов чека заменить код на:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<meta charset="utf-8">
<script type="text/javascript" language="JavaScript">
    function _show(id) {var el=document.getElementById(id); if (el!=undefined) {el.className=el.className.replace(/(?:^|\b)hide(?!\S)/g, "");}}
    function _hide(id) {var el=document.getElementById(id); _show(id); if (el!=undefined) {el.className+=" hide";}}
    function _setContent(id, content) {
      var el=document.getElementById(id); if (el!=undefined) {el.innerHTML=content;}                       
      if (id=='t_bonus_all') {
        drawChart(); 
      }
    }
</script>                                        

  <script src="https://www.google.com/jsapi"></script>
  <script type="text/javascript" language="JavaScript">                                   
   google.load("visualization", "1", {packages:["corechart"]});                               
   google.setOnLoadCallback(function(){                                     
     setTimeout(function() { drawChart(); }, 100);
     drawChart();
   });                                                                                                       
   function drawChart() {
   var ms = [];
   var rec_count = 0;
   ms.push(['№', 'руб.', { role: 'annotation' }]);
     
   for (var i=1; i<11; i++) {
     if (parseFloat(document.getElementById("t_kassir_bonus" + i).innerHTML) > 0) {
       rec_count = rec_count+1;
       ms.push(['№ '+i, parseFloat(document.getElementById("t_kassir_bonus" + i).innerHTML), document.getElementById("t_kassir_caption" + i).innerHTML]);
     }
   }
 
   if (rec_count > 0) {
      var data = google.visualization.arrayToDataTable(ms);
      var options = {
        bar: {groupWidth: "95%"},
        annotations: {
         textStyle: {
          fontSize: 12,
          bold: true }
         }    
      
        };
      var chart = new google.visualization.BarChart(document.getElementById('bonus'));
       chart.draw(data, options); 
    }
             
   }     
  </script>
   
</head>
<style type="text/css"> 
    * {margin:0; padding:0; border:0; color:#626262; text-decoration:none; font-family:Arial, Helvetica, sans-serif; font-style:normal; font-weight:bold; font-size:12px; border-collapse:collapse; overflow:hidden;}
    html {overflow:hidden;}
    .size2 {font-size:14px;} .size3 {font-size:20px;} .size4 {font-size:50px;}
    .ac {text-align:center;} .ar {text-align:right;}
    .pa {position:absolute; left:0; width:100%;} .pr {position:relative; left:0; width:100%;}
    .hide {display:none;} .mark {color:#CC4139;}
    .total1 {font-family:"Courier New", Courier, monospace; color:#FFF;} .total2 {font-family:Impact;}
    .red1 {filter:progid:DXImageTransform.Microsoft.gradient(startColorstr="#FEEDCD", endColorstr="#FED78D");}
    .red2 {filter:progid:DXImageTransform.Microsoft.gradient(startColorstr="#FDC966", endColorstr="#FCA80C");}
    .gray1 {filter:progid:DXImageTransform.Microsoft.gradient(startColorstr="#c8c8c8", endColorstr="#b0b0b0");}
    .gray2 {filter:progid:DXImageTransform.Microsoft.gradient(startColorstr="#FFFFFF", endColorstr="#EAEAEA");}
    .gray3 {filter:progid:DXImageTransform.Microsoft.gradient(startColorstr="#E4E4E4", endColorstr="#B8B8B8");}
    .dlm {width:4px;}
</style>                             
<body>
    <div id="fr_content" class="pr" style="height:54px;">
        <div class="pa red1" style="top:0; height:50%;"></div>
        <div class="pa red2" style="top:50%; height:50%;"></div>
        <div class="pa ac" style="top:0; height:54px;">
            <div id="fr_model" class="pr" style="height:33%; font-weight:normal;">ККМ не инициализирована</div>
            <div id="fr_sess" class="pr" style="height:33%; font-weight:normal;">Смена: 0 (0/0), до конца 24 часа</div>
            <div id="fr_total" class="pr mark" style="height:33%;">Чеков: 0, сумма д/я = 0.00</div>
        </div>
    </div>
    <div class="pr" style="height:6px;"></div>
    <table id="tbl_info" style="width:100%;">
            <tr id="tr_pos"><td class="dlm" /><td id="t_pos_cap" class="size2">Позиций</td><td id="t_pos" class="ar size3">0</td><td class="dlm" /></tr>
        <tr id="tr_sum"><td class="dlm" /><td id="t_sum_cap" class="size2">Сумма</td><td id="t_sum" class="ar size3">0.00</td><td class="dlm" /></tr>
        <tr id="tr_dsc"><td class="dlm" /><td id="t_dsc_cap" class="size2">Скидка</td><td id="t_dsc" class="ar size3">0.00</td><td class="dlm" /></tr>
        <tr id="tr_cash"><td class="dlm" /><td id="t_cash_cap" class="mark size2">Наличные</td><td id="t_cash" class="ar mark size3">0.00</td><td class="dlm" /></tr>
        <tr id="tr_del"><td class="dlm" /><td id="t_del_cap" class="mark size2">Сдача</td><td id="t_del" class="ar mark size3">0.00</td><td class="dlm" /></tr>
        <tr id="tr_bonus"><td class="dlm" /><td id="t_bonus_cap" class="size1">Премия за посл. чек</td><td id="t_bonus" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr id="tr_bonus_smena"><td class="dlm" /><td id="t_bonus_smena_cap" class="size1">Премия за день</td><td id="t_bonus_smena" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr id="tr_bonus_all"><td class="dlm" /><td id="t_bonus_all_cap" class="size1">Премия за мес.</td><td id="t_bonus_all" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus1"><td class="dlm" /><td id="t_kassir_caption1" class="size1">????</td><td id="t_kassir_bonus1" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus2"><td class="dlm" /><td id="t_kassir_caption2" class="size1">????</td><td id="t_kassir_bonus2" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus3"><td class="dlm" /><td id="t_kassir_caption3" class="size1">????</td><td id="t_kassir_bonus3" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus4"><td class="dlm" /><td id="t_kassir_caption4" class="size1">????</td><td id="t_kassir_bonus4" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus5"><td class="dlm" /><td id="t_kassir_caption5" class="size1">????</td><td id="t_kassir_bonus5" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus6"><td class="dlm" /><td id="t_kassir_caption6" class="size1">????</td><td id="t_kassir_bonus6" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus7"><td class="dlm" /><td id="t_kassir_caption7" class="size1">????</td><td id="t_kassir_bonus7" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus8"><td class="dlm" /><td id="t_kassir_caption8" class="size1">????</td><td id="t_kassir_bonus8" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus9"><td class="dlm" /><td id="t_kassir_caption9" class="size1">????</td><td id="t_kassir_bonus9" class="ar size1">0.00</td><td class="dlm" /></tr>
        <tr style = "display:none" id="tr_kassir_bonus10"><td class="dlm" /><td id="t_kassir_caption10" class="size1">????</td><td id="t_kassir_bonus10" class="ar size1">0.00</td><td class="dlm" /></tr>

    </table>                              
    <div id="bonus" style="bottom:0; width: 100%; height: 150px;"></div>                                   
    <div id="ftr_gray1" class="pa ac gray1 total1 size3" style="bottom:60px; height:22px;">ИТОГО</div>
    <div id="ftr_gray2" class="pa gray2" style="bottom:30px; height:30px;"></div><div id="ftr_gray3" class="pa gray3" style="bottom:0; height:30px;"></div>
    <div id="ftr_total" class="pa ac total2 mark size4" style="bottom:0; height:60px;">0.00</div>
</body>
</html>

Скопировать настройки для всех пользователей

Расчет премии

Кассир -> настройки -> администратор -> бонусы -> добавить "Премия" с текстом:

 result:= ::summa*-0.04; //Премия 4% от суммы чека

или

 result:= (::summa - ::summa_o)*-0.2; //Премия 20% от прибыли

Настройка с какого дня расчитывать премию/выручку

Выполнить запрос, который добавляет новый параметр в менеджер "С какого дня месяца рассчитывать премию кассирам?"

 INSERT INTO PARAMS (ID, PARENT_ID, PARAM_ID, PARAM_CAPTION, PARAM_TYPE, PARAM_VALUE, AUDIT_ID, IMAGEINDEX, STATUS, INSERTDT, SORTING, PARAM_TYPE_DATA, PACKET) 
 VALUES ((SELECT MAX(ID)+1 FROM PARAMS),-30, 'BONUS_CALCULATE_DAY', 'С какого дня  месяца рассчитывать премию/выручку кассирам? (от 1 до 28)', 2, '20', 5082, 0, 0, '30-JUL-2014 08:34:35.812', 4, NULL, 16685);

Параметры для отображения премии и графика выручки, по умолчанию все выключено

INSERT INTO PARAMS (ID, PARENT_ID, PARAM_ID, PARAM_CAPTION, PARAM_TYPE, PARAM_VALUE, AUDIT_ID, IMAGEINDEX, STATUS, INSERTDT, SORTING, PARAM_TYPE_DATA, PACKET) VALUES 
((SELECT MAX(ID)+1 FROM PARAMS), -30, 'BONUS_ENABLE', 'Отображать премии(бонусы) на кассах?', 14, '0', 633, 0, 0, '16-DEC-2014 17:19:39.964', 46, 'FIXEDITEMS SHOWONLYVALUES RETURNNAME
0=Нет
1=Да', 26225);

INSERT INTO PARAMS (ID, PARENT_ID, PARAM_ID, PARAM_CAPTION, PARAM_TYPE, PARAM_VALUE, AUDIT_ID, IMAGEINDEX, STATUS, INSERTDT, SORTING, PARAM_TYPE_DATA, PACKET) VALUES 
((SELECT MAX(ID)+1 FROM PARAMS), -30, 'CASH_GRAPH_ENABLE', 'Отображать график выручки на кассах? (треб. перезапуск касс)', 14, '0', 633, 0, 0, '16-DEC-2014 17:19:39.964', 46, 'FIXEDITEMS SHOWONLYVALUES RETURNNAME
0=Нет
1=Да', 26225);

Добавить отчет по премиям

В папку с формами скопировать bonus.cffr3 и добавить его спомощью sql-запроса:

 INSERT INTO REPORTS (PARENT_ID, STATUS, REPORTTYPE, SORTING, CAPTION, PARAMS, DATA, WDICT_ID) 
 VALUES (0, 0, 0, 12, 'Премии кассирам', '[freereport] tmplpath=bonus.cffr3', NULL, NULL);

Как себя проверить

Проверить все можно отбив любой чек на кассе, при этом должен рассчитаться бонус(премия), выручка в АРМ Кассира и в отчете "Премии кассирам" в АРМ Менеджера.

Полезные ссылки: https://google-developers.appspot.com/chart/interactive/docs/gallery/barchart

Теги: премии, бонусы кассирам, кассиры, продавцы, з/п, зарплата, заработная плата, материальное стимулирование, рублемер

Установка бонусов кассирам

Содержание

Требования

Установить ТМС

Включить вызов ТМС

Отображение кол-ва бонус в окне информации о чеке

Расчет премии

Настройка с какого дня расчитывать премию/выручку

Параметры для отображения премии и графика выручки, по умолчанию все выключено

Добавить отчет по премиям

Как себя проверить

Навигация

Персональные инструменты

Пространства имён

Варианты

Просмотры

Действия

Поиск

Навигация

Инструкции

Отдел Внедрения

Отдел Менеджеров

Отдел Разработчиков

Отдел Системных Администраторов

Версии программ

Отчеты

Обновление функций и программ

Инструменты