Доп.обработка заполнения ТЧ документа
1С:ERP Управление предприятием 2
1С:Зарплата и Управление Персоналом 3.x
1С:Управление холдингом
Управляемые формы
Для заполнения ТЧ нужно запросом выбрать данные из... не суть откуда. Требуется передать в запрос параметры - ДатаНачала и ДатаОкончания - значения реквизита обработки, тип СтандартныйПериод.
Получается, после вызова команды перед выполнением запроса должна открыться форма для выбора периода. Как это сделать?
Получается, после вызова команды перед выполнением запроса должна открыться форма для выбора периода. Как это сделать?
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
//Для каждого ТекущаяСтрока из ВладелецФормы.Объект.Сотрудники Цикл
// ТекущаяСтрока.КоличествоДней = 28 ;
// Сообщить(ТекущаяСтрока.Количество) ;
//КонецЦикла ;
ЗаполнитьТЧНаСервере(ВладелецФормы.Объект.Сотрудники);
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьТЧНаСервере(ОбъектЗаполнения)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ГрафикОтпусков.Сотрудник КАК Сотрудник,
| ГрафикОтпусков.ВидОтпуска КАК ВидОтпуска,
| ГрафикОтпусков.ДатаНачала КАК ДатаНачала,
| ГрафикОтпусков.ДатаОкончания КАК ДатаОкончания,
| ГрафикОтпусков.КоличествоДней КАК КоличествоДней
|ИЗ
| РегистрСведений.ГрафикОтпусков КАК ГрафикОтпусков
|ГДЕ
| ГрафикОтпусков.ДатаНачала МЕЖДУ &ДатаНачала И &ДатаОкончания";
Запрос.УстановитьПараметр("ДатаНачала", ЭтотОбъект.Период.ДатаНачала);
Запрос.УстановитьПараметр("ДатаОкончания", ЭтотОбъект.Период.ДатаОкончания);
Запрос.УстановитьПараметр("Организация", ОбъектЗаполнения.Организация);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
// Вставить обработку выборки ВыборкаДетальныеЗаписи
КонецЦикла;
КонецПроцедуры / ПоказатьПо теме из базы знаний
Найденные решения
Нужно в модуле объекта внешней обработки указать использование=ОткрытиеФормы
Далее делаете свою форму, добавляете реквизит СсылкаНаОбъект с типом нужного вам документа/справочника, получаете ссылку
На форме своя кнопка, вызов серверной процедуры, вносите изменения, записываете данные, перечитываете форму Владелец
Функция СведенияОВнешнейОбработке() Экспорт
РегистрационныеДанные = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("1.0.0.0");
РегистрационныеДанные.Назначение.Добавить("Документ.НекийДокумент");
РегистрационныеДанные.Версия = "1.0";
РегистрационныеДанные.Вид = "ЗаполнениеОбъекта";
НовКоманда = РегистрационныеДанные.Команды.Добавить();
НовКоманда.Использование = "ОткрытиеФормы";
НовКоманда.Идентификатор = "ЗаполнитьЧтото";
НовКоманда.Представление = НовКоманда.Идентификатор;
Возврат РегистрационныеДанные;
КонецФункции ПоказатьДалее делаете свою форму, добавляете реквизит СсылкаНаОбъект с типом нужного вам документа/справочника, получаете ссылку
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если ВладелецФормы<>Неопределено Тогда
СсылкаНаОбъект=ВладелецФормы.Объект.Ссылка;
КонецЕсли;
КонецПроцедуры
На форме своя кнопка, вызов серверной процедуры, вносите изменения, записываете данные, перечитываете форму Владелец
&НаКлиенте
Процедура ЗаполнитьНаКлиенте(Команда)
ЗаполнитьНаСервере();
Если ВладелецФормы<>Неопределено Тогда
ВладелецФормы.Прочитать();
КонецЕсли;
ПоказатьОповещениеПользователя("Готово");
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНаСервере()
Док=СсылкаНаОбъект.ПолучитьОбъект();
Для каждого стр из СсылкаНаОбъект.Товары Цикл
КонецЦикла;
Док.Записать();
КонецПроцедуры
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(11)
Спасибо за проявленный интерес. Походу, вы из того самого франча и делать вам нечего, но вы меня не дождетесь.
(8) когда хотят научиться, то начинают читать "букварь" и затем начинают понимать, что пишут другие.
когда не хотят учиться то, то прибегают к манипуляциям "памагите, я не ел(ела) 5 дней и т.п."
когда не хотят учиться то, то прибегают к манипуляциям "памагите, я не ел(ела) 5 дней и т.п."
Спасибо за проявленный интерес. Походу, вы из того самого франча и делать вам нечего, но вы меня не дождетесь.
Не нашел, ладно.
Форма с двумя реквизитами Начало и Конец (дата понятное дело), открываем форму и забиваем
реквизиты.
Это если я правильно задачу понял.
Форма с двумя реквизитами Начало и Конец (дата понятное дело), открываем форму и забиваем
реквизиты.
Процедура СформироватьПродажи(Команда)
НачалоПериода = ЭтотОбъект.НачалоПериода;
КонецПериода = ЭтотОбъект.КонецПериода;
Передаешь ее на сервер у себя.- чего там дальше делать надо.
Процедура ЗаполнитьТЧНаСервере(НачалоПериода ,КонецПериода)
Это если я правильно задачу понял.
Нужно в модуле объекта внешней обработки указать использование=ОткрытиеФормы
Далее делаете свою форму, добавляете реквизит СсылкаНаОбъект с типом нужного вам документа/справочника, получаете ссылку
На форме своя кнопка, вызов серверной процедуры, вносите изменения, записываете данные, перечитываете форму Владелец
Функция СведенияОВнешнейОбработке() Экспорт
РегистрационныеДанные = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("1.0.0.0");
РегистрационныеДанные.Назначение.Добавить("Документ.НекийДокумент");
РегистрационныеДанные.Версия = "1.0";
РегистрационныеДанные.Вид = "ЗаполнениеОбъекта";
НовКоманда = РегистрационныеДанные.Команды.Добавить();
НовКоманда.Использование = "ОткрытиеФормы";
НовКоманда.Идентификатор = "ЗаполнитьЧтото";
НовКоманда.Представление = НовКоманда.Идентификатор;
Возврат РегистрационныеДанные;
КонецФункции ПоказатьДалее делаете свою форму, добавляете реквизит СсылкаНаОбъект с типом нужного вам документа/справочника, получаете ссылку
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если ВладелецФормы<>Неопределено Тогда
СсылкаНаОбъект=ВладелецФормы.Объект.Ссылка;
КонецЕсли;
КонецПроцедуры
На форме своя кнопка, вызов серверной процедуры, вносите изменения, записываете данные, перечитываете форму Владелец
&НаКлиенте
Процедура ЗаполнитьНаКлиенте(Команда)
ЗаполнитьНаСервере();
Если ВладелецФормы<>Неопределено Тогда
ВладелецФормы.Прочитать();
КонецЕсли;
ПоказатьОповещениеПользователя("Готово");
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьНаСервере()
Док=СсылкаНаОбъект.ПолучитьОбъект();
Для каждого стр из СсылкаНаОбъект.Товары Цикл
КонецЦикла;
Док.Записать();
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот