новое событие
Информационный поток
Задания вакансии материалы разработки сообщения форума
dgalanov
Приватное сообщение

Изменить модуль ККМ

23 |  0
7 декабря 2021 в 06:35:10 (3 года 2 недели 2 дня 20 часов назад)
5400
Текст задания
Нужно дописать в модуле чтобы чеки бились по секциям ! ККМ Меркурий MS-K

Процедура Кнопка2Нажатие(Элемент)
если меркурий.Active=0 Тогда
сообщить("Фискальный регистратор не подключен!");
Возврат;
КонецЕсли;
//Попытка
// Записать(РежимЗаписиДокумента.Проведение) ;
//Исключение
// Возврат;
//КонецПопытки;
меркурий.OpenFiscalDoc(1);
меркурий.AddHeaderLine(1,2,0,0);
// меркурий.PrintFiscalDocBuffer();
меркурий.AddHeaderLine(2,2,0,1);
// меркурий.PrintFiscalDocBuffer();//клеше
меркурий.AddHeaderLine(3,2,0,2);
// меркурий.PrintFiscalDocBuffer();
меркурий.AddHeaderLine(4,2,0,3);
// меркурий.PrintFiscalDocBuffer();
меркурий.AddSerialNumber(2,0,4);
меркурий.AddDateTime(2,0,5);
//Серийный номер кассы
меркурий.AddOperInfo(0,2,0,6); //информация об операторе
меркурий.AddDocNumber(2,0,7);
Докумм="по Копии-чека № "+"Номер"+" от "+Формат( ТекущаяДата(), "ДЛФ=Д");
меркурий.AddAccount(Докумм,2,0,8);
// меркурий.AddAccount("по Копии-чека № 235",2,0,8);
меркурий.AddReceiptNumber(2,0,9); //номер
меркурий.AddTaxPayerNumber(2,0,10); //ИНН
// меркурий.AddCustom("****************************************",4,0,11);
// меркурий.PrintFiscalDocBuffer();
но=12;
ф=1;
сууум=0;
//Для Каждого ТекСтрокаТовар Из Товар Цикл
// фас=""+Цел(ТекСтрокаТовар.Колличество/ТекСтрокаТовар.Товар.ЕдИзм1кол)+" "+ТекСтрокаТовар.Товар.ЕдИзм1;
// Если (ТекСтрокаТовар.Колличество/ТекСтрокаТовар.Товар.ЕдИзм1кол-Цел(ТекСтрокаТовар.Колличество/ТекСтрокаТовар.Товар.ЕдИзм1кол))>0 Тогда
// фас=фас+" "+(ТекСтрокаТовар.Колличество/ТекСтрокаТовар.Товар.ЕдИзм1кол-Цел(ТекСтрокаТовар.Колличество/ТекСтрокаТовар.Товар.ЕдИзм1кол))*ТекСтрокаТовар.Товар.ЕдИзм1кол+" "+ТекСтрокаТовар.Товар.ЕдИзм1;
// КонецЕсли;
фас="5";
Товвв=Лев((" "+"ТекСтрокаТовар.Товар"+" "),28)+" "+фас ;
Товвв=СокрЛ(Товвв);
меркурий.AddCustom(Товвв,2,0,но);
//ед=" "+ТекСтрокаТовар.Товар.ЕдИзм;
ед="ШТ";
ед=СокрЛП(ед) ;
// цен=Цел(ТекСтрокаТовар.Цена*100)/100;
цен=100;
сумм=200;
колл=2*100;
// сууум=сууум+(ТекСтрокаТовар.Цена*ТекСтрокаТовар.Колличество);
// колл=ТекСтрокаТовар.Колличество*100;
но=но+1;
меркурий.AddItem(
0,
цен,
0,
1,
ф,
0,
колл,
2,
0,
ед,
3,
0,
но,
0
); //цена
но=но+1;
меркурий.AddCustom("----------------------------------------",32,0,но);
но=но+1;
ф=ф+1;
//КонецЦикла;
сууум1=сууум;
меркурий.AddTotal(0,0,но,0) ;
но=но+1;
//Если сууум>=НаличСумма Тогда
//иначе
// сууум=НаличСумма.Сумма ;
//КонецЕсли;
сууум=500;
меркурий.AddPay(0,сууум,0,"",2,0,но,0); //Итоговая сумма 2
но=но+1;
меркурий.AddChange(2,0,но,0); //Итоговая сдача
меркурий.CloseFiscalDoc();
// чее=Истина;
КонецПроцедуры
0
Отклики (1)