paypoint-onec: stampmodule.txt

File stampmodule.txt, 3.9 KB (added by vladimir, 9 years ago)

Модуль веб-сервиса stamp, кодировка - utf-8

Line 
1// ЀуМкцОя регОстрацОО платежа, прОМОЌает карту платежа, ОЎеМтОфОкатПр резерва, ОЎеМтОфОкатПр карты пПльзПвателя
2ЀуМкцОя pay(productmap, reserve_id, card_id) экспПрт
3
4        НПвыйДПкуЌеМт = ДПкуЌеМты.ЧекККМ.СПзЎатьДПкуЌеМт();
5        НПвыйДПкуЌеМт.Дата = ТекущаяДата();
6        НПвыйДПкуЌеМт.ОргаМОзацОя = СправПчМОкО.ОргаМОзацОО.НайтОППНаОЌеМПваМОю ("ОсМПвМая");
7        НПвыйДПкуЌеМт.СклаЎ = СправПчМОкО.СклаЎы.НайтОППНаОЌеМПваМОю ("ОсМПвМПй");
8        НПвыйДПкуЌеМт.КассаККМ = СправПчМОкО.КассыККМ.НайтОППНаОЌеМПваМОю ("АвтПЌатОческая касса");
9        НПвыйДПкуЌеМт.СуЌЌаДПкуЌеМта = productmap.amount;
10        Для КажЎПгП product Из productmap.product ЊОкл
11                СППбщОть (product.code);
12                ТаблОчМаяЧасть = НПвыйДПкуЌеМт.ТПвары;
13                НПваяСтрПка = ТаблОчМаяЧасть.ДПбавОть ();
14                НПваяСтрПка.НПЌеМклатура = СправПчМОкО.НПЌеМклатура.НайтОППКПЎу (product.code);
15                // Как-тП МужМП упрПстОть...
16                НПваяСтрПка.ЕЎОМОцаИзЌереМОя = СправПчМОкО.ЕЎОМОцыИзЌереМОя.НайтОППНаОЌеМПваМОю (НПваяСтрПка.НПЌеМклатура.БазПваяЕЎОМОцаИзЌереМОя);
17                НПваяСтрПка.КПлОчествП = product.count;
18                НПваяСтрПка.ЊеМа = product.cost / 100;
19        КПМецЊОкла;
20
21        //НПвыйДПкуЌеМт.ЗапОсать(РежОЌЗапОсОДПкуЌеМта.ПрПвеЎеМОе);
22//      НПвыйДПкуЌеМт.ЗапОсать(РежОЌЗапОсОДПкуЌеМта.ЗапОсь);
23               
24        ВПзврат true;
25КПМецЀуМкцОО
26
27// ЀуМкцОя выЎачО ОМфПрЌацОО П клОеМте, прОМОЌает ОЎеМтОфкатПр карты
28ЀуМкцОя info(card_id) экспПрт
29        структурМыйТОп = ЀабрОкаXDTO.ТОп("http://www.stampservice.ru/", "user");
30        клОеМт = ЀабрОкаXDTO.СПзЎать(структурМыйТОп);
31        клОеМт.discount_per = 1500; // 15%
32        клОеМт.name = "ПетрПв ИваМ ИваМПвОч"; // ИЌя ОлО ОМПе МаОЌеМПваМОе клОеМта
33        ВПзврат клОеМт;
34КПМецЀуМкцОО
35
36// ЀуМкцОя резервОрПваМОя тПвара, вПзвращает ОЎеМтОфОкатПр резерва
37ЀуМкцОя reserve(productmap) экспПрт
38        // Заглушка
39        //  В случае Птказа резервОрПваМОя вПзвращается пустая стрПка
40        ВПзврат "reservetmp";
41КПМецЀуМкцОО
42
43// ЀуМкцОя разрезервОрПваМОя тПвара, прОМОЌает ОЎеМтОфОкатПр резерва
44ЀуМкцОя unreserve(productmap) экспПрт
45        // Заглушка
46        ВПзврат true;
47КПМецЀуМкцОО
48
49// ЀуМкцОя запрПса ОМфПрЌацОО П счёте пП ОЎеМтОфОкатПру счёта (штрОхкПЎу)
50ЀуМкцОя billinfo(bill_id) экспПрт
51        ВПзврат 500 * 100; // 500 руб
52КПМецЀуМкцОО
53
54// ЀуМкцОя прПвеЎеМОя платежа пП ОЎеМтОфОкатПру счёта. pay_amount - суЌЌа платежа, charge_amount - сЎача, rest_amount - МераспреЎелеММый ПстатПк
55ЀуМкцОя billpay(bill_id, pay_amount, charge_amount, rest_amount) экспПрт
56        // Заглушка
57        ВПзврат true;
58КПМецЀуМкцОО
59