Вывод данных на форму (внешняя обработка)

Форум Программирование Общие вопросы программирования (Dev)

1. user1985104 11.03.24 17:51 Сейчас в теме

Добрый день! Есть внешняя обработка, у которой при открытии должны выводится определённые записи соответствующие условию:

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)   

   СписокРегистров = Новый Массив;
   СписокРегистров.Добавить(РегистрыНакопления.ПлатежиЛизингополучателей);
   СписокРегистров.Добавить(РегистрыНакопления.АгентскоеВознаграждение);
   СписокРегистров.Добавить(РегистрыНакопления.ВозвратыПокупателям);
   СписокРегистров.Добавить(РегистрыБухгалтерии.Налоговый);
   ПроизвольнаяДата = Дата(2022, 02, 27);
   ПолучениеРегистров(СписокРегистров,ПроизвольнаяДата); 
   
   
КонецПроцедуры

Функция ПолучениеРегистров(Регистры_п, Дата_п)

   ЗаписиРегистра = Новый Массив;
   Для каждого элемент Из Регистры_п Цикл     
       Если элемент.ПолучитьПериодРассчитанныхИтогов() > Дата_п Тогда
           запись = Новый Структура("Название", элемент, "Дата", элемент.ПолучитьПериодРассчитанныхИтогов());
           ЗаписиРегистра.Добавить(запись);
       КонецЕсли;
   КонецЦикла;
   Возврат ЗаписиРегистра;

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

Показать

Подскажите пожалуйста как вывести полученные записи (ЗаписиРегистра) на форму?(что добавить на форму и как вывести данные)

По теме из базы знаний

Ответы

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

Свернуть все

2. Tommy82 65 11.03.24 19:16 Сейчас в теме

Вывести в виде чего?
что потом делать с этими данными?

если в виде таблицы, пояндексите "СоздатьТаблицуФормы".

я так понимаю, что графы будет 2 "Регистры_п" и "Дата_п"

не забудьте ОписаниеТипов для граф

3. user1985104 13.03.24 16:13 Сейчас в теме

Подскажите как быть дальше? Реализовал на обычной форме

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)   
	СписокРегистров_л = Новый Массив;
	СписокРегистров_л.Добавить(РегистрыНакопления.####);
	СписокРегистров_л.Добавить(РегистрыБухгалтерии.####);  
	СписокРегистров_л.Добавить(РегистрыБухгалтерии.###;
	ПроизвольнаяДата_л = Дата(2024, 03, 13); 
	Результат_л = ПолучениеРегистров(СписокРегистров_л,ПроизвольнаяДата_л);
	Для каждого массив Из Результат_л Цикл 
		Стр = ТаблицаРезультат.Добавить();
		Стр.ИмяРегистра = массив.Регистр; 
		Стр.ПериодИтогов = массив.Дата;
	КонецЦикла; 
   		
	КонецПроцедуры

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

Показать

Как теперь скорректировать данный функционал под управляемые формы?

4. user1985104 13.03.24 16:53 Сейчас в теме

Получилось вроде этого:

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

&НаСервере
Функция ПолучениеСпискаРС()
	СписокРегистров_л = Новый Массив;
	СписокРегистров_л.Добавить(РегистрыНакопления.###);
    СписокРегистров_л.Добавить(РегистрыНакопления.###);
    СписокРегистров_л.Добавить(РегистрыНакопления.###);
	СписокРегистров_л.Добавить(РегистрыНакопления.###);
	ПроизвольнаяДата_л = Дата(2024, 03, 13); 
	Результат_л = ПолучениеРегистров(СписокРегистров_л,ПроизвольнаяДата_л);
	Для каждого массив Из Результат_л Цикл 
		Стр = ТаблицаРезультат.Добавить();		
		Стр.ИмяРегистра = массив.Регистр; 
		Стр.ПериодИтогов = массив.Дата;
	КонецЦикла; 
КонецФункции

Показать

Оставьте свое сообщение

E-mail: