Имя: Пароль:
1C
1С v8
Отчет на СКД Дебиторская задолженность для УТ 10.3
0 ded20ded
 
20.12.12
10:58
Добрый день, есть отчет
В УТ 10.3 отчет по дебиторской просроченной задолженности
нужно получить только данные у кого задолженность есть, сейчас в отчет попадают все данные.
ВЫБРАТЬ
ПродажиОбороты.Регистратор,
ПродажиОбороты.Контрагент,
ПродажиОбороты.Контрагент.ОсновнойМенеджерПокупателя,
ВЫРАЗИТЬ(ЕСТЬNULL(КонтактнаяИнформация.Представление, "") КАК СТРОКА(200)) КАК ТелефонДомашний,
ВЫРАЗИТЬ(ЕСТЬNULL(КонтактнаяИнформация2.Представление, "") КАК СТРОКА(200)) КАК ТелефонСлужебный,
ВЫРАЗИТЬ(ЕСТЬNULL(КонтактнаяИнформация3.Представление, "") КАК СТРОКА(200)) КАК ФизАдресКонтрагента,
ПродажиОбороты.ДоговорКонтрагента,
ПродажиОбороты.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности КАК ГлубинаКредита,
МАКСИМУМ(ЕСТЬNULL(ДвиженияДенежныхСредствОбороты.Регистратор.ДатаОплаты, ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0))) КАК РегистраторДатаОплаты,
РАЗНОСТЬДАТ(ПродажиОбороты.Регистратор.Дата, &КонецПериода, ДЕНЬ) КАК ДнейПросрочки,
СУММА(ПродажиОбороты.СтоимостьОборот) КАК суммаИзДокумента,
СУММА(ПродажиОбороты.СтоимостьОборот - ЕСТЬNULL(ДвиженияДенежныхСредствОбороты.СуммаУпрОборот, 0)) КАК ОбщаяСуммаЗадолженности,
МАКСИМУМ(ВЫБОР
КОГДА ЕСТЬNULL(ДвиженияДенежныхСредствОбороты.СуммаУпрОборот, 0) = 0
ИЛИ ЕСТЬNULL(ДвиженияДенежныхСредствОбороты.СуммаУпрОборот, 0) < ПродажиОбороты.СтоимостьОборот
ТОГДА ПродажиОбороты.СтоимостьОборот - ЕСТЬNULL(ДвиженияДенежныхСредствОбороты.СуммаУпрОборот, 0)
ИНАЧЕ 0
КОНЕЦ) КАК ОбщаяСуммаПросроченнойЗадолженности
ПОМЕСТИТЬ ТаблицаДанных
ИЗ
РегистрНакопления.Продажи.Обороты(, &КонецПериода, Регистратор, ) КАК ПродажиОбороты
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
ПО ПродажиОбороты.Контрагент.ОсновнойМенеджерПокупателя.ФизЛицо = КонтактнаяИнформация.Объект
И (КонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(перечисление.ТипыКонтактнойИнформации.Телефон))
И (КонтактнаяИнформация.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонФизЛицаДомашний))
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация2
ПО ПродажиОбороты.Контрагент.ОсновнойМенеджерПокупателя.ФизЛицо = КонтактнаяИнформация2.Объект
И (КонтактнаяИнформация2.Тип = ЗНАЧЕНИЕ(перечисление.ТипыКонтактнойИнформации.Телефон))
И (КонтактнаяИнформация2.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонФизЛицаСлужебный))
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация3
ПО ПродажиОбороты.Контрагент = КонтактнаяИнформация3.Объект
И (КонтактнаяИнформация3.Тип = ЗНАЧЕНИЕ(перечисление.ТипыКонтактнойИнформации.адрес))
И (КонтактнаяИнформация3.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента))
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ДвиженияДенежныхСредств.Обороты(, &КонецПериода, Регистратор, ПриходРасход = ЗНАЧЕНИЕ(Перечисление.ВидыДвиженийПриходРасход.Приход)) КАК ДвиженияДенежныхСредствОбороты
ПО ПродажиОбороты.Регистратор = ДвиженияДенежныхСредствОбороты.ДокументРасчетовСКонтрагентом
ГДЕ
ПродажиОбороты.Регистратор ССЫЛКА Документ.РеализацияТоваровУслуг

СГРУППИРОВАТЬ ПО
ПродажиОбороты.ДоговорКонтрагента,
ПродажиОбороты.Регистратор,
ПродажиОбороты.Контрагент,
ВЫРАЗИТЬ(ЕСТЬNULL(КонтактнаяИнформация.Представление, "") КАК СТРОКА(200)),
ВЫРАЗИТЬ(ЕСТЬNULL(КонтактнаяИнформация2.Представление, "") КАК СТРОКА(200)),
ВЫРАЗИТЬ(ЕСТЬNULL(КонтактнаяИнформация3.Представление, "") КАК СТРОКА(200)),
ПродажиОбороты.Контрагент.ОсновнойМенеджерПокупателя,
ПродажиОбороты.ДоговорКонтрагента.ДопустимоеЧислоДнейЗадолженности,
РАЗНОСТЬДАТ(ПродажиОбороты.Регистратор.Дата, &КонецПериода, ДЕНЬ),
ДвиженияДенежныхСредствОбороты.СуммаОборот
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ТаблицаДанных.Регистратор,
ТаблицаДанных.Контрагент,
ТаблицаДанных.КонтрагентОсновнойМенеджерПокупателя,
ТаблицаДанных.ТелефонДомашний,
ТаблицаДанных.ТелефонСлужебный,
ТаблицаДанных.ФизАдресКонтрагента,
ТаблицаДанных.ДоговорКонтрагента,
ТаблицаДанных.ГлубинаКредита,
ТаблицаДанных.РегистраторДатаОплаты,
ТаблицаДанных.ДнейПросрочки,
СУММА(ТаблицаДанных.суммаИзДокумента) КАК суммаИзДокумента,
СУММА(ТаблицаДанных.ОбщаяСуммаЗадолженности) КАК ОбщаяСуммаЗадолженности,
СУММА(ТаблицаДанных.ОбщаяСуммаПросроченнойЗадолженности) КАК ОбщаяСуммаПросроченнойЗадолженности,
СУММА(ВЫБОР
КОГДА ДОБАВИТЬКДАТЕ(НАЧАЛОПЕРИОДА(ТаблицаДанных.Регистратор.Дата, ДЕНЬ), ДЕНЬ, ТаблицаДанных.ГлубинаКредита) < ТаблицаДанных.РегистраторДатаОплаты
ИЛИ ТаблицаДанных.РегистраторДатаОплаты = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
ТОГДА ТаблицаДанных.ОбщаяСуммаПросроченнойЗадолженности
КОГДА (НЕ ТаблицаДанных.РегистраторДатаОплаты = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0))
ТОГДА ВЫБОР
КОГДА РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(ТаблицаДанных.Регистратор.Дата, ДЕНЬ), ТаблицаДанных.РегистраторДатаОплаты, ДЕНЬ) > ТаблицаДанных.ДнейПросрочки + 3
ТОГДА ТаблицаДанных.ОбщаяСуммаПросроченнойЗадолженности
ИНАЧЕ 0
КОНЕЦ
ИНАЧЕ 0
КОНЕЦ) КАК Просрочка,
МАКСИМУМ(ВЫБОР
КОГДА ТаблицаДанных.ОбщаяСуммаПросроченнойЗадолженности = 0
ТОГДА ""
ИНАЧЕ ВЫБОР
КОГДА РАЗНОСТЬДАТ(&КонецПериода, ДОБАВИТЬКДАТЕ(ТаблицаДанных.Регистратор.Дата, ДЕНЬ, ТаблицаДанных.ГлубинаКредита), ДЕНЬ) <= 3
И РАЗНОСТЬДАТ(&КонецПериода, ДОБАВИТЬКДАТЕ(ТаблицаДанных.Регистратор.Дата, ДЕНЬ, ТаблицаДанных.ГлубинаКредита), ДЕНЬ) >= 0
ТОГДА "3"
КОГДА РАЗНОСТЬДАТ(&КонецПериода, ДОБАВИТЬКДАТЕ(ТаблицаДанных.Регистратор.Дата, ДЕНЬ, ТаблицаДанных.ГлубинаКредита), ДЕНЬ) < 0
ТОГДА "П"
ИНАЧЕ ""
КОНЕЦ
КОНЕЦ) КАК СостояниеОплаты,
ЕСТЬNULL(ДвиженияДенежныхСредствОбороты.Регистратор, ЗНАЧЕНИЕ(Документ.ПриходныйКассовыйОрдер.пустаяСсылка)) КАК ДокументОплаты,
"" КАК КонтрагентСтрока
ИЗ
ТаблицаДанных КАК ТаблицаДанных
ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ДвиженияДенежныхСредств.Обороты(, &КонецПериода, Регистратор, ПриходРасход = ЗНАЧЕНИЕ(Перечисление.ВидыДвиженийПриходРасход.Приход)) КАК ДвиженияДенежныхСредствОбороты
ПО ТаблицаДанных.Регистратор = ДвиженияДенежныхСредствОбороты.ДокументРасчетовСКонтрагентом

СГРУППИРОВАТЬ ПО
ТаблицаДанных.Контрагент,
ТаблицаДанных.Регистратор,
ТаблицаДанных.ФизАдресКонтрагента,
ТаблицаДанных.ДоговорКонтрагента,
ТаблицаДанных.РегистраторДатаОплаты,
ТаблицаДанных.КонтрагентОсновнойМенеджерПокупателя,
ТаблицаДанных.ТелефонДомашний,
ТаблицаДанных.ТелефонСлужебный,
ТаблицаДанных.ГлубинаКредита,
ТаблицаДанных.ДнейПросрочки,
ДвиженияДенежныхСредствОбороты.Регистратор

ИМЕЮЩИЕ
СУММА(ТаблицаДанных.ОбщаяСуммаПросроченнойЗадолженности) > 0
;

////////////////////////////////////////////////////////////////////////////////
УНИЧТОЖИТЬ ТаблицаДанных
1 pessok
 
20.12.12
10:59
простыню не смотрел, ибо нафиг. в режиме предприятия отбор поставь на КонечныйОстаток > 0
2 le_
 
20.12.12
11:04
ДебЕт.
3 ded20ded
 
20.12.12
11:04
нет у меня  Конечного Остатока
4 pessok
 
20.12.12
11:06
КАК ОбщаяСуммаЗадолженности
5 pessok
 
20.12.12
11:09
посмотрел простыню... глаза вытекли за день до армагедца
6 ded20ded
 
20.12.12
11:10
у меня сейчас выходит вот так

Реализация товаров и услуг 00000000631 от 06.03.2012 8:54:33    Баркова О.А. ИП    14    21.03.2012 0:00:00    289    2 355,09    20,00    20,00    20,00
Реализация товаров и услуг 00000000631 от 06.03.2012 8:54:33    Баркова О.А. ИП    14    20.04.2012 0:00:00    289    2 355,09    2 335,09    2 335,09    2 335,09
Реализация товаров и услуг 00000000631 от 06.03.2012 8:54:33    Баркова О.А. ИП    14    20.04.2012 0:00:00    289    2 355,09    2 335,09    2 335,09    2 335,09
Реализация товаров и услуг 00000000631 от 06.03.2012 8:54:33    Баркова О.А. ИП    14    21.03.2012 0:00:00    289    2 355,09    20,00    20,00    20,00

Несколько раз реализация т.к. оплата не сразу вся а по частям
7 ded20ded
 
20.12.12
11:12
хотя платежка 1 и сумму закрывает полностью по документу
8 ded20ded
 
20.12.12
11:19
(4) да выживешь ты, армагедц придумали для миллионеров чтобы они свое нажитое тратить стали
9 ded20ded
 
20.12.12
11:24
http://zalil.ru/34093124

Подскажите что ни так делаю?
10 ded20ded
 
20.12.12
11:41
вверх
11 teapot123
 
20.12.12
12:03
чтобы не дублировались реализации убери второе соединение с регистром движения ден. средств

имхо такой отчет лучше делать по регистру Взаиморасчеты с контрагентами по документам расчетов
12 ded20ded
 
20.12.12
14:54
тогда я не получу все оплаченные
13 teapot123
 
20.12.12
15:07
смотря как запрос построить, остаток в 0, значит оплачено
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс