Akam1
Комса | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Процедура ЗаполнитьПлатежноРасчетныеРеквизиты(ДокументСсылка, СФ_ДатаНомерДокументовОплаты) Экспорт
Если ОбщегоНазначения.ЕстьРеквизитДокумента("Сделка", ДокументСсылка.Метаданные())
И ЗначениеЗаполнено(ДокументСсылка.Сделка) Тогда
Запрос = Новый Запрос;
УсловиеСделкиОснования = "";
Сделка = ДокументСсылка.Сделка;
Если ТипЗнч(Сделка)=Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
СделкаОснование = Сделка.ЗаказПокупателя;
ИначеЕсли ТипЗнч(Сделка)=Тип("ДокументСсылка.ЗаказПокупателя") Тогда
СделкаОснование = Сделка.ДокументОснование;
КонецЕсли;
Если ЗначениеЗаполнено(СделкаОснование) Тогда
Запрос.УстановитьПараметр("СделкаОснование", СделкаОснование);
УсловиеСделкиОснования = " ИЛИ ППВхРасшПлат.Сделка = &СделкаОснование";
КонецЕсли;
Запрос.УстановитьПараметр("Сделка", Сделка);
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ППВхРасшПлат.Ссылка.ДатаВходящегоДокумента КАК ДатаПлатежноРасчетногоДокумента,
| ППВхРасшПлат.Ссылка.НомерВходящегоДокумента КАК НомерПлатежноРасчетногоДокумента
|ИЗ
| Документ.ПлатежноеПоручениеВходящее.РасшифровкаПлатежа КАК ППВхРасшПлат
|ГДЕ
| (ППВхРасшПлат.Сделка = &Сделка
|"+УсловиеСделкиОснования+")
|
|УПОРЯДОЧИТЬ ПО
| ППВхРасшПлат.Ссылка.Дата";
СФ_ДатаНомерДокументовОплаты.Загрузить(Запрос.Выполнить().Выгрузить());
КонецЕсли;
КонецПроцедуры |
Всего записей: 26360 | Зарегистр. 20-04-2006 | Отправлено: 11:06 02-04-2010 | Исправлено: Akam1, 11:15 02-04-2010 |
|
