ТМС:Кассир:Классы:Barcode - История изменений

Aleksnick в 10:39, 1 октября 2014

2014-10-01T10:39:06Z

Aleksnick в 07:16, 1 октября 2014

2014-10-01T07:16:16Z

Aleksnick: Новая страница: «==Свойства== Text - текст отсканированного штрихкода Kind RW - тип штрихкода:…»

2014-10-01T07:11:40Z

Новая страница: «==Свойства== Text - текст отсканированного штрихкода Kind RW - тип штрихкода:…»

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

==Свойства==
Text - текст отсканированного штрихкода
Kind RW - тип штрихкода: bkUnknown (неизвестно), bkGoods (товар), bkLPGoods (весовой товар),
bkLocalDiscount (локальная скидка), bkGlobalDiscount (глобальная скидка)
Percent RW - процент скидки (если KIND = bkLocalDiscount или bkGlobalDiscount)
CardSumm - сумма накоплений по дисконтной карте (если KIND = bkGlobalDiscount)

==Методы==

====RecalcDiscount====
<nowiki>
RecalcDiscount - пересчет скидки по очереди чеков в случае изменения процента скидки (PERCENT)
</nowiki>

====Пример:====

<nowiki>
var s: string;
begin
s := Barcode.Text + #10;
case Barcode.Kind of
bkLocalDiscount: s := s + 'локальная скидка ' + FloatToStr(Barcode.Percent) + '%';
bkGlobalDiscount: s := s + 'глобальная скидка ' + FloatToStr(Barcode.Percent) + '%; ' + FloatToStr(Barcode.CardSumm);
bkLPGoods: s := s + 'весовой товар';
bkGoods: s := s + 'товар';
else
s := s + 'непонятно, что за штрихкод';
end;
ShowMessage(s);

if (Barcode.Kind = bkLocalDiscount) or (Barcode.Kind = bkGlobalDiscount) then
begin
Barcode.Percent := -20;
Barcode.RecalcDiscount;
end;
end;
</nowiki>

====ApplyDiscount====
<nowiki>
ApplyDiscount - применить дисконтную карту к одной или всем позициям очереди чеков
sDiscountBarcode - штрихкод дисконтной карты
iPartID - PART_ID позиции, к которой применяется карта (0 - применить ко всем позициям)
</nowiki>

====Пример:====
<nowiki>
ChequeList.Items[0].P_Index := 0;
Barcode.ApplyDiscount('000000000314', ChequeList.Items[0].P_ID);
</nowiki>

@@ Строка 13: / Строка 13: @@
   </nowiki>
-====Пример:====
+====Пример====
   <nowiki>
@@ Строка 44: / Строка 44: @@
   </nowiki>
-====Пример:====
+====Пример====
   <nowiki>
    ChequeList.Items[0].P_Index := 0;
    Barcode.ApplyDiscount('000000000314', ChequeList.Items[0].P_ID);
   </nowiki>

@@ Строка 8: / Строка 8: @@
 ==Методы==
-====RecalcDiscount====
+===RecalcDiscount===
   <nowiki>
    RecalcDiscount	- пересчет скидки по очереди чеков в случае изменения процента скидки (PERCENT)
@@ Строка 37: / Строка 37: @@
   </nowiki>
-====ApplyDiscount====
+===ApplyDiscount===
   <nowiki>
    ApplyDiscount		- применить дисконтную карту к одной или всем позициям очереди чеков