|
При выгрузки табличной части не вытягиваються все данные , с другой базы тяну данные но не все втягивает |
|
|
|
|
|
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, так ли это?
|
|