| 0
- 02.11.2012 - 11:56
|
Выгружаю ЗарплатаКВыплате из ЗУП в УПП, оператор Пока запрос82.Группировка(3) = 1 Цикл ругается :((( апрос82.УстановитьПараметр("ДатаНач", НачалоДня(ВыбНачПериода)); Запрос82.УстановитьПараметр("ДатаКон", КонецДня(ВыбКонПериода)); Запрос82.УстановитьПараметр("Организация", Организация.ИНН); Запрос82.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка, | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо КАК Сотрудник, | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Наимен ование КАК Наименование, | СУММА(ЗарплатаКВыплатеОрганизацийЗарплата.Сумма) КАК Сумма, | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Номер КАК Номер, | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата КАК Дата |ИЗ | Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата |ГДЕ | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаКон | И ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Организ ация.ИНН = &Организация | |СГРУППИРОВАТЬ ПО | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка, | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Номер, | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо, | ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Наимен ование, | ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата | |УПОРЯДОЧИТЬ ПО | Номер, | Дата"; табДокументов = Запрос82.Выполнить().Выгрузить(); //ВыборкаДок = табДокументов.Выбрать(ОбходРезультатаЗапроса.ПоГру ппировкам); //СпособВыборки = ОбходРезультатаЗапроса.ПоГруппировкам; //табДокументов = Запрос82.Выполнить().Выгрузить(СпособВыборки); Если табДокументов.Количество() <= 0 Тогда Сообщить("Не найдены документы к выгрузке"); Возврат; КонецЕсли; Для каждого СтрокатабДокументов Из табДокументов Цикл Область = ЭлементыФормы.Выплаты.Значение.Найти(СтрокатабДоку ментов.Номер,"НомерДокумента"); Если ТипЗнч(Область) = Тип("Неопределено") Тогда Продолжить ИначеЕсли (Не ТипЗнч(Область) = Тип("Неопределено")) и (Область.Загрузка = Ложь) Тогда Продолжить КонецЕсли; текНомерДок = СокрЛП(СтрокатабДокументов.Номер); РезультатПоискаДока = V8.Документы.ЗарплатаКВыплатеОрганизаций.НайтиПоНо меру(текНомерДок); Если РезультатПоискаДока.Пустая() Тогда изм = изм+1; Док = V8.Документы.ЗарплатаКВыплатеОрганизаций.СоздатьДо кумент(); Док.Номер = текНомерДок+СокрЛП(СтрокатабДокументов.Номер); //Док.УстановитьНовыйНомер(Организация.Префикс); Док.Дата = СтрокатабДокументов.Дата; Док.ПериодРегистрации = НачалоМесяца(СтрокатабДокументов.Дата); Док.СпособВыплаты = V8.Перечисления.СпособыВыплатыЗарплаты.ЧерезБанк; Док.Организация = V8.Справочники.Организации.НайтиПоРеквизиту("ИНН", Организация.ИНН); ; Док.Ответственный = V8.Справочники.Пользователи.НайтиПоНаименованию(Со крЛП(СтрокатабДокументов.Ссылка.Ответственный)); Док.Банк = V8.Справочники.Контрагенты.НайтиПоРеквизиту("ИНН", "6027006032").Ссылка; Док.ХарактерВыплаты = V8.Перечисления.ХарактерВыплатыЗарплаты.Зарплата; Пока запрос82.Группировка(3) = 1 Цикл текНаим = СокрЛП(СтрокатабДокументов.Наименование);     | |
Интернет-форум Краснодарского края и Краснодара |
