Тогда по идее нужно реализовывать контроль остатков при выдаче-приёме смарт-карты физ.лицам.
Я сделал документ:
- Организация;
- Карта;
- Вид операции (принял, сдал);
- ФизЛицо;
Регистр остатков соответствующий (измерения: Организация, Карта, ФизЛицо, ресурс: Количество)
При обработке проведения:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
Движения.ОстаткиСмартКарт.Записывать = Истина;
Движения.ОстаткиСмартКарт.Очистить();
Движение = Движения.ОстаткиСмартКарт.Добавить();
Движение.Период = Дата;
Движение.Организация = Организация;
Движение.СмартКарта = Карта;
Движение.ФизЛицо = ФизЛицо;
Если ВидОперации = Перечисления.ВидыОперацийСмартКарты.Принял Тогда
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Иначе
//контроль остатков при сдаче физ.лицом
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОстаткиСмартКартОстатки.КоличествоОстаток
|ИЗ
| РегистрНакопления.ОстаткиСмартКарт.Остатки(
| &ДатаОстатков,
| Организация = &Организация
| И СмартКарта = &СмартКарта
| И ФизЛицо = &ФизЛицо) КАК ОстаткиСмартКартОстатки";
Запрос.УстановитьПараметр("ДатаОстатков", Новый Граница(МоментВремени(), ВидГраницы.Исключая));
Запрос.УстановитьПараметр("Организация", Организация);
Запрос.УстановитьПараметр("СмартКарта", Карта);
Запрос.УстановитьПараметр("ФизЛицо", ФизЛицо);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОстатокОперации = ВыборкаДетальныеЗаписи.КоличествоОстаток - 1;
Если ОстатокОперации < 0 Тогда
Отказ = Истина;
Сообщить("Смарт-карта " + СокрЛП(Карта.Код) + " не числится на остатке данного физ. лица! Сначала необходимо сделать выдачу карты.");
КонецЕсли;
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
КонецЦикла;
КонецЕсли;
Движение.Количество = 1;
Хотя тут по идее нужно и при принятии физ.лицом карты (движение Приход) делать проверку не выдана ли эта карта уже кому-то.
