|
 При выгрузки табличной части не вытягиваються все данные , с другой базы тяну данные но не все втягивает |
|
|
|
|
|
|
|
 07.02.19, 13:31
|
Завсегдатай
Группа: Пользователи
Сообщений: 123
Спасибо сказали: 4 раз
Рейтинг: 3
|
burza @ Сегодня, 14:17 
, Ну у Вас представлен только код обработки того, как Вы заполняете ТЧ, а сама Выборка не показана, смотрите запрос, что у Вас туда попадает, а вообще информативность ТЧ просто зашкаливает "Процент оплаты Z=120", Т.е. может в этом и дело, может запросом переплаты, Вы отсекаете.
|
|
|
|
|
07.02.19, 13:34
|
Завсегдатай
Группа: Пользователи
Сообщений: 176
Спасибо сказали: 0 раз
Рейтинг: 0
|
Володька @ Сегодня, 13:31
, КодПроцедура ПровестиИмпортВходящихПлатежей()
ВыборкаБазДляИмпорта = РегистрыСведений.СоединенияСБазамиДанныхУТ.Выбрать();
Пока ВыборкаБазДляИмпорта.Следующий() Цикл
Если (ВыборкаБазДляИмпорта.ЗагружатьПриходБезналичный) Тогда
Сообщить(ВыборкаБазДляИмпорта.СтрокаСоединения);
СоединениеБух = СоединитьсяСБазой(ВыборкаБазДляИмпорта.СтрокаСоединения);
Если СоединениеБух = неопределено тогда
Сообщить("Произошла ошибка при соединении с базой предприятия " + ВыборкаБазДляИмпорта.СтрокаСоединения, СтатусСообщения.Внимание);
Продолжить;
иначе
Сообщить("Успешно соединились с базой предприятия " + ВыборкаБазДляИмпорта.СтрокаСоединения, СтатусСообщения.Информация);
конецЕсли;
// Создаём запрос для выборки всех исходящих платежей за период
запр = СоединениеБух.NewObject("Запрос");
запр.Текст = "ВЫБРАТЬ
| РегистрСчетовЭтапыГрафикаОплаты.ВариантОплаты.Порядок КАК ВариантОплаты,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Номер КАК Номер,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Дата КАК Дата,
| РегистрСчетовЭтапыГрафикаОплаты.ДатаПлатежа КАК ДатаПлатежа,
| РегистрСчетовЭтапыГрафикаОплаты.ПроцентПлатежа,
| РегистрСчетовЭтапыГрафикаОплаты.СуммаПлатежа КАК СуммаПлатежа,
| РегистрСчетовЭтапыГрафикаОплаты.Оплачено,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Санаторий.Наименование КАК Санаторий,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Плательщик.Наименование КАК Контрагент,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Получатель.Наименование КАК Организация,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.СсылкаНаЗаявки.Партнер.Наименование КАК Партнер,
| РегистрСчетовЭтапыГрафикаОплаты.Ссылка.СсылкаНаЗаявки
|ИЗ
| Документ.РегистрСчетов.ЭтапыГрафикаОплаты КАК РегистрСчетовЭтапыГрафикаОплаты
|ГДЕ
| РегистрСчетовЭтапыГрафикаОплаты.ДатаПлатежа МЕЖДУ &НачалоПериода И &КонецПериода
| И РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Проведен = ИСТИНА
| И РегистрСчетовЭтапыГрафикаОплаты.Ссылка.ПометкаУдаления = ЛОЖЬ";
запр.УстановитьПараметр("НачалоПериода", Объект.НачалоПериода);
запр.УстановитьПараметр("КонецПериода", Объект.КонецПериода);
Выборка = запр.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Сообщить("Загрузка документа" + Выборка.ДатаПлатежа);
Док = Документы.ПланПриходовУТ.НайтиПоНомеру(Выборка.Номер);
Если НЕ Док.Пустая() Тогда
Если Док.СуммаПлатежа = Выборка.СуммаПлатежа И Док.ВариантОплаты = Выборка.ВариантОплаты Тогда
Сообщить("Загрузка №" + Выборка.Номер + " невозможна, поскольку документ уже был загружен");
Продолжить;
КонецЕсли;
НачатьТранзакцию();
Док = Док.ПолучитьОбъект();
Иначе
НачатьТранзакцию();
Док = Документы.ПланПриходовУТ.СоздатьДокумент();
КонецЕсли;
НовСтрока = Док.ЭтапыГрафикаОплаты.Добавить();
НовСтрока.СуммаПлатежа = Выборка.СуммаПлатежа;
НовСтрока.ВариантОплаты = ПодобратьВариантОплаты(Выборка.ВариантОплаты);
НовСтрока.ПроцентПлатежа = Выборка.ПроцентПлатежа;
НовСтрока.Санаторий = ПодобратьСанаторий(Выборка.Санаторий);
НовСтрока.Контрагент = Выборка.Контрагент;
НовСтрока.Партнер = Выборка.Партнер;
НовСтрока.Организация = Выборка.Организация;
НовСтрока.ДатаПлатежа = Выборка.ДатаПлатежа;
НовСтрока.Оплачено = Выборка.Оплачено;
Док.Дата = Выборка.Дата;
Док.Номер= Выборка.Номер;
Док.Записать();
ЗафиксироватьТранзакцию();
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
@ Сегодня, 13:31
, Если в поле 2 строки то вытягивает только одну.
Сообщение отредактировал Vofka - 07.02.19, 13:44
|
|
|
|
|
|
|
|
|
|
|
07.02.19, 13:46
|
Завсегдатай
Группа: Пользователи
Сообщений: 123
Спасибо сказали: 4 раз
Рейтинг: 3
|
| И РегистрСчетовЭтапыГрафикаОплаты.Ссылка.Проведен = ИСТИНА
| И РегистрСчетовЭтапыГрафикаОплаты.Ссылка.ПометкаУдаления = ЛОЖЬ";
Зачем делать отборы, если можно создать РС и сделать Регистратором Ваш документ? И в будущем все запросы делать к РС? В самом запросе: | РегистрСчетовЭтапыГрафикаОплаты.ДатаПлатежа МЕЖДУ &НачалоПериода И &КонецПериода запр.УстановитьПараметр("НачалоПериода", Объект.НачалоПериода); запр.УстановитьПараметр("КонецПериода", Объект.КонецПериода); Я так понимаю Объект.НачалоПериода <= 21.11.2018 и Объект.КонецПериода <= 06.01.2019, так ли это?
|
|
