Имя: Пароль:
1C
1С v8
УГ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
сегодня календарная. я просто не помню, что в нашей БД дописывали, а что типовое) сто лет типовую не юзала..