есть база с внедренной подсистемой обмена на кассы через компаненту рейнбоу.
так же в этой базе загружается старый 1с++ версияя 1.8, который глючит.

хочу обновить 1с++, с рейнбоу 1с++ не рекомендуют загружать.

сейчас ошибки вида создания объекта СоздатьОбъект("RainbowService");
вопрос насколько реально переделать под 1спп? какой объект из 1спп может подменить РейнбоуСервис?

http://www.1cpp.ru/forum/YaBB.pl?num=1148717345

хмм, нашел только Обработка.Defcls
как я понимаю мне в ней надо добавить пару классов призраков и  создать одноименные обработки с кодом из форума?

(2) да.
Или переписать обработки, которые используют радугу

отключил рэйнбоу ошибку RainbowService починил, вроде работает...

теперь вот что

Обработка.Defcls

class СкидкиОбъектов=OxyObjectsPoffs@MD:Справочник.СкидкиКлиентов,Справочник.СкидкиТорговыхТочек
{

};

Обработка.OxyObjectsPoffs

Процедура РаботатьСТоргТочками() Экспорт
   
   БК=Сам(Контекст).ПолучитьБазовыйКласс("Справочник."+СпрСкТоргТочек);
   Сам(Контекст).НазначитьБазовыйКласс("Справочник."+СпрСкТоргТочек);
   
КонецПроцедуры // РаботатьСТоргТочками()

ошибка
СкидкиОбъектов::РаботатьСТоргТочками() : Поле агрегатного объекта не обнаружено
Сам(Контекст).НазначитьБазовыйКласс("Справочник."+СпрСкТоргТочек);
{OxyObjectsPoffs@MD(64) }

а как тогда рейнбоу работало? хелпните, в какую сторону делать?

(4) ну воткни в класс функцию

Функция Сам(Конт)
 Возврат Конт;
КонецФункции

в Обработка.OxyObjectsPoffs есть

Функция Сам(Конт)
   
   Возврат Конт;
   
КонецФункции // Конт()

в описание класса я так понимаю надо втыкать? а как же радуга то работала без этого?

не надо в описании ничего пихать

И это, радуга тут не при чем

тогда не понимаю чего не хватает

НазначитьБазовыйКласс просто вырезали в новых версиях 1cpp

pfhtvm 'ne cnhjre? lkz yfxfkf

заремь эту строку , для начала

и.. вроде как он теперь стал
ЗаменитьБазовыйОбъект

заремил ошибка пропала,
дальше подменил как (13)

СкПарс=СоздатьОбъект("ПарсерСкидок");
{Справочник.Склады.Форма.Модуль(226)}: ПарсерСкидок::НайтиСкидкуГоловнойФирмы() : СкидкиОбъектов::РаботатьСТоргТочками() : Недостаточное число параметров передано при вызове функции/процедуры объекта
Сам(Контекст).ЗаменитьБазовыйОбъект("Справочник."+СпрСкТоргТочек);
{OxyObjectsPoffs@MD(66) }

Если Ск.НайтиПоОбъекту(Ф.ТекущийЭлемент())=1 Тогда
{discounts_parser@MD(64) }

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

ЗЫ: пробуй (13) использовать

(4) какой-то сумрачный гений...

попробуй так сделать
объявление:
class СкидкиОбъектов=OxyObjectsPoffs@MD:Справочник
{
};

создание объекта

оСкидки = СоздатьОбъект("СкидкиОбъектов");
оСкидки.ЗаменитьБазовыйОбъект("Справочник", СоздатьОбъект("Справочник."+СпрСкТоргТочек));

(15) никто и не обновлял.
заменяя тупо название метода как в (13) не пашет

Может сразу на 8?

(17) это везде где используется класс добавить строку

оСкидки.ЗаменитьБазовыйОбъект("Справочник", СоздатьОбъект("Справочник."+СпрСкТоргТочек));

?

(20) везде, где создаётся объект этого класса
ЗаменитьБазовыйОбъект() можно использовать только один раз, и желательно сразу после создания объекта

поискал создание объектов и вот что меня смущает в не
   СпрСкидки=МенеджерВерсий.СоздатьОбъектКласса("СкидкиОбъектов");
как оно сказатся может?

где мне брать СпрСкТоргТочек? смотрю класс

Обработка.OxyObjectsPoffs

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

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

правильно это?

далее если я определяю класс как в (17) то у меня вылетает ошибка

СкПарс=СоздатьОбъект("ПарсерСкидок");
{Справочник.Склады.Форма.Модуль(226)}: ПарсерСкидок::НайтиСкидкуГоловнойФирмы() : СкидкиОбъектов::НайтиПоРеквизиту(Строка Имя=Объект, Справочник Значение=         5   , Число Флаг=1) : Значение не представляет агрегатный объект
Возврат БК.НайтиПоРеквизиту(Имя,Значение,Флаг);
{OxyObjectsPoffs@MD(96) }

Если Ск.НайтиПоОбъекту(Ф.ТекущийЭлемент())=1 Тогда
{discounts_parser@MD(64) }

(22) Похоже, что просто не получится. Надо детально разбираться, как там чего происходит в этом классе.

Унаследоваться от двух видов справочников это был крутой тактический ход.

(23)скорее всего лень..
прописывать одни и теже куски кода в обеих классах.

(24) мне не лень прописать а разобратся лень, надеюсь не понадобится в будущем это.
по инфе что я показал трудно сказать в каких классах и чего делать?

(25) скорее всего, часть классов вообще можно выкинуть, достаточно посмотреть в коде для чего они и что делают.

(24) ну кагбе для этого наследование существует, но видимо дизайнер решил сделать финт ушами.

А теперь в результате гениального дизайна проблемы у товарища. Попробуй их щас, растащи, скидки эти.

//БК=Сам(Контекст).ПолучитьБазовыйКласс("Справочник."+СпрСкТоргТочек);
   //Сам(Контекст).НазначитьБазовыйКласс("Справочник."+СпрСкТоргТочек);
   
   БК=вирт().ПолучитьБазовыйКласс("Справочник."+СпрСкТоргТочек);
   вирт().ЗаменитьБазовыйОбъект("Справочник."+СпрСкТоргТочек,БК);


как вам такой финт?

а зачем себя на себя менять?

это разраб предложил, я его нашел и попросил посмотреть(=

Ёпрст4 зачем ты мне поставил 1спп версии 3.2... я не понял как в ней отладку разрешить... пробую сам на 2.5 сейчас поотлаживать разобратся

Верни всё взад! В 3.2.х.х отладку включать не надо. Ставишь брейкпойнт, и вперёд. Только есть нюанс: если у тебя реализация отлаживаемого класса хранится в МД, то брейкпойнт надо поставить на первом вызове метода, зайти в модуль класса по F8, и вот здесь уже ставить брейкпойнт где нужно. А лучше в процессе отладки реализации в .ert держать.

Не , взад не надо, а вот пару классов переписать или выкинуть их совсем, не помешало бы.

:)

выкинуть не получится... а как переписывать пока не ясно... разраб сам похоже не шарит уже

на 2.5 нет этого метода Вирт()... видимо лучше сделать два класса скидок для складов и клиентов... вместо одного универсального

зачем тебе 2.5 ?!

(37) некрофил.
ну, или некроман...

(38) изначально у него 1.8 стояла + радуга..

так что, 2.5 - явный рост
:)

(37) отладку хочу...

Информация о настройках:

EnableHookEventsGroupContext: 0
EnableCheckType: 0
EnableDebugging: 0
EnableOptimization: 1
EnableTableSourceTable: 1
EnableTurboBL: 1

как это включить? EnableDebugging: 0

(32) не получается

ЗагрузитьВнешнююКомпоненту("1cpp.dll");    
Настройки=СоздатьОбъект("УправлениеНастройками");
Настройки.Включить("Отладка");