Настройка кассира: продажа в минус всех товаров кроме групп Алкоголь и Пиво — различия между версиями
Материал из wiki.standart-n.ru
BeTePoK (обсуждение | вклад) |
Natali (обсуждение | вклад) |
||
| Строка 7: | Строка 7: | ||
if (Base.FieldByName('quant').AsFloat - ChequeList.ActiveQuant < 0) and ((PartInGroup(ChequeList.ActivePID, -21) = 1) | if (Base.FieldByName('quant').AsFloat - ChequeList.ActiveQuant < 0) and ((PartInGroup(ChequeList.ActivePID, -21) = 1) | ||
or (PartInGroup(ChequeList.ActivePID, -20) = 1)) then | or (PartInGroup(ChequeList.ActivePID, -20) = 1)) then | ||
| + | begin | ||
| + | ScriptRes.Code := -1; | ||
| + | ScriptRes.Desc := 'Запрет продажи в "минус" данной группы товаров'; | ||
| + | end; | ||
| + | end; | ||
| + | </PRE> | ||
| + | |||
| + | |||
| + | ===Запрет продажи в минус всех товаров кроме групп Алкоголь и Пиво=== | ||
| + | *Обновить кассира до версии 2.2.1.44 или выше | ||
| + | *исправить тмс "перед добавлением позиции в чек" | ||
| + | <PRE> | ||
| + | uses zkassa, chequelist, scriptres,DB; | ||
| + | begin | ||
| + | if (Base.FieldByName('quant').AsFloat - ChequeList.ActiveQuant < 0) and ((PartInGroup(ChequeList.ActivePID, -21) <> 1) | ||
| + | and (PartInGroup(ChequeList.ActivePID, -20) <> 1)) then | ||
begin | begin | ||
ScriptRes.Code := -1; | ScriptRes.Code := -1; | ||
Версия 09:38, 5 мая 2017
Настраивается через ТМС
- Обновить кассира до версии 2.2.1.44 или выше
- исправить тмс "перед добавлением позиции в чек"
uses zkassa, chequelist, scriptres,DB;
begin
if (Base.FieldByName('quant').AsFloat - ChequeList.ActiveQuant < 0) and ((PartInGroup(ChequeList.ActivePID, -21) = 1)
or (PartInGroup(ChequeList.ActivePID, -20) = 1)) then
begin
ScriptRes.Code := -1;
ScriptRes.Desc := 'Запрет продажи в "минус" данной группы товаров';
end;
end;
Запрет продажи в минус всех товаров кроме групп Алкоголь и Пиво
- Обновить кассира до версии 2.2.1.44 или выше
- исправить тмс "перед добавлением позиции в чек"
uses zkassa, chequelist, scriptres,DB;
begin
if (Base.FieldByName('quant').AsFloat - ChequeList.ActiveQuant < 0) and ((PartInGroup(ChequeList.ActivePID, -21) <> 1)
and (PartInGroup(ChequeList.ActivePID, -20) <> 1)) then
begin
ScriptRes.Code := -1;
ScriptRes.Desc := 'Запрет продажи в "минус" данной группы товаров';
end;
end;
