Регистры = СоздатьОбъект("Регистры");
       РегВалД = Регистры.ВаловыйДоходНовый;
       РегСеб = Регистры.Себестоимость;    
       Рег = Регистры.ОстаткиТоваров;            
       Если ИтогиАктуальны() = 0 Тогда    
           Регистры.Актуальность(1);
           Регистры.РассчитатьРегистрыНа(ТекущийДокумент());
       КонецЕсли;
РегВалД.Клиент = ДокументОснование.Контрагент;
           РегВалД.Номенклатура = ДокументОснование.Наименование;
           РегВалД.Количество = ДокументОснование.Количество;
           //РегВалД.Сумма = ДокументОснование.Сумма;
           РегВалД.Сумма = ДокументОснование.Сумма - Себестоимость*ДокументОснование.Количество;
           РегВалД.Документ = глНайтиКорень(ТекущийДокумент());    
           РегВалД.Сотрудник = ДокументОснование.Сотрудник;    
           РегВалД.ДвижениеВыполнить();  

ошибка, как в топике
"Галка" оперативный учет стоит.
на движение регистров остатка не ругается.

(0) Если почитаешь букварь, то увидишь, что с помощью объекта Регистры нельзя делать движения.

(0) надо не создатьОбъект, а просто Регистр.ВаловыйДоходНовый.Клиент =......

(2)Спасибушки огромное сам об этом начал думать