видрегистра » Поиск

Результаты по ключевому слову: видрегистра

Как удалить движения документа программно?

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

При попытке отмены проведения выполнялись проверки на условия оплаты по заказу и документ ни как не отменял проведения

Ну не может типовым способом, заставим не типовым: Через запрос делаем выбору необходимых нам документов и в обработке результата пишем:

Код 1C v 8.3

 Для Каждого СтрокаРезультата Из РезультатТаблица Цикл

   //алгоритм обработки строки результата - начало

ДокОбъект = СтрокаРезультата.Ссылка.ПолучитьОбъект();

Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));

            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;

            НаборЗаписей.Отбор.Регистратор.Установить(ДокОбъект.Ссылка);            

        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;

        Попытка

            НаборЗаписей.Записать();

        Исключение

            Сообщить(ОписаниеОшибки());

        КонецПопытки;

    КонецЦикла;



	ДокОбъект.Проведен = Ложь;

	//ДокОбъект.ОбменДанными.Загрузка = Истина;

	ДокОбъект.Записать(режимзаписидокумента.запись);



   //алгоритм обработки строки результата - конец

КонецЦикла;

Готовая функция для использования в своих обработках или общем модуле:

Код 1C v 8.3

 Процедура УдалитьДвиженияДокумента(Документ)



    ДокОбъект = Документ.ПолучитьОбъект();



    Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));



            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;



            НаборЗаписей.Отбор.Регистратор.Установить(ДокОбъект.Ссылка);            



        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;



        Попытка

            НаборЗаписей.Записать();

        Исключение

            Сообщить(ОписаниеОшибки());

        КонецПопытки;

    КонецЦикла;



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

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

Управление регистрацией документа в последовательности документов

Для управления регистрацией документа в последовательности документов служит набор записей регистрации в последовательности документов.

У документа есть свойство ПринадлежностьПоследовательностям. Значением свойства является коллекция наборов записей регистрации в последовательности документов. Для каждой последовательности, в которой участвует документ, существует свой собственный экземпляр набора записей. Если у документа стоит режим автоматического заполнения последовательностей, то перед записью документа наборы записей регистрации будут автоматически заполнены. Для последовательностей без измерений набор записей будет содержать только одну запись. Для последовательностей с измерениями число записей зависит от содержания документа и настройки соответствия измерений последовательности реквизитам документа.

Набор записей автоматически заполняется до записи документа и записывается после записи документа в одной транзакции с ним. Это позволяет в обработчиках событий документа ПередЗаписью() и ПриЗаписи() переопределить набор записей регистрации. Так, например, если документ входит в последовательность Последовательность1 и у документа стоит признак автоматического заполнения последовательности, то для того что бы отменить его регистрацию в последовательности в зависимости от значения реквизита документа достаточно в модуль документа вставить обработчик события ПередЗаписью() следующего содержания:

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

	Если Не Регистрировать Тогда

		ПринадлежностьПоследовательностям.Последовательность1.Очистить();

	КонецЕсли;

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

В этом случае если реквизит Регистрировать имеет значение "Ложь", то документ не будет зарегистрирован в последовательности Последовательность1. Кроме отмены регистрации документа в последовательности, доступна возможность написания собственного алгоритма регистрации документа в последовательности. Для этого надо очистить набор записей регистрации и заполнить его новыми записями.

Код 1C v 8.х

 Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) 

	ПринадлежностьПоследовательностям.Последовательность1.Очистить();

	Если ВидРегистрации = 1 Тогда

		ЗП = ПринадлежностьПоследовательностям.Последовательность1.Добавить();

		ЗП.Измерение = Реквизит1;

	ИначеЕсли ВидРегистрации = 2 Тогда

		ПринадлежностьПоследовательностям.Последовательность1.Добавить();

		ЗП.Измерение = Реквизит2;

	КонецЕсли;

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

Пример

Код 1C v 8.х

 	// Зарегистрируем в последовательности УУ

		Если ОтражатьВУправленческомУчете Тогда

			ЗаписьРегистрации = ПринадлежностьПоследовательностям.ПартионныйУчет.Добавить();

			ЗаписьРегистрации.Период      = Дата;

		КонецЕсли;



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

	ДокументМоментВремени = Новый МоментВремени(ДокумСсылка.дата, ДокумСсылка);

	

	НаборЗаписей = Последовательности.Взаиморасчеты.СоздатьНаборЗаписей();

	НаборЗаписей.Отбор.Регистратор.Установить(ДокумСсылка);

	НоваяЗапись = НаборЗаписей.Добавить();

	НоваяЗапись.Регистратор = ДокумСсылка;

	НоваяЗапись.Период = ДокумСсылка.Дата;

	НаборЗаписей.Записать(); 

	

	//Установим границу последовательности на документ

	Последовательности.Взаиморасчеты.УстановитьГраницу(ДокументМоментВремени);

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



Функция ПолучитьГраницуПоследовательности(Организация = Неопределено) Экспорт

	

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

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

	"ВЫБРАТЬ

	|	ПартионныйУчетГраницы.МоментВремени

	|ИЗ

	|	Последовательность.ПартионныйУчет.Границы КАК ПартионныйУчетГраницы

	|";

	

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() Тогда

		Возврат  Выборка.МоментВремени;

	Иначе

		Возврат Новый МоментВремени('00010101');

	КонецЕсли;



КонецФункции



Процедура ОбновитьСписокПоследовательностей()

	

	Для каждого Последовательность Из Обр.СписокПоследовательностей Цикл

		ИмяПоследовательности = Последовательность.ИмяПоследовательности;

		ГраницаПоследовательности = Последовательности[ИмяПоследовательности].ПолучитьГраницу();

		ДатаГраницы = ГраницаПоследовательности.Дата;

		Последовательность.Актуальность = "" + ДатаГраницы + " " + ГраницаПоследовательности.Ссылка;

		Последовательность.ДатаГраницы = ДатаГраницы;

	КонецЦикла;

	

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



// Процедура выполняет поиск и исправление ошибок в последовательности.

//

Процедура КорректировкаРегистрацииВПоследовательности()





	Для Каждого ТекПоследовательность Из Метаданные.Последовательности Цикл

		ТекстЕстьДвижения = "

						|	ВЫБОР

						|		КОГДА СписанныеТоварыСрезПоследних.Регистратор ЕСТЬ NULL";

		Для Каждого ДвиженияВлияющиеНаПоследовательность Из ТекПоследовательность.Движения Цикл

			ТекстЕстьДвижения = ТекстЕстьДвижения + "

						|				И РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + ".Регистратор ЕСТЬ NULL";

		КонецЦикла;

		ТекстЕстьДвижения = ТекстЕстьДвижения + "

						|			ТОГДА ЛОЖЬ

						|		ИНАЧЕ ИСТИНА

						|	КОНЕЦ";





		ТекстЗапроса = "ВЫБРАТЬ

						|	Последовательность.Регистратор КАК Регистратор,

						|	Последовательность.Регистратор.Проведен КАК Проведен,

						|	Последовательность.Регистратор.Дата КАК Дата,

						|	Последовательность.Период КАК Период,

						|" + ТекстЕстьДвижения + " КАК ЕстьДвижения

						|ИЗ

						|	Последовательность." + ТекПоследовательность.Имя + " КАК Последовательность

						|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СписанныеТовары КАК СписанныеТоварыСрезПоследних

						|		ПО Последовательность.Регистратор = СписанныеТоварыСрезПоследних.Регистратор

						|		И СписанныеТоварыСрезПоследних.НомерСтроки = 1";

		Для Каждого ДвиженияВлияющиеНаПоследовательность Из ТекПоследовательность.Движения Цикл

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

						|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления." +ДвиженияВлияющиеНаПоследовательность.Имя + ".Обороты(, , Регистратор, ) КАК РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + "

						|		ПО Последовательность.Регистратор = РегистрНакопления" + ДвиженияВлияющиеНаПоследовательность.Имя + ".Регистратор";

		КонецЦикла;





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

						|ГДЕ

						|	НЕ (Последовательность.Регистратор.Проведен

						|	    И (Последовательность.Регистратор ССЫЛКА Документ.КорректировкаСтоимостиСписанияТоваров

						|	       ИЛИ Последовательность.Регистратор.Дата = Последовательность.Период)

						|       И " + ТекстЕстьДвижения + ")

						|";





		Запрос = Новый Запрос(ТекстЗапроса);





		Выборка = Запрос.Выполнить().Выбрать();

		Пока Выборка.Следующий() Цикл

			Если Не Выборка.Проведен Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Записать();

			ИначеЕсли (Выборка.Дата <> Выборка.Период)

			        И (ТипЗнч(Выборка.Регистратор) <> Тип("ДокументСсылка.КорректировкаСтоимостиСписанияТоваров")) Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Прочитать();

				Для Каждого СтрокаНабора Из НаборЗаписей Цикл

					СтрокаНабора.Период = Выборка.Дата;

				КонецЦикла;

				НаборЗаписей.Записать();

			КонецЕсли;





			Если Не Выборка.ЕстьДвижения Тогда

				НаборЗаписей = Последовательности[ТекПоследовательность.Имя].СоздатьНаборЗаписей();

				НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);

				НаборЗаписей.Записать();

			КонецЕсли;

		КонецЦикла;

	КонецЦикла;





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



Процедура УдалитьРегистрациюДокументаВПоследовательностях(ДокументОбъект, ПроверятьДвижения = Ложь)Экспорт

	// получение списка последовательностей в которых зарегистрирован документ

	Если ПроверятьДвижения Тогда

		ТаблицаРегистраций = ОпределитьНаличиеРегистрацииДокументаВПоследовательности(ДокументОбъект);

	КонецЕсли;      

	КоллекцияПоследовательностей = ДокументОбъект.ПринадлежностьПоследовательностям;

	Для Каждого НаборЗаписейРегистрацииВПоследовательности ИЗ КоллекцияПоследовательностей Цикл

		Если (НаборЗаписейРегистрацииВПоследовательности.Количество() > 0)

		  ИЛИ (ПроверятьДвижения И (НЕ ТаблицаРегистраций.Найти(НаборЗаписейРегистрацииВПоследовательности.Метаданные().Имя,"Имя") = Неопределено)) Тогда

		   НаборЗаписейРегистрацииВПоследовательности.Очистить();

		КонецЕсли;

	КонецЦикла;

КонецПроцедуры//УдалитьРегистрациюДокументаВПоследовательностях



Функция ОпределитьНаличиеРегистрацииДокументаВПоследовательности(ДокументОбъект) Экспорт

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

	

	Для Каждого Последовательность ИЗ ДокументОбъект.ПринадлежностьПоследовательностям Цикл

		// в запросе получаем имена последовательностей, в которых документ зарегистрирован

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

		|" + ?(ТекстЗапроса = "", "", "ОБЪЕДИНИТЬ ВСЕ ") + "

		|ВЫБРАТЬ """ + Последовательность.Метаданные().Имя 

		+  """ КАК Имя ИЗ " + Последовательность.Метаданные().ПолноеИмя()  

		+ " ГДЕ Регистратор =Регистратор";

		

	КонецЦикла;

	

	Если ТекстЗапроса = "" Тогда

		Возврат Новый ТаблицаЗначений();

	Иначе

		Запрос = Новый Запрос(ТекстЗапроса);

		Запрос.УстановитьПараметр("Регистратор", ДокументОбъект.Ссылка);

		ТаблицаЗапроса = Запрос.Выполнить().Выгрузить();	

		Возврат ТаблицаЗапроса;

	КонецЕсли;

	

КонецФункции

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

Форма ~ Программное добавление элементов на форму

ЭлементыФормы (Controls) . Добавить (Add) - Добавляет элемент управления на форму.
Синтаксис:

Код 1C v 8.х

 Добавить(<Тип>, <Имя>, <Видимость>, <ПоместитьНа>)

Параметры:
<Тип> (обязательный)
Тип: Тип. Тип добавляемого элемента управления:
Индикатор; ПолеКалендаря; Кнопка; КоманднаяПанель; Надпись; Панель; Переключатель; ПолеТабличногоДокумента; ПолеHTMLДокумента; ПолеТекстовогоДокумента; ПолеВвода; ПолеВыбора; ПолеСписка; ПолеКартинки; ПолосаРегулирования; Разделитель; РамкаГруппы; ТабличноеПоле; Флажок; ПолеГрафическойСхемы; ПолеГеографическойСхемы.
<Имя> (обязательный)
Тип: Строка. Имя создаваемого элемента управления. Имя должно быть указано в соответсвии с правилами написания имен системы 1С:Предприятие 8. В противном случае выполнение метода вызовет исключение.
<Видимость> (необязательный)
Тип: Булево. Определяет, создавать новый элемент управления формы видимым или нет. Истина - элемент создается видимым.
Значение по умолчанию: Истина
<ПоместитьНа> (необязательный)
Тип: Панель; ПолеТабличногоДокумента. Определяет, какой панели формы или какому табличному документу принадлежит создаваемый элемент. Если указана панель, то добавляемый элемент размещается на текущей странице панели. Если не указан, создаваемый элемент будет принадлежать непосредственно форме.

Код 1C v 8.х

 

// Расположим на странице табличное поле

ПолеРегистра = ЭлементыФормы.Добавить(Тип("ТабличноеПоле"), 

    СтрокаТаблицы.Имя, 

    Истина, 

    ЭлементыФормы.ОсновнаяПанель);

ПолеРегистра.Данные = "ДокументОбъект.Движения." + СтрокаТаблицы.Имя;



Если НЕ ЭтоНовый() Тогда

  ПолеРегистра.Значение.Прочитать();

КонецЕсли; 



ПолеРегистра.Верх = 30;

ПолеРегистра.Лево = 6;

ПолеРегистра.Ширина = ЭлементыФормы.ОсновнаяПанель.Ширина - 14;

ПолеРегистра.Высота = ЭлементыФормы.ОсновнаяПанель.Высота - 56;

ПолеРегистра.ТолькоПросмотр = Ложь;

ПолеРегистра.ИзменятьПорядокСтрок = Истина;

ПолеРегистра.ИзменятьСоставСтрок = Истина;



ПолеРегистра.УстановитьПривязку(ГраницаЭлементаУправления.Верх,

    КоманднаяПанельРегистра,

    ГраницаЭлементаУправления.Низ);

ПолеРегистра.УстановитьПривязку(ГраницаЭлементаУправления.Низ,

    ЭлементыФормы.ОсновнаяПанель,

    ГраницаЭлементаУправления.Низ);

ПолеРегистра.УстановитьПривязку(ГраницаЭлементаУправления.Право,

    ЭлементыФормы.ОсновнаяПанель,

    ГраницаЭлементаУправления.Право);



ПолеРегистра.СоздатьКолонки();



Если Метаданные.РегистрыНакопления[СтрокаТаблицы.Имя].ВидРегистра =   Метаданные.СвойстваОбъектов.ВидРегистраНакопления.Остатки Тогда



  КолонкаВидДвижения = ПолеРегистра.Колонки.Вставить(1, "Вид движения");

  КолонкаВидДвижения.Имя = "ВидДвиженияРегистраНакопления";

  КолонкаВидДвижения.УстановитьЭлементУправления(Тип("ПолеВвода"));

  КолонкаВидДвижения.Данные = "ВидДвижения";

  КолонкаВидДвижения.ЭлементУправления.КнопкаВыбора = Истина;

  КолонкаВидДвижения.ЭлементУправления.ВыбиратьТип = Ложь;



КонецЕсли;



ПолеРегистра.Колонки.Регистратор.Видимость = Ложь;

ПолеРегистра.Колонки.Период.Видимость   = Ложь;

ПолеРегистра.Колонки.НомерСтроки.Видимость = Ложь;



// Поле ввода

ПолеВвода = ЭлементыФормы.Добавить(Тип("ПолеВвода"), "ПолеВвода", Истина);

  

ПолеВвода.Верх  = Надпись.Верх + Надпись.Высота + 5;

ПолеВвода.Лево  = ЭлементыФормы.Переключатель1.Лево;

ПолеВвода.Ширина = ЭлементыФормы.Переключатель1.Ширина;

ПолеВвода.Высота = ЭлементыФормы.Переключатель1.Высота;

  

ПолеВвода.Доступность = Ложь;

  

// установка привязок

ПолеВвода.УстановитьПривязку(ГраницаЭлементаУправления.Низ,  ПолеВвода,  ГраницаЭлементаУправления.Верх);

ПолеВвода.УстановитьПривязку(ГраницаЭлементаУправления.Лево,     ЭтаФорма.Панель,  ГраницаЭлементаУправления.Лево);

ПолеВвода.УстановитьПривязку(ГраницаЭлементаУправления.Право,    ЭтаФорма.Панель,  ГраницаЭлементаУправления.Право);



//Надпись и поле ввода

ЭлементНадпись = ЭлементыФормы.Добавить(Тип("Надпись"), "Надпись"+ИмяЭлемента, Истина, ЭлементыФормы.ПанельПодбор);

ЭлементНадпись.Заголовок = Синоним + ":";

ЭлементНадпись.Лево = 6;

ЭлементНадпись.Верх = ВерхЭлемента + 6;

ЭлементНадпись.Высота = 19;

ЭлементНадпись.Ширина = 160;

ЭлементНадпись.ЦветФона = ЦветаСтиля.ФонЭпицентра;



ЭлементПолеВвода = ЭлементыФормы.Добавить(Тип("ПолеВвода"), ИмяЭлемента, Истина, ЭлементыФормы.ПанельПодбор);

ЭлементПолеВвода.ТипЗначения = Параметр.Тип;

ЭлементПолеВвода.Верх = ЭлементНадпись.Верх;

ЭлементПолеВвода.Лево = ЭлементНадпись.Лево + ЭлементНадпись.Ширина + 6;

ЭлементПолеВвода.Высота = ЭлементНадпись.Высота;

Если ЭлементПолеВвода.ТипЗначения.СодержитТип(Тип("Дата")) Тогда

  ЭлементПолеВвода.Ширина = 80;

Иначе

  ЭлементПолеВвода.Ширина = 200;

КонецЕсли;

 





//Надпись и Поле Выбора

ИмяЭлемента = " Подписывающий";

ЭлементНадпись = ЭлементыФормы.Добавить(Тип("Надпись"), "Надпись"+ИмяЭлемента, Истина,);

ЭлементНадпись.Заголовок = ИмяЭлемента + ":";

ЭлементНадпись.Лево = 250;

ЭлементНадпись.Верх = 33;

ЭлементНадпись.Высота = 19;

ЭлементНадпись.Ширина = 160;

ЭлементНадпись.ЦветФона = ЦветаСтиля.ЦветФонаФормы;



ЭлементПолеВвода = ЭлементыФормы.Добавить(Тип("ПолеВыбора""), ИмяЭлемента, Истина,);

ЭлементПолеВвода.Данные = Подписывающий;

//ЭлементПолеВвода.ТипЗначения  = Новый ОписаниеТипов("СправочникСсылка.СотрудникиОрганизаций");

ЭлементПолеВвода.Верх = ЭлементНадпись.Верх;

ЭлементПолеВвода.Лево = ЭлементНадпись.Лево + ЭлементНадпись.Ширина + 6;

ЭлементПолеВвода.Высота = ЭлементНадпись.Высота;

ЭлементПолеВвода.Ширина = 200;

Категория: Работа с Формой (Диалог) и её элементами