Скидка на весь товар с 9.00 до 11.00 два раза в неделю УКМ2 : Супермаг Плюс (Супермаг 2000)

BotMan · █ 20.11.2015 12:42

Руководство решило поэкспериментировать и сделать вот такую скидку:
Скидка на весь товар с 9.00 до 11.00 два раза в неделю(Пн,Вт) УКМ3

Собственно С+ сказал, что можно сделать "через скидка по сумме чека"

Код:

Выставить начало 9.00 и проц скидки = 5%
и 
Выставить начало 11.00 и проц скидки = 0%

но, придется все это дело самому включать и отключать два раза в неделю АЖ два месяца!

Можно еще на группу повесить скидку 5% и опять же руками ее убирать...

Есть десяток товаров у которых стоит скидка по количеству 10-20%, предел скидки такой же стоит.

Есть какие еще варианты скидки, только автоматом )
Спасибо.

OlegON · █ 20.11.2015 13:34

Как сделать скидку по времени?

dragonEr · █ 09.12.2015 04:41

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

OlegON · █ 09.12.2015 07:17

Скрипт всегда пригодится, можно не спрашивать о необходимости - выкладывайте.

dragonEr · █ 10.12.2015 05:11

SQL код:

 declare
    idclass number;
    priceid NUMBER:=46; --вид цены
    vpercent number;
begin
--установка скидок
vpercent:=10;
for j in (select s.id idclass from sacardclass s
         where s.tree like ('1.7.1.1.%')   
        ) loop
    supermag.SMSetDiscClassif(j.idclass,priceid,vpercent);--скидка 
    supermag.SMSETDISCLIMITCLASSIF(j.idclass,priceid,vpercent);--предел скидки, при отмене значения вместо vpercent проставить null
    COMMIT;

--рассылка в локальные базы
for i in (select p.id from smpostlocations p where p.sendok = 1 and p.id not in (44)) loop 
    delete from Supermag.SMPostTmpQueue;
    insert into Supermag.SMPostTmpQueue(ObjType,ObjID,ParamInt,ParamStr) values('XD',Supermag.SMGetExtraChargeClassID(priceid,j.idclass),null,NULL);
    insert into Supermag.SMPostTmpQueue(ObjType,ObjID,ParamInt,ParamStr) values('LD',Supermag.SMGetExtraChargeClassID(priceid,j.idclass),null,NULL);
    insert into Supermag.SMPostTmpQueue(ObjType,ObjID,ParamInt,ParamStr) 
    values('OA','XD',null,supermag.SMGetWhereForObjArray('SMDiscClass','PriceID', 5,to_char(priceid)||chr(10))||supermag.SMGetWhereForObjArray('SMDiscClass','IDClass', 6,(select tree from sacardclass where id =j.idclass)));
    insert into Supermag.SMPostTmpQueue(ObjType,ObjID,ParamInt,ParamStr) 
    values('OA','LD',null,supermag.SMGetWhereForObjArray('SMDiscLimitsClass','PriceID', 5,to_char(priceid)||chr(10))||supermag.SMGetWhereForObjArray('SMDiscLimitsClass','IDClass', 6,(select tree from sacardclass where id =j.idclass)));
    supermag.SMPostMultipleObjects(i.id,'1');    
    commit;
end loop;

end loop;

end;