"Все нашел сам.<br>Надо было подправить два знечения в "Константа.ОднаКассоваяКнига="<br>Вот код:<br>//<br>Процедура ПриВыбореФирмы() <br> Если Константа.ОднаКассоваяКнига=Да Тогда //////////////////////Новиков АВ было "=Нет"<br> Фирма = СоздатьОбъект("Справочник.Фирмы");<br> Фирма.НайтиЭлемент(ВыбраннаяФирма);<br> Если Фирма.Выбрать("Выберите учреждение","ФормаСписка") = 1 Тогда<br> ВыбраннаяФирма = Фирма.ТекущийЭлемент();<br> КонецЕсли; <br> <br> Если ВыбраннаяФирма <> СтараяФирма Тогда<br> Если КоличествоСтрок()>0 Тогда<br> Если Вопрос("Табличная часть документа будет очищена!<br> |Продолжить?","Да+Нет")="Нет" Тогда<br> ВыбраннаяФирма=СтараяФирма;<br> Возврат;<br> КонецЕсли;<br> КонецЕсли; <br> Очистить();<br> глПриИзмененииФирмы(Контекст);<br> СтараяФирма = ВыбраннаяФирма;<br> НомерЛиста();<br> КонецЕсли;<br> КонецЕсли;<br> <br>КонецПроцедуры<br>//******************************************************************************<br><br><br><br>глПроверкаРазрешенияРедактирования(Контекст);<br> Если Форма.ТолькоПросмотр() = 1 Тогда <br> ОКДР=0; <br> Форма.КнопкаОК.Доступность(ОКДР);<br> Форма.КнОчистить.Доступность(ОКДР); <br> Форма.кнОчиститьВалюту.Доступность(ОКДР); <br> Форма.кнВыбораФирмы.Доступность(ОКДР);<br> Форма.КнЗаполнить.Доступность(ОКДР); <br> Иначе<br> Форма.КнОчистить.Доступность(?(ДокументыПоКассе.КоличествоСтрок()=0,0,1));<br> Если Константа.ОднаКассоваяКнига=Да Тогда <br> Форма.кнВыбораФирмы.Доступность(1); ////////////////////Новиков АВ было "=0"<br> КонецЕсли;<br> КонецЕсли; <br> Если КонМесяца(ДатаДок) > КонецРассчитанногоПериодаБИ() Тогда<br> Предупреждение("Для правильного заполнения документа необходимо"+ РазделительСтрок <br> +"рассчитать итоги до "+Формат(КонКвартала(ДатаДок),"ДДММГГГГ")); <br> ОКД=0;<br> КонецЕсли;<br> Форма.ИспользоватьСлой("Основной,Документы",2);<br> НачальнаяДатаДокумента = ДатаДок;<br> СтараяФирма = ВыбраннаяФирма; <br>КонецПроцедуры <br>"