Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Выбрать ближайший из нескольких реквизитов
niconix
Отправлено: 24.06.16, 12:08


Молчаливый
*

Группа: Пользователи
Сообщений: 5
Регистрация: 25.07.14
Из: Кременчуг
Пользователь №: 37415


Vofka @ Сегодня, 10:36 *,

Спасибо за наводку. Сделал немного по другому
    СпрОбъект = Категория.ПолучитьОбъект;
    МасДат = Новый Массив;  // Массив Дат выгрузки
    Сч1 = 2;                // Текущий и следующий месяц
    Пока Сч1 > 0 Цикл
        Сч2 = Количество;   // Количество перебираемых реквизитов
        НачалоМес = НачалоМесяца(ДобавитьМесяц(ТекущаяДата(), Сч1 - 1));
        Пока Сч2 > 0 Цикл   // Заполняем массив датами выгрузки
            МасДат.Добавить(НачалоМес + ((СпрОбъект["ПолеВвода"+Сч2]-1)*60*60*24));
            Сч2 = Сч2 - 1;
        КонецЦикла;
        Сч1 = Сч1 - 1;
    КонецЦикла;
    Минимум = 999;          // "Нереально большой" срок
    Для Каждого Дт Из МасДат Цикл   // Перебираем массив в поисках подходящей даты
        Разность = (НачалоДня(Дт) - НачалоДня(ТекущаяДата())) / 86400;
        Если Разность < 1 Тогда     // Если дата меньше текущей, то не берем к сравнению
            Продолжить;             // т.к. отрицательный срок будет всегда меньше
        КонецЕсли;
        Минимум = Мин(Минимум, Разность); // Находим наименьший положительный срок
    КонецЦикла;
    // Сообщаем пользователю
    Предупреждение("Заявка будет отправлена " + Формат(ТекущаяДата() + (Минимум*60*60*24),"ДФ=dd.MM.yyyy"));


ЗЫ. Тему можно считать закрытой
  Форум: Вся 1С · Просмотр сообщения: #113887 · Ответов: 5 · Просмотров: 2725
 

>  Выбрать ближайший из нескольких реквизитов
niconix
Отправлено: 24.06.16, 9:26


Молчаливый
*

Группа: Пользователи
Сообщений: 5
Регистрация: 25.07.14
Из: Кременчуг
Пользователь №: 37415


Vofka @ Сегодня, 10:05 *,
Не понимаю как это сделать без говнокода с каскадом Если-Тогда
  Форум: Вся 1С · Просмотр сообщения: #113882 · Ответов: 5 · Просмотров: 2725
 

>  Выбрать ближайший из нескольких реквизитов
niconix
Отправлено: 24.06.16, 8:50


Молчаливый
*

Группа: Пользователи
Сообщений: 5
Регистрация: 25.07.14
Из: Кременчуг
Пользователь №: 37415


Доброго времени суток.

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

Итак.
Дано:
Справочник, который имеет следующие реквизиты:
  • Количество - Число 0..7
  • Срок1 - Число 0..31
  • Срок2 - Число 0..31
  • Срок3 - Число 0..31
  • ...
  • Срок7 - Число 0..31

Количество указывает сколько первых реквизитов используется(заполнено)
Срок указывает день месяца

Задача:
Найти количество дней от текущей даты до ближайшего срока

Пример:
Количество = 2
Срок1 = 10
Срок2 = 20
ТекущаяДата = 24.06.2016

Результат = 16 (дней)

Помогите, пожалуйста, друзья-товарищи. Я уже себе весь моск сломал.
Если это можно реализовать как-то по-другому с радостью выслушаю предложения.
  Форум: Вся 1С · Просмотр сообщения: #113875 · Ответов: 5 · Просмотров: 2725
 

>  Аналог множества
niconix
Отправлено: 25.11.14, 16:47


Молчаливый
*

Группа: Пользователи
Сообщений: 5
Регистрация: 25.07.14
Из: Кременчуг
Пользователь №: 37415


alex040269, спасибо. Это наиболее подобно.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #93702 · Ответов: 3 · Просмотров: 2682
 

>  Аналог множества
niconix
Отправлено: 25.11.14, 13:25


Молчаливый
*

Группа: Пользователи
Сообщений: 5
Регистрация: 25.07.14
Из: Кременчуг
Пользователь №: 37415


Доброго времени суток, форумчане.

Столкнулся я с проблемой незнанием. Подручные учебники и пол дня гугления не просвятили меня в этом вопросе. Поэтому прошу помощи у знатоков.

Суть вопроса в следующем: мне необходимо из строки текста повыдергивать все символы по одному разу. Т.е. получить набор символов из которых состоит строка.
Для этих целей как нельзя лучше подходит тип Множество, но, как я понимаю, его в 1С нет.
Подскажите как можно решить такую задачку.

Заранее благодарен.
  Форум: Программирование обычных форм 1С 8.2 и не интер... · Просмотр сообщения: #93691 · Ответов: 3 · Просмотров: 2682
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 24.04.24, 20:29
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!