Имя: Пароль:
1C
1С v8
ТЧ и Обработка
0 Akkreditator
 
27.09.14
13:50
Вопрос! Создаю документ в режиме 1С предприятие, выбираю команду заполнить тч, открывается обработка модально.. там выбираются документы и получаю из них ТЧ, как перенести данные из обработки в тч документа который создался, заполнить тч из обработки???????
1 Akkreditator
 
27.09.14
13:50
&НаКлиенте
Процедура ВыбратьДокументы(Команда)
    //ВыбратьДокиНаСервере();
    Форма = ПолучитьФорму("Обработка.СозданиеПриходаИзНесколькихДокументов.Форма");
    Форма.ОткрытьМодально();    
КонецПроцедуры
2 Akkreditator
 
27.09.14
13:50
&НаСервере
Процедура ЗаполнитьНаСервере()
    ТЧ = Объект.Документы;
    ТЧ.Очистить();
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ПредПриход.Ссылка КАК Док
        |ИЗ
        |    Документ.ПредПриход КАК ПредПриход
        |ГДЕ
        |    ПредПриход.Показывать = Истина";
    
        
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        ТЧ = Объект.Документы.Добавить();    
        ТЧ.ПриходнаяНакладная = ВыборкаДетальныеЗаписи.Док;
        ТЧ.Выбрать = Истина;
    КонецЦикла;
    
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА


КонецПроцедуры

&НаКлиенте
Процедура Заполнить(Команда)
    ЗаполнитьНаСервере();
КонецПроцедуры

&НаСервере
Процедура ПеренестиВТЧНаСервере(Доки)
     Док = Доки;
    //{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
    // Данный фрагмент построен конструктором.
    // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
    
    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ПредПриход.Ссылка КАК СсылкаДока,
        |    ПредПриходТовары.Ссылка КАК СсылкаТЧ,
        |    ПредПриходТовары.НомерСтроки,
        |    ПредПриходТовары.Номенклатура,
        |    ПредПриходТовары.Имей,
        |    ПредПриходТовары.Количество
        |ИЗ
        |    Документ.ПредПриход.Товары КАК ПредПриходТовары
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПредПриход КАК ПредПриход
        |        ПО ПредПриходТовары.Ссылка = ПредПриход.Ссылка
        |ГДЕ
        |    ПредПриход.Ссылка = &Док";
    
    Запрос.УстановитьПараметр("Док", Док);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

    КонецЦикла;
    
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА





КонецПроцедуры

&НаКлиенте
Процедура ПеренестиВТЧ(Команда)
    ОчиститьСообщения();
    ТЧ = Объект.Документы;
    Для каждого Стр из ТЧ Цикл
        Доки = Стр.ПриходнаяНакладная;
        Если Стр.Выбрать = Ложь Тогда
        Иначе
        ПеренестиВТЧНаСервере(Доки);
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры
3 Ерепень
 
27.09.14
13:53
&НаКлиенте
Процедура Подбор(Команда)
    ОткрытьФорму("Обработка.ПодборТоваров.Форма");
КонецПроцедуры

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
    Если ИмяСобытия="АВотПодбор" Тогда
        НоваяСтрока=Объект.Товары.Добавить();
        НоваяСтрока.Номенклатура=Параметр;
    КонецЕсли;
КонецПроцедуры
========
&НаКлиенте
Процедура НоменклатураВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
    СтандартнаяОбработка=Ложь;
    Оповестить("АВотПодбор", ВыбраннаяСтрока);
КонецПроцедуры
4 Ерепень
 
27.09.14
13:54
(2) о чём все эти слова?
5 Ерепень
 
27.09.14
13:56
6 Akkreditator
 
27.09.14
13:57
Я не волшебник а только учусь... А там код обработки )