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

"Процедура Сформировать()<br><br>НДС=СоздатьОбъект("Справочник.СтавкиНДС");<br><br>НДС.ВыбратьЭлементы();<br><br>Если НДС.НайтиПоРеквизиту("Ставка",18,1)=1 Тогда<br><br>НДС18=НДС.ТекущийЭлемент();<br><br>Иначе<br><br>НДС.Новый();<br><br>НДС.Ставка=18;<br><br>НДС.Наименование="18%";<br><br>НДС.Записать();<br><br>НДС18=НДС.ТекущийЭлемент();<br><br>КонецЕсли;             <br><br>Спр=СоздатьОбъект("Справочник.Номенклатура"); <br><br>Спр.ВыбратьЭлементы();                         <br><br>Пока Спр.ПолучитьЭлемент()=1 Цикл<br><br> Если Спр.ТекущийЭлемент().ЭтоГруппа()=1 Тогда<br><br> Продолжить;<br><br> КонецЕсли;<br><br>Если Спр.ТекущийЭлемент().СтавкаНДС.Получить('01.01.2004').Ставка=20 Тогда<br><br> Спр.СтавкаНДС.Установить('01.01.2004',НДС18);<br><br> Спр.Записать();<br><br>КонецЕсли; <br><br>КонецЦикла;<br><br>КонецПроцедуры"

МОЛОДЕЦ!!!

можно было бы и для ТиС бросить<br><br><br><br>кстати, интересно как-то — в ТиС вместо справочника "Ставки НДС" есть Перечисление.СтавкиНДС<br><br><br><br>вот гемор<br><br><br><br>зато СтавкиНП справочник, а не перечисление!<br><br><br><br>как?<br><br>такие вот 1С'овцы засЛанцы...............