Инвентаризация акцизных марок

16.08.21

Учетные задачи - Логистика, склад и ТМЦ

Инвентаризация акцизных марок + Веб Сервис + Приложение на Андроид

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Инвентаризация акцизных марок:
.epf 36,60Kb
5
5 Скачать (1 SM) Купить за 1 850 руб.
Сверка марок в наличии с остатками товаров
.erf 6,35Kb
3
3 Скачать (1 SM) Купить за 1 850 руб.

В магазинах самообслуживания "случаются" недостачи товаров. И если это не маркированный товар, то тут нет проблем. Но в магазинах, торгующих алкоголем, необходимо, чтобы учёт совпадал с ЕГАИС. Поэтому мной ещё для 1с8 Розницы 1.0 была написана простенькая обработка (ПроверитьСоответствиеОстатковТоваровСНоменклатуройЕГАИС.erf). При обнаружении недостачи или пересорта определённого вида товара, на компьютере запускалась обработка (ИнвентаризацияАкцизныхМарок.epf), загружались акцизные марки из регистра сведений. Далее бутылки несли к компьютеру и сканировались. 

 

 

"Помощником корректировки остатков ЕГАИС" управляющие магазином отказались пользоваться категорически. Поэтому при переходе на Розницу редакция 2.3 (2.3.9.28) обработки были перенесены на УФ. 

Далее хотелось передавать данные на смартфон, дабы не носить бутылки из подсобного помещения. Я решил сохранять список марок во временный файл, а путь к файлу выводить на экран в виде qr-кода.

 

            
&НаКлиенте
Процедура ОтправитьДанные(Команда)      
	
	Если ЗначениеЗаполнено(Объект.АдресХранилищаМарок) Тогда
		ВыбФайл = Новый Файл(Объект.АдресХранилищаМарок);		
		Если ВыбФайл.Существует() Тогда
			УдалитьФайлы(Объект.АдресХранилищаМарок); 	
		КонецЕсли;
	КонецЕсли;
		
	МассивМарок = Новый Массив;   
	Для Каждого Стр Из МаркиВНаличии Цикл 
		МассивМарок.Добавить(ПолучитьАМ(Стр.АкцизнаяМарка));
	КонецЦикла;
	Объект.АдресХранилищаМарок	= ОтправитьНаСервере(МассивМарок); 

	СформироватьДанныеQRКода(Объект.АдресХранилищаМарок);
	
КонецПроцедуры

&НаСервере
Функция ОтправитьНаСервере(МассивМарок)
	
	АдресХранилищаМарок = ПолучитьИмяВременногоФайла();
	
	ЗаписьJSON = Новый ЗаписьJSON;
	ЗаписьJSON.ОткрытьФайл(АдресХранилищаМарок);
	 
	СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON, МассивМарок, НазначениеТипаXML.Явное);
	
	СериализованнаяСтрока = ЗаписьJSON.Закрыть();   
	
	Возврат АдресХранилищаМарок;
	
КонецФункции

&НаСервере
Процедура СформироватьДанныеQRКода(Идентификатор)
	
	ИдентификаторQRКода = Идентификатор;
	ДанныеQRКода = ПоместитьВоВременноеХранилище(
		ГенерацияШтрихкода.ДанныеQRКода(
			Идентификатор,
			0,
			190),
		ЭтотОбъект);
		
КонецПроцедуры

 

 

 

На смартфоне считываем qr-код файла с марками и отправляем его Веб сервису, чтобы получить список марок.

 

 

Первая кнопка сканировать задание


&НаКлиенте
Процедура СкнироватьЗадание(Команда)      
	
	ОчиститьСообщения();
	
	ДополнительныеПараметры = Новый Структура;
	ДополнительныеПараметры.Вставить("Форма", ЭтотОбъект);
	ДополнительныеПараметры.Вставить("КодQR", Истина);
	ДополнительныеПараметры.Вставить("ИмяОбработчикаЗакрытияСканирования", "ОбработкаЗакрытияСканирования");
	
	ПодключаемоеОборудованиеКлиент.ПолучитьШтрихкод(ДополнительныеПараметры);    
	
КонецПроцедуры

Вторая кнопка

 


#Область ВебСерверПолучить 

&НаСервере
Функция ПолучитьМаркиНаСервере(АдресМарок)
	
	User	= ЗначениеНастроек.ПолучитьЗначениеКонстанты("Пользователь");
	Pass	= ЗначениеНастроек.ПолучитьЗначениеКонстанты("Пароль");
       
	АдресСервера	= ЗначениеНастроек.ПолучитьЗначениеКонстанты("АдресСервера");    
	ИмяПубликации	= ЗначениеНастроек.ПолучитьЗначениеКонстанты("ИмяПубликации");//"Svr";
	ВебСервис		= ЗначениеНастроек.ПолучитьЗначениеКонстанты("ИмяВебСервиса");//"Stock";      
	
	ВебОпределение	= "/"+ИмяПубликации+"/ws/"+ВебСервис+".1cws?wsdl";	
	
	Определение = Новый WSОпределения("http://"+АдресСервера+ВебОпределение,User,Pass);

	Прокси = Новый WSПрокси(Определение, "http://localhost/"+ВебСервис, ВебСервис, ВебСервис+"Soap");
	Прокси.Пользователь = User;
	Прокси.Пароль 		= Pass;     
	
	Возврат Прокси.GetData(АдресМарок);    

КонецФункции

&НаКлиенте
Процедура ПолучитьМарки(Команда)      
	
	АдресМарок	= ЗначениеНастроек.ПолучитьЗначениеКонстанты("АдресХранилища");	
	СтрокаМарок = ПолучитьМаркиНаСервере(АдресМарок);
	МассивМарок	= СтрРазделить(СтрокаМарок,";");

	ОтправитьМаркиВХранилище(МассивМарок);    
	
КонецПроцедуры    

&НаСервере
Процедура ОтправитьМаркиВХранилище(МассивМарок)

	ТМарки = Новый ТаблицаЗначений;
	ТМарки.Колонки.Добавить("Марка",  	Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(200)));
	ТМарки.Колонки.Добавить("Количество",    Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(3, 0)));
	
	Для Считать=1 По МассивМарок.Количество()  Цикл 
		НоваяСтрока = ТМарки.Добавить();
		НоваяСтрока.Марка = МассивМарок[Считать-1];
		НоваяСтрока.Количество	= 0;		
	КонецЦикла;
	
	Константы["ТаблицаМарок"].Установить(Новый ХранилищеЗначения(ТМарки));

КонецПроцедуры	

#КонецОбласти
 

 

Веб сервис состоит из 2х процедур. Первая отправляет файл с марками, вторая получает марки со смртфона и записывает в тот же файл.

 


Функция GetData(ЗапросСайта)
	
	Возврат ПрочитатьФайлНаСервере(ЗапросСайта);
	
КонецФункции    

&НаСервере
Функция ПрочитатьФайлНаСервере(ЗапросСайта)
	
	ЧтениеJSON = Новый ЧтениеJSON;

	ЧтениеJSON.ОткрытьФайл(ЗапросСайта);
		
	МассивМарок = СериализаторXDTO.ПрочитатьJSON(ЧтениеJSON);	
	
	ЧтениеJSON.Закрыть();
		
	Возврат СтрСоединить(МассивМарок,";");
	
КонецФункции    

Функция PutData(АдресХранилища, СтрМассивМарок)      
	
	Возврат ЗаписатьФайлНаСервере(АдресХранилища,СтрМассивМарок);

КонецФункции

&НаСервере
Функция ЗаписатьФайлНаСервере(АдресХранилища,СтрМассивМарок) 
	
	МассивМарок	= СтрРазделить(СтрМассивМарок,";");
	
	ЗаписьJSON = Новый ЗаписьJSON;
	ЗаписьJSON.ОткрытьФайл(АдресХранилища);
	 
	СериализаторXDTO.ЗаписатьJSON(ЗаписьJSON, МассивМарок, НазначениеТипаXML.Явное);
	
	СериализованнаяСтрока = ЗаписьJSON.Закрыть();   
	
	Возврат "1";

КонецФункции


Далее отсканированные марки читаем из файла, который отправил нам смартфон.

&НаКлиенте
Процедура ПолучитьДанные(Команда)
	
	МаркиИзХранилища	= ПолучитьДанныеНаСервере(Объект.АдресХранилищаМарок); 

	Для Считать=0 По МаркиИзХранилища.Количество()-1 Цикл 
		
		ПараметрыОтбора = Новый Структура;
		ПараметрыОтбора.Вставить("ШтрихКодМарки", МаркиИзХранилища[Считать]);
		НайденнаяСтрока = ЭтаФорма.МаркиВНаличии.НайтиСтроки(ПараметрыОтбора);
		
		Если НайденнаяСтрока.Количество() = 0 Тогда
			//Сообщение.Текст	= НСтр("ru = 'Марка не найдена!';"
			//+ " en = 'Article not found!'");
			//Сообщение.Сообщить();
		Иначе
			НайденнаяСтрока[0].Проверена	= Истина;
		КонецЕсли;
	КОнецЦикла;
	
	
КонецПроцедуры

Тестирование производилось на 1С:Предприятие 8.3 (8.3.19.1150). Розница, редакция 2.3 (2.3.9.28), IIS, SQL.

Обработка отчёт Инвентаризация акцизных марок + Веб Сервис +Приложение на Андроид

См. также

Обмен с ГосИС Бюджетный учет Регламентированный учет и отчетность Бухгалтер Пользователь Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление холдингом Химическая промышленность Государственные, бюджетные структуры Электротехника и микроэлектроника Машиностроение и приборостроение Металлургическая промышленность Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Раздельный учет гособоронзаказа в 1С: Отчеты по исполнению госконтрактов, расчетно-калькуляционные материалы и контроль операций для исполнения в срок в 1С: Бухгалтерия 3.0 и Управление Холдингом 3.2. Простая настройка и полное соответствие законодательству. Профессиональный консалтинг и регулярные обновления продукта.

44000 руб.

28.08.2020    357369    2388    137    

1061

Бюджетный учет Обмен с ГосИС Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Государственные, бюджетные структуры Россия Бухгалтерский учет Платные (руб)

Доработка конфигурации 1С:Бухгалтерия предприятия, редакция 3.0. реализована в виде расширения. Предназначена для ведения раздельного учета и автоматизации заполнения отчетности исполнения контрактов ГОЗ в конфигурациях 1С БП КОРП, ПРОФ, Базовая, БИТ.ФИНАНС.

55200 руб.

16.08.2019    93393    248    87    

143

Оптовая торговля Розничная торговля Обмен с ГосИС Бухгалтер Платформа 1С v8.3 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Автоматизация учета ЕГАИС в 1С для оптовой торговли, производства и импорта. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

828 руб.

15.12.2015    171964    854    368    

404

Обмен с ГосИС Бухгалтер Пользователь 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Ювелирная промышленность и торговля Россия Управленческий учет Платные (руб)

Интеграция для работы 1С с ГИИС ДМДК. Государственная интегрированная информационная система в сфере контроля за оборотом драгоценных металлов, драгоценных камней и изделий из них на всех этапах этого оборота.

65000 руб.

12.04.2022    17210    142    30    

30

SALE! 10%

Перенос данных 1C Взаиморасчеты Оптовая торговля Логистика, склад и ТМЦ Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Управленческий учет Платные (руб)

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Предлагаем качественное и проверенное временем решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам. При выходе новых релизов конфигураций 1C оперативно выпускаем обновление переноса данных.

55778 50200 руб.

24.04.2015    196476    157    244    

287

Обмен с ГосИС Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х Россия Бухгалтерский учет Платные (руб)

Обработка для обмена платежными документами в формате xml для системы Федерального казначейства "Электронный бюджет" из конфигураций 1С. Поставляется для БП 3.0 Работа только с контрагентами.

19200 руб.

14.10.2020    63810    387    103    

318
Оставьте свое сообщение