Хорошо, только на чем в бухии сделать?

vandalsvq писал(а) 18. Января 2012 :: 10:37:

Известная же глюкофича: какой поставщик обновился последний, тот и получил фокус

vandalsvq писал(а) 18. Января 2012 :: 12:02:

Работает. Спасибо сам не догадался. не отошел от праздников еще ))
Еще как изменить разрядность кода 4 знака маловато 

вообщем серьезная проблема:
Не знаю почему...вообщем год стабильно работала (с поставщиком данных) и вдруг база полетела...
и при запуске выдала:
"Не определены параметры базы данных! Для определения следует воспользоваться Конфигуратором."
ну естественно зашел в конфигу, восставил словарь данных...
1 ска запустилась...
Но не работает класс поставщик данных, выдает ошибку:
ВидыСравнения = СоздатьОбъект("ПоставщикДанных.ВидыСравнения"); // для удобства работы с отборами
{Отчет.СправочникНоменклатура.Форма.Модуль(979)}: Неудачная попытка создания объекта (ПоставщикДанных.ВидыСравнения)
--------------------------------------------------------
Класс поставщик данных  используется в двух местах...
для номенклатуры...и для еще одного журнала. "подборпопрайсу"
----------------------------------------------------------------------------

Такая проблема уже возникала ранее я ее решил удалив строчку с ID=0  у базы "Контрагентов" (не знаю почему), через DBFViewer. Проблему с этой строчкой я обнаружил запустив Тестирование и Исправление базы...
После удаление этой строчки "ПОставщик данных" завелся..
т.е заработала Номенклатура и Журнал "ПодборПОпрайсу"

----------------------------------------------------------------------
щас проблема опять возникла...(не знаю почему)
опять 1ска дала ошибку:
Не определены параметры базы данных... и так далее
я 1ску восстановил....
но класс опять не работает
Перепробывал удалять индексы и выгрузка-загрузка, и ТИ
все напросно Поставщик данных не ожил...
выдает:
ВидыСравнения = СоздатьОбъект("ПоставщикДанных.ВидыСравнения"); // для удобства работы с отборами
{Отчет.СправочникНоменклатура.Форма.Модуль(979)}: Неудачная попытка создания объекта (ПоставщикДанных.ВидыСравнения)...
---------------------------------------------
--------------------------------------------
я плохо знаю как работает класс поставщик данных, но учитывая что он напрямую обращается к таблицам dbf, предполагаю, что зависемые таблицы имееют ошибки...
------------------------------------------------
опишу заранее что у меня номенклатура постоянно растет.. сейчас она имеет 23000 записей...она также имеет подчиненный справочник, который тоже имеет 30000 записей....этого не много....
НО ПРОБЛЕМА МОЖЕТ БЫТЬ В ТОМ, ЧТО НОМЕНКЛАТУРА ПОСТОЯННО И ЕЕ ПОДЧИНЕННЫЙ СПРАВОЧНИК ПОСТОЯННО УДАЛЯЮТСЯ "ЖЕСТКИМ СПОСОБОМ"....т.е. кодом, и на них остаются ссылки из доков...
может быть дело в этом???

Прошу внести изменение в ПоставщикДанных.ИндексированнаяТаблица.ert,
если это возможно и не противоречит его идеи.

При текущем тексте процедуры не происходит формирование колонок
на основании таблицы значений с нулевым количеством строк.

Процедура ЗаполнитьИзОбъекта(Объект = "",Параметр = "") Экспорт

Заменить текст процедуры:

     Если ПустоеЗначение(Объект) = 1 Тогда
           Возврат;
     КонецЕсли;
     
     Если Врег(ТипЗначенияСтр(Объект)) = Врег("ПрямойЗапрос") Тогда
           ЗаполнитьИзОбъектаПрямойЗапрос(Объект);
     ИначеЕсли Врег(ТипЗначенияСтр(Объект)) = Врег("Запрос") Тогда
           ЗаполнитьИзОбъектаЗапрос(Объект);
     ИначеЕсли Врег(ТипЗначенияСтр(Объект)) = Врег("ТаблицаЗначений") Тогда
           ЗаполнитьИзОбъектаТаблицаЗначений(Объект);
     КонецЕсли;
     
На текст:      

     ТипСтрВрег = Врег(ТипЗначенияСтр(Объект));

     Если ПустоеЗначение(ТипСтрВрег) = 1 Тогда
           Возврат;
     КонецЕсли;

     Если ТипСтрВрег = Врег("ПрямойЗапрос") Тогда
           Если ПустоеЗначение(Объект) = 0 Тогда
                 ЗаполнитьИзОбъектаПрямойЗапрос(Объект);
           КонецЕсли;
     ИначеЕсли ТипСтрВрег = Врег("Запрос") Тогда
           Если ПустоеЗначение(Объект) = 0 Тогда
                 ЗаполнитьИзОбъектаЗапрос(Объект);
           КонецЕсли;
     ИначеЕсли ТипСтрВрег = Врег("ТаблицаЗначений") Тогда
           Если Объект.КоличествоКолонок()>0 Тогда
                 ЗаполнитьИзОбъектаТаблицаЗначений(Объект);
           КонецЕсли;
     КонецЕсли;
     
КонецПроцедуры      // ЗаполнитьИзОбъекта

mvgfirst, а чего "построитель" то? это же прошлый век, если замахиваться, так сразу на СКД . Вообще то частично та или иная часть решения уже есть в виде отдельных разработок на данном ресурсе... но их бы объединить.

Я бы сделал так: написал бы классы для быстрой реализации настроек, чтобы вроде того было...

НастройкиОтчета = СоздатьОбъект("НастройкиОтчета");

// ПоляГруппировки = это отдельный класс для управления группировками
ПоляГруппировки = НастройкиОтчета.ПоляГруппировки;
ПоляГруппировки.Добавить("Родитель", "Элементы", 0, 1); // Имена, тип, использование, автодобавление
ПоляГруппировки.ТабличноеПоле = "ТабличноеПолеГруппировки";
ПоляГруппировки.КоманднаяПанель = "КоманднаяПанельГруппировки";

// Отборы = отдельный класс
Отборы = НастройкиОтчета.Отборы;
Отборы.Добавить("Поле1", "Справочник.Контрагенты", "Наименование", "Равно", "", 0); // Имя, Родитель, Поле, ВидСравнения, Значение, Использование
Отборы.Добавить("Поле2", "Справочник.Контрагенты", "ЭтоГруппа", "Равно", 0, 0);
Отборы.ТабличноеПоле = "ТабличноеПолеОтборы";
Отборы.КоманднаяПанель = "КоманднаяПанельОтборы"; // правда зачем она нужна? :)

НастройкаОтчета.ТекстЗапроса =
"ВЫБРАТЬ
|$Спр.ТекущийЭлемент КАК [Контрагент $Справочник.Контрагенты]
|,$Спр.Родитель КАК [Родитель $Справочник.Контрагенты]
|ИЗ
|Справочник.Контрагенты КАК Спр $nolock
|{ГДЕ (Поле1=$Спр.Наименование, Поле2=$Спр.ЭтоГруппа)}"; 

А далее, уже вызов считывания настройки, и собственно создание текста запроса, выполнение запроса, получение ИТЗ, ее группировка и вывод сгруппированной ИТЗ.
Потом (или сначала) можно было бы научить класс принимать не только запрос, но и ТЗ, ИТЗ чтобы сделать более универсальный механизм. Но сначала на простом отчете обкатать .
В общем то не так сложно, думаю за выходные более менее рабочий функционал можно сделать .

Но вы же понимаете, что это я так... предложение просто высказал. Как там принято говорить? Это не является публичной офертой.  

Или я что то не понимаю или конфа вываливает ошибки.
Вообще посмотреть не могу.

Хотел посмотреть реализацию формы выбора на ТП + Поставщик.
Реально?

Я пытаюсь посмотреть тестовую базу, что в архиве.
Посмотреть как там и что, но не могу запустить.
Создал каталог - создал базу через конфигуратор - закинул в каталог базы классы - прописал файл описаний - захожу в базу - обработки - дерево значений.
и валятся ошибки. Сначала ругался на класс привязки, заменил файлом от 15 07 не помню какого года. дальше ругается на класс управление формой. Потом я не выдерживаю и бросаю это дело. Работы много.