Сетевой маркетинг через 1C v.8 ?

[Vaylandt]

Приветствую, коллеги!
Есть такая задача, подскажите правильную логику как это реализовать!?

Логика:
1. У каждого клиента могут быть связанные клиенты. Т.е. Клиент1 связан с Клиентом21 и Клиентом22, а Клиент21 с К31, К32, К33, Клиент 22 с К35, К36. Дальше логику вы понимаете надеюсь.

2. При покупке клиентом ему на "персональный счет" (дисконтная накопительная карточка?) начисляется x% от покупки. Так же ему начисляется x% от покупок "привязанных" к нему Клиентов.

Вопросы:
1. Я так понимаю связи можно организовать отностиельно просто - создать тип связи Клиент-Реферал и связывать клиентов?
2. Самый важный вопрос - как организовать "персональный счет"? При этом физические дисконтные карты не желетельно выпускать.
3. Как начислять проценты от покупок привязанных клиентов?

PS Прошу сильно не бить ) лучше поделитесь мнением "как бы вы это сделали" хотябы в общих чертах! Буду очень благодарен!!!

ЗЫ стоит "Управление торговлей" v11 под 1С 8.2

[wolf3d]

я тебе уже на другом форуме все разжевал ипример привел
зы. зачем плодить темы

[cska-fanat-kz]

я тебе уже на другом форуме все разжевал ипример привел
зы. зачем плодить темы

Так это же на другом форуме
Закопи-пастите теперь сюда.
Повторение - мать заикания.

[wolf3d]

допустим каждый ВЫШЕСТОЯЩИЙ в дереве от текущего клиента получает +1 балл за покупку нижестоящими, тогда

создаем справочник клиенты
реквизиты - Наименование (тут имя клиента),КоличествоБаллов (тип число) и Владелец(тип справочники.Клиенты)

создаем какой нить документ тпа Покупки
в нем реквизит - клиент(справочники.Клиенты), ЧтоКупил и тд

при проведении обрабатываем:


Процедура ПриПроведении
перем вв;
// проверяем - является ли клиент "самым верхним" в дереве
вв="";
вв1=неопределено;
Если пустаястрока(сокрлп(клиент.владелец.наименование)) = ложь тогда
вв1=клиент.владелец.получитьобьект();
вв=вв1.наименование;
КонецЕсли;

пока пустаястрока(сокрлп(вв)) = ложь цикл
вв1.КоличествоБаллов = вв1.КоличествоБаллов +1;
вв1.записать();
вв1=вв1.владелец.получитьобьект();
вв=вв1.наименование;
КонецЦикла;
КонецПроцедуры


это навскидку

[wolf3d]

ммм...модератор - отредактируйте плс сообщение  выше - нет прав на редактирование