Ловите 20%-18% конвертор для Бух 7.7! - просто скопировать и запустить!

"Процедура Сформировать()

НДС=СоздатьОбъект("Справочник.СтавкиНДС");

НДС.ВыбратьЭлементы();

Если НДС.НайтиПоРеквизиту("Ставка",18,1)=1 Тогда

НДС18=НДС.ТекущийЭлемент();

Иначе

НДС.Новый();

НДС.Ставка=18;

НДС.Наименование="18%";

НДС.Записать();

НДС18=НДС.ТекущийЭлемент();

КонецЕсли;                

Спр=СоздатьОбъект("Справочник.Номенклатура");

Спр.ВыбратьЭлементы();                        

Пока Спр.ПолучитьЭлемент()=1 Цикл

   Если Спр.ТекущийЭлемент().ЭтоГруппа()=1 Тогда

Продолжить;

КонецЕсли;

Если Спр.ТекущийЭлемент().СтавкаНДС.Получить('01.01.2004').Ставка=20 Тогда

   Спр.СтавкаНДС.Установить('01.01.2004',НДС18);

Спр.Записать();

КонецЕсли;

КонецЦикла;

КонецПроцедуры"

МОЛОДЕЦ!!!

можно было бы и для ТиС бросить



кстати, интересно как-то — в ТиС вместо справочника "Ставки НДС" есть Перечисление.СтавкиНДС



вот гемор



зато СтавкиНП справочник, а не перечисление!



как?

такие вот 1С'овцы засЛанцы...............