Подстановка данных в таблицу

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

1С:Бухгалтерия 1.6

1. user945678 06.06.18 15:38 Сейчас в теме

Доброго времени суток, не могу разобраться с подстановкой значений в таблицу, есть несколько ТЧ в документе связаны уникальным, в одну из таблиц добавляю подбор для выбора нескольких значений, значения выбираются галочками, и проставляются в таблицу, но добавляет в общую таблицу только первое выбранное остальные не записываются...

&НаКлиенте
Процедура МашиныПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
	
	Если НоваяСтрока И Не Копирование Тогда 
		
		НомСтроки	= 1;
		
		Элемент.ТекущиеДанные.УникальныйСотрудник			= Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник;
		Элемент.ТекущиеДанные.УникальныйТипОборудования		= Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования;
	//	Элемент.ТекущиеДанные.УникальныйМашина	= Новый УникальныйИдентификатор;
		РезультатОткрытия = ОткрытьФормуМодально("Документ.пРегистрацияПростояОборудования.Форма.Подбор",  СтуктураПараметров());
		Если НЕ РезультатОткрытия = Неопределено Тогда
			
			//СтруктураУН	= Новый Структура;
			//СтруктураУН.Вставить("УникальныйСотрудник", Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник);
			//СтруктураУН.Вставить("УникальныйТипОборудования", Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования);
			
			Для Каждого Стр из РезультатОткрытия Цикл
				Если НомСтроки	= 1 Тогда
					НовСтр	= Элемент.ТекущиеДанные;
				Иначе
					НовСтр	= ЭтаФорма.Машины.Добавить();
				КонецЕсли;
				НовСтр.Машина						= Стр.Машина;
				НовСтр.УникальныйСотрудник			= Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник;
				НовСтр.УникальныйТипОборудования	= Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования;
				НовСтр.УникальныйМашина 			= Новый УникальныйИдентификатор;
				НомСтроки	= НомСтроки + 1;
				
			конецЦикла;	
			
		//	ПроверитьСтруктуру(РезультатОткрытия, СтруктураУН);
			
		КонецЕсли;

	ИначеЕсли НоваяСтрока И Копирование Тогда 
		
		WSHShell = Новый COMОбъект("WScript.Shell");
		
		Уникальный		= СозданиеКопированием(Элемент.ТекущиеДанные.УникальныйСотрудник, Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования, Элемент.ТекущиеДанные.УникальныйМашина);
		ЭтоКопирование	= Истина;
		
		ЗаполнитьТаблицуМашиныКлиент();
		ПодключитьОбработчикОжидания("СпозиционироватьНаНужнойСтроке", 0.001, Истина);
		НужнаяСтрокаИдентификатор		= ПозицияНужнойСтроки(Уникальный, "УникальныйМашина", Машины);
		Элементы.ТипыОборудования.ТекущаяСтрока	= НужнаяСтрокаИдентификатор;
		
		WSHShell.SendKeys("{ENTER}")
	
	КонецЕсли;

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

Показать

Как сделать так что бы все значения записывались в общую таблицу?

Прикрепленные файлы:

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

Ответы

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

Свернуть все

2. ЧерныйКот 06.06.18 15:48 Сейчас в теме

(1) Если НоваяСтрока И Не Копирование Тогда

НомСтроки = 1;
не в этом проблема?

И в форме подбора можно ЭтаФорма.Закрыть(МассивВыбранныхЗначений);
тогда РезультатОткрытия будет получать МассивВыбранныхЗначений

3. user945678 06.06.18 16:00 Сейчас в теме

(2) В том то и дело что все выбирает как нужно, в таблицу попадают все значения выбранные, но в общую записывается только 1е...

Прикрепленные файлы:

4. ЧерныйКот 06.06.18 16:11 Сейчас в теме

(3) РезультатОткрытия что содержит в отладке? ТЗ, массив, список значений ?
ЭтаФорма.Машины = данный реквизит какого типа?
форма на скрине в шапке топа - это форма документа?

а Машины - это ТЧ документа?

5. user945678 06.06.18 16:17 Сейчас в теме

(4) РезультатОткрытия = ДанныеФормыКоллекция, ЭтаФорма.Машины тоже ДанныеФормыКоллекция

6. user945678 06.06.18 16:30 Сейчас в теме

(5)Видимо не добавляет потому что не так что то в процедуре передокончанием редактирования ...

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

				
		Если РезультатПоиска.Количество()> 1 Тогда
						
			Предупреждение("Дубль машины");
			УдалитьСтрокиОбщиеДанные(Элемент.ТекущиеДанные.УникальныйСотрудник, Элемент.ТекущиеДанные.УникальныйТипОборудования, Элемент.ТекущиеДанные.УникальныйМашина, Неопределено);
			ЗаполнитьТаблицуМашиныКлиент();
			ПодключитьОбработчикОжидания("ЗаполнитьТаблицуПричиныПростояКлиент", 	0.001, Истина);
			АктивацияПервыхСтрок(Неопределено, Неопределено, Машины, ПричиныПростоя);
			
			Возврат;
			
		Иначе
										
			Если НоваяСтрока Тогда
				
				СтрокаОбщиеДанные = Объект.ОбщиеДанные.Добавить();
				
				СтрокаОбщиеДанные.Сотрудник						= Элементы.Сотрудники.ТекущиеДанные.Сотрудник;
				СтрокаОбщиеДанные.УникальныйСотрудник   		= Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник;
				СтрокаОбщиеДанные.ТипОборудования				= Элементы.ТипыОборудования.ТекущиеДанные.ТипОборудования;
				СтрокаОбщиеДанные.УникальныйТипОборудования   	= Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования;
				
				СтрокаОбщиеДанные.Машина						= Элемент.ТекущиеДанные.Машина;
				СтрокаОбщиеДанные.УникальныйМашина				= Элемент.ТекущиеДанные.УникальныйМашина;

			ИначеЕсли ЭтоИзменение Тогда 
				
				ИзменениеСтрокиОбщиеДанные(Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник, Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования, Элемент.ТекущиеДанные.УникальныйМашина, Неопределено, Элементы.Сотрудники.ТекущиеДанные.Сотрудник, Элементы.ТипыОборудования.ТекущиеДанные.ТипОборудования, Элемент.ТекущиеДанные.Машина,  Неопределено);
				
			КонецЕсли; 
			
			Модифицированность	= Истина;
			
		КонецЕсли;
		
	КонецЕсли;

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

Показать

При отладке видно что записывает в общую таблицу именно в этой процедуре и только 1е значение

7. ЧерныйКот 06.06.18 16:30 Сейчас в теме

РезультатОткрытия = ДанныеФормыКоллекция ???!

советую переписать без модальности, открыть форму подбора с блокированием формы владельца, в качестве владельца прописать ЭтаФорма.Машины.

Для элемента ЭтаФорма.Машины прописать обработчик "ОбработкаВыбора",

в форме подбора по нажатию на кнопку перенести в документ - Закрыть(МассивВыбранныхЗначений);

в обработчике выбора - этот массив добавлять в машины.

8. user945678 06.06.18 16:37 Сейчас в теме

(7)Возможно в процедуре передокончаниемредактирования можно чуть подправить что бы не переписывать все?)

9. ЧерныйКот 06.06.18 16:48 Сейчас в теме

(8) я не вижу в обработке МашиныПередОкончаниемРедактирования причин удаления строк.
хотелось бы посмотреть, что в процедуре которая вызывается по кнопке "Добавить в документ" из формы подбора.
мне кажется ошибка там.

10. user945678 06.06.18 17:03 Сейчас в теме

(9)Вот все процедуры формы подбора :

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

&НаСервере
Процедура ЗаполнитьОстатки()	
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ЮИ_РабочиеЦентры.Ссылка КАК Машина
		|ИЗ
		|	РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
		|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ЮИ_РабочиеЦентры КАК ЮИ_РабочиеЦентры
		|		ПО (ЮИ_РабочиеЦентры.Ссылка = ЗначенияСвойствОбъектов.Объект)
		|ГДЕ
		|	ЗначенияСвойствОбъектов.Свойство.Наименование = ""Тип оборудования""
		|	И НЕ ЗначенияСвойствОбъектов.Объект.НомерОборудования = """"";

	Результат = Запрос.Выполнить().Выгрузить();
	Результат.Сортировать("Машина");
	
	Таблица1.Загрузить(Результат);
	
КонецПроцедуры

&НаКлиенте
Процедура ДобавитьВДокумент(Команда)
	ЭтаФорма.Закрыть(ПолучитьСтруктуруПараметров());
КонецПроцедуры

&НаСервере
Функция ПолучитьСтруктуруПараметров()
	
	Отбор = Новый Структура("Подобрать",Ложь);
	
	Результат = Таблица1.НайтиСтроки(Отбор);
	
	Для Каждого СтрокаРезультат Из Результат Цикл
		Таблица1.Удалить(СтрокаРезультат);
	КонецЦикла;
	
	Возврат Таблица1;
	
КонецФункции

&НаКлиенте
Процедура ОтметитьВсе(Команда)
	
	Для каждого СтрокаТаблицы Из Таблица1 Цикл
		СтрокаТаблицы.Подобрать = Истина;
	КонецЦикла;
	
КонецПроцедуры

Показать

11. ЧерныйКот 06.06.18 17:28 Сейчас в теме

&НаСервере
Функция ПолучитьСтруктуруПараметров()
	
	Отбор = Новый Структура("Подобрать",Истина);
	Результат = Таблица1.Скопировать(Отбор).ВыгрузитьКолонку("Машина");
		
	Возврат Результат; // массив "машин"
	
КонецФункции

// форма исходная
&НаКлиенте
Процедура МашиныПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
    
    Если НоваяСтрока И Не Копирование Тогда 
        
        НомСтроки    = 1;
        
        <…>
        Если НЕ РезультатОткрытия = Неопределено Тогда
            
              Для Каждого Машина из РезультатОткрытия Цикл
                Если НомСтроки    = 1 Тогда
                    НовСтр    = Элемент.ТекущиеДанные;
                Иначе
                    НовСтр    = ЭтаФорма.Машины.Добавить();
                КонецЕсли;
                НовСтр.Машина                        =  Машина;
                НовСтр.УникальныйСотрудник            = Элементы.Сотрудники.ТекущиеДанные.УникальныйСотрудник;
                НовСтр.УникальныйТипОборудования    = Элементы.ТипыОборудования.ТекущиеДанные.УникальныйТипОборудования;
                НовСтр.УникальныйМашина             = Новый УникальныйИдентификатор;
                НомСтроки    = НомСтроки + 1;
                
            конецЦикла;    
            
         КонецЕсли;

      <…>

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

Показать

12. user945678 06.06.18 18:13 Сейчас в теме

(11) {Документ.пРегистрацияПростояОборудования.Форма.Подбор.Форма(48)}: Метод объекта не обнаружен (Скопировать)
Результат = Таблица1.Скопировать(Отбор).ВыгрузитьКолонку("Машина");
Вот процедуры в форме документа по подбору :

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

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

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

&НаСервере
Функция ПроверитьСтруктуру(РезультатОткрытия, СтруктураУН = Неопределено)
	
	//Машины.Очистить();
	ТаблицаЗачений	= РезультатОткрытия.Выгрузить();
	Машины.Загрузить(ТаблицаЗачений);	

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

Показать

Мне кажется проблема еще кроется в таблице ТипОборудования, потому что при активации строки в этой таблице и удаляются все значения кроме первого в таблице машины...

13. ЧерныйКот 06.06.18 18:57 Сейчас в теме

(12) поправка Результат = Таблица1.Выгрузить(Отбор).ВыгрузитьКолонку("Машина"); // метода скопировать у данныеформыколлекция нет, ошибся

14. user945678 06.06.18 19:06 Сейчас в теме

(13) {Документ.пРегистрацияПростояОборудования.Форма.ФормаДокумента.Форма(405)}: Поле объекта не обнаружено (Машина)
НовСтр.Машина = Стр.Машина;

15. ЧерныйКот 06.06.18 19:09 Сейчас в теме

(14) смотри код в (11) внимательнее. т.к. мы возвращаем не коллекцию, а массив, то и обращение через точку нам более не нужно

16. user945678 06.06.18 19:20 Сейчас в теме

(15) Результат тот же , данные не сохраняются в общую таблицу((

17. ЧерныйКот 07.06.18 11:57 Сейчас в теме

(16) значит отладчик и ищем место кода в котором ошибка

18. user945678 07.06.18 12:08 Сейчас в теме

(17)Нет ошибок, просто все эти изменения не повлияли на запись в таблицу основную, я так понимаю изменился способ но результат тот же.

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

E-mail: