Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
30 мар 2024, 00:42

На что влияет значение "максимальная сумма кредита покупателю"?

Автор Vlad23, 13 мая 2010, 13:41

0 Пользователей и 1 гость просматривают эту тему.

Vlad23

Конфигурация "Торговля и склад" или "Комплексная".
В справочнике "Контрагенты" в закладке "Кредиты" можна задать максимальную сумму кредита покупателю, но на что влияет установленное значение понять трудно. Установил значение 100 для определенного контрагента. При этом безболезненно проводятся расходные накладные (товар) по товарному кредиту на любую сумму этому клиенту? Логично было бы, чтобы при привышении заданной суммы был запрет на продажу в кредит данному контрагенту ...

Myti

Функция КонтрольКредитаПройден(ВремПокупатели)
   
   
   РазрешитьПревышениеКредита = глПолучитьПолномочие("РазрешитьПревышениеКредита");
   
   // Проверим дату оплаты
   КонтрольДатыОплаты = КонтрольДатыОплаты();
   Если ПустоеЗначение(КонтрольДатыОплаты) = 0 Тогда
       Если РазрешитьПревышениеКредита <> 0  Тогда
         глСообщениеПроведения(КонтрольДатыОплаты+ РазделительСтрок+
         "Документ: "+глПредставлениеДокумента(ТекущийДокумент()), ТекущийДокумент());
      Иначе                   
         глНеПроводить(Контекст,КонтрольДатыОплаты);
         Возврат 0;
      КонецЕсли;
   КонецЕсли;         
   
   Если Договор.НеКонтролироватьКредит = 1 Тогда
      Возврат 1;
   КонецЕсли;
   
   ТекущийДолг = ВремПокупатели.СводныйОстаток(Фирма,Договор,,,,"СуммаВал");
   
   Если (ТекущийДолг + СуммаВзаиморасчетов) > (Договор.СуммаКредита) Тогда
                                                           
      ВалютаКредита = Договор.ВалютаВзаиморасчетов;
      
      СтрокаСообщ = "Сумма накладной вместе с текущим долгом превышает сумму максимального кредита клиенту!
                 |   Текущий долг:   "+глФРМ(ТекущийДолг,ВалютаКредита)+"
                 |   Остаток кредита:"+глФРМ(Договор.СуммаКредита - ТекущийДолг,ВалютаКредита)+"
                 |   Сумма накладной:"+ глФРМ(СуммаВзаиморасчетов,ВалютаКредита)+"!";
      
       Если РазрешитьПревышениеКредита <> 0  Тогда
         глСообщениеПроведения(СтрокаСообщ+ РазделительСтрок+
         "Документ: "+глПредставлениеДокумента(ТекущийДокумент()), ТекущийДокумент());
         Возврат 1;
      Иначе                   
         глНеПроводить(Контекст,СтрокаСообщ);
         Возврат 0;
      КонецЕсли;
   КонецЕсли;
   
   Возврат 1;
   
КонецФункции // КонтрольКредитаПройден()

Vlad23

Спасибо за помощь, но у меня конфигурации Украины. В ней кредит ведется по контрагентам, а не по договорам ... Данной процедуры я не нашел ...

Myti

Тык.,....сделайте поиск по всей конфигурации по строке "СуммаКредита" там и смотрите на фто влияет

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск