Добрый день.

Есть некоторая обработка на УФ, которая выполняет алгоритм при нажатии кнопки на клиенте,
то есть вызывается процедура, находящаяся в общем модуле с флажком Клиент.

Подскажите пож, можно ли сделать регламентное задание, на основании кода этой обработки?
То есть вызвать код на клиенте?

А в чем сложность перенести на ОМ с флажком сервер?

фоновое... а зачем на клиенте?

(1) в конфиге поставить еще и Сервер?
(2) обработка уже работает на клиенте.. приходится постоянно запускать 1с и нажимать кнопку "Выполнить обмен"

(3) задачу в общий модуль - запускать из обработки в фоне.

(1) На клиенте нельзя. Можно сделать папку, доступную по сети серверу 1С, и туда на локалке кидать файл обмена. Ну и само регламентное будет запускаться со стороны сервера соответственно

(5) --> (0)

(4) не совсем понял..

сейчас

&НаКлиенте
Процедура ВыполнитьОбмен() Экспорт
    ИнтеграцияКлиент.ВыполнитьОбмен();
КонецПроцедуры


хотелось бы - это уже в модуле обработки для регламентного задания

Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
    Если ИдентификаторКоманды = "ОбменФоновая" Тогда
        ИнтеграцияКлиент.ВыполнитьОбмен();   -    вот тут естественно ошибка
    КонецЕсли;
КонецПроцедуры


{ВнешняяОбработка.Обмен.МодульОбъекта(59,3)}: Переменная не определена (ИнтеграцияКлиент)
        <<?>>ИнтеграцияКлиент.ВыполнитьОбмен(); (Проверка: Сервер)

(7) не получится так

Если уж точно клиент нужен по расписанию то
типа так:
https://forum.infostart.ru/forum86/topic165369/

(9) не.. там проще - по педальке хотят.

А есть у 1С видимость формы?
если есть то при открытии ПодключитьОбработчикОжидания + сделать форму невидимой )))

(11) а нах в УФ невидимой?)

(7) Ну там же все равно потом идет вызов сервера - так что просто скопировать себе текст из ИнтеграцияКлиент.ВыполнитьОбмен()

для модуля ИнтеграцияКлиент
поставил флажок Сервер.. вроде как прошло, но выдалось сообщение в другом месте

{ОбщийМодуль.ИнтеграцияКлиент.Модуль(88,22)}: Тип не определен (ОписаниеОповещения).

Обработчик = Новый ОписаниеОповещения("ПодготовитьСообщенияКПередачеПодтверждениеПроведения", ИнтеграцияСлужебныйКлиент, Контекст);

дык не спеши... почитай про фоновые задачи)
напихал)

(15) "почитай про фоновые задачи" - что именно :)

(16) на итс найди для начала + описаниеоповещения() как работает)))

(17) вернул все обратно :)

(18) ну вот)))

(19) вернулся к началу.. с чего начать?

(20) по кнопке вызывай процедуру серверную с оповещением, которая будет делать то, что те нужно

(21) еще раз..

сейчас по кнопке

&НаКлиенте
Процедура ВыполнитьОбмен(Команда)
    ИнтеграцияКлиент.ВыполнитьОбмен();
КонецПроцедуры



мне надо вместо этого написать то, что есть в ИнтеграцияКлиент.ВыполнитьОбмен(), то есть что в ней

Процедура ВыполнитьОбмен(Организация = Неопределено, МестоДеятельности = Неопределено, ОповещениеПриЗавершении = Неопределено) Экспорт
    
    ОчиститьСообщения();
    
    ДанныеДляВыполненияОбменаНаКлиенте = ИнтеграцияВызовСервера.ВыполнитьОбмен(Организация, МестоДеятельности);
    
    ИнтеграцияСлужебныйКлиент.ОбработатьОчередьПередачиДанных(
        ДанныеДляВыполненияОбменаНаКлиенте,
        ОповещениеПриЗавершении);
    
КонецПроцедуры

на
http://avditor.ru/programmirovanie-1s/59-sozdanie-vneshnego-otchjota-obrabotki-pechatnoj-formy-2 ... отстань, лентяй

(23) я и делал аналогично..

в СведенияОВнешнейОбработке написал

ДобавитьКоманду(Команды, "Обмен (фоновая)", "ОбменФоновая", "ВызовКлиентскогоМетода", Истина, "");

далее

Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
    Если ИдентификаторКоманды = "ОбменФоновая" Тогда
        ВыполнитьОбмен(); - вот эта находится в модуле формы и ее не видит
    КонецЕсли;
КонецПроцедуры

&НаСервере // не видит он с сервака твоих клиентских процедур


Процедура ВыполнитьОбмен(Команда)
    ИнтеграцияКлиент.ВыполнитьОбмен();
КонецПроцедуры

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

&НаСервере
Процедура ВыполнитьОбменКлиентСервер()
    ИнтеграцияКлиент.ВыполнитьОбмен();
КонецПроцедуры

(25) да..

Но в описании сказано:

Вариант "Вызов клиентского метода" означает, что будет вызвана процедура, размещённая в модуле формы внешней обработки.


(26) и так я писал, но ИнтеграцияКлиент - он на клиенте.. если только у него флажок поставить Сервер

Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
    Если ИдентификаторКоманды = "ОбменФоновая" Тогда
        ВыполнитьОбменКлиентСервер();
    КонецЕсли;
КонецПроцедуры

вмандоль код процедуры из ом в обработку

(29) Все получилось!!! :)

Сейчас напишу как сделал.

1 в СведенияОВнешнейОбработке() пишем
ДобавитьКоманду(Команды, "Обмен (фоновая)", "ОбменФоновая", "ВызовКлиентскогоМетода", Ложь, "");

2 в модуле формы

&НаКлиенте
Процедура ВыполнитьОбмен(Команда)
    ВыполнитьОбменНаКлиенте();
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
    Если ИдентификаторКоманды = "ОбменФоновая" Тогда
        ВыполнитьОбменНаКлиенте();
    КонецЕсли;
КонецПроцедуры



&НаКлиенте
Процедура ВыполнитьОбменНаКлиенте()
    ИнтеграцияКлиент.ВыполнитьОбмен();
КонецПроцедуры



а я писал в модуле объекта..

в итоге фоновое задание срабатывает, но настроить расписание нельзя, так как
"Неприменимо для команд с вариантом запуска "Вызов клиентского метода"

вот теперь второй вопрос, как заставить все это работать каждые 5 минут :).

Вмандолить в сервер. Он рулит регламентом, а соотвессно и расписанием

(32) как писал выше?

(33) попробуй, мож взлетит...

Всего то надо вызвать в регламенте серверную процедуру обмена, а понаписали тут всякой чепухи.

(35) вызвать в регламенте серверную процедуру обмена - да, но процедура на клиенте же.

(35) ниче ты не понимаешь в одинананизме.. уходи)

Клиентская процедура серверную вызывает. Ты посмотри что там дальше по стеку

(38) что, серверная клиентскую зовет?)

(39) Ты даже читать не умеешь. Понятно почему вы уже три часа на всякую ерунду потратили

(40) иди в пень... пришел разрульщик стеком размахивая... ессно, что вызывает сервак: данные то не с клиента берет. Потешил свое эго, мегакодер? Человек зато поковырялся и немного запомнил

:)

Надо сделать регламентное задание по расписанию.
Для этого необходимо что бы вызов был на сервере - это сделал.

Алгоритм уже работает, но на клиенте.

Вот надо как это это соеденить.

Не хотелось бы вызывать конечно 1с с вызовом внешней обработкой.

(42) Да что ж ты какой непроходимый?
Покажи код что у тебя в этой вот функции ИнтеграцияВызовСервера.ВыполнитьОбмен(Организация, МестоДеятельности)

(43) вот

    ВозвращаемоеЗначение = Новый Структура;
    ВозвращаемоеЗначение.Вставить("Изменения"                 , Новый Массив);
    ВозвращаемоеЗначение.Вставить("СообщенияКПередаче"        , Новый Массив);
    ВозвращаемоеЗначение.Вставить("НастройкиОбмена"           , Новый Соответствие);
    ВозвращаемоеЗначение.Вставить("РегистраторыВыбытия"       , Новый Соответствие);
    ВозвращаемоеЗначение.Вставить("ВыполнитьОбменПоРасписанию", Ложь);
    
    НастройкиОбмена = НастройкиОбмена(Организация, МестоДеятельности, ДатыПоследнегоЗапуска);
    
    ВозвращаемоеЗначение.НастройкиОбмена = НастройкиОбмена.ОбменНаКлиенте;
    ВозвращаемоеЗначение.РегистраторыВыбытия = НастройкиОбмена.РегистраторыВыбытия;
    //ВозвращаемоеЗначение.ВыполнитьОбменПоРасписанию =
    //    ДатыПоследнегоЗапуска <> Неопределено
    //    И НастройкиОбмена.ОбменНаКлиенте.Количество() > 0;
    
    РезультатОбработкиОчереди = ОбработатьОчередьПередачиДанных(НастройкиОбмена);
    Для Каждого ЭлементДанных Из РезультатОбработкиОчереди.Изменения Цикл
        ВозвращаемоеЗначение.Изменения.Добавить(ЭлементДанных);
    КонецЦикла;
    Для Каждого ЭлементДанных Из РезультатОбработкиОчереди.СообщенияКПередаче Цикл
        ВозвращаемоеЗначение.СообщенияКПередаче.Добавить(ЭлементДанных);
    КонецЦикла;
    
    Для Каждого ТранспортныйМодуль Из НастройкиОбмена.ОбменНаСервере Цикл
        Если ТранспортныйМодуль.Значение.ЗагружатьВходящиеДокументы Тогда
            Транспорт.ПолучитьВходящиеСообщения(ТранспортныйМодуль.Значение);
        КонецЕсли;
    КонецЦикла;
    
    Если НастройкиОбмена.ОбменНаСервере.Количество() > 0 Тогда
        Результат = ОбработатьВходящиеСообщения(ИнтеграцияКлиентСервер.СубъектыОбращенияНастроекОбмена(НастройкиОбмена.ОбменНаСервере));
        Для Каждого ЭлементДанных Из Результат.Изменения Цикл
            ВозвращаемоеЗначение.Изменения.Добавить(ЭлементДанных);
        КонецЦикла;
    КонецЕсли;
    
    ШаблонСообщения = НСтр("ru = 'Для места деятельности %1 не заданы настройки подключения.'");
    Для Каждого ОрганизацияБезНастроек Из НастройкиОбмена.БезНастроек Цикл
        Если ЗначениеЗаполнено(ОрганизацияБезНастроек.МестоДеятельности) Тогда
            ПредставлениеОрганизации = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("%1 (%2)", ОрганизацияБезНастроек.Организация, ОрганизацияБезНастроек.МестоДеятельности);
        Иначе
            ПредставлениеОрганизации = Строка(ОрганизацияБезНастроек.Организация);
        КонецЕсли;
        ОбщегоНазначения.СообщитьПользователю(
            СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонСообщения, ПредставлениеОрганизации));
    КонецЦикла;
    
    Возврат ВозвращаемоеЗначение;

(44) Чухонцы какие-то писали тебе конфу. Даже запуска в серверном модуле нет. Можешь попробовать поставить на модуль ИнтеграцияВызовСервера галку сервер, да вызывать эту процедуру.

(45) поставить на модуль ИнтеграцияВызовСервера галку сервер - уже есть..

С одной этой процедурой не получается обмен. Да и по тексту вижу, что все построено на клиенте. Например

ТранспортКлиент.ПолучитьВходящиеСообщения(ТранспортныйМодуль, Оповестить);

Бред наверное, но спрошу.
А можно по регламентному заданию на сервере открывать допобработку, а уже в ней при открытии на клиенте вызывать то, что надо?

(47) А как ты с сервера уйдешь на клиента, чтобы там получить "открытие на клиенте"?

В итоге надо переписывать все под сервер. Или пусть винда запускает 1с с открытием внешней обработки..

Ужаас.