Кассир:Пересчет Бонусов кассиру - История изменений

Lander в 08:20, 14 июня 2024

2024-06-14T08:20:32Z

Lander в 08:02, 14 июня 2024

2024-06-14T08:02:27Z

Lander в 07:48, 14 июня 2024

2024-06-14T07:48:24Z

Lander в 07:47, 14 июня 2024

2024-06-14T07:47:07Z

Lander: /* PROCEDURE PR_GETBONUS */

2021-03-04T08:51:22Z

‎PROCEDURE PR_GETBONUS

Lander: Новая страница: «Возникают моменты когда требуется пересчитать Бонусы начисленные за определенный пери…»

2021-03-03T11:17:50Z

Новая страница: «Возникают моменты когда требуется пересчитать Бонусы начисленные за определенный пери…»

Новая страница

Возникают моменты когда требуется пересчитать Бонусы начисленные за определенный периуд. К сожалению реализация системы бонусов не подразумевает легкого пути.

Для этого нам потребуется:

1. Создаем таблицу BONUS
в которой описываем все бонусы
если у нас коэфициентный бонус заполняем поле '''KOEF_BONUS'''

если суммовой то '''SUM_BONUS'''

Данный скрипт предназначен если бонусы начисляются по определенным группам товара которую задаем в поле '''GROUP_ID'''

2. Далее нам потребуется процедура PR_GETBONUS
на вход она принимает ID Документа в ответ отдает сумму бонуса по документу
работает с документами типа 3 и 9 Чек и Чек возврата

3. Пример работы вызова пересчет бонусов с 01.01.2021 по 25.02.2021

<pre>
Update docs d set d.bonus = (select SUM_BONUS_DOC from pr_getbonus(d.id)
where d.doc_type=3 and commitdate between '01.01.2021 00:00:00' and '25.02.2021 23:59:59')

Update docs d set d.bonus = (select -SUM_BONUS_DOC from pr_getbonus(d.id)
where d.doc_type=9 and commitdate between '01.01.2021 00:00:00' and '25.02.2021 23:59:59')
</pre>

==TABLE BONUS ==

<pre>
/******************************************************************************/
/*** Generated by IBExpert 03.03.2021 15:06:37 ***/
/******************************************************************************/

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

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

CREATE GENERATOR GEN_BONUS_ID;

CREATE TABLE BONUS (
ID DM_ID /* DM_ID = BIGINT */,
SUM_BONUS DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
KOEF_BONUS DM_DOUBLE /* DM_DOUBLE = DOUBLE PRECISION */,
GROUP_ID DM_ID /* DM_ID = BIGINT */
);

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

SET TERM ^ ;

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

/* Trigger: BONUS_BI */
CREATE OR ALTER TRIGGER BONUS_BI FOR BONUS
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.id is null) then
new.id = gen_id(gen_bonus_id,1);
end
^

SET TERM ; ^

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

</pre>

== PROCEDURE PR_GETBONUS ==

<pre>
SET TERM ^ ;

create or alter procedure PR_GETBONUS (
DOC_ID DM_ID)
returns (
SUM_BONUS_DOC DM_DOUBLE)
as
declare variable PART_ID DM_ID;
declare variable GROUP_ID DM_ID;
declare variable S DM_TEXT;
declare variable SUM_BONUS DM_DOUBLE;
declare variable SUMM DM_DOUBLE;
declare variable SUMMA DM_DOUBLE;
declare variable KOEF DM_DOUBLE;
begin
sum_bonus_doc = 0;
for select part_id,dd.summa from doc_detail dd where dd.doc_id=:DOC_ID into :part_id,:summa
do
begin
summ=0;
s = (select
(select membership from PR_MEMBERSHIPS('PARTS=' || :part_id || ';PARTS.NAME_ID=' || w.name_id || ';PARTS.IZG_ID=' || w.izg_id ||';',ascii_char(13)||ascii_char(10),1))
from parts p
join wares w on w.id=p.ware_id
where p.id = :part_id); -- ss =:s;suspend;
for select b.group_id,b.sum_bonus,b.koef_bonus from bonus b where b.sum_bonus is not null into :group_id,:sum_bonus, :koef
do
begin
if (:group_id<>10472) then
if (position(:group_id||'=' in :s)>0) then summ = :sum_bonus;
else
if (position(:group_id||'=' in :s)>0) then summ = :summa* :koef;
end
sum_bonus_doc = sum_bonus_doc + summ;

end

suspend;

end^

SET TERM ; ^

/* Following GRANT statetements are generated automatically */

GRANT SELECT ON DOC_DETAIL TO PROCEDURE PR_GETBONUS;
GRANT EXECUTE ON PROCEDURE PR_MEMBERSHIPS TO PROCEDURE PR_GETBONUS;
GRANT SELECT ON PARTS TO PROCEDURE PR_GETBONUS;
GRANT SELECT ON WARES TO PROCEDURE PR_GETBONUS;
GRANT SELECT ON BONUS TO PROCEDURE PR_GETBONUS;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_GETBONUS TO SYSDBA;
</pre>

tags: Кассир, Бонус, Пересчет, Перерасчет

@@ Строка 5: / Строка 5: @@
 <pre>
 select
-'update docs d set d.bonus ='||cast(r.sum_bonus as numeric(9,2))||' where d.id='||r.id||';'
+'update docs d set d.bonus ='||iif(r.doc_type=9,cast(-r.sum_bonus as numeric(9,2)),cast(r.sum_bonus as numeric(9,2))) ||' where d.id='||r.id||';'
 from
+(
 select
 d.id,
 d.bonus,
 (select SUM_BONUS_DOC from pr_getbonus(d.id,d.g$profile_id))as sum_bonus,
@@ Строка 16: / Строка 17: @@
 from docs d
-where d.docdate between ''''03.06.2024 00:00:00' and '06.06.2024 23:59:59''''
+where d.docdate between '06.06.2024 00:00:00' and '06.06.2024 23:59:59'
-'''and d.doc_type=3
+and d.doc_type in(3,9)
-and d.g$profile_id=3)'''r
+and d.g$profile_id=19)r
   where r.sum_bonus>0 and r.sum_bonus<>bonus
 </pre>
@@ Строка 24: / Строка 25: @@
 задаем диапазон времени
 профиль
-и ти пдокумента вначале 3 чеки
-затем ставим у SUM_BONUS знак минус и тип документа возврат
 Результат оформляем в TASK и посылаем на точку

@@ Строка 5: / Строка 5: @@
 <pre>
 select
-'update docs d set d.bonus ='||r.sum_bonus||' where d.id='||r.id||';'
+'update docs d set d.bonus ='||cast(r.sum_bonus as numeric(9,2))||' where d.id='||r.id||';'
 from
+(

@@ Строка 2: / Строка 2: @@
 Перенес на сервер
-<p>
 select
 'update docs d set d.bonus ='||r.sum_bonus||' where d.id='||r.id||';'
@@ Строка 19: / Строка 20: @@
 and d.g$profile_id=3)'''r
   where r.sum_bonus>0 and r.sum_bonus<>bonus
-</p>
+</pre>
 задаем диапазон времени
@@ Строка 25: / Строка 26: @@
 и ти пдокумента вначале 3 чеки
 затем ставим у SUM_BONUS знак минус и тип документа возврат
 Это по локальной точке

← Предыдущая		Версия 07:47, 14 июня 2024
Строка 1:		Строка 1:
	Возникают моменты когда требуется пересчитать Бонусы начисленные за определенный периуд. К сожалению реализация системы бонусов не подразумевает легкого пути.		Возникают моменты когда требуется пересчитать Бонусы начисленные за определенный периуд. К сожалению реализация системы бонусов не подразумевает легкого пути.

		+	Перенес на сервер
		+	<p>
		+	select
		+	'update docs d set d.bonus ='\|\|r.sum_bonus\|\|' where d.id='\|\|r.id\|\|';'
		+	from
		+	(
		+	select
		+	d.id,
		+	d.bonus,
		+	(select SUM_BONUS_DOC from pr_getbonus(d.id,d.g$profile_id))as sum_bonus,
		+	d.summa
		+
		+
		+	from docs d
		+	where d.docdate between ''''03.06.2024 00:00:00' and '06.06.2024 23:59:59''''
		+	'''and d.doc_type=3
		+	and d.g$profile_id=3)'''r
		+	where r.sum_bonus>0 and r.sum_bonus<>bonus
		+	</p>
		+
		+	задаем диапазон времени
		+	профиль
		+	и ти пдокумента вначале 3 чеки
		+	затем ставим у SUM_BONUS знак минус и тип документа возврат
		+
		+	Это по локальной точке
	Для этого нам потребуется:		Для этого нам потребуется:

@@ Строка 112: / Строка 112: @@
 declare variable SUMMA DM_DOUBLE;
 declare variable KOEF DM_DOUBLE;
 begin
 sum_bonus_doc = 0;
-  for select part_id,dd.summa from doc_detail dd where dd.doc_id=:DOC_ID into :part_id,:summa
+  for select part_id,dd.summa,abs(dd.quant) from doc_detail dd where dd.doc_id=:DOC_ID into :part_id,:summa, :quant
      do
      begin
@@ Строка 127: / Строка 128: @@
                 begin
                  if (:group_id<>10472) then
-                    if (position(:group_id||'=' in :s)>0) then summ =  :sum_bonus;
+                    if (position(:group_id||'=' in :s)>0) then summ = :sum_bonus*:quant;
                  else
-                    if (position(:group_id||'=' in :s)>0) then summ = :summa* :koef;
+                    if (position(:group_id||'=' in :s)>0) then summ = :summa* :koef*:quant;
                 end
                 sum_bonus_doc = sum_bonus_doc + summ;