|
Загрузка данных в зуп из тз | ☑ | ||
---|---|---|---|---|
0
Nst
naïve
31.08.17
✎
11:00
|
Здравствуйте,пожалуйста,помогите,подскажите.
нужно из бп перенести данные в зуп. пытаюсьсделать так: сначала в тз. а потом в зуп. но не догоняю,как это сделать. при чем нужно.чтобы было 2 документа: один с галочкой поле,другой без нее. Если НЕ ЗначениеЗаполнено (Организация) Тогда Сообщить ("Не выбрана организация"); Возврат; КонецЕсли; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | БС_ПитаниеСотрудниковСотрудники.Сотрудник.Ссылка, | БС_ПитаниеСотрудниковСотрудники.Субконто1, | БС_ПитаниеСотрудниковСотрудники.Сумма, | БС_ПитаниеСотрудниковСотрудники.Поле, | БС_ПитаниеСотрудниковСотрудники.Организация.Ссылка |ИЗ | Документ.БС_ПитаниеСотрудников.Сотрудники КАК БС_ПитаниеСотрудниковСотрудники |ГДЕ | БС_ПитаниеСотрудниковСотрудники.Ссылка.Проведен = ИСТИНА | И БС_ПитаниеСотрудниковСотрудники.Ссылка.ПометкаУдаления = ЛОЖЬ | |СГРУППИРОВАТЬ ПО | БС_ПитаниеСотрудниковСотрудники.Сотрудник.Ссылка, | БС_ПитаниеСотрудниковСотрудники.Субконто1, | БС_ПитаниеСотрудниковСотрудники.Сумма, | БС_ПитаниеСотрудниковСотрудники.Поле, | БС_ПитаниеСотрудниковСотрудники.Организация.Ссылка"; //Запрос.УстановитьПараметр("ДатаНачала", Объект.ДатаНачала); //Запрос.УстановитьПараметр("ДатаОкончания",Объект.ДатаОкончания); Запрос.УстановитьПараметр("Организация", Объект.Организация); //Запрос.УстановитьПараметр("Поле", Объект.Поле); РезультатЗапроса = Запрос.Выполнить(); // ПроверкаСотрудников = 0; //Сч = 0; Если РезультатЗапроса.Пустой() Тогда Сообщить("За данный период в БП отсутствуют данные для выгрузки!"); Возврат; КонецЕсли; ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); ТЗ = РезультатЗапроса.Выгрузить(); ДокументНачисление = Документы.РегистрацияРазовыхНачисленийРаботниковОрганизаций.СоздатьДокумент(); //ДокументНачисление.ПериодРегистрации = ПериодРегистрации; ДокументНачисление.Комментарий = "Загрузка данных из БП (питание)"; //Форма2 = ДокументНачисление.ПолучитьФорму("ФормаДокумента"); //Форма2.Открыть(); Для каждого ТекСтрока Из ТЗ Цикл //строки тз Если ТекСтрока.Сумма <> 0 Тогда //ПОЛЕ Если ТекСтрока = Поле Тогда //ТЗ = ТЧПоле.Выгрузить(); //ТЧСотрудник = Сотрудники; КонецЕсли; //НЕ_ПОЛЕ Если ТекСтрока <> Поле Тогда КонецЕсли; //Физлицо = Справочники.ФизическиеЛица.НайтиПоНаименованию(ТекСтрока.Сотрудники); //Сотрудники = Справочники.СотрудникиОрганизаций.НайтиПоРеквизиту("Физлицо", Физлицо); //Сотрудники = Справочники.СотрудникиОрганизаций.НайтиПоРеквизиту("СотрудникиОрганизаций", СотрудникиОрганизаций); //Сотрудник = Справочники.Сотрудники.НайтиПоРеквизиту("Сотрудник", Сотрудник); //Если ТекСтрока.Сумма <> 0 Тогда //ТЗ.Сотрудники = Сотрудники.Ссылка; //ТЗ.Физлицо = Физлицо; //ТЗ.ДатаНачала = НачалоМесяца(Объект.ДатаНачала); //ТЗ.ДатаОкончания = КонецМесяца(Объект.ДатаОкончания); //ТЗ.Результат = ТекСтрока.Сумма; КонецЕсли; КонецЦикла; //КонецЕсли; КонецПроцедуры возможно,он приснится в страшном сне) простите уж |
|||
1
1dvd
31.08.17
✎
11:01
|
а что не протоптанной дорожкой пошли?
|
|||
2
Nst
naïve
31.08.17
✎
11:02
|
(1) какой?
через 1с именно? нельзя.нужно писать выгрузку |
|||
3
1dvd
31.08.17
✎
11:05
|
КД
|
|||
4
Nst
naïve
31.08.17
✎
11:07
|
(3)тоже нельзя(
|
|||
5
1dvd
31.08.17
✎
11:08
|
(4) тестовое задание?
|
|||
6
Nst
naïve
31.08.17
✎
11:10
|
(4) нет.клиенты просят
|
|||
7
1dvd
31.08.17
✎
11:13
|
не убедил. Ну, да ладно.
(0) Не пойму где у тебя код выполняемый на стороне Источника и где на стороне приемника? |
|||
8
Nst
naïve
31.08.17
✎
11:14
|
это,видимо,на стороне источника
|
|||
9
1dvd
31.08.17
✎
11:16
|
(8) а вот это тогда зачем?
ДокументНачисление = Документы.РегистрацияРазовыхНачисленийРаботниковОрганизаций.СоздатьДокумент(); |
|||
10
Nst
naïve
31.08.17
✎
11:19
|
казалось,что это правильно.
просто немного не понимаю,как писать выгрузку. в общем виде-то понятно просто можете подсказку дать? |
|||
11
sergey198
31.08.17
✎
11:36
|
подключится по сом соединению и там создать документ например и заполнить все реквизиты
|
|||
12
Nst
naïve
01.09.17
✎
09:32
|
11, спасибо!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |