Имя: Пароль:
1C
1С v8
Загрузка данных в зуп из тз
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, спасибо!
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший