Имя: Пароль:
1C
1C 7.7
v7: Запись ед измер при записи документа
0 serg-lom89
 
04.09.13
17:07
ВыбратьСтроки();
    Пока ПолучитьСтроку()>0 Цикл
        Если Материал.Выбран()=1 Тогда
            Если Материал.ЕдиницаИзмерения.Выбран()=1 тогда
                
            Иначе
                
                Сп_Мат=СоздатьОбъект("Справочник.Материалы");
                Если Сп_Мат.НайтиПокоду(Материал.Код)= 1 Тогда
                    Мат=Сп_Мат.ТекущийЭлемент();
                    Мат.ЕдиницаИзмерения=ЕдИз;        
                    Мат.Записать();
                КонецЕсли;    
            КонецЕсли;    
        Конецесли;
    КонецЦикла;
когда отгрузка на сторону идет,то в некоторых материалах нету ед.измерения,так добавил в Таб части документа колонку еденица измерения и при записи что бы в справочнике Материалы записывало его?
Пишет Элемент не выбран?что не так?Текущий же есть элемент?
1 Ёпрст
 
04.09.13
17:10
Полный ПЭ.
2 Ёпрст
 
04.09.13
17:10
всё в топку.
3 v4442
 
04.09.13
17:10
1 какая кофигурация
4 serg-lom89
 
04.09.13
17:11
типовуха жоработанная для завода
5 v4442
 
04.09.13
17:13
(4) 1с предприятие ? )))))
6 serg-lom89
 
04.09.13
17:14
(5) да)))
7 Ёпрст
 
04.09.13
17:15
Хотя бы так:

    Сп_Мат=СоздатьОбъект("Справочник.Материалы");
    ВыбратьСтроки();
    Пока ПолучитьСтроку()>0 Цикл
        Если ПустоеЗначение(Материал)+ПустоеЗначение(ЕдИз)=0 Тогда
            Если ПустоеЗначение(Материал.ЕдиницаИзмерения)=1 тогда
                Сп_Мат.НайтиЭлемент(Материал);        
                Сп_Мат.ЕдиницаИзмерения=ЕдИз;        
                Сп_Мат.Записать();
            КонецЕсли;    
        КонецЕсли;
    КонецЦикла;
8 v4442
 
04.09.13
17:16
(6) не нашел там такого справочника ))))
9 v4442
 
04.09.13
17:18
чему равно значение ЕдИз
10 serg-lom89
 
04.09.13
17:20
(9) это пользователь будет проставлять если в материалах не выбрана Еденица измерения
ЕдИз-справочник.ЕденицыИзмерения
11 Ыщъ
 
05.09.13
09:38
(7) Можно ещё сократить
12 Ёпрст
 
05.09.13
10:12
(11) не спорю
Есть два вида языков, одни постоянно ругают, а вторыми никто не пользуется.