Имя: Пароль:
1C
1С v8
v8: ЕдиницыИзмерения программно добавить вес
0 Popkorm
 
28.05.13
20:02
не ногу понять во внешней обработке на форме работает:
НайденаЕдиница = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("кг", Истина, ,НайдНоменклатура);
   Если НайденаЕдиница = Справочники.ЕдиницыИзмерения.ПустаяСсылка() Тогда
       НоваяЗапись = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
       НоваяЗапись.Наименование = "кг";
       НоваяЗапись.ЕдиницаПоКлассификатору = ПолучитьБазовуюЕдиницу("166");
       НоваяЗапись.Коэффициент = 1;
       НоваяЗапись.Вес         = 1;////////////
       НоваяЗапись.Владелец = НайдНоменклатура;
       НоваяЗапись.Записать();
       НайденаЕдиница = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("кг", Истина, ,НайдНоменклатура);
       Возврат НайденаЕдиница;
   Иначе
       Возврат НайденаЕдиница;
   КонецЕсли;


а через Модуль обекта не работает через

Процедура Инициализировать(
1 Aprobator
 
28.05.13
20:04
Экспорт небось потерял.
2 Popkorm
 
28.05.13
20:08
(1) все есть :
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПолеОбъекта) Экспорт
   ФормаВыбора = ПолучитьФорму("Форма");
   Если Не ЗначениеЗаполнено(Объект.Контрагент) Тогда
       Предупреждение("Не заполнено поле <Контрагент>");
       Возврат;
   КонецЕсли;

Обработка рабочая,просто надо в Единицах Вес поставить
3 Popkorm
 
28.05.13
20:20
апну.....
4 Aprobator
 
28.05.13
20:27
(2) это что еще за ребус?
5 Aprobator
 
28.05.13
20:29
Не иначе, внешняя обработка заполнернния ТЧ. Тока вот каким боком тут ПолучитьФорма?
6 Popkorm
 
28.05.13
20:36
(5) да нет, коэффициент проставляется а вес нет
7 Aprobator
 
28.05.13
20:38
(6) это вот на какой вопрос ответ был?
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший