Доброго всем времени суток !
Ребят подскажите по каким реквизитам можно сделать отбор что бы получить счет контрагента ?
Нужно вытянуть счет по которому пришел приход или расход
на основании документа:
Если НЕ СтрокаДокумента.DOCSUBTYPESNAME = Неопределено тогда
Если НРег(СтрокаДокумента.DOCSUBTYPESNAME) = "входящий документ" тогда
НовСтрок.СуммаПоступило = НовСтрок.СуммаДокумента;
ИначеЕсли НРег(СтрокаДокумента.DOCSUBTYPESNAME) = "платежное поручение" тогда
НовСтрок.СуммаСписано = НовСтрок.СуммаДокумента;
КонецЕсли;
Иначе
Возврат
КонецЕсли;
Если НЕ Контрагент = Неопределено И НЕ Контрагент.ОсновнойБанковскийСчет = "" Тогда
Банки = СтрокаДокумента.BANKNAME;
Валюта = Справочники.Валюты.НайтиПоКоду(СтрокаДокумента.CURRENCYID);
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| БанковскиеСчета.Ссылка
|ИЗ
| Справочник.БанковскиеСчета КАК БанковскиеСчета
|ГДЕ
| БанковскиеСчета.ВалютаДенежныхСредств = &Валюта
| И БанковскиеСчета.Ссылка = &Банк
| И БанковскиеСчета.Владелец = &Контрагент";
Запрос.УстановитьПараметр("Банк",Банки); <==== название Банка (строка)
Запрос.УстановитьПараметр("Валюта",Валюта); <===== название Валюты (строка)
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() цикл
///////////////////////////////////////////////////////////////////////////////////////////////
Счет = Выборка.Ссылка.ПолучитьОбъект();
Если ВРег(Счет.Банк) = ВРег(Банки)
И ВРег(Счет.ВалютаДенежныхСредств) = ВРег(Валюта)Тогда так работает но вытягивает много банков
НовСтрок.СчетКонтрагента = Счет;
//////////////////////////////////////////////////////////////////////////////////////////////////
КонецЕсли;
КонецЦикла;
КонецЕсли;
Есть с загрузки 2 вида документов !
"входящий документ" и "платежное поручение" на основании этих 2ух документов нужно получить счет контрагенты присутсвует сам Контрагент, Банк, МФО Банка, Валюта