Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Проблема с Штрихкодом на коробке!!!  (Прочитано 6557 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Farhad
Гость
« : 20-03-2008 11:21 » 

Один программист программировал вот это для нас:

Код:
Функция СШКНеизвестныйКод(Штрихкод, ТипКода, СШК) Экспорт
 
СтрокаШК = "";
стр="0123456789";
Если ТипКода =   ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
Для М=1 по стрдлина(Штрихкод)Цикл
сим = Сред(Штрихкод,М,1);
Если найти(стр,сим)>0 тогда
СтрокаШК=СтрокаШК+сим;
ИначеЕсли СтрДлина(СтрокаШК)>0 И Сим=" " Тогда
//Это ШК
Прервать;

КонецЕсли;
КонецЦикла;
Если НЕ СтрокаШК="" Тогда
Эл=Справочники.Номенклатура.НайтиПоНаименованию(СтрокаШК, истина);
Если НЕ Эл=Справочники.Номенклатура.ПустаяСсылка() тогда
Ответ = СШКНоменклатура(Эл, , , Справочники.Качество.Новый, Эл.ЕдиницаХраненияОстатков, 6, СШК);
Возврат Ответ;
КонецЕсли;
КонецЕсли;

КонецЕсли;
Возврат Ложь;


КонецФункции // СШКНеизвестныйКод()
Но работает это не так как надо!
Каждый раз, когда сканировать один и тоже товар, он прибавляет на новую строку!!! Как это решить?
Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 20-03-2008 11:56 » 

судя по всему где-то здесь
Код:
Если НЕ СтрокаШК="" Тогда
Эл=Справочники.Номенклатура.НайтиПоНаименованию(СтрокаШК, истина);
Если НЕ Эл=Справочники.Номенклатура.ПустаяСсылка() тогда
Ответ = СШКНоменклатура(Эл, , , Справочники.Качество.Новый, Эл.ЕдиницаХраненияОстатков, 6, СШК);
Возврат Ответ;
КонецЕсли;

а вернее, здесь?
   Ответ = СШКНоменклатура(Эл, , , Справочники.Качество.Новый , Эл.ЕдиницаХраненияОстатков, 6, СШК);
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Kivals
Модератор

ca
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 20-03-2008 12:03 » new

Пройдись отладчиком - посмотри где именно добавляется строка, посмотри какие условия при этом выполняются.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines