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