Перейти к содержимому

Перейти
Перейти

Штрих код


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 7

#1   bohdan24

bohdan24

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 14-November 17

Отправлено 14 November 2017 - 21:38

1С Предприятие 8.3 Как автоматически создать несколько штрих кодов или ко всему списку номенклатуры?


  • 0

#2   egor1201

egor1201

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 22-November 17

Отправлено 22 November 2017 - 20:02

Вроде по одному

 


  • 0

#3   Viktor Kondratenko

Viktor Kondratenko

      Рядовой

    • Пользователи
    • Сообщений: 4
    • Регистрация: 17-September 14

Отправлено 05 January 2018 - 12:45

Нужно написать обработку и сгенерировать штрихкода


  • 0

#4   irinus@yandex.ru

irinus@yandex.ru

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 14-February 18

Отправлено 14 February 2018 - 07:50

есть готовые обработки пишите irinus@ya.ru могу прислать


  • 0

#5   Real1tyman

Real1tyman

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 20-April 18

Отправлено 20 April 2018 - 08:41

Отправьте и мне
  • 0

#6   Оксана Ковальчук

Оксана Ковальчук

      Рядовой

    • Пользователи
    • Сообщений: 4
    • Регистрация: 15-May 18

Отправлено 15 May 2018 - 10:15

здравствуйте, отправте мне ok__ter@ukr.net


  • 0

#7   Vladimir_877

Vladimir_877

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 07-June 18

Отправлено 13 June 2018 - 06:57

Это расширение типовой обработки печати этикеток и ценников, в которую добавлен механизм генерации штрихкодов на список номенклатуры по отбору.

Доработка выполнена как расширение типовой конфигурации Розница 2.2.

Что такое расширение и с чем его едят https://infostart.ru/public/442003/

Установить расширение можно как в режиме предприятия, так и в конфигураторе.

В режиме 1С:Предприятие устанавливается след. образом:

на основное меню (слева вверху кружок желты) - Все функции - Стандартные - Управление раширениями.... нажимаем добавить, выбираем скаченный файл, перезагружаем 1С, пользуемся (см. скриншоты).

ЧТО ДОБАВЛЕНО В ТИПОВОЙ ФУНКЦИОНАЛ:

В меню по кнопке "Установить" добавлена новая позиция меню "Установить штрихкоды...", по нажатию на неё происходит формирование штрихкодов по ВЫДЕЛЕННЫМ позициям номенклатуры из табличной части.

Если в таб. части присутствуют строки с характеристиками, то ШК будут сформированы в разрезе характеристик.

https://infostart.ru/public/722853/

 


  • 0

#8   afatman

afatman

      Рядовой

    • Пользователи
    • Сообщений: 4
    • Регистрация: 11-September 18

Отправлено 12 September 2018 - 19:43

На 1c8 x64 компонента ШтрихКод не работает.

 

Вышли из положения нарытой в инете процедуркой по получению изображения штрихкода с помощью онлайн сервисов:

Функция ПолучитьКартинкуШтрихКода(ШтрихКод, ИмяФайла = Неопределено) Экспорт     
	
	Попытка       
		
		WinHttp = Новый COMОбъект("WinHttp.WinHttpRequest.5.1"); //WinHttpRequest
		Stream = Новый COMОбъект("ADODB.Stream"); //Stream (ADO)
		

		Адрес = "https://barcode.tec-it.com/barcode.ashx?translate-esc=off&data=" + ШтрихКод + "&code=Code128&unit=Fit&dpi=300&imagetype=PNG&rotation=0&color=000000&bgcolor=FFFFFF&qunit=Mm&quiet=0";
		//Адрес = "https://www.barcodesinc.com/generator_files/image.php?code="+КодТовара+"&style=196&type=C128B&width=200&height=60&xres=2&font=3";
                //Адрес = "http://www.calc.ru/generator-shtrikh-kodov/download.php?code="+КодТовара+"&type=code128";
		
		Если ИмяФайла = Неопределено Тогда
			ИмяФайла = ПолучитьИмяВременногоФайла(".png");
		Конецесли;
		
		WinHttp.Open("GET", Адрес, Ложь);
		WinHttp.Send();
		
		Если WinHttp.Status = 200 Тогда
			Stream = Новый COMОбъект("ADODB.Stream");
			Stream.Type = 1;
			Stream.Mode = 3;
			Stream.Open();
			Stream.Write(WinHttp.ResponseBody); 
			Stream.SaveToFile(ИмяФайла, 2);
			Stream.Close();
			Stream = Неопределено;
			Возврат ИмяФайла;
		Иначе
			Сообщить("HTTP " + WinHttp.Status + " " + WinHttp.StatusText);
			Возврат ИмяФайла;
		КонецЕсли;
		
	Исключение
		Сообщить("Ошибка подключения к серверу! Проверьте интернет-соединение!
		|" + ОписаниеОшибки());
		Возврат "";
	КонецПопытки;
	
КонецФункции

  • 0



Похожие темы

  Название темы Автор Статистика Последнее сообщение



Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных