Архивы 1с - Страница 15 из 38

1С:Добавление своего представления в поле выбора

25.02.2021 Павел Грибов 1C

Задача: в отображении контрагента в поле выбора добавить помимо наименования, еще и его ИНН

Решение: переопределим процедуру ОбработкаПолученияПредставления в модуле менеджера справочника контрагента:

Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
  СтандартнаяОбработка = Ложь;
  КнтНаименование=Данные.Ссылка.НаименованиеПолное;
  ИНН=Данные.Ссылка.ИНН;
  попытка
   Представление = КнтНаименование+"("+строка(ИНН)+")";
  исключение                                             	
   Представление = Данные.Наименование;
  конецпопытки
КонецПроцедуры

Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

КнтНаименование=Данные.Ссылка.НаименованиеПолное;

ИНН=Данные.Ссылка.ИНН;

попытка

Представление = КнтНаименование+"("+строка(ИНН)+")";

исключение

Представление = Данные.Наименование;

конецпопытки

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

Получится:

Оставить комментарий 1с, инн, контрагент, поле выбора, представление

Как много нам открытий чудных (с)

20.02.2021 Павел Грибов Из жизни

А вы знали, что ячейку в Excel можно разделить диагональной линией? Вот так:

Для этого достаточно в свойствах ячейки в «границах» щелкнуть по середине окна (там где точка оранжевая). Ну соответственно в связи с этим открываются возможности для всяких извращений типа с заголовками типа:

Линию подчеркивания закрасить белым цветом

Оставить комментарий 1с, excel, ячейка по диагонали

1С: просмотр содержимого временных таблиц в отладчике

03.02.2021 Павел Грибов Из жизни

Часто при отладке хитромудрых конфигураций необходимо подсмотреть содержимое временных таблиц. Начиная с платформы 8.13 это можно посмотреть прямо в отладчике. Пусть например временные тблицы у нас находятся в переменной МенеджерВТ. Нажимаем Shift-F9, вводим МенеджерВТ, нажимаем расчитать, проваливаемся в значение «Временные таблицы запроса» и видим названия временных таблиц:

Далее зная имена таблиц, можно получить содержимое каждой из них или по индексу или по имени:

МенеджерВТ.Таблицы[0].ПолучитьДанные().Выгрузить()

Оставить комментарий 1с, временные таблицы, отладчик, содержимое

Указано неверное поле для ввода по строке: Наименование

28.01.2021 Павел Грибов 1C

Иногда в справочниках 1С, реквизит Наименование не нужен. Если длинну его поставить 0, то при сохранении конфигурации может выйти ошибка «Указано неверное поле для ввода по строке: Наименование».

Чтобы поправить — нужно зайти во вкладку «Поле ввода», и убрать «Наименование» из «Ввод по строке»

Оставить комментарий 1с

Быстрая обработка файла эксель средствами 1С

07.12.2020 Павел Грибов Из жизни

С недавних пор (относительно) 1С умеет загружать файлы эксель в табличный документ. Причём листы раскидывает на области. Обработка идет на удивление быстро, по сравнению со «старым» способом, через COM соединение с Excel.

Вот пример обработки файла:

1.Выбираем файл на «клиенте» и передаем его на «сервер»:

&НаКлиенте
Процедура ЗагрузкаПрайса(Команда)
		Режим = РежимДиалогаВыбораФайла.Открытие;
	    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
	    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
	    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xlsx)|*.xlsx";
	    ДиалогОткрытияФайла.Фильтр = Фильтр;
	    ДиалогОткрытияФайла.МножественныйВыбор = Истина;
	    ДиалогОткрытияФайла.Заголовок = "Выберите файл(ы)";
	    Если ДиалогОткрытияФайла.Выбрать() Тогда
	        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
	        Для Каждого ИмяФайла Из МассивФайлов Цикл
	            ВыбФайл = Новый Файл(ИмяФайла);
	            Сообщить(ИмяФайла+ НСтр("ru = '; Размер = '; en = '; Size = '")+ ВыбФайл.Размер());			
				АдресВременногоХранилища = "";
     			ПоместитьФайл(АдресВременногоХранилища, ИмяФайла, , Ложь, ЭтаФорма.УникальныйИдентификатор);   
				ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища);
			 конеццикла;
		конецесли;	   					
	
КонецПроцедуры

&НаКлиенте

Процедура ЗагрузкаПрайса(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогОткрытияФайла.ПолноеИмяФайла = "";

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xlsx)|*.xlsx";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = Истина;

ДиалогОткрытияФайла.Заголовок = "Выберите файл(ы)";

Если ДиалогОткрытияФайла.Выбрать() Тогда

МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

Для Каждого ИмяФайла Из МассивФайлов Цикл

ВыбФайл = Новый Файл(ИмяФайла);

Сообщить(ИмяФайла+ НСтр("ru = '; Размер = '; en = '; Size = '")+ ВыбФайл.Размер());

АдресВременногоХранилища = "";

ПоместитьФайл(АдресВременногоХранилища, ИмяФайла, , Ложь, ЭтаФорма.УникальныйИдентификатор);

ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища);

конеццикла;

конецесли;

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

2. Обрабатываем файл на «Сервере»:

&НаСервере
Процедура ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища)
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xlsx");
	ДвоичныеДанные.Записать(ИмяВременногоФайла);

	сообщить(ИмяВременногоФайла);
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.Прочитать(ИмяВременногоФайла,СпособЧтенияЗначенийТабличногоДокумента.Значение);

	//листаем все листы
	Для Каждого ОбластьТД ИЗ ТабличныйДокумент.Области Цикл			
			ОбластьФайла = ТабличныйДокумент.ПолучитьОбласть(ОбластьТД.Имя);
			КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();
			КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();
			Сообщить("Строк:"+КолВоСтрокФайла);
			Сообщить("Колонок:"+КолВоКолонокФайла);			
			имялиста=ОбластьТД.Имя;
			Сообщить("Лист:"+имялиста);			
					МассивИменКолонок=Новый Массив();
					// читаем шапку листа
					Для ит=1 ПО КолВоКолонокФайла Цикл
						нКолонка = СтрЗаменить(ит, Символы.НПП, "");
						ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R1" + "C"+нКолонка).ТекущаяОбласть.Текст;
						сообщить("- колонка: "+ИмяКолонки);
						МассивИменКолонок.Добавить(ИмяКолонки);
					конеццикла;	
					НачСтрока=0;КонСтрока=0;
					НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);
					КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);
					//перебираем все строки без первой строки			
					Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл
						нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, "");
						СодержимоеСтроки=Новый Массив();
						Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл
							нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, "");
							Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка);
							ТекущаяОбласть = Область.ТекущаяОбласть;
							ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);
							СодержимоеСтроки.Добавить(ЗначениеЯчейки);					
						конеццикла;			
						// ОбработатьСписокЗначений в "СодержимоеСтроки"
					конеццикла;							
	конеццикла;			
КонецПроцедуры

&НаСервере

Процедура ЗагрузкаПрайсаНаСервере(АдресВременногоХранилища)

ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);

ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xlsx");

ДвоичныеДанные.Записать(ИмяВременногоФайла);

сообщить(ИмяВременногоФайла);

ТабличныйДокумент = Новый ТабличныйДокумент;

ТабличныйДокумент.Прочитать(ИмяВременногоФайла,СпособЧтенияЗначенийТабличногоДокумента.Значение);

//листаем все листы

Для Каждого ОбластьТД ИЗ ТабличныйДокумент.Области Цикл

ОбластьФайла = ТабличныйДокумент.ПолучитьОбласть(ОбластьТД.Имя);

КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();

КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();

Сообщить("Строк:"+КолВоСтрокФайла);

Сообщить("Колонок:"+КолВоКолонокФайла);

имялиста=ОбластьТД.Имя;

Сообщить("Лист:"+имялиста);

МассивИменКолонок=Новый Массив();

// читаем шапку листа

Для ит=1 ПО КолВоКолонокФайла Цикл

нКолонка = СтрЗаменить(ит, Символы.НПП, "");

ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R1" + "C"+нКолонка).ТекущаяОбласть.Текст;

сообщить("- колонка: "+ИмяКолонки);

МассивИменКолонок.Добавить(ИмяКолонки);

конеццикла;

НачСтрока=0;КонСтрока=0;

НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);

КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);

//перебираем все строки без первой строки

Для нСтрокаТФ = НачСтрока ПО КонСтрока Цикл

нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, "");

СодержимоеСтроки=Новый Массив();

Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл

нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, "");

Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка);

ТекущаяОбласть = Область.ТекущаяОбласть;

ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);

СодержимоеСтроки.Добавить(ЗначениеЯчейки);

конеццикла;

// ОбработатьСписокЗначений в "СодержимоеСтроки"

конеццикла;

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

Оставить комментарий 1с, загрузка, обработка xls, табличный документ, файл эксель

« 1 … 13 14 15 16 17 … 38 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30