Распределение новых документов по времени. Расширение для БП 3.0

15.11.17

Задачи пользователя - Адаптация типовых решений

В качестве примера для начинающих. Затронуты документы Поступление товаров и услуг, Требование-накладная. Остальные можно добавить по вкусу. Протестировал на платформе 8.3 (8.3.10.2650), Конфигурация Бухгалтерия предприятия, редакция 3.0 (3.0.54.15).

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
Расширение БП3.0 Распределение новых документов по времени:
.cfe 5,08Kb ver:1.0
4 1 850 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

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

Добавил общий модуль в расширении ФиксированноеВремяДокументов как Заимствованный 

&После("УстановитьВремяНовогоДокумента")
Процедура Распред_УстановитьВремяНовогоДокумента(Источник,Отказ) Экспорт
    
    Если Источник.ЭтоНовый() Тогда
        
        Если Источник.ОбменДанными.Загрузка Тогда
            Возврат;
        КонецЕсли;
        
        Если НЕ ПолучитьФункциональнуюОпцию("ФиксированноеВремяВДокументах") Тогда
            Возврат;
        КонецЕсли;
        
        Если Источник.Метаданные().Имя="ПоступлениеТоваровУслуг" Тогда
            Источник.Дата  = НачалоДня(Источник.Дата)+7*60*60;
        ИначеЕсли Источник.Метаданные().Имя="ТребованиеНакладная" Тогда
            Источник.Дата  = КонецДня(Источник.Дата)-5*60*60;
        КонецЕсли;
        
    КонецЕсли;
    
КонецПроцедуры

 

Вступайте в нашу телеграмм-группу Инфостарт

Расширение конфигурации Бухгалтерия предприятия 3.0

См. также

Адаптация типовых решений 1С v8.3 1С:Документооборот Россия Платные (руб)

Расширение конфигурации для «1С:Документооборот КОРП», редакция 3.0. позволяет: 1.использовать произвольные табличные части в качестве дополнительных реквизитов к документу; 2 использовать произвольные табличные части в шаблонах в формате docx для автоматического заполнения таблиц.

31800 руб.

29.06.2023    9569    29    15    

37

Банковские операции Адаптация типовых решений Бухгалтер Пользователь 1С v8.3 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

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

9600 руб.

17.06.2025    1560    5    0    

5

Логистика, склад и ТМЦ Адаптация типовых решений Пользователь 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 Россия Управленческий учет Платные (руб)

Чтобы не допустить путаницы с обещаниями клиентам и для четкого контроля исполнения заказов мы используем резервирование товаров. Расширение для УНФ, чтобы автоматически отменять старые резервы и не мешалть эффективно продавать.

9000 руб.

02.08.2023    6270    23    5    

39

Адаптация типовых решений Бухгалтер 1С v8.3 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Разработка для упрощения процедуры передачи данных о выплатах для конфигурации 1С:ЗиКГУ. Данное расширение предоставляет возможность экспортировать данные «Распоряжения» непосредственно из документа "Ведомость в банк" в формате XML.

3840 руб.

13.11.2024    2330    3    4    

4

Адаптация типовых решений Программист 1С v8.3 1С:Бухгалтерия 3.0 1С:Зарплата и Управление Персоналом 3.x Россия Абонемент ($m)

Маленькая заметка (в трех разных масштабах) для тех, кто часто видит окно при входе в ЗУП «Новые сообщения для расшифровки по 1С-Отчетность», которое появляется через 60 секунд после запуска программы, как раз когда вы уже добрались до интересующей вас формы и начали в ней что-то активно делать:

1 стартмани

17.06.2024    7605    80    Znata_PI    12    

22

Адаптация типовых решений Программист Пользователь 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Абонемент ($m)

Каждый из нас сталкивается с ситуацией, когда какой-нибудь менеджер показывает свой Excel и рассказывает, как он что-то из 1С копирует в него, снабжает пояснениями, выделяет цветом и т.д. и т.п. Заканчивается все просьбой сделать вот чтобы также было в 1С. И оказывается такой человек (почти с гарантией) либо лучшим продажником, либо каким-то важным, за все отвечающим, - на ком все держится.

2 стартмани

22.04.2024    7207    dimanich70    17    

22

БСП (Библиотека стандартных подсистем) Адаптация типовых решений Программист 1С v8.3 1С:ERP Управление предприятием 2 Бесплатно (free)

Понадобилось в подменю "Создать на основании" добавить свою команду, которая открывает обработку. В процессе доработок появилась проблема двух подменю "Создать на основании". В статье о том, как решились проблемы.

01.03.2024    17286    dimanich70    11    

26
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. silberRus 73 17.11.17 09:19 Сейчас в теме
А почему используется имя метаданного, вот так:
Источник.Метаданные().Имя="ПоступлениеТоваровУслуг"


Метод Метаданные() он же более медленный чем определение типа.
Можно например:
ТипЗнч(Источник) = Тип("ДокументОбъект.ПоступлениеТоваровУслуг")
2. МимохожийОднако 142 17.11.17 14:57 Сейчас в теме
(1) Спасибо. Так и сделал.

&После("УстановитьВремяНовогоДокумента")
Процедура Распред_УстановитьВремяНовогоДокумента(Источник,Отказ) Экспорт

Если Источник.ЭтоНовый() Тогда

Если Источник.ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;

Если НЕ ПолучитьФункциональнуюОпцию("ФиксированноеВремяВДокументах") Тогда
Возврат;
КонецЕсли;

Если ТипЗнч(Источник) = Тип("ДокументОбъект.ПоступлениеТоваровУслуг") Тогда

Источник.Дата = НачалоДня(Источник.Дата)+7*60*60;
ИначеЕсли ТипЗнч(Источник) = Тип("ДокументОбъект.ТребованиеНакладная") Тогда
Источник.Дата = КонецДня(Источник.Дата)-5*60*60;
КонецЕсли;

КонецЕсли;

КонецПроцедуры
3. МимохожийОднако 142 17.11.17 15:01 Сейчас в теме
Обновил публикацию с учетом замечаний
Прикрепленные файлы:
РаспределениеДокументовПоВремени.cfe
4. gull22 105 22.11.17 11:26 Сейчас в теме
А чем не устраивает штатный механизм БП 3.0
Прикрепленные файлы:
5. МимохожийОднако 142 26.11.17 10:12 Сейчас в теме
(4) У клиента были еще дополнительные пожелания по этому механизму. Сюда я его хотелки не выкладывал.
Для отправки сообщения требуется регистрация/авторизация