Имя: Пароль:
1C
1С v8
Групповое присвоение ШК через номенклатуру
,
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) поступил по совету друзей. отправил