Настройка акций в Кассире — различия между версиями

Материал из wiki.standart-n.ru
Перейти к: навигация, поиск
(→‎Пример №5)
(→‎Примеры акций)
 
(не показано 16 промежуточных версии 3 участников)
Строка 1: Строка 1:
 
=Настройка ТМС Акции в кассире=
 
=Настройка ТМС Акции в кассире=
  
−
==Начало==
+
==Заменить версию Кассира==
−
 
+
Заменить '''zkassa.exe''' на версию '''2.2.1.17''' от апреля 2016 г. или более новую.
−
В ТМС '''-305 "После добавления позиции в чек"''' создаем скрипт.
+
−
Начало скрипта будет таким:
+
  
 +
==Выполняем скрипт==
 
<pre>
 
<pre>
 +
/******************************************************************************/
 +
/***                Generated by IBExpert 18.04.2016 9:25:20                ***/
 +
/******************************************************************************/
 +
 +
/******************************************************************************/
 +
/***      Following SET SQL DIALECT is just for the Database Comparer      ***/
 +
/******************************************************************************/
 +
SET SQL DIALECT 3;
 +
 +
 +
 +
/******************************************************************************/
 +
/***                                Tables                                ***/
 +
/******************************************************************************/
 +
 +
 +
 +
CREATE TABLE DSC_RULES (
 +
    ID          INTEGER NOT NULL,
 +
    DATE_BEG    DM_DATE NOT NULL /* DM_DATE = DATE */,
 +
    DATE_END    DM_DATE NOT NULL /* DM_DATE = DATE */,
 +
    MMBSH1      DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    NDS_O1      DM_ID_NULL /* DM_ID_NULL = BIGINT */,
 +
    SNAME1      DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    SNAME2      DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    SNAME3      DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    SNAME4      DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    SNAME5      DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    PRICE_MIN    DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
 +
    PRICE_MAX    DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
 +
    QUANT_DIV    DM_ID_NULL /* DM_ID_NULL = BIGINT */,
 +
    QUANT_DSC    DM_ID_NULL /* DM_ID_NULL = BIGINT */,
 +
    SUM_DSC      DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
 +
    PERC_DSC    DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
 +
    BARCODE_DSC  DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    STATUS      SMALLINT NOT NULL,
 +
    COMMENTS    DM_TEXT /* DM_TEXT = VARCHAR(250) */,
 +
    D$UUID      DM_UUID /* DM_UUID = CHAR(36) NOT NULL */,
 +
    D$SRVUPDDT  DM_DATETIME /* DM_DATETIME = TIMESTAMP */
 +
);
 +
 +
 +
 +
 +
/******************************************************************************/
 +
/***                                Triggers                                ***/
 +
/******************************************************************************/
 +
 +
 +
SET TERM ^ ;
 +
 +
 +
 +
/******************************************************************************/
 +
/***                          Triggers for tables                          ***/
 +
/******************************************************************************/
 +
 +
 +
 +
/* Trigger: DSC_RULES_AD_DISTR */
 +
CREATE OR ALTER TRIGGER DSC_RULES_AD_DISTR FOR DSC_RULES
 +
ACTIVE AFTER DELETE POSITION 0
 +
AS
 +
begin
 +
  update or insert into g$distribute (TABLENAME,UUID,SOPER,FROM_PROFILE_ID) values ('DSC_RULES',old.d$uuid,2,null)
 +
  matching (TABLENAME,UUID);
 +
end
 +
^
 +
 +
 +
/* Trigger: DSC_RULES_BI0 */
 +
CREATE OR ALTER TRIGGER DSC_RULES_BI0 FOR DSC_RULES
 +
ACTIVE BEFORE INSERT POSITION 0
 +
AS
 +
begin
 +
  select max(id)+1 from DSC_RULES into new.id;
 +
  if (new.id is null) then new.id = 1;
 +
end
 +
^
 +
 +
 +
/* Trigger: DSC_RULES_BIU0 */
 +
CREATE OR ALTER TRIGGER DSC_RULES_BIU0 FOR DSC_RULES
 +
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
 +
AS
 +
begin
 +
  new.mmbsh1 = UPPER(new.mmbsh1);
 +
  new.sname1 = UPPER(new.sname1);
 +
  new.sname2 = UPPER(new.sname2);
 +
  new.sname3 = UPPER(new.sname3);
 +
  new.sname4 = UPPER(new.sname4);
 +
  new.sname5 = UPPER(new.sname5);
 +
end
 +
^
 +
 +
 +
/* Trigger: DSC_RULES_BI_DISTR */
 +
CREATE OR ALTER TRIGGER DSC_RULES_BI_DISTR FOR DSC_RULES
 +
ACTIVE BEFORE INSERT POSITION 9999
 +
AS
 +
begin
 +
  if (new.d$uuid is null) then
 +
  begin
 +
    new.d$uuid=UUID_TO_CHAR(GEN_UUID());
 +
    new.d$srvupddt='2000-01-01';
 +
    update or insert into g$distribute (TABLENAME,UUID,SOPER,FROM_PROFILE_ID) values ('DSC_RULES',new.d$uuid,0,null) matching (TABLENAME,UUID);
 +
  end
 +
end
 +
^
 +
 +
 +
/* Trigger: DSC_RULES_BU_DISTR */
 +
CREATE OR ALTER TRIGGER DSC_RULES_BU_DISTR FOR DSC_RULES
 +
ACTIVE BEFORE UPDATE POSITION 0
 +
AS
 +
begin
 +
  if (new.D$SRVUPDDT=old.D$SRVUPDDT) then
 +
    update or insert into g$distribute (TABLENAME,UUID,SOPER,FROM_PROFILE_ID) values ('DSC_RULES',new.d$uuid,1,null)
 +
    matching (TABLENAME,UUID);
 +
end
 +
^
 +
 +
 +
SET TERM ; ^
 +
 +
 +
 +
/******************************************************************************/
 +
/***                              Privileges                              ***/
 +
/******************************************************************************/
 +
 +
 +
SET TERM ^ ;
 +
 +
create or alter procedure PR_GET_DSC_RULES (
 +
    PART_ID_IN DM_ID,
 +
    DOC_ID DM_ID,
 +
    DEL integer = 0)
 +
returns (
 +
    PART_ID_OUT integer,
 +
    DISCOUNT DM_DOUBLE,
 +
    BARCODE_DSC DM_TEXT)
 +
as
 +
declare variable SNAME DM_TEXT;
 +
declare variable PRICE DM_DOUBLE;
 +
declare variable QUANT DM_DOUBLE;
 +
declare variable SNAME1 DM_TEXT;
 +
declare variable SNAME2 DM_TEXT;
 +
declare variable SNAME3 DM_TEXT;
 +
declare variable SNAME4 DM_TEXT;
 +
declare variable SNAME5 DM_TEXT;
 +
declare variable PRICE_MIN DM_DOUBLE;
 +
declare variable PRICE_MAX DM_DOUBLE;
 +
declare variable QUANT_DIV DM_ID;
 +
declare variable QUANT_DSC DM_ID;
 +
declare variable SUM_DSC DM_DOUBLE;
 +
declare variable PERC_DSC DM_DOUBLE;
 +
declare variable MAX_PART_ID DM_ID;
 +
declare variable SUM_QUANT DM_DOUBLE;
 +
declare variable NO_DSC integer;
 +
declare variable CONST_MAX_PRICE integer;
 +
declare variable MMBSH DM_TEXT1024;
 +
declare variable NDS_O DM_ID_NULL;
 +
declare variable MMBSH1 DM_TEXT;
 +
declare variable NDS_O1 DM_ID_NULL;
 +
declare variable BARCODE DM_TEXT;
 +
begin
 +
-------------------- Описание параметров ---------------------------------------------------
 +
--Процедура вызывается в кассире в событиях -305 и -332
 +
--PART_ID_IN - партия, по которой изменили кол-во/добавили/удалили в чеке, и на которую необходимо рассчитать скидку
 +
--DOC_ID - чек
 +
--DEL - признак, что партию удаляют из чека
 +
 +
--PART_ID_OUT - список партий по которым нужно обновить скидку
 +
--DISCOUNT - скидка в рублях
 +
--BARCODE_DSC - штрихкод скидки, который нужно применить (суммовая скидка работает быстрее, лучше использовать её)
 +
 +
------------------- Описание DSC_RULES ------------------------------------------------------
 +
--DATE_BEG и DATE_END - период действия скидки
 +
--MMBSH1 - группа товара
 +
--NDS_O1 - ставка НДС опт (10,18,12 ....)
 +
--SNAME1 ... SNAME5 - слова, которым должна соответствовать позиция для того, чтобы скидка назначилась (все не обязательны)
 +
--PRICE_MIN и PRICE_MAX - ценовой диапазон, которому должна соответствовать позиция, чтобы скидка назначилась (все не обязательны)
 +
--QUANT_DIV и QUANT_DSC, для условий типа: при покупке 4х штук (QUANT_DIV) одна(QUANT_DSC) в подарок
 +
--SUM_DSC - суммовая скидка на позицию в рублях
 +
--PERC_DSC - процентная скидка на позицию в % (например 0.15)
 +
--BARCODE_DSC - штрихкод скидки, который нужно применить (суммовая скидка работает быстрее, лучше использовать её)
 +
--STATUS, 1 - правило активно, 0 - неактивно
 +
 +
  CONST_MAX_PRICE = 99999;
 +
  DISCOUNT = 0;
 +
  PART_ID_OUT = PART_ID_IN;
 +
 +
  select UPPER(sname), price, abs(quant), coalesce(nds,0), UPPER(mmbsh) from vw_doc_detail_active where doc_id = :doc_id and part_id = :part_id_in into :sname, :price, :quant, :nds_o, :mmbsh;
 +
 +
  for select MMBSH1, NDS_O1, SNAME1,SNAME2,SNAME3,SNAME4,SNAME5,PRICE_MIN,PRICE_MAX,QUANT_DIV,QUANT_DSC,SUM_DSC,PERC_DSC,BARCODE_DSC
 +
        from DSC_RULES dr where status = 1 and dr.date_beg <= current_date and dr.date_end >= current_date
 +
      into :MMBSH1, :NDS_O1, :SNAME1,:SNAME2,:SNAME3,:SNAME4,:SNAME5,:PRICE_MIN,:PRICE_MAX,:QUANT_DIV,:QUANT_DSC,:SUM_DSC,:PERC_DSC,:BARCODE do
 +
  begin
 +
    NO_DSC = 0;
 +
 +
    if (:MMBSH1 is null) then MMBSH1 = '';
 +
    if (:SNAME1 is null) then SNAME1 = '';
 +
    if (:SNAME2 is null) then SNAME2 = '';
 +
    if (:SNAME3 is null) then SNAME3 = '';
 +
    if (:SNAME4 is null) then SNAME4 = '';
 +
    if (:SNAME5 is null) then SNAME5 = '';
 +
 +
    --Проверка на группу
 +
    if (NO_DSC = 0) then
 +
    if ( Not(MMBSH containing MMBSH1) ) Then
 +
    NO_DSC = 1;
 +
 +
    --Проверка на НДС
 +
    if (NO_DSC = 0) then
 +
    if((:NDS_O1 is not null) and (:NDS_O1 <> :NDS_O)) Then
 +
    NO_DSC = 1;
 +
 +
    --Проверка на наименование
 +
    if (NO_DSC = 0) then
 +
    if (Not((sname containing SNAME1) and (sname containing SNAME2) and (sname containing SNAME3) and (sname containing SNAME4) and (sname containing SNAME5))) Then
 +
    NO_DSC = 1;
 +
 +
    --Проверка на цену
 +
    if (NO_DSC = 0) then
 +
    if ( (price < coalesce(PRICE_MIN,0)) or
 +
        (price > coalesce(PRICE_MAX,CONST_MAX_PRICE)) ) Then
 +
    NO_DSC = 1;
 +
 +
    --Проверка на кратность
 +
    if (NO_DSC = 0) then
 +
    if (QUANT_DIV is not null) then
 +
    begin
 +
      --Определяем партию на которую будем назначать скидку
 +
      select max(part_id), abs(sum(quant)), min(price) from vw_doc_detail_active da where doc_id = :doc_id
 +
                                                                                          and UPPER(da.sname) containing :SNAME1
 +
                                                                                          and UPPER(da.sname) containing :SNAME2
 +
                                                                                          and UPPER(da.sname) containing :SNAME3
 +
                                                                                          and UPPER(da.sname) containing :SNAME4
 +
                                                                                          and UPPER(da.sname) containing :SNAME5
 +
                                                                      and ( ((:DEL = 1) and (part_id <> :PART_ID_IN)) or (:DEL = 0) )
 +
                                                                      and (price >= coalesce(:PRICE_MIN,0)) and (price <= coalesce(:PRICE_MAX,:CONST_MAX_PRICE))
 +
                                                                      and UPPER(da.MMBSH) containing :MMBSH1
 +
                                                                      and ( (:NDS_O1 is null) or ((:NDS_O1 is not null) and (:NDS_O1 = NDS)) )
 +
      into :max_part_id, :sum_quant, :price;
 +
        --Скидка назначается только на партию с максимальным ID и если условие кратности соблюдается
 +
        --По всем остальным партиям скидку сбрасываем
 +
        for select part_id from vw_doc_detail_active da where doc_id = :doc_id and UPPER(da.sname) containing :SNAME1
 +
                                                                              and UPPER(da.sname) containing :SNAME2
 +
                                                                              and UPPER(da.sname) containing :SNAME3
 +
                                                                              and UPPER(da.sname) containing :SNAME4
 +
                                                                              and UPPER(da.sname) containing :SNAME5
 +
                                                            and ( ((:DEL = 1) and (part_id <> :PART_ID_IN)) or (:DEL = 0) )
 +
                                                            and (price >= coalesce(:PRICE_MIN,0)) and (price <= coalesce(:PRICE_MAX,:CONST_MAX_PRICE))
 +
                                                            and UPPER(da.MMBSH) containing :MMBSH1
 +
                                                            and ( (:NDS_O1 is null) or ((:NDS_O1 is not null) and (:NDS_O1 = NDS)) )
 +
        into :PART_ID_OUT do
 +
        Begin
 +
          if ((max_part_id = PART_ID_OUT) and (Trunc(sum_quant/QUANT_DIV) > 0)) then
 +
            begin
 +
              if (QUANT_DSC is not null) then DISCOUNT = QUANT_DSC*:price*Trunc(sum_quant/QUANT_DIV);
 +
              if (SUM_DSC is not null) then DISCOUNT = SUM_DSC*Trunc(sum_quant/QUANT_DIV);
 +
              if (PERC_DSC is not null) then DISCOUNT = :quant*:price*PERC_DSC;
 +
              if (BARCODE is not null) then BARCODE_DSC = :BARCODE;
 +
            end
 +
          else
 +
            Begin
 +
              DISCOUNT = 0;
 +
              BARCODE_DSC = Null;
 +
            end
 +
          suspend;
 +
        End
 +
      exit;
 +
    End
 +
 +
    --Суммовая скидка
 +
    if ( (NO_DSC = 0) and (DEL = 0) and ((SUM_DSC is not null) or (BARCODE is not null)) ) then
 +
    Begin
 +
      DISCOUNT =  :quant*SUM_DSC;
 +
      BARCODE_DSC = BARCODE;
 +
      suspend;
 +
      exit;
 +
    End
 +
 +
    --Процентная скидка
 +
    if ( (NO_DSC = 0) and (DEL = 0) and ((PERC_DSC is not null) or (BARCODE is not null)) ) then
 +
    Begin
 +
      DISCOUNT =  :quant*:price*PERC_DSC;
 +
      BARCODE_DSC = BARCODE;
 +
      suspend;
 +
      exit;
 +
    End
 +
 +
  End
 +
end^
 +
 +
SET TERM ; ^
 +
 +
/* Following GRANT statetements are generated automatically */
 +
 +
GRANT SELECT ON VW_DOC_DETAIL_ACTIVE TO PROCEDURE PR_GET_DSC_RULES;
 +
GRANT SELECT ON DSC_RULES TO PROCEDURE PR_GET_DSC_RULES;
 +
 +
/* Existing privileges on this procedure */
 +
 +
GRANT EXECUTE ON PROCEDURE PR_GET_DSC_RULES TO SYSDBA;
 +
</PRE>
 +
 +
==Создаем в кассире ТМС==
 +
<PRE>
 
uses
 
uses
 
   Graphics, Controls, Forms, Dialogs, StdCtrls,
 
   Graphics, Controls, Forms, Dialogs, StdCtrls,
Строка 12: Строка 321:
 
   ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
 
   ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
 
   IBDataBase, SysUtils, DateUtils, chequelist;
 
   IBDataBase, SysUtils, DateUtils, chequelist;
 +
 +
Procedure  RecalcDSC(del:integer)
 
var iq: tibquery;
 
var iq: tibquery;
−
    dsc, part_id: integer;
 
−
    discount: float;
 
 
begin
 
begin
 
  Try
 
  Try
Строка 21: Строка 330:
 
   iq.transaction.starttransaction;
 
   iq.transaction.starttransaction;
 
   iq.active := False;
 
   iq.active := False;
−
</pre>
 
  
−
==Примеры акций==
+
   iq.sql.text := 'select * from PR_GET_DSC_RULES('+IntToStr(ChequeList.ActivePID)+','+IntToStr(ChequeList.Active.ID)+','+IntToStr(del)+')';
−
Далее пишем скрипты акций.
+
−
 
+
−
===Пример №1===
+
−
* скидка 20% на группу "Акция"
+
−
* акция действует с 31.07.2015 по 23.08.2015
+
−
 
+
−
<pre>
+
−
  if ((date() >= StrToDate('31.07.2015')) and (date() <= StrToDate('23.08.2015'))) Then
+
−
  Begin
+
−
  part_id := ChequeList.ActivePID;
+
−
  //запросик к базе
+
−
   iq.sql.text := 'select abs(price) as price, abs(quant) as quant from vw_doc_detail_active where UPPER(mmbsh) containing ''АКЦИЯ'' and doc_id='+inttostr(ChequeList.Active.ID)+' and part_id = '+inttostr(part_id) ;
+
 
   iq.active := True;
 
   iq.active := True;
−
   //забираем данные
+
   while not (iq.Eof) do
−
  if not(iq.Eof) then
+
  begin
−
    begin
+
       ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(iq.FieldByName('part_id_out').AsInteger);
−
      dsc := -0.20;
+
       if (iq.FieldByName('BARCODE_DSC').AsString = '') Then
−
       ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(part_id);
+
        ChequeList.Active.P_SetDiscount(-1*iq.FieldByName('DISCOUNT').AsFloat)
−
       ChequeList.Active.P_SetDiscount(abs(iq.FieldByName('price').AsFloat*iq.FieldByName('quant').AsFloat)*dsc);
+
      else
−
    end;                  
+
        Barcode.ApplyDiscount(iq.FieldByName('BARCODE_DSC').AsString, iq.FieldByName('part_id_out').AsInteger);
−
   end;
+
      iq.next;
−
</pre>
+
   End;
  
 +
finally
 +
    iq.active := False;
 +
    iq.transaction.free;
 +
    iq.free;
 +
end;
  
−
===Пример №2===
+
end;
−
* акция действует с 01.02.2016 по 29.02.2016
+
</PRE>
−
* Эссенциале форте Н №30 - скидка 150р. за каждую проданную упаковку
+
−
* Магне В6 форте №30 - скидка 150 р. за каждую проданную упаковку
+
−
* Фестал №40 - скидка 32 руб. за каждую проданную упаковку
+
−
* Но-Шпа № 24 - скидка 50р. за каждую проданную упаковку
+
−
* Бронхикум сироп - скидка 59 руб. за каждую проданную упаковку
+
−
* Терафлекс №100- скидка 300 руб. за каждую проданную упаковку
+
−
* Терафлекс №60 - скидка 200 руб. за каждую проданную упаковку
+
−
* Эмолиум (все формы выпуска) - скидка 350р. на каждую вторую упаковку Эмолиум в чеке.
+
  
−
<pre>
+
'''Вызываем RecalcDSC в ТМС'''
−
if ((date() >= StrToDate('01.02.2016')) and (date() <= StrToDate('29.02.2016'))) Then
+
'''-305 как RecalcDSC(0); '''
−
  Begin
+
'''-332 как  RecalcDSC(1); '''
−
  part_id := ChequeList.ActivePID;
+
Скрипт должен выглядеть примерно так:
−
  //запросик к базе
+
<PRE>
−
  iq.sql.text :=
+
uses
−
  'select UPPER(sname) as sname, quant,'+
+
  p10112u1;
−
    'iif(upper(sname) containing ''ЭССЕНЦИАЛ'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'', 150*abs(quant),'+
+
begin
−
    'iif(upper(sname) containing ''МАГНЕ'' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'', 150*abs(quant),'+
+
  RecalcDSC(0);
−
    'iif(upper(sname) containing ''ФЕСТАЛ'' and UPPER(sname) containing ''№40'', 32*abs(quant),'+
+
end;
−
    'iif(upper(sname) containing ''ШПА'' and UPPER(sname) containing ''НО'' and UPPER(sname) containing ''№24'', 50*abs(quant),'+
+
</PRE>
−
    'iif(upper(sname) containing ''БРОНХИКУМ'' and UPPER(sname) containing ''СИР'', 59*abs(quant),'+
+
−
    'iif(upper(sname) containing ''ТЕРАФЛЕКС'' and UPPER(sname) containing ''№100'', 300*abs(quant),'+
+
−
    'iif(upper(sname) containing ''ТЕРАФЛЕКС'' and UPPER(sname) containing ''№60'', 200*abs(quant),'+
+
−
    'iif(upper(sname) containing ''ЭМОЛИУМ'', (SELECT 350*Iif(abs(SUM(quant)) < 2, 0, Trunc(abs(Sum(quant))/2)) from vw_doc_detail_active where upper(sname) containing ''ЭМОЛИУМ'' and doc_id='+inttostr(ChequeList.Active.ID)+') ,'+
+
−
    '0)))))))) as dop_dsc '+
+
−
  'from vw_doc_detail_active where '+
+
−
  '((upper(sname) containing ''ЭССЕНЦИАЛ'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'') or '+
+
−
  ' (upper(sname) containing ''МАГНЕ'' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'') or '+
+
−
  ' (upper(sname) containing ''ФЕСТАЛ'' and UPPER(sname) containing ''№40'') or '+
+
−
  ' (upper(sname) containing ''ШПА'' and UPPER(sname) containing ''НО'' and UPPER(sname) containing ''№24'') or '+
+
−
  ' (upper(sname) containing ''БРОНХИКУМ'' and UPPER(sname) containing ''СИР'') or '+
+
−
  ' (upper(sname) containing ''ТЕРАФЛЕКС'' and UPPER(sname) containing ''№100'') or '+
+
−
  ' (upper(sname) containing ''ТЕРАФЛЕКС'' and UPPER(sname) containing ''№60'') or '+
+
−
  ' (upper(sname) containing ''ЭМОЛИУМ'') ) and '+
+
−
  ' doc_id='+inttostr(ChequeList.Active.ID)+' and part_id = '+inttostr(part_id) ;
+
−
  iq.active := True;
+
−
  //забираем данные
+
−
  if not(iq.Eof) then
+
−
    begin
+
−
      If (POS('ЭМОЛИУМ',iq.FieldByName('sname').AsString) <> 0) Then
+
−
      Begin
+
−
        for I := 0 to chequelist.count - 1 do
+
−
          for j := 0 to chequelist.items[i].count - 1 do
+
−
          begin
+
−
            chequelist.items[i].p_index := j;
+
−
            if (POS('ЭМОЛИУМ',AnsiUpperCase(chequelist.items[i].p_name)) <> 0) then
+
−
              chequelist.items[i].P_SetDiscount(0);
+
−
          end;
+
−
      End;
+
−
      ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(part_id);
+
−
      ChequeList.Active.P_SetDiscount(-1*iq.FieldByName('dop_dsc').AsFloat)
+
−
    end;
+
−
  end;
+
−
</pre>
+
−
 
+
−
 
+
−
===Пример 3===
+
−
* акция действует с 01.03.2016 по 31.12.2016
+
−
* Магне В6 форте розн цена 849р, скидка150р
+
−
* Эссенциале форте №30 розн цена 798р, скидка 150р
+
−
* Фестал тб №40 розн цена 252р, скидка 32руб
+
  
−
<pre>
+
==Пример №2 (старый мех-м)==
−
  if ((date() >= StrToDate('01.03.2016')) and (date() <= StrToDate('31.12.2016'))) Then
+
−
  Begin
+
−
  part_id := ChequeList.ActivePID;
+
−
  //запросик к базе
+
−
  iq.sql.text := 'select UPPER(sname) as SNAME, abs(quant) as quant from vw_doc_detail_active where'+
+
−
  '( ((UPPER(sname) containing ''МАГНЕ'' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''ФОРТ'') and abs(price - 849) <= 10 ) or '+
+
−
  '  ((UPPER(sname) containing ''ЭССЕНЦИАЛЕ'' and UPPER(sname) containing ''30'' and UPPER(sname) containing ''ФОРТ'') and abs(price - 798) <= 10 ) or '+
+
−
  '  ((UPPER(sname) containing ''ФЕСТАЛ'' and UPPER(sname) containing ''40'') and abs(price - 252) <= 10 )  )'+
+
−
  ' and doc_id='+inttostr(ChequeList.Active.ID)+' and part_id = '+inttostr(part_id) ;
+
−
  iq.active := True;                                           
+
−
  //забираем данные
+
−
  if not(iq.Eof) then
+
−
    begin
+
−
      ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(part_id);
+
−
      If (POS('ФЕСТАЛ',iq.FieldByName('sname').AsString) = 0) Then ChequeList.Active.P_SetDiscount(-1*150*iq.FieldByName('quant').AsFloat)
+
−
                                                              Else ChequeList.Active.P_SetDiscount(-1*32*iq.FieldByName('quant').AsFloat);
+
−
    end;
+
−
  end;
+
−
</pre>
+
−
 
+
−
===Пример №4===
+
 
* акция действует всегда пока включен переключатель в параметрах системы
 
* акция действует всегда пока включен переключатель в параметрах системы
 
<PRE>
 
<PRE>
Строка 143: Строка 374:
 
* если переключатель включен - в кассире при продаже активируется скидка = разнице между заполненными колонками price и ещё одной ценовой колонкой, ниже использована PRICE_R
 
* если переключатель включен - в кассире при продаже активируется скидка = разнице между заполненными колонками price и ещё одной ценовой колонкой, ниже использована PRICE_R
  
−
<PRE>
 
−
  iq.sql.text := 'select wb.part_id,wb.PRICE_R,(select p.param_value from params p where p.param_id = ''AKCCII_TOGGLE'') from  vw_warebase wb  where wb.part_id = '+
 
−
  IntToStr(ChequeList.ActivePID);
 
−
 
−
  iq.active := True;
 
−
  if not(iq.Eof) then
 
−
    if ( not iq.FieldByName('param_value').AsInteger=0 )then
 
−
      if ( not iq.FieldByName('PRICE_R').isNull )then
 
−
        if (iq.FieldByName('PRICE_R').AsFloat>0) then begin
 
−
            ChequeList.Active.P_Index := ChequeList.Active.IndexByPartID(iq.FieldByName('part_id').AsInteger);
 
−
            temp := -(ChequeList.Active.P_Price - iq.FieldByName('PRICE_R').AsFloat);
 
−
            ChequeList.Active.P_SetDiscount(temp);
 
−
        end;
 
−
</PRE>
 
−
 
−
===Пример №5===
 
−
В событии -332 вызываем как  "RecalcDSC(1);", а в -305 как  "RecalcDSC(0);"
 
 
<PRE>
 
<PRE>
 
uses
 
uses
Строка 166: Строка 380:
 
   ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
 
   ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
 
   IBDataBase, SysUtils, DateUtils, chequelist;
 
   IBDataBase, SysUtils, DateUtils, chequelist;
−
Const
 
−
  emolium ='ЭМОЛИУМ';
 
−
  magne ='МАГНЕ';
 
−
 
−
//Для корретной работы скидок процедура RecalcDSC в событиях -305 и -332 должна быть идентична
 
−
Procedure  RecalcDSC(del:integer)
 
 
var iq: tibquery;
 
var iq: tibquery;
−
     dsc, part_id,i,j: integer;
+
     dsc, part_id: integer;
−
     discount, quant: float;
+
     discount: float;
 
begin
 
begin
−
 
 
  Try
 
  Try
 
   iq := tibquery.create(nil);
 
   iq := tibquery.create(nil);
Строка 183: Строка 390:
 
   iq.active := False;
 
   iq.active := False;
  
−
  //Акция с 01.03.2016 по 31.03.2016, суммовая скидка на некоторые товары
+
   iq.sql.text := 'select wb.part_id,wb.PRICE_R,(select p.param_value from params p where p.param_id = ''AKCCII_TOGGLE'') from vw_warebase wb  where wb.part_id = '+
−
  //заявка в УР 545956
+
   IntToStr(ChequeList.ActivePID);
−
//1.      Эссенциале форте Н №30 розн цена 619р - скидка 150р. за каждую проданную упаковку
+
−
//2.      Магне В6 форте №30 розн цена 750р - скидка 150 р. за каждую проданную упаковку
+
−
//3.      Фестал №40 розн цена 242р - скидка 32 руб. за каждую проданную упаковку
+
−
//4.      Но-Шпа № 24 розн цена 190р  - скидка 50р. за каждую проданную упаковку
+
−
//5.      Бронхикум сироп розн цена 369р - скидка 59 руб. за каждую проданную упаковку
+
−
//6.      Эмолиум (все формы выпуска) - скидка 350р. на каждую вторую упаковку Эмолиум в чеке.
+
−
{
+
−
  if ((date() >= StrToDate('01.03.2016')) and (date() <= StrToDate('31.03.2016'))) Then
+
−
  Begin
+
−
  part_id := ChequeList.ActivePID;
+
−
  //запросик к базе
+
−
   iq.sql.text :=
+
−
  'select UPPER(sname) as sname, quant,'+
+
−
    'iif(upper(sname) containing ''ЭССЕНЦИАЛ'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'' and price >= 619, 150*abs(quant),'+
+
−
    'iif(upper(sname) containing ''МАГНЕ'' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'' and price >= 750, 150*abs(quant),'+
+
−
    'iif(upper(sname) containing ''ФЕСТАЛ'' and UPPER(sname) containing ''№40'' and price >= 242, 32*abs(quant),'+
+
−
    'iif(upper(sname) containing ''ШПА'' and UPPER(sname) containing ''НО'' and UPPER(sname) containing ''№24'' and price >= 190, 50*abs(quant),'+
+
−
    'iif(upper(sname) containing ''БРОНХИКУМ'' and UPPER(sname) containing ''СИР'' and price >= 369, 59*abs(quant),'+
+
−
    'iif(upper(sname) containing '''+emolium+''', (SELECT 350*Iif(abs(SUM(quant)) < 2, 0, Trunc(abs(Sum(quant))/2)) from vw_doc_detail_active where upper(sname) containing '''+emolium+''' and  doc_id='+inttostr(ChequeList.Active.ID)+') ,'+
+
−
    '0)))))) as dop_dsc '+
+
−
  'from vw_doc_detail_active where '+
+
−
  '((upper(sname) containing ''ЭССЕНЦИАЛ'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'' and price >= 619) or '+
+
−
  ' (upper(sname) containing ''МАГНЕ'' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'' and price >= 750) or '+
+
−
  ' (upper(sname) containing ''ФЕСТАЛ'' and UPPER(sname) containing ''№40'' and price >= 242) or '+
+
−
  ' (upper(sname) containing ''ШПА'' and UPPER(sname) containing ''НО'' and UPPER(sname) containing ''№24'' and price >= 190) or '+
+
−
  ' (upper(sname) containing ''БРОНХИКУМ'' and UPPER(sname) containing ''СИР'' and price >= 369) or '+
+
−
  ' (upper(sname) containing '''+emolium+''') ) and '+
+
−
  ' doc_id='+inttostr(ChequeList.Active.ID)+' and part_id = '+inttostr(part_id) ;
+
−
   iq.active := True;
+
−
  //забираем данные
+
−
  if not(iq.Eof) then
+
−
    begin
+
−
      If (POS(emolium,iq.FieldByName('sname').AsString) <> 0) Then
+
−
      Begin
+
−
        for I := 0 to chequelist.count - 1 do
+
−
          for j := 0 to chequelist.items[i].count - 1 do
+
−
          begin
+
−
            chequelist.items[i].p_index := j;
+
−
            if (POS(emolium,AnsiUpperCase(chequelist.items[i].p_name)) <> 0) then
+
−
              chequelist.items[i].P_SetDiscount(0);
+
−
          end;
+
−
      End;
+
  
−
      ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(part_id);
 
−
      ChequeList.Active.P_SetDiscount(-1*iq.FieldByName('dop_dsc').AsFloat)
 
−
    end;
 
−
  end;
 
−
}
 
−
  //Акция с 01.01.2016 по 31.12.2016, суммовая скидка на некоторые товары
 
−
  //заявка в УР 527176
 
−
  if ((date() >= StrToDate('01.04.2016')) and (date() <= StrToDate('31.12.2016'))) Then
 
−
  Begin                     
 
−
  part_id := ChequeList.ActivePID;
 
−
  //запросик к базе
 
−
  iq.sql.text := 'select UPPER(sname) as SNAME, abs(quant) as quant from vw_doc_detail_active where'+
 
−
  '( ((UPPER(sname) containing ''МАГНЕ'' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''ФОРТ'') and abs(price - 849) <= 10 ) or '+
 
−
  '  ((UPPER(sname) containing ''ЭССЕНЦИАЛЕ'' and UPPER(sname) containing ''30'' and UPPER(sname) containing ''ФОРТ'') and abs(price - 798) <= 10 ) or '+
 
−
  '  ((UPPER(sname) containing ''ФЕСТАЛ'' and UPPER(sname) containing ''40'') and abs(price - 252) <= 10 )  )'+
 
−
  ' and doc_id='+inttostr(ChequeList.Active.ID)+' and part_id = '+inttostr(part_id) ;
 
−
  iq.active := True;                                           
 
−
  //забираем данные
 
−
  if not(iq.Eof) then
 
−
    begin
 
−
      ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(part_id);
 
−
      If (POS('ФЕСТАЛ',iq.FieldByName('sname').AsString) = 0) Then ChequeList.Active.P_SetDiscount(-1*150*iq.FieldByName('quant').AsFloat)
 
−
                                                              Else ChequeList.Active.P_SetDiscount(-1*32*iq.FieldByName('quant').AsFloat);
 
−
    end;
 
−
  end;             
 
−
 
−
  //Акция с 06.04.2016 по 30.04.2016, суммовая скидка на некоторые товары
 
−
  //заявка в УР 557450
 
−
  //1. Эссенциале форте Н 300мг №30 капс - скидка 150 руб.
 
−
  //2. Магне В6  №50 таб.п/п/о. При покупке 4х упаковок, скидка в размере цены 1 упаковки
 
−
  //3. Зодак Экспресс 5мг №7  таб.п/п/о - скидка 15%
 
−
  //4. Зодак Экспресс 5мг №28 таб.п/п/о - скидка 15%
 
−
  if ((date() >= StrToDate('06.04.2016')) and (date() <= StrToDate('30.04.2016'))) Then
 
−
  Begin
 
−
  part_id := ChequeList.ActivePID;
 
−
  //запросик к базе
 
−
  iq.sql.text :=
 
−
  'select UPPER(sname) as sname, quant, price, '+
 
−
    'iif(upper(sname) containing ''ЭССЕНЦИАЛ'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'', 150*quant,'+
 
−
    'iif(upper(sname) containing '''+magne+''' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''№50'', price*Trunc(quant/4),'+
 
−
    'iif(upper(sname) containing ''ЗОДАК'' and upper(sname) containing ''ЭКСПРЕС'' and UPPER(sname) containing ''5'' and (UPPER(sname) containing ''№7'' or UPPER(sname) containing ''№28''), 0.15*price*quant,'+
 
−
    '0))) as dop_dsc '+
 
−
  'from vw_doc_detail_active where '+
 
−
  '((upper(sname) containing ''ЭССЕНЦИАЛ'' and UPPER(sname) containing ''ФОРТ'' and UPPER(sname) containing ''№30'') or '+
 
−
  ' (upper(sname) containing '''+magne+''' and UPPER(sname) containing ''6'' and UPPER(sname) containing ''№50'') or '+
 
−
  ' (upper(sname) containing ''ЗОДАК'' and upper(sname) containing ''ЭКСПРЕС'' and UPPER(sname) containing ''5'' and (UPPER(sname) containing ''№7'' or UPPER(sname) containing ''№28'')) ) and '+
 
−
  ' doc_id='+inttostr(ChequeList.Active.ID)+' and part_id = '+inttostr(part_id) ;
 
−
//  Add2Log('mylog.txt', iq.sql.text);
 
 
   iq.active := True;
 
   iq.active := True;
−
  //забираем данные
 
 
   if not(iq.Eof) then
 
   if not(iq.Eof) then
−
  Begin
+
    if ( not iq.FieldByName('param_value').AsInteger=0 )then
−
      quant:=0;
+
      if ( not iq.FieldByName('PRICE_R').isNull )then
−
      discount:=iq.FieldByName('dop_dsc').AsFloat;
+
        if (iq.FieldByName('PRICE_R').AsFloat>0) then begin
−
 
+
             ChequeList.Active.P_Index := ChequeList.Active.IndexByPartID(iq.FieldByName('part_id').AsInteger);
−
      //Магне В6  №50 таб.п/п/о.
+
             temp := -(ChequeList.Active.P_Price - iq.FieldByName('PRICE_R').AsFloat);
−
      If ( (POS(magne,iq.FieldByName('sname').AsString) <> 0) and (POS('№50',iq.FieldByName('sname').AsString) <> 0) and (iq.FieldByName('price').AsFloat > 600)) Then
+
            ChequeList.Active.P_SetDiscount(temp);
−
      Begin
+
        end;
−
        for I := 0 to chequelist.count - 1 do
+
−
          for j := 0 to chequelist.items[i].count - 1 do
+
−
          begin
+
−
             chequelist.items[i].p_index := j;
+
−
            if ((POS(magne,AnsiUpperCase(chequelist.items[i].p_name)) <> 0) and (POS('№50',AnsiUpperCase(chequelist.items[i].p_name)) <> 0) and (chequelist.items[i].p_price > 600) ) then
+
−
             Begin
+
−
              if (chequelist.items[i].p_id <> ChequeList.ActivePID) Then part_id:=chequelist.items[i].p_id; //При удалении, нужно назначать скидку другой партии
+
−
              chequelist.items[i].P_SetDiscount(0);
+
−
              If Not((del = 1) and (chequelist.items[i].p_id = ChequeList.ActivePID)) Then  //При удалении не суммируем удаляемую позицию
+
−
              quant:= quant + chequelist.items[i].P_Quant;
+
−
            End;
+
−
          end;
+
−
          discount:= -1*(quant div 4)*iq.FieldByName('price').AsFloat;
+
−
      End
+
−
 
+
−
      ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(part_id);
+
−
      ChequeList.Active.P_SetDiscount(discount);
+
−
  End;
+
−
 
+
−
  End;
+
−
 
+
 
   finally
 
   finally
 
   iq.active := False;
 
   iq.active := False;
 
   iq.transaction.free;
 
   iq.transaction.free;
 
   iq.free;
 
   iq.free;
−
 
 
   end;
 
   end;
  
−
end;
 
 
</PRE>
 
</PRE>
−
 
−
==Конец==
 
−
Весь сркипт заканчивается так:
 
−
 
−
<pre>
 
−
  finally
 
−
  iq.active := False;
 
−
  iq.transaction.free;
 
−
  iq.free;
 
−
  end;
 
−
 
−
end;
 
−
</pre>
 
  
 
=Отправка ТМС по синхронизации=
 
=Отправка ТМС по синхронизации=
Строка 347: Строка 427:
 
По '''g$tasks''' отправляем запрос нужным профилям:
 
По '''g$tasks''' отправляем запрос нужным профилям:
 
  update groups gp set gp.data = (select g.tmp_blob1 from G$PROFILES g where g.id = 1) where gp.id = -305;
 
  update groups gp set gp.data = (select g.tmp_blob1 from G$PROFILES g where g.id = 1) where gp.id = -305;
 +
 +
=Примеры акций=
 +
1. Акция на апрель, Эссенциале №30 - скидка 150 руб за каждую упаковку
 +
2. Акция до конца мая, на Магне №50 (с ценой от 500 до 1000 руб) - при покупке 4х упаковок 1 в подарок;
 +
3. Акция на Ферверкс, при покупке 2х упаковок 1 в подарок;
 +
4. Аналогично Ферверксу, только на Маалокс;
 +
5 и 6. На зодак №7 и №28 скидка 15%;
 +
7. Акция на Эмолиум, при покупке 2х упаковок скидка 350 руб.;
 +
8. Аналогично, на Фитолизин - 100 руб.;
 +
9. На все ЖНВЛС скидка 5%;
 +
10. На все товары с НДС опт. 10%, - скидка 10%;
 +
11. На все товары с НДС опт. 18%, - скидка 15%;
 +
 +
[[Файл:Примеры_акций.png|Окно программы]]
 +
 +
* '''DATE_BEG''' и '''DATE_END''' - период действия скидки
 +
* '''MMBSH1''' - группа товара
 +
* '''NDS_O1''' - ставка НДС опт (10,18,12 ....)
 +
* '''SNAME1''' ... '''SNAME5''' - слова, которым должна соответствовать позиция для того, чтобы скидка назначилась (все не обязательны)
 +
* '''PRICE_MIN''' и '''PRICE_MAX''' - ценовой диапазон, которому должна соответствовать позиция, чтобы скидка назначилась (все не обязательны)
 +
* '''QUANT_DIV''' и '''QUANT_DSC''', для условий типа: при покупке 4х штук (QUANT_DIV) одна(QUANT_DSC) в подарок
 +
* '''SUM_DSC''' - суммовая скидка на позицию в рублях
 +
* '''PERC_DSC''' - процентная скидка на позицию в % (например 0.15)
 +
* '''STATUS''', 1 - правило активно, 0 - неактивно
 +
 +
 +
[[Problems:Настройка системы скидок для сети|'''ПОСМОТРЕТЬ ЕЩЕ ПРИМЕРЫ''']]
 +
 +
 +
=Видео=
 +
* [[Файл:Ролик по акциям2.mp4]]

Текущая версия на 16:58, 14 сентября 2018

Настройка ТМС Акции в кассире

Заменить версию Кассира

Заменить zkassa.exe на версию 2.2.1.17 от апреля 2016 г. или более новую.

Выполняем скрипт

/******************************************************************************/
/***                Generated by IBExpert 18.04.2016 9:25:20                ***/
/******************************************************************************/

/******************************************************************************/
/***      Following SET SQL DIALECT is just for the Database Comparer       ***/
/******************************************************************************/
SET SQL DIALECT 3;



/******************************************************************************/
/***                                 Tables                                 ***/
/******************************************************************************/



CREATE TABLE DSC_RULES (
    ID           INTEGER NOT NULL,
    DATE_BEG     DM_DATE NOT NULL /* DM_DATE = DATE */,
    DATE_END     DM_DATE NOT NULL /* DM_DATE = DATE */,
    MMBSH1       DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    NDS_O1       DM_ID_NULL /* DM_ID_NULL = BIGINT */,
    SNAME1       DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    SNAME2       DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    SNAME3       DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    SNAME4       DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    SNAME5       DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    PRICE_MIN    DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
    PRICE_MAX    DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
    QUANT_DIV    DM_ID_NULL /* DM_ID_NULL = BIGINT */,
    QUANT_DSC    DM_ID_NULL /* DM_ID_NULL = BIGINT */,
    SUM_DSC      DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
    PERC_DSC     DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
    BARCODE_DSC  DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    STATUS       SMALLINT NOT NULL,
    COMMENTS     DM_TEXT /* DM_TEXT = VARCHAR(250) */,
    D$UUID       DM_UUID /* DM_UUID = CHAR(36) NOT NULL */,
    D$SRVUPDDT   DM_DATETIME /* DM_DATETIME = TIMESTAMP */
);




/******************************************************************************/
/***                                Triggers                                ***/
/******************************************************************************/


SET TERM ^ ;



/******************************************************************************/
/***                          Triggers for tables                           ***/
/******************************************************************************/



/* Trigger: DSC_RULES_AD_DISTR */
CREATE OR ALTER TRIGGER DSC_RULES_AD_DISTR FOR DSC_RULES
ACTIVE AFTER DELETE POSITION 0
AS
begin
  update or insert into g$distribute (TABLENAME,UUID,SOPER,FROM_PROFILE_ID) values ('DSC_RULES',old.d$uuid,2,null)
  matching (TABLENAME,UUID);
end
^


/* Trigger: DSC_RULES_BI0 */
CREATE OR ALTER TRIGGER DSC_RULES_BI0 FOR DSC_RULES
ACTIVE BEFORE INSERT POSITION 0
AS
begin
  select max(id)+1 from DSC_RULES into new.id;
  if (new.id is null) then new.id = 1;
end
^


/* Trigger: DSC_RULES_BIU0 */
CREATE OR ALTER TRIGGER DSC_RULES_BIU0 FOR DSC_RULES
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
AS
begin
  new.mmbsh1 = UPPER(new.mmbsh1);
  new.sname1 = UPPER(new.sname1);
  new.sname2 = UPPER(new.sname2);
  new.sname3 = UPPER(new.sname3);
  new.sname4 = UPPER(new.sname4);
  new.sname5 = UPPER(new.sname5);
end
^


/* Trigger: DSC_RULES_BI_DISTR */
CREATE OR ALTER TRIGGER DSC_RULES_BI_DISTR FOR DSC_RULES
ACTIVE BEFORE INSERT POSITION 9999
AS
begin
  if (new.d$uuid is null) then
  begin
    new.d$uuid=UUID_TO_CHAR(GEN_UUID());
    new.d$srvupddt='2000-01-01';
    update or insert into g$distribute (TABLENAME,UUID,SOPER,FROM_PROFILE_ID) values ('DSC_RULES',new.d$uuid,0,null) matching (TABLENAME,UUID);
  end
end
^


/* Trigger: DSC_RULES_BU_DISTR */
CREATE OR ALTER TRIGGER DSC_RULES_BU_DISTR FOR DSC_RULES
ACTIVE BEFORE UPDATE POSITION 0
AS
begin
  if (new.D$SRVUPDDT=old.D$SRVUPDDT) then
    update or insert into g$distribute (TABLENAME,UUID,SOPER,FROM_PROFILE_ID) values ('DSC_RULES',new.d$uuid,1,null)
    matching (TABLENAME,UUID);
end
^


SET TERM ; ^



/******************************************************************************/
/***                               Privileges                               ***/
/******************************************************************************/


SET TERM ^ ;

create or alter procedure PR_GET_DSC_RULES (
    PART_ID_IN DM_ID,
    DOC_ID DM_ID,
    DEL integer = 0)
returns (
    PART_ID_OUT integer,
    DISCOUNT DM_DOUBLE,
    BARCODE_DSC DM_TEXT)
as
declare variable SNAME DM_TEXT;
declare variable PRICE DM_DOUBLE;
declare variable QUANT DM_DOUBLE;
declare variable SNAME1 DM_TEXT;
declare variable SNAME2 DM_TEXT;
declare variable SNAME3 DM_TEXT;
declare variable SNAME4 DM_TEXT;
declare variable SNAME5 DM_TEXT;
declare variable PRICE_MIN DM_DOUBLE;
declare variable PRICE_MAX DM_DOUBLE;
declare variable QUANT_DIV DM_ID;
declare variable QUANT_DSC DM_ID;
declare variable SUM_DSC DM_DOUBLE;
declare variable PERC_DSC DM_DOUBLE;
declare variable MAX_PART_ID DM_ID;
declare variable SUM_QUANT DM_DOUBLE;
declare variable NO_DSC integer;
declare variable CONST_MAX_PRICE integer;
declare variable MMBSH DM_TEXT1024;
declare variable NDS_O DM_ID_NULL;
declare variable MMBSH1 DM_TEXT;
declare variable NDS_O1 DM_ID_NULL;
declare variable BARCODE DM_TEXT;
begin
-------------------- Описание параметров ---------------------------------------------------
--Процедура вызывается в кассире в событиях -305 и -332
--PART_ID_IN - партия, по которой изменили кол-во/добавили/удалили в чеке, и на которую необходимо рассчитать скидку
--DOC_ID - чек
--DEL - признак, что партию удаляют из чека

--PART_ID_OUT - список партий по которым нужно обновить скидку
--DISCOUNT - скидка в рублях
--BARCODE_DSC - штрихкод скидки, который нужно применить (суммовая скидка работает быстрее, лучше использовать её)

------------------- Описание DSC_RULES ------------------------------------------------------
--DATE_BEG и DATE_END - период действия скидки
--MMBSH1 - группа товара
--NDS_O1 - ставка НДС опт (10,18,12 ....)
--SNAME1 ... SNAME5 - слова, которым должна соответствовать позиция для того, чтобы скидка назначилась (все не обязательны)
--PRICE_MIN и PRICE_MAX - ценовой диапазон, которому должна соответствовать позиция, чтобы скидка назначилась (все не обязательны)
--QUANT_DIV и QUANT_DSC, для условий типа: при покупке 4х штук (QUANT_DIV) одна(QUANT_DSC) в подарок
--SUM_DSC - суммовая скидка на позицию в рублях
--PERC_DSC - процентная скидка на позицию в % (например 0.15)
--BARCODE_DSC - штрихкод скидки, который нужно применить (суммовая скидка работает быстрее, лучше использовать её)
--STATUS, 1 - правило активно, 0 - неактивно

  CONST_MAX_PRICE = 99999;
  DISCOUNT = 0;
  PART_ID_OUT = PART_ID_IN;

  select UPPER(sname), price, abs(quant), coalesce(nds,0), UPPER(mmbsh) from vw_doc_detail_active where doc_id = :doc_id and part_id = :part_id_in into :sname, :price, :quant, :nds_o, :mmbsh;

  for select MMBSH1, NDS_O1, SNAME1,SNAME2,SNAME3,SNAME4,SNAME5,PRICE_MIN,PRICE_MAX,QUANT_DIV,QUANT_DSC,SUM_DSC,PERC_DSC,BARCODE_DSC
        from DSC_RULES dr where status = 1 and dr.date_beg <= current_date and dr.date_end >= current_date
      into :MMBSH1, :NDS_O1, :SNAME1,:SNAME2,:SNAME3,:SNAME4,:SNAME5,:PRICE_MIN,:PRICE_MAX,:QUANT_DIV,:QUANT_DSC,:SUM_DSC,:PERC_DSC,:BARCODE do
  begin 
    NO_DSC = 0;

    if (:MMBSH1 is null) then MMBSH1 = '';
    if (:SNAME1 is null) then SNAME1 = '';
    if (:SNAME2 is null) then SNAME2 = '';
    if (:SNAME3 is null) then SNAME3 = '';
    if (:SNAME4 is null) then SNAME4 = '';
    if (:SNAME5 is null) then SNAME5 = '';

    --Проверка на группу
    if (NO_DSC = 0) then
    if ( Not(MMBSH containing MMBSH1) ) Then
     NO_DSC = 1;

    --Проверка на НДС
    if (NO_DSC = 0) then
    if((:NDS_O1 is not null) and (:NDS_O1 <> :NDS_O)) Then
     NO_DSC = 1;

    --Проверка на наименование
    if (NO_DSC = 0) then
    if (Not((sname containing SNAME1) and (sname containing SNAME2) and (sname containing SNAME3) and (sname containing SNAME4) and (sname containing SNAME5))) Then
     NO_DSC = 1;

    --Проверка на цену
    if (NO_DSC = 0) then
    if ( (price < coalesce(PRICE_MIN,0)) or
         (price > coalesce(PRICE_MAX,CONST_MAX_PRICE)) ) Then
     NO_DSC = 1;

    --Проверка на кратность
    if (NO_DSC = 0) then
    if (QUANT_DIV is not null) then
    begin
      --Определяем партию на которую будем назначать скидку
      select max(part_id), abs(sum(quant)), min(price) from vw_doc_detail_active da where doc_id = :doc_id
                                                                                          and UPPER(da.sname) containing :SNAME1
                                                                                          and UPPER(da.sname) containing :SNAME2
                                                                                          and UPPER(da.sname) containing :SNAME3
                                                                                          and UPPER(da.sname) containing :SNAME4
                                                                                          and UPPER(da.sname) containing :SNAME5
                                                                      and ( ((:DEL = 1) and (part_id <> :PART_ID_IN)) or (:DEL = 0) )
                                                                      and (price >= coalesce(:PRICE_MIN,0)) and (price <= coalesce(:PRICE_MAX,:CONST_MAX_PRICE))
                                                                      and UPPER(da.MMBSH) containing :MMBSH1
                                                                      and ( (:NDS_O1 is null) or ((:NDS_O1 is not null) and (:NDS_O1 = NDS)) )
      into :max_part_id, :sum_quant, :price;
        --Скидка назначается только на партию с максимальным ID и если условие кратности соблюдается
        --По всем остальным партиям скидку сбрасываем
        for select part_id from vw_doc_detail_active da where doc_id = :doc_id and UPPER(da.sname) containing :SNAME1
                                                                               and UPPER(da.sname) containing :SNAME2
                                                                               and UPPER(da.sname) containing :SNAME3
                                                                               and UPPER(da.sname) containing :SNAME4
                                                                               and UPPER(da.sname) containing :SNAME5
                                                             and ( ((:DEL = 1) and (part_id <> :PART_ID_IN)) or (:DEL = 0) )
                                                             and (price >= coalesce(:PRICE_MIN,0)) and (price <= coalesce(:PRICE_MAX,:CONST_MAX_PRICE))
                                                             and UPPER(da.MMBSH) containing :MMBSH1
                                                             and ( (:NDS_O1 is null) or ((:NDS_O1 is not null) and (:NDS_O1 = NDS)) )
        into :PART_ID_OUT do
        Begin
          if ((max_part_id = PART_ID_OUT) and (Trunc(sum_quant/QUANT_DIV) > 0)) then
            begin
              if (QUANT_DSC is not null) then DISCOUNT = QUANT_DSC*:price*Trunc(sum_quant/QUANT_DIV);
              if (SUM_DSC is not null) then DISCOUNT = SUM_DSC*Trunc(sum_quant/QUANT_DIV);
              if (PERC_DSC is not null) then DISCOUNT = :quant*:price*PERC_DSC;
              if (BARCODE is not null) then BARCODE_DSC = :BARCODE;
            end
          else
            Begin
              DISCOUNT = 0;
              BARCODE_DSC = Null;
            end
          suspend;
        End
      exit;
    End

    --Суммовая скидка
    if ( (NO_DSC = 0) and (DEL = 0) and ((SUM_DSC is not null) or (BARCODE is not null)) ) then
    Begin
      DISCOUNT =  :quant*SUM_DSC;
      BARCODE_DSC = BARCODE;
      suspend;
      exit;
    End

    --Процентная скидка
    if ( (NO_DSC = 0) and (DEL = 0) and ((PERC_DSC is not null) or (BARCODE is not null)) ) then
    Begin
      DISCOUNT =  :quant*:price*PERC_DSC;
      BARCODE_DSC = BARCODE;
      suspend;
      exit;
    End

  End
end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT ON VW_DOC_DETAIL_ACTIVE TO PROCEDURE PR_GET_DSC_RULES;
GRANT SELECT ON DSC_RULES TO PROCEDURE PR_GET_DSC_RULES;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GET_DSC_RULES TO SYSDBA;

Создаем в кассире ТМС

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

Procedure  RecalcDSC(del:integer)
var iq: tibquery;
begin
 Try
   iq := tibquery.create(nil);
   iq.transaction := CreateRT(CurrDB);
   iq.transaction.starttransaction;
   iq.active := False;

   iq.sql.text := 'select * from PR_GET_DSC_RULES('+IntToStr(ChequeList.ActivePID)+','+IntToStr(ChequeList.Active.ID)+','+IntToStr(del)+')';
   iq.active := True;
   while not (iq.Eof) do
   begin
      ChequeList.Active.P_Index:= ChequeList.Active.IndexByPartID(iq.FieldByName('part_id_out').AsInteger);
      if (iq.FieldByName('BARCODE_DSC').AsString = '') Then
        ChequeList.Active.P_SetDiscount(-1*iq.FieldByName('DISCOUNT').AsFloat)
      else
        Barcode.ApplyDiscount(iq.FieldByName('BARCODE_DSC').AsString, iq.FieldByName('part_id_out').AsInteger);
      iq.next;
   End;

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

end;

Вызываем RecalcDSC в ТМС 

-305 как  RecalcDSC(0); 
-332 как  RecalcDSC(1);

Скрипт должен выглядеть примерно так: 

uses
  p10112u1;
begin
  RecalcDSC(0);
end;

Пример №2 (старый мех-м)

  • акция действует всегда пока включен переключатель в параметрах системы 
INSERT INTO PARAMS ( PARENT_ID, PARAM_ID, PARAM_CAPTION, PARAM_TYPE, PARAM_VALUE, AUDIT_ID, IMAGEINDEX,
STATUS, INSERTDT, SORTING, PARAM_TYPE_DATA, PACKET) VALUES ( -30, 'AKCCII_TOGGLE', 'Включение акций', 14, '0', 3229, NULL, 0, '19-DEC-2015 10:45:34.828', NULL, 'FIXEDITEMS SHOWONLYVALUES RETURNNAME
0=выключено
1=включено');
  • если переключатель включен - в кассире при продаже активируется скидка = разнице между заполненными колонками price и ещё одной ценовой колонкой, ниже использована PRICE_R 
uses
  Graphics, Controls, Forms, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls, ibquery, DB, ChequeList, FR,
  ScriptRes, Barcode,ZKassa, StrUtils, Windows, Classes,
  IBDataBase, SysUtils, DateUtils, chequelist;
var iq: tibquery;
    dsc, part_id: integer;
    discount: float;
begin
 Try
   iq := tibquery.create(nil);
   iq.transaction := CreateRT(CurrDB);
   iq.transaction.starttransaction;
   iq.active := False;

   iq.sql.text := 'select wb.part_id,wb.PRICE_R,(select p.param_value from params p where p.param_id = ''AKCCII_TOGGLE'') from  vw_warebase wb  where wb.part_id = '+
   IntToStr(ChequeList.ActivePID);

   iq.active := True;
   if not(iq.Eof) then
     if ( not iq.FieldByName('param_value').AsInteger=0 )then
       if ( not iq.FieldByName('PRICE_R').isNull )then
         if (iq.FieldByName('PRICE_R').AsFloat>0) then begin
            ChequeList.Active.P_Index := ChequeList.Active.IndexByPartID(iq.FieldByName('part_id').AsInteger);
            temp := -(ChequeList.Active.P_Price - iq.FieldByName('PRICE_R').AsFloat);
            ChequeList.Active.P_SetDiscount(temp);
         end;
  finally
   iq.active := False;
   iq.transaction.free;
   iq.free;
  end;

Отправка ТМС по синхронизации

Выгружаем тмс из базы из blob поля в файл

Тмс можно найти спомощью запроса: 

select * from groups g where g.id=-305

Затем сохраняем на жесткий диск тмс из поля data.

Загружаем ТМС в серверную базу

  • В таблице g$profiles выбираем blob поле, которое будем использовать для отправки, например TMP_BLOB1.
  • Убеждаемся, что данная таблица синхронизируется в двухстороннем направлении.
  • Загружаем в это поле например первому профилю наш ТМС скрипт.
  • Ждем когда это обновление придет всем по синхронизации.

Применяем всем ТМС

По g$tasks отправляем запрос нужным профилям: 

update groups gp set gp.data = (select g.tmp_blob1 from G$PROFILES g where g.id = 1) where gp.id = -305;

Примеры акций

1. Акция на апрель, Эссенциале №30 - скидка 150 руб за каждую упаковку
2. Акция до конца мая, на Магне №50 (с ценой от 500 до 1000 руб) - при покупке 4х упаковок 1 в подарок;
3. Акция на Ферверкс, при покупке 2х упаковок 1 в подарок;
4. Аналогично Ферверксу, только на Маалокс;
5 и 6. На зодак №7 и №28 скидка 15%;
7. Акция на Эмолиум, при покупке 2х упаковок скидка 350 руб.;
8. Аналогично, на Фитолизин - 100 руб.;
9. На все ЖНВЛС скидка 5%;
10. На все товары с НДС опт. 10%, - скидка 10%;
11. На все товары с НДС опт. 18%, - скидка 15%;

Окно программы

  • DATE_BEG и DATE_END - период действия скидки
  • MMBSH1 - группа товара
  • NDS_O1 - ставка НДС опт (10,18,12 ....)
  • SNAME1 ... SNAME5 - слова, которым должна соответствовать позиция для того, чтобы скидка назначилась (все не обязательны)
  • PRICE_MIN и PRICE_MAX - ценовой диапазон, которому должна соответствовать позиция, чтобы скидка назначилась (все не обязательны)
  • QUANT_DIV и QUANT_DSC, для условий типа: при покупке 4х штук (QUANT_DIV) одна(QUANT_DSC) в подарок
  • SUM_DSC - суммовая скидка на позицию в рублях
  • PERC_DSC - процентная скидка на позицию в % (например 0.15)
  • STATUS, 1 - правило активно, 0 - неактивно


ПОСМОТРЕТЬ ЕЩЕ ПРИМЕРЫ


Видео

Источник — «http://wiki.standart-n.ru/index.php?title=Настройка_акций_в_Кассире&oldid=6911»