|   |   | 
| 
 | Групповое присвоение ШК через номенклатуру | ☑ | ||
|---|---|---|---|---|
| 0
    
        pnamik 01.03.15✎ 23:31 | 
        самописная, 1С8.0.18.2
 Через номенклатуру какой процедурой (через групповые обработки) можно присвоить сразу нескольким товарам ШК? http://prntscr.com/6bhon7 в самой конфе получение ШК для товара происходит через форму элемента с помощью процедуры (которая в случае выше бездействует) Процедура кнСгенерироватьНажатие(Элемент) ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); ЭлементыФормы.ТекШтрихКод.Маска = обСформироватьМаскуШтрихКода(ВидШтрихКода); ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Код,ВидШтрихКода); Если ЭтоНовый() = Ложь Тогда ОбновитьИзображениеЭтикетки(ТекМакет); КонецЕсли; КонецПроцедуры | |||
| 12
    
        nordbox 02.03.15✎ 13:20 | 
        (11) а что ты у меня про ето спрашиваешь? )))
 Это вопрос к (0) это он там какие то непонятные заклинания над базой делает. | |||
| 13
    
        nordbox 02.03.15✎ 13:21 | 
        +12 наверное хочет большую красную кнопку на весь экран "СДЕЛАТЬ ВСЁ"     | |||
| 14
    
        Garykom гуру 02.03.15✎ 13:25 | 
        (13) дык уже делаю... Внешняя обработка "Сделать ВСЕ" ))     | |||
| 15
    
        nordbox 02.03.15✎ 13:28 | 
        (14) Ну извини, я не видел раньше )))     | |||
| 16
    
        pnamik 02.03.15✎ 13:43 | 
        (10) после загрузки из эксель товары появляются в папке со сквозной нумерацией типа 1, 2, 3. этих товаров иногда бывает очень много. Каждый товар открыть в номенклатуре и присвоить шк , это долго. вот поэтому и нужно , чтобы сразу шк присвоили прямо в номенклатуре после сформирования прих.накладной     | |||
| 17
    
        Garykom гуру 02.03.15✎ 13:51 | 
        (16) исправь загрузку из екселя...     | |||
| 18
    
        nordbox 02.03.15✎ 13:52 | 
        (16) Ну пункт первый это то что ШК генирить можно при загрузке.
 Пункт второй у загружаемой номенклатуру у же может быть ШК пункт третий ШК присваевается ед измерения далее по тексту | |||
| 19
    
        pnamik 02.03.15✎ 13:59 | 
        (18) пути реализации мне непонятны. понимаю, что в обработке можно сразу кнопку сгенерировать шк. только таким образом, чтобы было в формате базы, чтобы не присвоил одинаковых шк, если уже товар есть в базе, присвоил (брал из базы) старый шк или предлагал пользователю выбирать, что делать. в общем это теория     | |||
| 20
    
        pnamik 02.03.15✎ 14:01 | 
        думаю, не в загрузке, а в номенклатуре это можно осуществить, но как? придется много много читать и тренироваться похоже     | |||
| 21
    
        nordbox 02.03.15✎ 14:06 | 
        Ты сам то понял????
 >>>присвоил (брал из базы) старый шк или предлагал пользователю выбирать Накладная 100500 позиций???? ШК присваевается по другому Есть Номенклатура ей подчинен Ед измерения у него ШК Товар Штук ШК 123 Товар Бут ШК 321 Товар Литр ШК 555 Товар КвадратныйКубоЛитр ШК 777 Посмотри как в УТ сделано, просто и сердито. | |||
| 22
    
        nordbox 02.03.15✎ 14:07 | 
        у тебя юзверь поле первой накладной
 >>или предлагал пользователю выбирать Озвереет и пошлет тебя в далекое сексуальное путешествие | |||
| 23
    
        nordbox 02.03.15✎ 14:08 | 
        + а плюс еще у разных поставщиков одного товара может быть разный ШК     | |||
| 24
    
        nordbox 02.03.15✎ 14:08 | 
        +партии разные     | |||
| 25
    
        nordbox 02.03.15✎ 14:09 | 
        Ты в торговле вообще работал когда нибудь?????     | |||
| 26
    
        pnamik 02.03.15✎ 14:20 | 
        (25) ты чего сердишься? если не знаешь нашу самописку. причем тут ут? упп? или еще какая то конфа? успокойся. дай знать я тебе постараюсь объяснить как устроена наша конфа     | |||
| 27
    
        hhhh 02.03.15✎ 14:25 | 
        (26) выкладывай уже свою конфу.     | |||
| 28
    
        Garykom гуру 02.03.15✎ 14:27 | 
        (27) не надо...я же если увижу (любопытство заставит) что там ужас потом не засну ;)     | |||
| 29
    
        pnamik 02.03.15✎ 14:55 | 
        (27) зачем?     | |||
| 30
    
        pnamik 02.03.15✎ 14:56 | 
        (28) к конфе прилагается колыбельная     | |||
| 31
    
        Garykom гуру 02.03.15✎ 14:59 | 
        (30) а с каким размером эта "колыбельная"?     | |||
| 32
    
        pnamik 02.03.15✎ 15:01 | 
        (31) размеры разные, каждому свое как говорится     | |||
| 33
    
        pnamik 02.03.15✎ 15:02 | 
        если есть желание помочь или подсказать, пожалуйста, буду рад     | |||
| 34
    
        nordbox 02.03.15✎ 15:18 | 
        pnamik, тут твоя база колыбельная не нужна
 ты cf выложи а тут уж разберемся )) | |||
| 35
    
        BigShmax 02.03.15✎ 15:19 | 
        (26)  -  если не знаешь нашу самописку. причем тут ут? упп? или еще какая то конфа? успокойся. дай знать я тебе постараюсь объяснить как устроена наша конфа
 (29) и как осуществить (33) не понятно. | |||
| 36
    
        nordbox 02.03.15✎ 15:21 | 
        (0) +34 тут телепатов нет     | |||
| 37
    
        nordbox 02.03.15✎ 15:27 | 
        (0) Анекдот есть:
 ....Нам на бронепоезд установили радиостанцию ... -Василий Иваныч, а радиостанция на лампах или на транзисторах? -Для тупых повторяю, на бронепоезде... У тебя вот эти произведения где???? >>обСформироватьМаскуШтрихКода(ВидШтрихКода); >>обСформироватьШтрихкод(ПрефискШтрихКода,Код,ВидШтрихКода); | |||
| 38
    
        pnamik 02.03.15✎ 15:29 | 
        я же выложил ту процедуру,с помощью которой товар получает шк в форме элемента. просил помочь осуществить то же самое для группы товаров. если нужна еще другая часть, которая могла бы помочь вам, чтобы мне подсказали, готов.     | |||
| 39
    
        nordbox 02.03.15✎ 15:31 | 
        Ты выложил кнСгенерироватьНажатие(Элемент)
 Это ни о чём........ Вот где находятся ФИЗИЧЕСКИ в КАКОМ МОДУЛЕ то что я у тебя спросил???? или я догадаться должен???? | |||
| 40
    
        nordbox 02.03.15✎ 15:32 | 
        а лучше CF давай если не оч большой, мыло в подмыльнице есть     | |||
| 41
    
        nordbox 02.03.15✎ 15:34 | 
        где и в каком виду у тебя хранятся ШК 
 тоже догадываться???? | |||
| 42
    
        nordbox 02.03.15✎ 15:37 | 
        если надумаешь CF отправлять его размер сначала озвуч     | |||
| 43
    
        palpetrovich 02.03.15✎ 16:09 | 
        (0) нарисуй обработку, в поцедуру кнопки код:
 Процедура КнопкаЗаполнитьШК(Кнопка) Номенклатура = Справочники.Номенклатура; Отбор = Новый Структура("ШтрихКод"); Отбор.ШтрихКод = 0; // если ШтрихКод числовой Выборка = Номенклатура.Выбрать(,,Отбор); Пока Выборка.Следующий() Цикл Объект = Выборка.ПолучитьОбъект(); ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); //ВидШтрихКода = .....хз, что тут у тебя, сакм придумай Объект.ШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); Попытка Объект.Записать(); Исключение КонецПопытки; КонецЦикла; КонецПроцедуры если "ШтрихКод" - это реквизит спраовчника Номенклатура и он числовой + ты сможешь самостоятельно присвоить ВидШтрихКода верное значение - будет тебе щасте :) | |||
| 44
    
        pnamik 02.03.15✎ 16:43 | 
        (43) вот умница. пока нету возможности проверить. вечером обязательно проверю. и сообщу. это реальная попытка в помощи.     | |||
| 45
    
        pnamik 02.03.15✎ 16:49 | 
        (42) нашел в конфе в общем модуле несколько функций по шк. вечером если вариант (43) не получится, выложу эти функции     | |||
| 46
    
        pnamik 02.03.15✎ 17:02 | 
        вот они
 Функция обСформироватьШтрихкод(Префикс, ПредвКод, ВидШтрихКода) Экспорт Если ВидШтрихКода = Неопределено ИЛИ обЗначениеНеЗаполнено(ВидШтрихКода) Тогда ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13; КонецЕсли; ДлинаШтрихКода = обПолучитьДлинуШтрихКода(ВидШтрихКода); ИспКолво = ДлинаШтрихКода-СтрДлина(Строка(Префикс))-1; Штрихкод = СимволыВЦифры(Прав(СокрЛП(ПредвКод), ИспКолво)); Штрихкод = Строка(Префикс) + обДополнитьСтрокуЛ(Штрихкод, "0", ИспКолво); Возврат Штрихкод + обКонтрольныйСимволEAN(Штрихкод, ВидШтрихКода); КонецФункции // глСформироватьШтрихкод() Функция обПолучитьДлинуШтрихКода(ВидШтрихКода) Экспорт Результат = 0; Если ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN8 Тогда Результат = 8; ИначеЕсли ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13 Тогда Результат = 13; ИначеЕсли ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN128 Тогда Результат = 128; ИначеЕсли ВидШтрихКода = Перечисления.ВидыШтрихКодов.CODE128 Тогда Результат = 128; Иначе Результат = 0; КонецЕсли; Возврат Результат; КонецФункции // обПолучитьДлинуШтрихКода() // Функция позволяет сформировать маску ввода штрих-кода // // Параметры // ВидШтрихКода – Перечисления.ВидыШтрихКодов // // Возвращаемое значение: // Строка – маская для ввода штрих-кода в элементе управления формы // Функция обСформироватьМаскуШтрихКода(ВидШтрихКода) Экспорт Если ВидШтрихКода = Неопределено Тогда ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13; КонецЕсли; ДлинаШтрихКода = обПолучитьДлинуШтрихКода(ВидШтрихКода); стр = ""; Для сч =1 По ДлинаШтрихКода Цикл стр = стр +"9"; КонецЦикла; Результат = стр; Возврат Результат; КонецФункции // обСформироватьМаскуШтрихКода() | |||
| 47
    
        pnamik 02.03.15✎ 18:33 | 
        реализовал как в картинке (0) через групповые обработки "Установить ШК". присвоил процедуру (43)
 выдал ошибку, к сожалению {Справочник.Номенклатура.Форма.ФормаСписка(606)}: Поле объекта недоступно для записи (Отбор) Отбор = Новый Структура("ШтрихКод") | |||
| 48
    
        pnamik 02.03.15✎ 18:45 | 
        еще одна ошибка
 если это обработка {Форма.Форма(7)}: Ошибка при вызове метода контекста (Выбрать): Недопустимое значение параметра (параметр номер "3") Выборка = Номенклатура.Выбрать(,,Отбор); по причине: Недопустимое значение параметра (параметр номер "3") | |||
| 49
    
        palpetrovich 02.03.15✎ 18:49 | 
        (48) :) ...ну сделай так
 Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл если СокрЛП(Выборка.Штрихкод) <> "" тогда продолжить; КонецЕсли; Объект = Выборка.ПолучитьОбъект(); ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); Объект.ШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код); Попытка Объект.Записать(); Исключение КонецПопытки; КонецЦикла; | |||
| 50
    
        pnamik 02.03.15✎ 19:33 | 
        немного переделал, так выдавал ошибко (фактические параметры и т.д.)
 Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл если СокрЛП(Выборка.ТекШтрихкод) <> "" тогда продолжить; КонецЕсли; Объект = Выборка.ПолучитьОбъект(); ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13; Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); Попытка Объект.Записать(); Исключение КонецПопытки; КонецЦикла; это также выдает ошибку {Форма.Форма(13)}: Ошибка при установке значения атрибута контекста (ТекШтрихКод): Реквизит недоступен для группы Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); | |||
| 51
    
        pnamik 02.03.15✎ 19:33 | 
        наверно, какой-то цикл нужно для группы, типа если этаГруппа, то пропустить, и только для товаров присвоить шк     | |||
| 52
    
        nordbox 02.03.15✎ 19:46 | 
        (51) Вот смотрю на тебя и думаю.....
 ты в жизни такой же???? за тебя уже все сделали, неужели так трудно залезть в синтакс помощник.....??????? ЭтоГруппа (IsFolder) Использование: Только чтение. Описание: Тип: Булево. Позволяет определить, является ли элемент справочника группой. Доступность: Сервер, толстый клиент, внешнее соединение. Примечание: Истина - элемент является группой; Ложь - элемент не является группой. | |||
| 53
    
        pnamik 02.03.15✎ 20:14 | 
        Не помогает
 Если ДанныеСтроки.ЭтоГруппа = Ложь Тогда Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); КонецЕсли; ошибка {Справочник.Номенклатура.Форма.ФормаСписка(615)}: Значение не является значением объектного типа (ЭтоГруппа) Если ДанныеСтроки.ЭтоГруппа = Ложь Тогда | |||
| 54
    
        nordbox 02.03.15✎ 20:22 | 
        ооооо..... как все запущенно....
 Ну приделай уж куда нибудь Выборка.Ссылка.ЭтоГруппа=Истина можешь Ложь приделать, можешь НЕ (Выборка.Ссылка.ЭтоГруппа) и т.д. в зависимости от извращенности | |||
| 55
    
        nordbox 02.03.15✎ 20:24 | 
        +54 в своем коде можешь
 Объект.ЭтоГруппа=Истина | |||
| 56
    
        nordbox 02.03.15✎ 20:25 | 
        +55
 Если Объект.ЭтоГруппа = Ложь Тогда Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); КонецЕсли; | |||
| 57
    
        pnamik 02.03.15✎ 21:03 | 
        Эта процедура уже не дает никаких ошибок, также и ничего не делает.
 Процедура ДействияФормыУстановитьШК(Кнопка, ДанныеСтроки) Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл если СокрЛП(Выборка.ТекШтрихкод) <> "" тогда продолжить; КонецЕсли; Объект = Выборка.ПолучитьОбъект(); ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13; Если Объект.ЭтоГруппа = Ложь Тогда Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); КонецЕсли; Попытка Объект.Записать(); Исключение КонецПопытки; КонецЦикла; КонецПроцедуры | |||
| 58
    
        nordbox 02.03.15✎ 21:18 | 
        Ну хоршо
 Вот при выполнении этого кода что будет у тебя на экране??? Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Объект = Выборка.ПолучитьОбъект(); Сообщить(Объект.ТекШтрихКод); Сообщить(Объект.Наименование); КонецЦикла; | |||
| 59
    
        pnamik 02.03.15✎ 21:22 | 
        служебные сообщения, проверяет, по-моему, шк     | |||
| 60
    
        pnamik 02.03.15✎ 21:22 | 
        часть сл.сообщении
 Юбка женская RED ROSE 2000000602134 Юбка женская S&T 2000000602141 Юбка женская S&T 2000000602158 Юбка женская S&T 2000000602165 Юбка женская S&T 2000000302713 Юбка женская TSL 2000000505190 Юбка женская б/т.м. Юбки детские Юбки детские (торговые марки) Юбки детские K&S Юбки детские TIGABEAR Юбки детские ZHONG QING YISHENG Юбки женские Юбки женские (без торговых марок) Юбки женские (торговые марки) Юбки женские BEAUTYO Юбки женские FRANCOIS ST.CHARLES Юбки женские K&S Юбки женские LONG JIA YI Юбки женские MEI REN FANG Юбки женские NEW Юбки женские RED ROSE Юбки женские S&T 2000000309170 Яйцеварка (6 подставок+1 сеператор) МВ Ящики для инструментов | |||
| 61
    
        pnamik 02.03.15✎ 21:24 | 
        видно, что есть группы, есть товары со шк     | |||
| 62
    
        nordbox 02.03.15✎ 21:26 | 
        НУ Ииииии????????
 Мысли есть?????? Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Объект = Выборка.ПолучитьОбъект(); Если Объект.ЭтоГруппа=Ложь Тогда ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13; Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); Попытка Объект.Записать(); Исключение КонецПопытки; Сообщить(Объект.ТекШтрихКод); Сообщить(Объект.Наименование); КонецЕсли КонецЦикла; | |||
| 63
    
        Garykom гуру 02.03.15✎ 21:38 | 
        (62) настоящему программисту 1С даже исходники программы (сама конфа) не нужны чтобы допилить эту программу (конфу) ))     | |||
| 64
    
        nordbox 02.03.15✎ 21:46 | 
        (63) я уже не знаю что ему надо?????
 тут все по очереди сначала клещами из него вытягивали что и как, а потом по очереди ему в разных вариантах решения дали. Тут даже на школьную программу не тянет | |||
| 65
    
        pnamik 02.03.15✎ 21:47 | 
        (62) ты молодец, хоть немного нервничал, наверно из-за моих скудных знаний по 1С. Эта процедура проверяет всех товаров каждый раз. Все равно тебе спасибо, все благие мысли к тебе направляю. Но изначально задача была другая. через номенклатуру для определенных товаров, как в картинке,
 http://prntscr.com/6bv0cl присвоить шк через групповые обработки-установит шк. Как добиться успеха? | |||
| 66
    
        pnamik 02.03.15✎ 21:49 | 
        (64) когда знаешь что-то, тебе кажется, что это просто, почему другие не знают. не все также сильны в 1С, как ты, или другие участники форума, которые, иногда действительно, подсказывая, учат, делают доброе дело, а порой, открыто предлагают решения.     | |||
| 67
    
        pnamik 02.03.15✎ 21:50 | 
        то, что здесь пишется, в теории понимаю, а как реализовать??? Практики нет, опыта нет... поздно начал 1С     | |||
| 68
    
        nordbox 02.03.15✎ 21:59 | 
        (65) Замени 
 Если Объект.ЭтоГруппа=Ложь Тогда на Если (Объект.ЭтоГруппа=Ложь) И (СокрЛП(Строка(Объект.ТекШтрихКод))="") Тогда И будет тебе счастье | |||
| 69
    
        pnamik 02.03.15✎ 22:04 | 
        (68) ничего не происходит, не присваивает шк     | |||
| 70
    
        nordbox 02.03.15✎ 22:07 | 
        Входит в условие,
 Сделай так по драконовски: в место (СокрЛП(Строка(Объект.ТекШтрихКод))="") (СтрДлина(Объект.ТекШтрихКод))<13) | |||
| 71
    
        pnamik 02.03.15✎ 22:11 | 
        исправил так
 Если (Объект.ЭтоГруппа = Ложь)И(СтрДлина(Объект.ТекШтрихКод))<13) Тогда выдал ошибку {Справочник.Номенклатура.Форма.ФормаСписка(609,65)}: Ожидается ключевое слово 'Тогда' ('Then') Если (Объект.ЭтоГруппа = Ложь)И(СтрДлина(Объект.ТекШтрихКод))<13<<?>>)Тогда | |||
| 72
    
        nordbox 02.03.15✎ 22:12 | 
        детский сад
 (СтрДлина(Объект.ТекШтрихКод)<13) | |||
| 73
    
        pnamik 02.03.15✎ 22:18 | 
        (72) пока ты писал, пробовал разные варианты, не дошел до скобки, ты уже указал. присваивает тем, кого помечал. вот результат.
 http://prntscr.com/6bvkoc СПАСИБО ТЕБЕ. | |||
| 74
    
        nordbox 02.03.15✎ 22:36 | 
        (73) Только это не правильно ))))
 Ты учти что с такой проверкой Если Объект.ЭтоГруппа=Ложь Тогда Эта обормотка у тебя будет переприсваивать ШК всем подряд, даже той ной у которой он есть и будет присваивать именно ЕАN13 А если у тебя там например EAN8 уже у номенклатуры есть он его тоже EAN13 впиндюрит | |||
| 75
    
        nordbox 02.03.15✎ 22:38 | 
        +74 Тебе нужна проверка на наличие вообще какого либо ШК у номенклатуры.
 Тут целое поле деятельности, поспи, а это будет тебе завтрашнее домашнее задание ))) | |||
| 76
    
        pnamik 02.03.15✎ 22:56 | 
        (74) да... он присваивает не только тем, кого помечал, всем тем, у кого меньше 13. Половинчатый получается результат. В любом случае, помог в чем-то разобраться, немного учил, это уже хорошо. завтра не надеюсь на чудо в моих знаниях, но тем не менее, попробую тренироваться условиями, чтобы только для данной группы присвоение ШК было. т.к. из эксель все товары перемещаются в одну группу.     | |||
| 77
    
        nordbox 03.03.15✎ 07:34 | 
        (76) попробуй
 (СокрЛП(Строка(Объект.ТекШтрихКод.Значение))="") | |||
| 78
    
        palpetrovich 03.03.15✎ 10:10 | 
        мля, какой-такой ТекШтрихКод? замени:
 Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код); на Объект.ШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код); | |||
| 79
    
        pnamik 03.03.15✎ 11:55 | 
        (77) ошибку выдает
 {Справочник.Номенклатура.Форма.ФормаСписка(610)}: Значение не является значением объектного типа (Значение) Если (Объект.ЭтоГруппа=Ложь) И (СокрЛП(Строка(Объект.ТекШтрихКод.Значение))="") Тогда | |||
| 80
    
        palpetrovich 03.03.15✎ 12:10 | 
        (79)  если реквизит таки ТекШтрихКод:
 Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Если Объект.ЭтоГруппа тогда Продолжить; КонецЕсли; Если СокрЛП(Выборка.ТекШтрихКод) <> "" тогда Продолжить; КонецЕсли; Объект = Выборка.ПолучитьОбъект(); ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код); Попытка Объект.Записать(); Исключение КонецПопытки; КонецЦикла; | |||
| 81
    
        pnamik 03.03.15✎ 12:15 | 
        (80) ошибка  {Справочник.Номенклатура.Форма.ФормаСписка(609)}: Значение не является значением объектного типа (ЭтоГруппа)
 Если Объект.ЭтоГруппа тогда | |||
| 82
    
        nordbox 03.03.15✎ 12:18 | 
        Если Выборка.ЭтоГруппа тогда     | |||
| 83
    
        palpetrovich 03.03.15✎ 12:20 | 
        (82) да, объекта там еще нет, эт ошибка копи-пасте
 надо "Если Выборка.ЭтоГруппа тогда" | |||
| 84
    
        pnamik 03.03.15✎ 12:32 | 
        Совместиными усилиями получилось процедура следующая, которая ничего не делает. никаких изменений
 Номенклатура = Справочники.Номенклатура; Выборка = Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Если Выборка.ЭтоГруппа тогда Продолжить; КонецЕсли; Если СокрЛП(Выборка.ТекШтрихКод) <> "" тогда Продолжить; КонецЕсли; Объект = Выборка.ПолучитьОбъект(); ПрефискШтрихКода = Лев(Константы.ПрефиксыШтрихКодаШтучногоТовара.Получить(),2); ПрефискШтрихКода = СтрЗаменить(ПрефискШтрихКода," ","0"); ВидШтрихКода = Перечисления.ВидыШтрихКодов.EAN13; Объект.ТекШтрихКод = обСформироватьШтрихкод(ПрефискШтрихКода,Объект.Код,ВидШтрихКода); Попытка Объект.Записать(); Исключение КонецПопытки; КонецЦикла; //Сообщить(Объект.ТекШтрихКод); //Сообщить(Объект.Наименование); | |||
| 85
    
        pnamik 03.03.15✎ 12:33 | 
        Закомеентирован по причине ошибки
 {Справочник.Номенклатура.Форма.ФормаСписка(625)}: Значение не является значением объектного типа (ТекШтрихКод) Сообщить(Объект.ТекШтрихКод); | |||
| 86
    
        palpetrovich 03.03.15✎ 12:38 | 
        (85) млин, безнадега...
 в общем так, если хочешь получить результат - в меню конофигуратора выбери: конфигурация - сохранить конфигурацию в файл и полученный файл выложи на какой-нить файлообменник ссылку на него - сюда | |||
| 87
    
        pnamik 03.03.15✎ 12:40 | 
        Заменил строку
 Если СокрЛП(Выборка.ТекШтрихКод) <> "" тогда на Если СокрЛП(Строка(Выборка.ТекШтрихКод))="" тогда присвоила обработка шк всем, кому хотела, в том числе помеченным. | |||
| 88
    
        pnamik 03.03.15✎ 12:41 | 
        (86) могу дать доступ тв     | |||
| 89
    
        nordbox 03.03.15✎ 12:42 | 
        palpetrovich, там стопудово проблема
 в Если СокрЛП(Выборка.ТекШтрихКод) <> "" тогда Там надо получить Этот ШК сначала а потом Обрезать его надо для сравнения, а в данном случае обрезается напрямую реквизит про cf я его уже просил: партизан..... | |||
| 90
    
        pnamik 03.03.15✎ 12:42 | 
        (89) дам доступ прям к базе     | |||
| 91
    
        pnamik 03.03.15✎ 12:43 | 
        312 263 519
 1663 | |||
| 92
    
        palpetrovich 03.03.15✎ 12:51 | 
        (91) захожу     | |||
| 93
    
        palpetrovich 03.03.15✎ 12:53 | 
        отпусти мышку :)     | |||
| 94
    
        palpetrovich 03.03.15✎ 12:59 | 
        (91) Извини, мне твои телодвижения смотреть по ТВ неинтересно. Не хочешь - как хочешь     | |||
| 95
    
        nordbox 03.03.15✎ 13:09 | 
        palpetrovich, дык это мы в двоем там были что ли?     | |||
| 96
    
        nordbox 03.03.15✎ 13:10 | 
        )))) это уже групповух называется )))     | |||
| 97
    
        Garykom гуру 03.03.15✎ 13:14 | 
        (96) ка вы могли...бедного ТС... вдвоем...
 )) | |||
| 98
    
        palpetrovich 03.03.15✎ 13:40 | 
        (95) а, вон оно что :)  ну что, результат есть?   кста, успел заметить, ТекШтрихКод - таки реквизит ...забавно кто-то назвал     | |||
| 99
    
        nordbox 03.03.15✎ 13:44 | 
        ага, сделал ему
 там дел на 5 мин )))) | |||
| 100
    
        pnamik 03.03.15✎ 13:46 | 
        (89) умница сделал. Теперь голову ломаю как заставить обработку импортизЭксель заставить переместить товары в номенклатуру без ШК. моя обработка переносит только тогда когда хоть какая-то нумерация есть. Обработка УстановитьШК присваивает тем, у кого нет шк (поле пустое). а обработка импортизЭксель переносит те товары, поле шк котор непустой. дилемма.     | |||
| 101
    
        palpetrovich 03.03.15✎ 13:48 | 
        (99) кто-б сомневался :)
 (100) по-ходу ты тупо ищешь кто-б за тебя поработал | |||
| 102
    
        nordbox 03.03.15✎ 13:49 | 
        (100) Сдается мне что ты не мужского рода племени )))))     | |||
| 103
    
        pnamik 03.03.15✎ 13:50 | 
        (101) нет не ищу. просто проблема была озвучил. какой "полуавтомат" был, такой же остался. Только с другой стороны. Но это не означает, что недовольный я . Наоборот очень даже, научился чему.
 (102) с чего вдруг? | |||
| 104
    
        pnamik 03.03.15✎ 13:58 | 
        константировал, что nordbox помог, поблагодарил, и при этом я от начальной проблемы не избавился. Хотел автоматизировать процесс, описал ситуацию, поместил картинки. не получилось просто     | |||
| 105
    
        nordbox 03.03.15✎ 14:03 | 
        (104) Почему не мужского роду племени????   )))))
 Песня о настоящем индейце http://www.youtube.com/watch?v=SvqR_jbeil4 )))) | |||
| 106
    
        nordbox 03.03.15✎ 14:14 | 
        >>> а обработка импортизЭксель переносит те товары, поле шк котор непустой. дилемма.
 У тебя уже ответ есть на этот вопрос, напрягай мозги )))) а то точно таксу за такие вопросы брать будем ))) | |||
| 107
    
        pnamik 03.03.15✎ 14:15 | 
        (105) улыбнуло     | |||
| 108
    
        pnamik 03.03.15✎ 14:18 | 
        (106) про таксу погорячился наверно. мозги не те наверно, кроме приглашения еще раз ничего не приходит в голову     | |||
| 109
    
        pnamik 03.03.15✎ 14:30 | 
        9557     | |||
| 110
    
        nordbox 03.03.15✎ 15:21 | 
        (109) Ты чо делаешь то?????????
 вообще с дуба рухнул??????? комп снесут меньше чем за 30 секунд для этого в личке есть майл | |||
| 111
    
        pnamik 03.03.15✎ 15:31 | 
        (110) поступил по совету друзей. отправил     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |