платежноепоручениеисходящее » Поиск

Результаты по ключевому слову: платежноепоручениеисходящее

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

Обратился ко мне клиент с задачей: Нужно запретить изменение всех видов платежных документов (ПП, РКО, ПКО) спустя 8 часов с момента проведения соответствующего документа

Для реализации этого я использовал Подписку на событие: ПередЗаписьюДокументаДатаЗапретаРедактирования

В конце процедуры обработчика добавил вызов своей процедуры

Вот ее код:

Код 1C v 8.3

 Процедура ПроверкаВремениСозданияИИзмененияДокумента(Источник, Отказ)

	Если РольДоступна("ПолныеПрава") Тогда

		//Все можно		

	ИначеЕсли Источник.Проведен Тогда //Обрабатывае только Проведенные

		ТекДата=ТекущаяДата(); ЧасовРазрешено=24;

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

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

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

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

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

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

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

			ЧасовРазрешено=8;

			Если НЕ (ТекДата-Источник.Дата)/60 < ЧасовРазрешено*60 Тогда Отказ=Истина; Конецесли;

		КонецЕсли;

	КонецЕсли;	

	#Если Клиент Тогда

		Если Отказ Тогда

			Сообщить("Прошло более "+Строка(ЧасовРазрешено)+" часов с момента создания документа! Изменение запрещено и документ не может быть записан...", СтатусСообщения.Важное);

		КонецЕсли;

	#КонецЕсли

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

Пока документ не проведен, его можно менять сколько угодно, но после первого проведения и истечения указанного количества часов, документ заблокируется, и при проведении будет выведено сообщение:

Категория: Документы

Выбор из нескольких списков документов для открытия?

Код 1C v 8.х

 Док = Метаданные.Документы; 

СписокДокументов = Новый СписокЗначений(); 



СписокДокументов.Добавить(Док.ПлатежноеПоручениеИсходящее, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеПоручениеВходящее, , Ложь); 

СписокДокументов.Добавить(Док.АккредитивПереданный, , Ложь); 

СписокДокументов.Добавить(Док.АккредитивПолученный, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеТребованиеВыставленное, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеТребованиеПолученное, , Ложь); 

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПереданное, , Ложь); 

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПолученное, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежныйОрдерСписаниеДенежныхСредств, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежныйОрдерПоступлениеДенежныхСредств, , Ложь); 



Если СписокДокументов.ОтметитьЭлементы("Укажите, какие списки документов открыть") Тогда 

	Для Каждого НазваниеДокумента из СписокДокументов Цикл 

		Если НазваниеДокумента.Пометка Тогда 

			ФормаСписка = Документы[НазваниеДокумента.Значение.Имя].ПолучитьФормуСписка(); 

			ФормаСписка.Открыть(); 

		КонецЕсли; 

	КонецЦикла; 

КонецЕсли;

Категория: Документы

Как в запросе получить Вид (тип) Документа?

Столкнулся с задачей, нужно было выбрать все документы по выплате и сгруппировать их по типу документа!
Перелистав все ЖКК и интернет, понял что простого способа получить Вид документа в запросе нет

Пришлось сделать так:

Код 1C v 8.х

 

Запрос = Новый Запрос;

Запрос.Текст ="

|ВЫБРАТЬ

|	ВЫБОР

|		КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.РасходныйКассовыйОрдер

|			ТОГДА ""Расходный кассовый ордер""

|		ИНАЧЕ ВЫБОР

|				КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.ПлатежноеПоручениеИсходящее

|					ТОГДА ""Платежное поручение исходящее""

|				ИНАЧЕ ВЫБОР

|						КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.ДепонированиеОрганизаций

|							ТОГДА ""Депонирование""

|						ИНАЧЕ ВЫБОР

|							КОГДА ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.ПриходныйКассовыйОрдер

|								ТОГДА ""Приходный кассовый ордер""

|							ИНАЧЕ """"

|						КОНЕЦ

|					КОНЕЦ

|			КОНЕЦ

|	КОНЕЦ КАК ВидДокумента,

|	ВзаиморасчетыСРаботникамиОрганизаций.Регистратор КАК Регистратор,

|	ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов КАК СуммаВзаиморасчетов

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций

|ГДЕ

|	ВзаиморасчетыСРаботникамиОрганизаций.Регистратор.Дата МЕЖДУ &ДатаН И &ДатаК

|	И ВзаиморасчетыСРаботникамиОрганизаций.ВидДвижения = &ВидДвижения

|ИТОГИ

|	СУММА(СуммаВзаиморасчетов)

|ПО

|	ВидДокумента

|";

Запрос.УстановитьПараметр("ВидДвижения",ВидДвиженияНакопления.Расход);

Запрос.УстановитьПараметр("ДатаК",Дата("28.02.2010 23:59:59"));

Запрос.УстановитьПараметр("ДатаН",Дата("01.02.2010 0:00:00"));

Результат = Запрос.Выполнить();

Результат = Результат.Выбрать();

Пока Результат.Следующий() Цикл

   // ... код обработки...

КонецЦикла;

В 8.2.какой-то версии добавили определение ТИПА

Код 1C v 8.х

 ГДЕ ТИПЗНАЧЕНИЯ(Регистратор) = ТИП(Документ.ВидДокумента)

Категория: Запросы