Имя: Пароль:
1C
1С v8
Почему при обновлении БГУ классификаторы не загружаются автоматически?
0 DJ Anthon
 
25.11.12
12:36
Их же никто вручную не загружает. И что им мешает загрузиться автоматически? два релиза продержалась ошибка загрузки классификаторов, и никто не заметил. спросил знакомых - действительно, всем начхать на них... вообще много чего можно было бы на автомат положить
1 DJ Anthon
 
26.11.12
11:09
да, зря я такой вопрос задал в воскресенье-то
2 YF
 
26.11.12
11:10
Может классификаторы большие и не используются всеми, поэтому и не грузятся?
3 DJ Anthon
 
26.11.12
11:30
(2) отнюдь. это не кладры. зато потом отковыривать документы, которые были проведены не по тем классификаторам, и удалять дубли классификаторов, к которым нет доступа через режим предприятия - очень приятное занятие.
4 Kavar
 
26.11.12
11:32
Ты про обновление бюджетной классификации?
5 DJ Anthon
 
26.11.12
11:34
(4) да, и отчетности.
(2) ведь можно при запуске обновления это предложить. с галочками. а то ведь многие о них и не знают (кто ж инструкции читает?). да и колупаться по каталогам, куда распаковывается обновление муторно, да и ошибиться нетрудно
6 Kavar
 
26.11.12
11:36
(5) И отчетность тоже не обновляется?
А классификаторы у меня тоже в одной базе не грузятся, с определенного момента. причину так и не понял. в остальных базах все пучком.
7 DJ Anthon
 
26.11.12
11:37
(6) они у тя не грузятся с 12-го релиза, в 14-м пофиксили. я про обновление кл-в, которое можно было бы встроить в обработку обновления иб
8 Kavar
 
26.11.12
11:43
(7) в 9ти из 10 базах они у меня нормально загружались.
9 DJ Anthon
 
26.11.12
11:46
(8) ты про что вообще?
10 Kavar
 
26.11.12
11:51
federal.clax
А ты?
11 DJ Anthon
 
26.11.12
11:53
я про то, чтобы эта загрузка делалась самой базой при обновлении, а не вручную
12 Kavar
 
26.11.12
11:54
(11) я про ошибку загрузки.
А по САБЖу я с тобой согласен. реально муторно все это подгружать. Особенно, когда баз много.
13 DJ Anthon
 
26.11.12
11:56
(12) какая ошибка и какой релиз? п.с. там ведь еще и форматы обмена, и доп. внешние формы, и правила обмена и хз еще что. а так бы галочками отметил, мол, это надо, это надо, и все... блин. ща реализую и все, нах.
14 DJ Anthon
 
26.11.12
12:02

тест
15 DJ Anthon
 
26.11.12
12:06
(12) кстати, знаешь, в тех анализе есть ошибки, которые допускают бухи в операциях вручную, чтобы ошибка ушла, надо тупо развернуть проводку, но когда их много в одной операции, это бесит. достаточно вот такого кода в документе ОперацияБух
и очень удобная штука

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
   Если ЭтоНовый() Тогда
       Если НЕ ЗначениеЗаполнено(Учреждение) Тогда
           Учреждение       = глЗначениеПеременной("глТекущийРазделительУчета");
       КонецЕсли;
   КонецЕсли;
   мМаксКолСубконто = Метаданные.ПланыСчетов.ЕПСБУ.МаксКоличествоСубконто;
   
   // Установка кнопок печати
   УстановитьКнопкиПечати();
КонецПроцедуры

//Anthon -<
Процедура РазвернутьПроводки(Отказ, СтандартнаяОбработка)
   Проводки = ЭтаФорма.ЭлементыФормы.ТабличноеПолеЕПСБУ.Значение;
   Таблица = Проводки.Выгрузить();
   СписокПроводок = Новый СписокЗначений;
   
   Для Каждого Строка Из Таблица Цикл
       Представление = СокрЛП(Строка.НомерСтроки) + ": " + Строка.СчетДт + " - " + Строка.СчетКт + " (" + Строка.Сумма + "; " + (Макс(Строка.КоличествоДт, Строка.КоличествоКт)) + ") / " + Строка.СубконтоДт1 + " / " + Строка.СубконтоКт1;
       Пометка = Истина;
       СписокПроводок.Добавить(Строка.НомерСтроки, Представление, Пометка);
   КонецЦикла;
   Если СписокПроводок.ОтметитьЭлементы("Отметьте разворачиваемые проводки") = Неопределено Тогда
       Возврат;
   КонецЕсли;
   Ответ = Вопрос("Развернуть суммы и количества?", РежимДиалогаВопрос.ДаНетОтмена, 0);
   Если Ответ = КодВозвратаДиалога.Отмена Тогда
       Возврат;
   КонецЕсли;
   
   Коэффициент = ?(Ответ = КодВозвратаДиалога.Да, -1, 1);
   
   Для Каждого Элемент Из СписокПроводок Цикл
       Если Элемент.Пометка Тогда
           Строка = Таблица.Получить(Элемент.Значение - 1);
           Счет = Строка.СчетКт;
           Валюта = Строка.ВалютаКт;
           ВалютнаяСумма = Строка.ВалютнаяСуммаКт;
           ВидСубконто1 = Строка.ВидСубконтоКт1;
           ВидСубконто2 = Строка.ВидСубконтоКт2;
           ВидСубконто3 = Строка.ВидСубконтоКт3;
           ВидСубконто4 = Строка.ВидСубконтоКт4;
           КБК = Строка.КБККт;
           Количество = Строка.КоличествоКт;
           Субконто1 = Строка.СубконтоКт1;
           Субконто2 = Строка.СубконтоКт2;
           Субконто3 = Строка.СубконтоКт3;
           Субконто4 = Строка.СубконтоКт4;
           ХарактеристикаДвижения = Строка.ХарактеристикаДвиженияКт;
           
           Строка.СчетКт = Строка.СчетДт;
           Строка.ВалютаКт = Строка.ВалютаДт;
           Строка.ВалютнаяСуммаКт = Строка.ВалютнаяСуммаДт * Коэффициент;
           Строка.ВидСубконтоКт1 = Строка.ВидСубконтоДт1;
           Строка.ВидСубконтоКт2 = Строка.ВидСубконтоДт2;
           Строка.ВидСубконтоКт3 = Строка.ВидСубконтоДт3;
           Строка.ВидСубконтоКт4 = Строка.ВидСубконтоДт4;
           Строка.КБККт = Строка.КБКДт;
           Строка.КоличествоКт = Строка.КоличествоДт * Коэффициент;
           Строка.СубконтоКт1 = Строка.СубконтоДт1;
           Строка.СубконтоКт2 = Строка.СубконтоДт2;
           Строка.СубконтоКт3 = Строка.СубконтоДт3;
           Строка.СубконтоКт4 = Строка.СубконтоДт4;
           Строка.ХарактеристикаДвиженияКт = Строка.ХарактеристикаДвиженияДт;
           
           Строка.СчетДт = Счет;
           Строка.ВалютаДт = Валюта;
           Строка.ВалютнаяСуммаДт = ВалютнаяСумма * Коэффициент;
           Строка.ВидСубконтоДт1 = ВидСубконто1;
           Строка.ВидСубконтоДт2 = ВидСубконто2;
           Строка.ВидСубконтоДт3 = ВидСубконто3;
           Строка.ВидСубконтоДт4 = ВидСубконто4;
           Строка.КБКДт = КБК;
           Строка.КоличествоДт = Количество * Коэффициент;
           Строка.СубконтоДт1 = Субконто1;
           Строка.СубконтоДт2 = Субконто2;
           Строка.СубконтоДт3 = Субконто3;
           Строка.СубконтоДт4 = Субконто4;
           Строка.ХарактеристикаДвиженияДт = ХарактеристикаДвижения;
           
           Если ЗначениеЗаполнено(Строка.ВидСубконтоДт1) Тогда
               Если СокрЛП(Строка.ВидСубконтоДт1.ТипЗначения) = "Код экономической классификации" Тогда
                   Субконто = Справочники.КОСГУ.ПустаяСсылка();
                   Если Лев(Строка.СубконтоДт1, 1) = "7" Тогда
                       Субконто = Справочники.КОСГУ.НайтиПоКоду("8" + Сред(Строка.СубконтоДт1.Код, 2));
                   ИначеЕсли Лев(Строка.СубконтоДт1, 1) = "6" Тогда
                       Субконто = Справочники.КОСГУ.НайтиПоКоду("5" + Сред(Строка.СубконтоДт1.Код, 2));
                   ИначеЕсли Лев(Строка.СубконтоДт1, 1) = "4" Тогда
                       Субконто = Справочники.КОСГУ.НайтиПоКоду("3" + Сред(Строка.СубконтоДт1.Код, 2));
                   КонецЕсли;
                   Если НЕ Субконто.Пустая() Тогда
                       Строка.СубконтоДт1 = Субконто;
                   КонецЕсли;
               КонецЕсли;
           КонецЕсли;
           Если ЗначениеЗаполнено(Строка.ВидСубконтоКт1) Тогда
               Если СокрЛП(Строка.ВидСубконтоКт1.ТипЗначения) = "Код экономической классификации" Тогда
                   Субконто = Справочники.КОСГУ.ПустаяСсылка();
                   Если Лев(Строка.СубконтоКт1, 1) = "8" Тогда
                       Субконто = Справочники.КОСГУ.НайтиПоКоду("7" + Сред(Строка.СубконтоКт1.Код, 2));
                   ИначеЕсли Лев(Строка.СубконтоКт1, 1) = "5" Тогда
                       Субконто = Справочники.КОСГУ.НайтиПоКоду("6" + Сред(Строка.СубконтоКт1.Код, 2));
                   ИначеЕсли Лев(Строка.СубконтоКт1, 1) = "3" Тогда
                       Субконто = Справочники.КОСГУ.НайтиПоКоду("4" + Сред(Строка.СубконтоКт1.Код, 2));
                   КонецЕсли;
                   Если НЕ Субконто.Пустая() Тогда
                       Строка.СубконтоКт1 = Субконто;
                   КонецЕсли;
               КонецЕсли;
           КонецЕсли;
           
           Строка.Сумма = Строка.Сумма * Коэффициент;
       КонецЕсли;
   КонецЦикла;
   Проводки.Загрузить(Таблица);
КонецПроцедуры
//Anthon ->
Процедура ПриОткрытии()
   // Установить доступность формы с учетом даты запрета редактирования    
   РаботаСДиалогами.УстановитьДоступностьФормыДляРедактирования(ЭтотОбъект, ЭтаФорма);
   
   Модифицированность = ЭтоНовый();
   
   мТекущаяДатаДокумента = Дата;
   
   МеханизмНумерацииОбъектов.ДобавитьВМенюДействияКнопкуРедактированияНомера(ЭлементыФормы.ДействияФормы.Кнопки.Подменю);
//Anthon -<
   ПодменюДействия = ЭлементыФормы.ДействияФормы.Кнопки.Подменю;
   Обработчик = Новый Действие("РазвернутьПроводки");
   ПодменюДействия.Кнопки.Добавить("РазделительРазвернутьПроводки", ТипКнопкиКоманднойПанели.Разделитель);
   ПодменюДействия.Кнопки.Добавить("РазвернутьПроводки", ТипКнопкиКоманднойПанели.Действие, "Развернуть проводки", Обработчик);
//Anthon ->
   МеханизмНумерацииОбъектов.УстановитьДоступностьПоляВводаНомера(Метаданные(), ЭтаФорма, ЭлементыФормы.ДействияФормы.Кнопки.Подменю,ЭлементыФормы.Номер);
   
   КонтрольЗаписиОбъектов.ДобавитьВКоманднуюПанельКнопкуПросмотраИсторииИзменений(Заголовок, ЭлементыФормы.ДействияФормы.Кнопки.Подменю, Ссылка);
   ЗаполнитьСписокКВД();
КонецПроцедуры

Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.