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

Контроль дней задолжености

Автор Tyshkan, 24 апр 2013, 12:54

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

Tyshkan

Может кто подскажет. Стандартный механизм КА по контролю задолженности. Не устраивает такой момент, что когда у клиента долг 50000 на 01.01. он вносит платеж на 10000 01.04. отсчет дней начинается с этого момента, а не с 01.01. Как сделать чтобы отсчет дней оставался с 01.01.?? Спасибо

Dethmontt

В договоре контрагента должна устанавливаться отсрочка
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Tyshkan

если не сложно поподробнее...что она дает и как устанавливается??

Besart

все правильно, контрагент оплатил часть долга и просрочка и пени на оставшуюся сумму считаются с этого момента, если у вас нестандартные условия договора, то тогда надо править механизм контроля задолженности

Dethmontt

Цитата: Tyshkan от 24 апр 2013, 13:01если не сложно поподробнее...что она дает и как устанавливается??
К сожалению у меня нету КА, не могу вам больше ничего подсказать...

Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Tyshkan

Сделала вот такой код:
Если ДоговорКонтрагента.КонтролироватьЧислоДнейЗадолженности = Истина Тогда
         СуммаДолга = УправлениеВзаиморасчетами.ТекущийДолг(ДоговорКонтрагента, Сделка, Ссылка);
         Если СуммаДолга > 0  Тогда
            Запрос = Новый Запрос;
            Запрос.Текст =
               "ВЫБРАТЬ ПЕРВЫЕ 1
               |   ВЫБОР
               |      КОГДА ВзаиморасчетыСКонтрагентамиОстатки.СуммаВзаиморасчетовОстаток > 0
               |         ТОГДА РАЗНОСТЬДАТ(РеализацияТоваровУслуг.Дата, ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Дата, ДЕНЬ) - 1
               |      ИНАЧЕ 0
               |   КОНЕЦ КАК ДатаДок,
               |   ВзаиморасчетыСКонтрагентамиОбороты.Регистратор.Ссылка,
               |   РеализацияТоваровУслуг.Дата,
               |   РеализацияТоваровУслуг.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности КАК Задолженность
               |ИЗ
               |   Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
               |      ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ВзаиморасчетыСКонтрагентами.Обороты(, , Регистратор, ) КАК ВзаиморасчетыСКонтрагентамиОбороты
               |      ПО РеализацияТоваровУслуг.ДоговорКонтрагента.Ссылка = ВзаиморасчетыСКонтрагентамиОбороты.ДоговорКонтрагента.Ссылка
               |      ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки КАК ВзаиморасчетыСКонтрагентамиОстатки
               |      ПО РеализацияТоваровУслуг.ДоговорКонтрагента.Ссылка = ВзаиморасчетыСКонтрагентамиОстатки.ДоговорКонтрагента.Ссылка
               |ГДЕ
               |   РеализацияТоваровУслуг.Ссылка = &Ссылка
               |
               |УПОРЯДОЧИТЬ ПО
               |   ДатаДок ";

            Запрос.УстановитьПараметр("Ссылка", Ссылка);

            Результат = Запрос.Выполнить().Выгрузить();
            Если Результат.Количество()> 0 Тогда
               Для каждого стр из Результат цикл
                  Дни = -(стр.ДатаДок);
                  Если Дни > стр.Задолженность Тогда
                     Число = дни-стр.Задолженность;
                     Сообщить("Долг просрочен на " + Строка(Число)+ " дней");
                     Отказ = Истина;
                  КонецЕсли;   
               КонецЦикла;   
            КонецЕсли;
         КонецЕсли;
      КонецЕсли;   

Теперь проблема как получить Дату последнего долга. Т.е. 25.01 появился долг - 26.01 его закрыли. 27.01 опять появился долг и его не закрыли и 28.01 тоже не закрытый долг, вот как получить дату 27.01??

Теги:

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

Рейтинг@Mail.ru

Поиск