![]() |
![]() |
![]() |
|
ТЧ и Обработка | ☑ | ||
---|---|---|---|---|
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
|
Я не волшебник а только учусь... А там код обработки )
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |