Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Глюк в отчете кассира в 607 конфигурации

NovikovBod
читатель
офлайн
Дата регистрации: 29.11.2007
Сообщений: 6
Пост №1
 
29.11.2007 09:54

31 учреждение.<br><br>Раньше (в 603 конфе) в отчете кассира можно было выбрать учреждение и вставал на каждое из них свой руководитель. Обновили 1ску до 607 конфы и копка выбора учреждений "отвалилась".<br>В результате расшифровка ФИО руководителей и кассира не отображается.<br>Че делать в таком случае????

NovikovBod
читатель
офлайн
Дата регистрации: 29.11.2007
Сообщений: 6
Пост №2
 
04.12.2007 04:19

"Все нашел сам.<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>"

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация