Доброе утро! Подскажите пжл какими вариантами можно сделать такое задание -1) https://wampi.ru/image/62DUzO6  --2)https://wampi.ru/image/62DUMdw
Я понимаю что всех достал здесь(  Но нужен совет. Раньше никогда не делал такое задание.

Вариант наиболее простой - заплатить мне N тыяч рублей.

(1)Нет. Есть ещё проще. Заплатить мне N+1 тысяч рублей.

Создаешь регламентное задание в конфигураторе.
Ставишь расписание на каждый день, например, ночью.
В начале пишешь Если День(ТекущаяДата)<26 ИЛИ День(ТекущаяДата)>27 Тогда Возврат КонецЕсли
Проверяешь 26 число на выходной (например, найдя эту дату в производственном календаре (регистр сведений). Если выходной, то возврат.
Если День=27 и 26 число не выходной, тогда возврат
В коде прописываешь механизмы обмена с САП

(2) N+1 операция сложнее, чем N

Сделаю за N/2

(2) Мне N+2 т.р. 3 т.р. верну на карту))

(4) зато кратность "тыяч" (см 1) непонятна ))

(3) Это да, но там нужно выбрать процедуру которая будет срабатывать

(4) вы студенты чтоли? ставка эксперта NN+1

(9) можешь считать меня альтруистом

(8) ты можешь сказать в чем у тебя проблема? Ты не знаешь как регламентное задание создать, как обеспечить запуск в нужную дату, как написать процедуру обмена с САП?

(9) Предположим N = 0.1
Так что твоё предложение на уровне средней группы детсада...

))

(3) Нашел две процедуры. В форме заполнения передачи
Процедура ОсновныеДействияФормыПереформировать(Кнопка)
    
    Если Не ЗначениеЗаполнено(СтатФорма) Тогда
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не указана форма",,"СтатФорма");
        Возврат;
    КонецЕсли;
    
    Если НЕ ЗначениеЗаполнено(НачПериода) ИЛИ НЕ ЗначениеЗаполнено(КонПериода) ИЛИ
        НачПериода > КонПериода Тогда
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Не правильно задан период",,"НачПериода");    
        Возврат;
    КонецЕсли;
    
    ПараметрыОтчета = Новый Структура;
    ПараметрыОтчета.Вставить("ИДФормы", СтатФорма);
    ПараметрыОтчета.Вставить("Организация", Организация);
    ПараметрыОтчета.Вставить("НачалоПериода", НачалоДня(НачПериода));
    ПараметрыОтчета.Вставить("КонецПериода", КонецДня(КонПериода));
    РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПерезаполнитьОтчетность(ПараметрыОтчета);
    
    Закрыть();
    
КонецПроцедуры

Процедура ОсновныеДействияФормыПередатьВSAP(Кнопка)
    
    КодФормы = РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПолучитьКодФормыПоИДФормы(СтатФорма);
    
    Если ЗначениеЗаполнено(КодФормы) Тогда
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоДня(НачПериода), КонецДня(КонПериода));
    КонецЕсли;
    
КонецПроцедуры

(11) С чем  него проблема, могу сказать я. Но не буду.

(10) дешего не всегда правильно и качественно. ;-) закрыли флуд.

(15) Солнце желтое, трава зеленая

(13)
Вот весь твой код
КодФормы = РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПолучитьКодФормыПоИДФормы(СтатФорма);
    
    Если ЗначениеЗаполнено(КодФормы) Тогда
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоДня(НачПериода), КонецДня(КонПериода));
    КонецЕсли;

Только каким-нибудь способом определи "СтатФорма":

(11) Я не могу понять как сделать. То ли всперва нужна процедура которая будет заполнять все реквизиты автоматом, и потом будет нажимать "Переформировать" а в конце будет срабатывать передать в сап (15)

(18) забудь про форму своей обработки. У тебя в регламентном задании никаких форм нет. Будет одна процедура

ПараметрыОтчета = Новый Структура;
    ПараметрыОтчета.Вставить("ИДФормы", СтатФорма);
    ПараметрыОтчета.Вставить("Организация", Организация);
    ПараметрыОтчета.Вставить("НачалоПериода", НачалоДня(ТекущаяДата()));
    ПараметрыОтчета.Вставить("КонецПериода", КонецДня(ТекущаяДата()));
    РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПерезаполнитьОтчетность(ПараметрыОтчета);
    
    
    КодФормы = РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПолучитьКодФормыПоИДФормы(СтатФорма);
    
    Если ЗначениеЗаполнено(КодФормы) Тогда
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоДня(НачПериода), КонецДня(КонПериода));
    КонецЕсли;

ПараметрыОтчета.Вставить("НачалоПериода", НачалоМесяца(ТекущаяДата()));

(20) Что то туго пока что понимаю.
1) действие - Создаю общий модуль
2)  - Создаю процедуру туда пишу то что вы написали
3)- Создаю "Регламетное задание - Привязываю к процедуре - и ставлю даты срабатывания?

(21) Да. Только учти (3) и регзадания галочку "Предопределенное" поставь

(19) Следующий вопрос будет: У меня пишет ошибку "Переменная не определена (СтатФорма)". Что делать?

(22) Спасибо) Последний только вопрос как, как проверить работает ли "Задание"? В книжках читал. Ничего не написано, как проверить

(23) Не угадали немного)

(24) попробуйте тестовый пример прогнать

(23) А нет угадали(

(27)Ахахах))))
dka80 иди, поциент вернулся.

(28) Ужас)) Краснею уже))

(24) Я обычно пишу в начале модуля рег задания Сообщить("Начало рег задан")
а в самом конце Сообщить("Конец рег задан") - по этому и вижу доходит ли до конца

(30) Хороший вариант. Спасибо) Попробую так сделать.

Вот так написал, ошибка выходить(
{ОбщийМодуль.тн_ОбменСап.Модуль(16,57)}: Переменная не определена (НачПериода)
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоМесяца(<<?>>НачПериода), КонецДня(КонПериода)); (Проверка: Толстый клиент (обычное приложение))


Процедура тн_ОбменСап (СтатФорма) Экспорт
    
    Организация = Справочники.Организации.НайтиПоКоду("000000001");
    
    ПараметрыОтчета = Новый Структура;
    ПараметрыОтчета.Вставить("ИДФормы", СтатФорма);
    ПараметрыОтчета.Вставить("Организация", Организация);
    ПараметрыОтчета.Вставить("НачалоПериода", НачалоМесяца(ТекущаяДата()));
    ПараметрыОтчета.Вставить("КонецПериода", НачалоМесяца(ТекущаяДата()));
    РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПерезаполнитьОтчетность(ПараметрыОтчета);
    
    
    КодФормы = РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПолучитьКодФормыПоИДФормы(СтатФорма);
    
    Если ЗначениеЗаполнено(КодФормы) Тогда
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоМесяца(НачПериода), КонецДня(КонПериода));
    КонецЕсли;
    

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

Дату надо ставить как на скрине? который пользователь заполнял.

(32) Удивительно, правда? В (19) по другому написано

(24) по хорошему, все регламентные задания должны записывать результаты своей работы в журнал регистрации. ЗаписьЖурналаРегистрации

(32) соберись, тряпка! нам немного осталось

(36) Ахаха))

(30) и куда это у тебя регзадание сообщение выводит?

(34) Не понял. Что подругому написано ???

(34) Это про дату?

(39) не твое это...

тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоМесяца(ТекущаяДата()), КонецДня(ТекущаяДата()));

(41) Может быть.

(41) Спасибо) Написал, ошибок пока нет вроде

(44) Да, я щас понял в чем была проблема.

(45) В неверной профориентации?))

(44) а я специально не стал это говорить ))

(38) рег задания в файловом варианте. для теста

(47)Ок, сохранила интригу)

(49) Давайте без интриг пжл=)

Последний вопрос)
Подскажите еще как  настройки поставить?  https://wampi.ru/image/62DSTaz

Как поставить такое условие? чтоб если выходной 25-26 тогда 27 чтоб срабатывала.


Нужно чтобы по регламентному заданию данные по КПЭ передавались на 26 число на конец рабочего дня, то есть ежемесячно 26 числа следующего за отчетным периодом. (Пример 26.07.2019 данные передавались за период 01.06.2019-30.06.2019). А если 25-26 числа месяца на выходной выпадают то точно 27.

(51) я тебе в (3) что писал про это?

(50) так все работает или есть еще проблемы?
Кстати на будущее: из рег задание недоступны "ПараметрыСеанса". В свое время с этим долго выяснял

(52) Увидел.Спасибо

(51) на первой закладке нужно поставить "каждый день". А чтобы виполнялось в в не выходные дни, (25 или 26 или 27...) нужно писать в коде

(55) Хорошо понял, спасибо)

Доброе утро! Подскажите еще одну вещь. Написал запрос для проверки на выходные дни. А как проверить незнаю(

Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня
                   |ИЗ
                   |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
                   |ГДЕ
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)";
    Результат = Запрос.Выполнить();
    
    Если Результат.Колонки.ВидДня =  Тогда

Как написать так чтоб. Если 25,26 выходные тогда 27
Если 26,27 выходной тогда 28?

(58)У тебя в запросе только один вид дня, для чего его дополнительно проверять? Сделай запрос по нерабочим дням и на конкретную дату, которую проверяешь. Тогда будет Если Результат.Пустой(), значит твоя дата рабочая.

(59) Хорошо. щас попробую напишу такой запрос.

(59) https://wampi.ru/image/62mLxKY Вот такая ошибка выходит( Когда я ставлю условие по не рабочим дням

(61)Нерабочий день - это как рабочий, только не....

(62) Это понятно. Что не...
Суббота и воскр и праздники вроде как входит в это "НЕ"

(63)НЕ твое это, бросай...

В языке запросов используются условия отбора, в соответствии с которыми осуществляется отбор данных в предложениях ГДЕ, ИМЕЮЩИЕ и СОЕДИНЕНИЕ. Условия описываются по следующим правилам:

В простейшем случае условие является выражением, результат которого имеет значение логического типа.

Условия могут определяться и как более сложные логические выражения, где фигурируют простые логические выражения, соединенные между собой с помощью логических операторов И, ИЛИ, НЕ.

(64) Хорошо. Спасибо

Доброе утро! Подскажите  пжл как написать так чтоб
Если 27 сработала тогда 28 числа возврат
или 26 сработала 27,28 тогда возврат

Вот такой код

Если День("20191127")<26 ИЛИ День("20191127")>28 Тогда
    Сообщить("Возврат1");
        Возврат;
    КонецЕсли;

    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    |    РегламентированныйПроизводственныйКалендарь.ВидДня,
    |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря
    |ИЗ
    |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
    |ГДЕ
    |    Не РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
    |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря"
    ;
    Запрос.УстановитьПараметр("ДатаКалендаря",Дата("20191127"));
    Результат = Запрос.Выполнить();
    Если НЕ Результат.Пустой() Тогда
        Сообщить("Выходной");
        Возврат;
    КонецЕсли;
    Если День("20191127") = 28 и 27 и Не Результат.Пустой() Тогда
        Сообщить("Проверка 27-28");
        Возврат;
    КонецЕсли;
    Сообщить("Финиш");

Тут все сложно. Тут запоминать придется, когда сработало.

(67) Дело в том что
Если я 28 ноября 2019 это четверг то возврат происходит
Вроде как правильно

А когда ставлю 28 октября 2019 это понедельник
То тоже возврат

Я вроде понял в чем дело. А как сделать. Незнаю(

(69) там же в расписании есть галочки Понедельник, Вторник и т.д. Проставьте их и всё. Чего вы чудачите?

(70) Ну две ситуации может быть
например
Я запускаю 26
1) 26 попал на субботу тогда нужно 28 как это с галочками там сделать?
Или
2)26 попал на воскресенье тогда 27 это тоже как сделать с галочками там?

(71) ну 26 галочка не стоит, значит не сработает. 27-го в понедельник сработает

Щас попробую. Покажу как сделал.

Опять ты????

(74) =)

(72) Вот сделал https://wampi.ru/image/623J8dP верно?

Нет. Галочками по дням не сработает. Если 26 попадет например на понедельник, тогда и 26 и 27 сработает (а по условию задачи недолжно)

(76) на первой закладке поставь 1 (чтоб писало "каждый день") но думаю не сработает так как нужно по задаче.
Думаю бедет выполнятся только 26 числа (и + если это не выходные)

(72)Впрос в том, если 26,27,28 - будние дни, как не отправлять 27 и 28

(79) вообще-то этих дней неисоизмеримо мало: 12 дней в году. Тупо забить 60 значений в массив на ближайшие 5 лет и забыть.

Праздники тоже входит в выходные

(80)Как вариант для ТС - отличное решение :)

(79) а так элементарную проверку

если 26 суббота, то выводить 28
если 26 воскресенье, то выводить 27
иначе выводить 26

(80) Проще проверить на ДеньНедели(ТекущаяДата()) и игратся с этими значениями

(81) у вас какая страна? где это праздник 26го?

(81) Это вопрос? или дополнительное условие которого в (0) небыло.

(86) Это в регистре есть

Я сделал запрос по совету (59) по не рабочим дням

Если конфигурация нетиповая, то еще такой вариант я бы сделал: Добавил бы контстанту ДатаПоследнейПередачи. И проверял сколько (Если дата между 26-28 числами) дней прошло с последней передачи. И если больше4 дня, то передавать

Если День(ТекущаяДата())<26 ИЛИ День(ТекущаяДата())>27 Тогда Возврат КонецЕсли;
Если ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 26) Тогда Возврат КонецЕсли;
Если Не ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 26) И День(ТекущаяДата())=27 Тогда Возврат КонецЕсли;

Далее твой код по передаче

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

(90) Спасибо. Щас попробую проверить.

(90) условия невырны. Во первыых период с 26 по 28. Во вторых если 26 будет выходной, то код ниже в ТекущемМесяце вобще никогда не выполнится

(92) ТЗ в (0) смотрел? 27 крайняя дата когда должен быть отправлен отчет

(93) 28 сказали. просто может быть 26-27 выходной тогда 28 выполнять

(90) Ошибка только одна выходит(

{ВнешнийОтчет.ОсвоениеИнвестиционныхПроектов.Форма.ФормаОтчета.Форма(52)}: Преобразование значения к типу Булево не может быть выполнено
    Если Не ЭтоВыходнойДень(Дата(Год("20191126"), Месяц("20191126"), 26) И День("20191126")=27) Тогда

(93) что это меняет, всеравно нужно минимум три дня. А с учетом допУсловия (нужно учитывать также и праздники) период нужно увеличить.
Ну и по условию что ты создал, когда виполнится выгрузка, если 26 -это субота или воскресенье?

(95) что возвращает твоя функция ЭтоВыходнойДень ?

(96) по моему условию выполнится 27 числа

(95) Ну включи немного голову
Дата оформляется опострофами, а не ковычками. Правильно '20191126'

(94) в ТЗ у тебя было написано, что 25,26 может быть выходной и выполнять надо 27. Раз у тебя новые вводные, ну прибавь единичку ко всем цифрам в (90)

(98) Уверен?
Если ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 26) Тогда Возврат КонецЕсли;
Вот эта строка не пропустит дальше. Ты же проверяешь является ли 26 число выходным (но если ТекущаяДата например 27 число, то это не отменяет того факта что 26 - выходной и по твоему условию всеравно будет Возврат)

(101) Если ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 26) И День(ТекущаяДата())=26 Тогда Возврат КонецЕсли;
Пусть ТС немного голову включит

(99) Разницу я не увидел

(103) больше конкретики

Что то все равно не хочет получатся(

(105) ты на (103) ответишшь?

точнее на (104)

(106) Извините не увидел

(104) То что дату ставишь хоть в кавычках хоть с опострофами

Разницы нет вроде как

Вот так написал пока
Если День('20191126')<26 ИЛИ День('20191126')>27 Тогда
        Сообщить("1");
        Возврат;
    КонецЕсли;
    Если ЭтоВыходнойДень(Дата(Год('20191126'), Месяц('20191126'), 26)) Тогда
        Сообщить("2");
        Возврат;
    КонецЕсли;
    Если Не ЭтоВыходнойДень(Дата(Год('20191126'), Месяц('20191126'), 26) и День('20191126')=27) Тогда
        Сообщить("3");
        Возврат;
    КонецЕсли;
   Сообщить("Фин");

На второй он возврат не делает
а на 3  на строке Если Не ЭтоВыходнойДень ошибка

(110) в 3-м напутал с скобками
Если Не ЭтоВыходнойДень(Дата(Год('20191126'), Месяц('20191126'), 26)) и День('20191126')=27 Тогда

или даже так:
Если Не (ЭтоВыходнойДень(Дата(Год('20191126'), Месяц('20191126'), 26))) и (День('20191126')=27) Тогда

(111) Точно. Щас до "фин" дошла

Щас буду проверять дальше

(112) (День('20191126')=27) точно?

(115) а, или потом это будет заменено на текущаядата()?

Кстати покажи саму функцию - ЭтоВыходнойДень

(117) Функция ЭтоВыходнойДень(ПроверяемаяДата)
Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня
                   |ИЗ
                   |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
                   |ГДЕ
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
                   |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря";
    Запрос.УстановитьПараметр("ДатаКалендаря", Дата('20191126'));
    Результат = Запрос.Выполнить();
Возврат Результат.Пустой();  

КонецФункции

(118) Запрос.УстановитьПараметр("ДатаКалендаря", Дата('20191126'));
Замени на  Запрос.УстановитьПараметр("ДатаКалендаря", ПроверяемаяДата);

(119) Да это ставил

Ааа понял

Только я щас не пойму.
Я поставил 27 мая понедельник
и в итоге возврат 2 происходит.


Если ЭтоВыходнойДень(Дата(Год('20190527'), Месяц('20190527'), 26)) Тогда
        Сообщить("2");
        Возврат;
    КонецЕсли;
    Если Не ЭтоВыходнойДень(Дата(Год('20190527'), Месяц('20190527'), 26)) и День('20190527')=27 Тогда
        Сообщить("3");
        Возврат;
    КонецЕсли;
   Сообщить("Фин");

(122) читал исправление в (102)  ?

(123) Прочитал

(116) Да это потом на текущую дату заменю

Щас получается так что
если я ставлю  
27 на воскресенье то она возврат не делает.

(126) наверное, потому что 27 мая 2019 это понедельник

(127) Я ставил на 27 октября 2019

(127) Это воскресенье
Если вот так написать
Если  ЭтоВыходнойДень(Дата(Год('20191027'), Месяц('20191027'), 26)) и День('20191027')=27 Тогда
Писать то возврат срабатывает
А так нет
Если Не ЭтоВыходнойДень(Дата(Год('20191027'), Месяц('20191027'), 26)) и День('20191027')=27 Тогда

(129) Ну так логично. Как ставишь условие, так и срабатывает.

Вот сделал так. Проверял вроде нормально. dka80  vova1122 Спасибо вам большое помогли)
Если День('20190528')<26 ИЛИ День('20190528')>28 Тогда
        Сообщить("1");
        Возврат;
    КонецЕсли;
    Если ЭтоВыходнойДень(Дата(Год('20190528'), Месяц('20190528'), 26)) И   День('20190528')=26 Тогда
        Сообщить("2");
        Возврат;
    КонецЕсли;
    Если  НЕ ЭтоВыходнойДень(Дата(Год('20190528'), Месяц('20190528'), 26)) и День('20190528')=27 Тогда
        Сообщить("3");
        Возврат;
    КонецЕсли;
    Если НЕ ЭтоВыходнойДень(Дата(Год('20190528'), Месяц('20190528'), 27)) и День('20190528')=28 Тогда
        Сообщить("4");
        Возврат;
    КонецЕсли;
    Сообщить("финиш");    
КонецПроцедуры
Функция ЭтоВыходнойДень(ПроверяемаяДата)
Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня
                   |ИЗ
                   |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
                   |ГДЕ
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
                   |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря";
    Запрос.УстановитьПараметр("ДатаКалендаря", Дата(ПроверяемаяДата));
    Результат = Запрос.Выполнить();
Возврат Результат.Пустой();  

КонецФункции

ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)

еще  надо предпраздничные добавить по идее

(132) Вот так?

ВЫБРАТЬ
                   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня
                   |ИЗ
                   |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
                   |ГДЕ
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)
                   |    И РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий)
                   |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря";

Напомните,а что день может быть и рабочим и предпраздничным одновременно?

(134) Например может перед 28 февралём быть

(134) Если 26 воскресенье, 27 понедельник предпраздничный день как бы получается

(136)Открой и посмотри РегламентированныйПроизводственныйКалендарь.Что у тебя может в один деь стоять два варианта: Предпраздничный и Рабочий?

(137) Посмотрел. Все в отдельный дни
Например
29.04.2019 Раб
30.04.2019 Предпраз
01.05.2019 Праздник

(138) Тогда какого рожна у тебя между Предпраздничный и Рабочий стоит условие И?А?

(139) Да в консоле проверил не правильно

(140) нужный нам день должен быть рабочим ИЛИ предпразничным имелось в виду

Т.е. в запросе должно быть условие не И а ИЛИ =)
                   |ГДЕ
                   |    (РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный)
                   |    ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий))
                   |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря";

но лучше так

                   |ГДЕ
                   |    (РегламентированныйПроизводственныйКалендарь.ВидДня в (ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный),ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий))
                   |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря";

(141) Спасибо) я в консоле тоже всперва сделал  первый вариант
Но почему то всперва не было ничего. Результат не тот выходил

Первый и второй вариант дают одинаковый результат. Ты скорее забыл про скобки (для объединения двух условий)

(143) Точно

Итог: Вот так вообщем получилось. Посмотрите пжл. Что может быть не так.

И вот такой настройки поставил: https://wampi.ru/image/628xjli

Процедура тн_РегламетноеЗаданиеОбменSap (СтатФорма) Экспорт
    
    Если День(ТекущаяДата())<26 ИЛИ День(ТекущаяДата())>28 Тогда
        Возврат;
    КонецЕсли;
    Если ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 26)) И   День(ТекущаяДата())=26 Тогда
        Возврат;
    КонецЕсли;
    Если ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 27)) И   День(ТекущаяДата())=27 Тогда
        Возврат;
    КонецЕсли;
    Если  НЕ ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 26)) и День(ТекущаяДата())=27 Тогда
        Возврат;
    КонецЕсли;
    Если НЕ ЭтоВыходнойДень(Дата(Год(ТекущаяДата()), Месяц(ТекущаяДата()), 27)) и День(ТекущаяДата())=28 Тогда
        Возврат;
    КонецЕсли;
    
    Организация = Справочники.Организации.НайтиПоКоду("000000001");
    
    ПараметрыОтчета = Новый Структура;
    ПараметрыОтчета.Вставить("ИДФормы", СтатФорма);
    ПараметрыОтчета.Вставить("Организация", Организация);
    ПараметрыОтчета.Вставить("НачалоПериода", НачалоМесяца(ТекущаяДата()));
    ПараметрыОтчета.Вставить("КонецПериода", КонецМесяца(ТекущаяДата()));
    
    РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПерезаполнитьОтчетность(ПараметрыОтчета);
    
    КодФормы = РегистрыСведений.тн_СтатистическаяОтчетностьДляSAP.ПолучитьКодФормыПоИДФормы(СтатФорма);
    
    Если ЗначениеЗаполнено(КодФормы) Тогда
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата()));
    КонецЕсли;
    
КонецПроцедуры
Функция ЭтоВыходнойДень(ПроверяемаяДата)
Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня
                   |ИЗ
                   |    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
                   |ГДЕ
                   |    РегламентированныйПроизводственныйКалендарь.ВидДня в (ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Предпраздничный) ,ЗНАЧЕНИЕ(Перечисление.ВидыДнейПроизводственногоКалендаря.Рабочий))
                   |    И РегламентированныйПроизводственныйКалендарь.ДатаКалендаря = &ДатаКалендаря";
    Запрос.УстановитьПараметр("ДатаКалендаря", Дата(ПроверяемаяДата));
    Результат = Запрос.Выполнить();
Возврат Результат.Пустой();  

КонецФункции

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

(146) Хорошо. Поставил просто что "Каждый день"

+ Ну и время и один раз в день оставь

(148) Выполнять: каждый день; с 23:00:00 один раз в день
Вот так поставил

(148) Можно еще такой вопрос на всякий случай. Общий модуль. Такие же должны быть галочки?https://wampi.ru/image/62868BY (В книге прочитал что так должно быть)

(150) У меня  "Обычное приложение" не отмечено, а "Привелигирований" -Отмечено.   Хотя может более опытные посоветуют. Так как я с 1С8 только пол года, и много еще чего незнаю

(151) Ок. Спасибо за помощь)

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


Вот это условие не срабатывает.
Если ЗначениеЗаполнено(КодФормы) Тогда
        тн_ОбменSAP.ПередатьВSAP(КодФормы, НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата()));
    КонецЕсли;

(153) так оно же у тебя 26-го срабатывает. а 26-е еще не наступило. Жди.

(154) Я в обработку закинул ее. Чтоб посмотреть отладкой.  И когда  я вычесляю СтатФорма там не не определенно.
И тут она пишет ЗначениеЗаполнено(КодФормы)  Значение Ложь

(154) Зарание же можно ее сразу отладить