|
УГ11. Где кредит лимит? | ☑ | ||
---|---|---|---|---|
0
Кокос
11.05.12
✎
15:46
|
Не могу найти настройку по которой запрещаются отгрузки клиенту в случае превышения долга на определенную сумму.. Может кто подскажет?
|
|||
1
Кокос
11.05.12
✎
15:59
|
последний ап.. графики оплат не подходят.
|
|||
2
kotletka
11.05.12
✎
15:59
|
в договоре не?
|
|||
3
PiVa123
11.05.12
✎
16:00
|
в 11.0.8 вроде обещали - не смотрел. А так нету.
|
|||
4
Кокос
11.05.12
✎
16:01
|
(2) нету там... (3) вижу уже. придется самому писать. первый раз вижу торговую программу без этого....
|
|||
5
Ненавижу 1С
гуру
11.05.12
✎
16:01
|
ты прав, это УГ
|
|||
6
Amra
11.05.12
✎
16:03
|
(4) Обновиться не судьба?
|
|||
7
Кокос
11.05.12
✎
16:04
|
(6) конфа перелопачена настолько что обновление мне не светит. тем более что ничего нужного или того что я уже сам не сделал в обнове нет, а тут форму кредит-лимита которую требует клиент я и сам сделаю за 2-3 часа.
|
|||
8
Ненавижу 1С
гуру
11.05.12
✎
16:05
|
(7) дело не в форме же
|
|||
9
Крапивница
11.05.12
✎
16:14
|
В договоре контрагента, на вкладке Свойства ставишь флажок "Контролировать сумму задолженности", ну и сумму проставляешь
|
|||
10
Кокос
11.05.12
✎
16:22
|
(9) в УТ11?
|
|||
11
Крапивница
11.05.12
✎
16:42
|
(10) да, но у меня нетиповая! я просто сказала, где мы проставляем. если у тебя в типовой УТ11 этого нет, тогда сорри(
|
|||
12
burovik86
11.05.12
✎
16:43
|
(11) Такие прикольчики, да?)))
|
|||
13
Кокос
11.05.12
✎
16:44
|
(11) мне этого достаточно:
&НаСервере Функция ПроверитьПревышениеЛимитаКредитаНаСервере() Если НЕ ЗначениеЗаполнено(Объект.Менеджер) или НЕ ЗначениеЗаполнено(Объект.Партнер) Тогда Возврат Ложь; КонецЕсли; ЗАпрос = Новый ЗАпрос; Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | СУММА(РасчетыСКлиентамиОстатки.СуммаОстаток) КАК ДОЛГ |ИЗ | РегистрНакопления.РасчетыСКлиентами.Остатки КАК РасчетыСКлиентамиОстатки |ГДЕ | (&ПоОдномуМенеджеру | И РасчетыСКлиентамиОстатки.ЗаказКлиента.Менеджер = &СписокДоступа | ИЛИ &ПоОдномуПартнеру | И РасчетыСКлиентамиОстатки.АналитикаУчетаПоПартнерам.Партнер = &НужныйПартнер)"; Если Объект.Менеджер.СуммаКредита > 0 ТОгда Запрос.УстановитьПараметр("ПоОдномуМенеджеру",Истина); Запрос.УстановитьПараметр("СписокДоступа",Объект.Менеджер); Запрос.УстановитьПараметр("ПоОдномуПартнеру",Ложь); Запрос.УстановитьПараметр("НужныйПартнер",Неопределено); ТЗ = Запрос.Выполнить().Выгрузить(); Если ТЗ.Количество() > 0 Тогда Если ТЗ[0].ДОЛГ > Объект.Менеджер.СуммаКредита Тогда Возврат Ложь; КонецЕсли; КонецЕсли; КонецЕсли; Если Объект.Партнер.СуммаКредита > 0 ТОгда Запрос.УстановитьПараметр("ПоОдномуМенеджеру",Ложь); Запрос.УстановитьПараметр("СписокДоступа",Неопределено); Запрос.УстановитьПараметр("ПоОдномуПартнеру",Истина); Запрос.УстановитьПараметр("НужныйПартнер",Объект.Партнер); ТЗ = Запрос.Выполнить().Выгрузить(); //ТЗ.Свернуть(,"ДОЛГ"); Если ТЗ.Количество() > 0 Тогда Если ТЗ[0].ДОЛГ > Объект.Партнер.СуммаКредита Тогда Возврат Ложь; КонецЕсли; КонецЕсли; КонецЕсли; Возврат Истина; КонецФункции &НаКлиенте Процедура ПередЗаписью(Отказ, ПараметрыЗаписи) // Если документ проводится, проверим рассчитанность скидок и корректность графика оплаты по заказу Если мСтатусПриОткрытии <> Объект.Статус Тогда ПрошелПроверку = ПроверитьПревышениеЛимитаКредитаНаСервере(); Если Не ПрошелПроверку Тогда Предупреждение("Превышен лимит кредита партнера или агента!"); Отказ = Истина; ВОзврат; КонецЕсли; КонецЕсли; а так пофигу :) |
|||
14
Кокос
11.05.12
✎
16:45
|
сейчас проверять буду :)
|
|||
15
Крапивница
11.05.12
✎
16:55
|
(12) так пятница ж)
|
|||
16
Кокос
11.05.12
✎
17:45
|
(15) пятница перенесена на завтра вобщет :)
|
|||
17
Крапивница
11.05.12
✎
17:52
|
сегодня календарная. я просто не помню, что в нашей БД дописывали, а что типовое) сто лет типовую не юзала..
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |