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

16.08.21

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

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

Файлы

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

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

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

В магазинах самообслуживания "случаются" недостачи товаров. И если это не маркированный товар, то тут нет проблем. Но в магазинах, торгующих алкоголем, необходимо, чтобы учёт совпадал с ЕГАИС. Поэтому мной ещё для 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С:Бухгалтерии по ГОЗ в соответствии с 275-ФЗ. Готовое решение для учета госконтрактов, формирования отчетности и контроля исполнения. Поддержка военной приемки, НИОКР и требований Минпромторга. Профессиональный консалтинг и регулярные обновления продукта

30000 руб.

28.08.2020    483709    3009    140    

1219

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

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

55200 руб.

16.08.2019    98567    283    91    

166

Обмен с ГосИС Бухгалтер Пользователь 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С с ГИИС ДМДК. Государственная интегрированная информационная система в сфере контроля за оборотом драгоценных металлов, драгоценных камней и изделий из них на всех этапах этого оборота.

72000 руб.

12.04.2022    23176    186    34    

49

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

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

8970 руб.

15.12.2015    178278    1181    374    

414

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

Рабочее место для работы с ЭДО из 1С. Загрузка и отправка УПД, УКД, ТОРГ12, Акта в 1С (сохранение в файл и последующая загрузка через личный кабинет не требуется). Также поддерживается: отправка печатных форм, произвольных файлов, подписание, отклонение, аннулирование документов. Поддержка МЧД. Решение реализовано в виде расширения на управляемых формах. Для обычных форм - внешняя обработка. Поддержка Linux.

5520 руб.

16.12.2020    44610    270    199    

97

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

Решение создано для помощи разработчикам, интеграторам и другим заинтересованным лицам по настройке системы маркировки обуви, одежды, лекарств, табака, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин. Задавайте вопросы по работе с ЦРПТ, GS1, ЭДО, Национальным каталогом, накоплен опыт и знания по данным темам.

24000 руб.

18.03.2019    117107    41    115    

187
Для отправки сообщения требуется регистрация/авторизация