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

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

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

Как написать так чтоб. Если 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) Зарание же можно ее сразу отладить