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