Всем спасибо.Вроде бы разобрался.
На данный момент работает так:
ТекТовар = Товар;
ТекТовар.ИспользоватьДату(РабочаяДата());
ТекТовар.Записать();
Единицы = СоздатьОбъект("Справочник.Единицы");
Единицы.ИспользоватьВладельца(ТекТовар);
Единицы.Новый();
Единицы.Единица = Константа.ТипБазовойЕдиницыПоУмолчанию;;
Единицы.Коэффициент = 1;
Единицы.ШтрихКод = ТекТовар.ШтрихКод;
Единицы.ИспользоватьДату(рабочаяДата());
Единицы.Записать();
Пока хз правильно это или нет.В процессе работы узнаем