xazrad писал(а):В команде добавить фиксированные скидки. имеется 10 поле. штрих код карты. что означает сноска (****) - расширение стандартного протокола
xazrad писал(а):при правильной выгрузки штрих-кодов дисконтных карт я могу пользоваться сканером штрих кодов для начисления скидки?
xazrad писал(а):Также еще вопрос: какой параметр указать в строке выгрузке фиксированных скидок чтобы скидка не отображалась в подборе фиксированных скидок и выбрать ее можно было только с помощью сканера??
Функция ЗагрузитьДК(ФайлЗагрузки)
База = СоздатьОбъект("XBase");
//для выборки из файла и сортиврки
ТЗ = СоздатьОбъект("таблицаЗначений");
ТЗ.НоваяКолонка("НомерКарты", "Строка");
ТЗ.НоваяКолонка("Сумма","Число");
ФайлБазыКарт = Константа.ФайлБазыКарт;
Если ФС.СуществуетФайл(ФайлБазыКарт) = 0 тогда
Сообщить("Файл база данных карт отсуствует
| данные по картам не записаны",20);
Возврат 0;
КонецЕсли;
База.ОткрытьФайл(ФайлБазыКарт,,1);
Если База.Открыта() = 0 Тогда
Сообщить("Фиайл базы занят",20);
Возврат 0;
КонецЕсли;
База.Первая();
Пока База.ВКонце()=0 цикл
ТЗ.НоваяСтрока();
ТЗ.НомерКарты = База.CARDNUMBER;
ТЗ.Сумма = База.SUMMA;
База.Следующая();
КонецЦикла;
ТЗ.Свернуть("НомерКарты","Сумма");
ТЗ.Сортировать("НомерКарты");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()>0 Цикл
Стр= ТЗ.НомерКарты+";"+ //Код скидки
ТЗ.НомерКарты+";"+ //2 название
ТЗ.НомерКарты+";"+ //3 Текст для чека
";" + //4 префикс
"0;"+ //5 Тип скидки 0 - процентная
"5.00;"+ //6 значение
";" + //7 не вести накопления по карте
";" + //8 применять на позицию
"1;" + //9 значение. 1-на чек 0- на позицию
ТЗ.НомерКарты+";"; //10 шрих код
ФайлЗагрузки.ДобавитьСтроку(Стр);
//
КонецЦикла;
КонецФункции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2