БП 3.0, Получение оригинала документа, добавляем флажок "ТОРГ-12 получен" или "ТТН получен" (в Поступление)

19.10.20

Функциональные - Документооборот и делопроизводство (СЭД)

Расширение предназначено для создания флажка "Торг12 - Оригинал - Получен" или "ТТН получен" в документе "Поступление (акты, накладные)" в Бухгалтерии 3.0.

Файлы

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

Наименование	Скачано	Купить файл	По подписке PRO
БП 3.0, Получение оригинала документа, добавляем флажок "ТОРГ-12 получен" (в Поступление): .cfe 13,99Kb ver:1.1 2	2	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

БП 3.0, Расширение.
Позволяет вывести дополнительный флажок "Торг-12 оригинал" в документе "Поступление (акты, накладные)".

Новые объекты не создаются, используются типовые. "Дополнительные Сведения" не используются.

Разрабатывалось для Бухгалтерии ред. (3.0.83).
Будет работать и на других версиях этой линейки.

Не требует снятия конфигурации с поддержки.

1) Добавляем расширение через Администрирование- Печатные формы, отчёты и обработки - Расширения

После добавления расширения, перезапускаем программу 1С БП 3.0 для вступления изменений в силу.

2) В документе "ПоступлениеТоваровУслуг", а также в списке документов появится сохраняемый флажок "ТОРГ-12 получен".
По кнопке [Печать] -> "Реестр документов" можно вывести добавленный флажок/галку.

Особенность в том, что функционал осуществлён не через "Дополнительные сведения". Используется РегистрСведений.СтатусыДокументов, реквизит "ДополнительныйСтатус", который "свободен" и не используется в документе "ПоступлениеТоваровУслуг".

Ещё одна особенность - в Расширении используются только "Общие модули", формы не затрагиваются. Одним кодом флажок выводится во всех формах Поступления (товары, услуги и т.д.).

Вы можете скачать готовое Расширение или создать его самостоятельно.
Код решения ниже.

Общий Модуль "ПоступлениеТоваровУслугФормы"

&Перед("ПриСозданииНаСервере")
Процедура СтатусДоп_ПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка)
	// Вставить содержимое метода.
	Если Отказ Тогда
		Возврат;
	КонецЕсли;
	
	// Добавляем реквизит и ЭлементФормы	// Торг12Получен
	ДобавитьРеквизитФомы_Торг12( Форма );

	// считываем данные в флажок Торг12Получен
	Ссылка = Форма.Объект.Ссылка;
	ДокументыДляПолученияСтатуса = Новый Массив;
	ДокументыДляПолученияСтатуса.Добавить(Ссылка);
	
	КоллекцияСтатусов = РегистрыСведений.СтатусыДокументов.ПолучитьСтатусыДокументов(ДокументыДляПолученияСтатуса);
	
	СтатусТОРГ12  = КоллекцияСтатусов[Ссылка].ДополнительныйСтатус = Перечисления.СтатусыПоступленияПоСчету.Получен;
	Форма.Торг12Получен = СтатусТОРГ12;
КонецПроцедуры

// создаём реквизит-флажок Торг12Получен   и элемент формы
Процедура ДобавитьРеквизитФомы_Торг12( Форма ) 
	Элементы = Форма.Элементы;
	ИмяЭлемента		= "Торг12Получен";
	ИмяГруппы  		= "ГруппаОригиналы";
	ИмяГруппыПеред 	= "ОригиналСчетаФактуры";
	
	ГруппаФормы 		= Элементы.Найти(ИмяГруппы);
	ГруппаФормыПеред 	= Элементы.Найти(ИмяГруппыПеред);
	Если Элементы.Найти(ИмяЭлемента) <> Неопределено Тогда 	Возврат; КонецЕсли;  // уже есть такой элемент
	Если ГруппаФормы = Неопределено Тогда 					Возврат; КонецЕсли;  // нет такой группы на форме
	
	
	#Область ДобавлениеРеквизитовФормы
	// Массив для новых реквизитов
	ДобавляемыеРеквизиты	= Новый Массив;
	новРеквизит = Новый РеквизитФормы("Торг12Получен",	Новый ОписаниеТипов("Булево") );
	новРеквизит.СохраняемыеДанные = Истина;
	// Заполним массив после описания реквизитов формы
	ДобавляемыеРеквизиты.Добавить(новРеквизит);
	// Добавим новые реквизиты в форму
	Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);
	#КонецОбласти
		
	#Область ДобавлениеЭлементовФормы
	НовыйЭлемент = Элементы.Вставить(ИмяЭлемента, Тип("ПолеФормы"), ГруппаФормы, ГруппаФормыПеред); 

	НовыйЭлемент.Вид = ВидПоляФормы.ПолеФлажка;
	НовыйЭлемент.ПутьКДанным = "Торг12Получен";
	НовыйЭлемент.Заголовок =  "Торг 12 получен";
	НовыйЭлемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Право;
	НовыйЭлемент.Видимость = Истина;
	НовыйЭлемент.Доступность = Истина;
	#КонецОбласти

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

Общий Модуль "СтатусыДокументов"


&После("ВходящийДокументПередЗаписьюНаСервере")
Процедура СтатусДоп_ВходящийДокументПередЗаписьюНаСервере(Форма, Отказ, ТекущийОбъект, ПараметрыЗаписи)
	Если ПроведениеСервер.ГрупповоеПерепроведение(ТекущийОбъект) Тогда
		Возврат;
	КонецЕсли;
	
	//Вставляем в Статусы доп.свойство Торг12
	ДополнительныйСтатус = ?(Форма.Торг12Получен,
		Перечисления.СтатусыПоступленияПоСчету.Получен,
		Перечисления.СтатусыПоступленияПоСчету.НеПолучен);
		// Перечисления.СтатусыОтгрузки.НеОтгружен .Отгружен  ПоступленияПоСчету.НеПолучен
	
	ТекущийОбъект.ДополнительныеСвойства.Вставить("СтатусДокумента_ТОРГ12", ДополнительныйСтатус);
		
		
// статусы устанавливаются в процедуре  УстановитьСтатусДокумента()   ПоступлениеТоваровУслуг.Модуль (объекта)
//  -- можно перенести в это расширение и тогда будет не ПередЗаписью, а ПриЗаписи.  но и так норм, меньше модулей редактируем
	СтатусыДокумента = РегистрыСведений.СтатусыДокументов.НовыеСтатусыДокумента();
	СтатусыДокумента.ДополнительныйСтатус = ДополнительныйСтатус;
	РегистрыСведений.СтатусыДокументов.УстановитьСтатусыДокумента(ТекущийОбъект.Ссылка, СтатусыДокумента);
КонецПроцедуры

Общий Модуль "ПодключаемыеКоманды"


//   добавляем колонку Торг12, в Запрос Список и на форму
// непонятно где лучше внедриться в СписокДокументов, поэтому вот тут
// и меню панели редактировать отсюда можно
&Перед("ПриСозданииНаСервере")
Процедура СтатусДоп_ПриСозданииНаСервере(Форма, ПараметрыРазмещения)
	Если Форма.ИмяФормы	= "Документ.ПоступлениеТоваровУслуг.Форма.ФормаСписка"  Тогда
	//ВЫБОР
	//	КОГДА СтатусыДокументов.Статус = ЗНАЧЕНИЕ(Перечисление.СтатусыДокументовПоступления.ОригиналПолучен)
	//		ТОГДА ИСТИНА
	//	ИНАЧЕ ЛОЖЬ
	//КОНЕЦ КАК Оригинал,
		Форма["Список"].ТекстЗапроса = СтрЗаменить( Форма["Список"].ТекстЗапроса, 
										"КОНЕЦ КАК Оригинал,",
										"КОНЕЦ КАК Оригинал,
									|	ВЫБОР КОГДА СтатусыДокументов.ДополнительныйСтатус = ЗНАЧЕНИЕ(Перечисление.СтатусыПоступленияПоСчету.Получен) ТОГДА ИСТИНА ИНАЧЕ ЛОЖЬ КОНЕЦ КАК Оригинал_Торг12," 

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

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

оригинал получен флажок ТОРГ12 Поступление

+4 –

См. также

1С:Документооборот 8

Бухгалтер Пользователь Руководитель проекта 1С:Предприятие 8 Управленческий учет Платные (руб)

Организуйте правильный оборот документов на вашем предприятии в 1С. Ведение учета и хранения документов. Управление потоками документации между подразделениями. Работа с договорами в компании. Автоматизация процессов подготовки, согласования и подписания документов. Сократите время и объем ошибок с 1С:Документооборот! Покупайте в Инфостарт и получайте 15% бонусов на наши услуги, сервисы и мероприятия!

63100 руб.

19.02.2016 116484 169 5

130

1С:Архив

1С:Предприятие 8 Платные (руб)

"1С:Архив" – это универсальная система для надежного долговременного хранения документов с гарантией юридической значимости на неограниченный срок. Решение разработано на основе нормативно-правовых актов по архивному делу, поддерживает операции хранения документов: от попадания в архив до уничтожения, и не имеет ограничений на объем хранимых данных. "1С:Архив" сопровождается методологической поддержкой в виде организационных документов по хранению, входящих в состав "Комплекта нормативных документов" к "Методике управления документами и совместной работой", разработанной специалистами фирмы "1С". Использование "1С:Архива" позволяет организовать единое хранилище всех бумажных и электронных документов из разных информационных систем, вести архивный учет в соответствии с требованиями Росархива и снизить нагрузку на учетные системы. С 1 апреля 2026 года стоимость изменится на 14%, успейте купить решение по цене 2025 года!

117000 руб.

24.10.2022 8757 17 1

SALE! 35%

Распознавание и загрузка документов в 1С

Загрузка и выгрузка в Excel Учет документов Распознавание документов и образов Бухгалтер Пользователь 1С:Предприятие 8 1С 8.3 1С 8.5 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление холдингом 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Программа для распознавания сканов или фотографий товарных документов в 1С. Просто выбираете файл (PDF, XML, JPG, DOC, XLS, HTML) и нажимаете кнопку "Распознать и загрузить".

~~8540~~ 5551 руб.

04.06.2019 127981 385 183

376

Архив ЭДО: хранение оригиналов первичных документов в базе 1С

ЭДО и ОФД Учет документов 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

Мощный, единый инструмент для решения всех проблем, связанных с переходом на ЭДО. Экономит бумагу и время – организует полностью соответствующий закону архив оригиналов первичных документов прямо в базе 1С, в прикрепленных файлах к соответствующим документам. Выявляет все возможные ошибки в ЭДО и помогает в несколько кликов их исправить. Взаимодействует напрямую с сервисами Диадок/СБИС, имеет интуитивно понятный интерфейс и учитывает 5-ти летний опыт 60+ клиентов.

19520 руб.

17.12.2018 52322 86 68

Шаблоны WORD для 1С - документы в формате doc

Печатные формы Учет документов Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет Управленческий учет Платные (руб)

Приложение для быстрого создания макетов печатных документов, заполняемых из 1С:Предприятие, без привлечения программистов и запуска конфигуратора. Шаблон готовится в редакторе MS Word, отлично освоенном офисными служащими. Так, на подготовку нового шаблона договора купли продажи со спецификацией потребуется 25 минут. Приложение будет полезно, если Вы работаете со множеством Word-шаблонов или если Вам надо часто создавать новые шаблоны. Есть сертификат "1С: Совместимо!". Версия ПРОФ доступна в виде расширения.

2000 руб.

05.09.2017 99535 80 107

111

Расширение 1СПАРК риски для 1С:Документооборот 8 КОРП

WEB-интеграция Взаиморасчеты Аналитик Бухгалтер Руководитель проекта 1С:Предприятие 8 1С:Документооборот Бухгалтерский учет Управленческий учет Платные (руб)

Расширение для конфигурации 1С:Документооборот 8 КОРП, позволяющее с помощью сервиса "1СПАРК риски" проверять благонадежность контрагентов непосредственно из программы 1С.

7320 руб.

23.05.2018 31979 20 10

Печать договоров с приложением

Печатные формы Бухгалтер Пользователь 1С:Предприятие 8 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

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

15000 руб.

20.04.2016 70503 199 107

109

Управление рабочими группами для 1С:Документооборота

Роли и права Системный администратор 1С:Предприятие 8 1С:Документооборот Управленческий учет Платные (руб)

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

6000 руб.

23.10.2015 67297 121 25

134

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. RustIG 1990 19.10.20 11:49 Сейчас в теме

(0) Для чего разделять статусы "Оригинал получен" и "Торг-12 получен"?

2. WWWolfy 149 19.10.20 12:12 Сейчас в теме

(1)
Бухи ведут раздельно "ТТН получен" и "ТОРГ12 получен".
Бухгалтерский и сопроводительный транспортный документы.

По сути код позволяет добавить любой дополнительный вариант.
Как вы его назовёте - не принципиально.