Архивы 1C

1С: Длина имени файла превысила 8 символов

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

При работе с файлами dbf, может возникать такая ошибка, если для генерации временного файла используется стандартная конструкция вида:

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

1	ПолучитьИмяВременногоФайла(".dbf")

И по слухам это не ошибка 1С, а особенность работы с файлами DBF — в самом формате файла не предусмотрен размер файла более 8 символов. Поэтому функцию «ПолучитьИмяВременногоФайла», можно заменить следующей конструкцией:

ИмяВременногоФайлаХар = КаталогВременныхФайлов()+Лев(Новый УникальныйИдентификатор(),8)+".dbf";

1	ИмяВременногоФайлаХар = КаталогВременныхФайлов()+Лев(Новый УникальныйИдентификатор(),8)+".dbf";

Ну и далее работать как-то так:

		Таблица = Новый XBase;     		
     	        Таблица.ОткрытьФайл(ИмяВременногоФайлаХар);
		Таблица.Первая();    
		Пока Не Таблица.ВКонце() Цикл
                  Если Не Таблица.ЗаписьУдалена() Тогда
		    Сообщить(Таблица.ACCOUNT);
                  конецесли;
                  Таблица.Следующая();
                конеццикла;	
	       Таблица.ЗакрытьФайл();

Таблица = Новый XBase;

Таблица.ОткрытьФайл(ИмяВременногоФайлаХар);

Таблица.Первая();

Пока Не Таблица.ВКонце() Цикл

Если Не Таблица.ЗаписьУдалена() Тогда

Сообщить(Таблица.ACCOUNT);

конецесли;

Таблица.Следующая();

конеццикла;

Таблица.ЗакрытьФайл();

Оставить комментарий 1с, 8 символов, dbf, длина имени файла

1с: Открытие формы для выбора дополнительных параметров из обработки

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

Задача: открыть дополнительную форму и обработать выбор параметра.

Решение: сделаем эту задачу, используя «оповещения». А именно откроем форму, а при завершении выбора параметров, создадим оповещение для основной формы в котором обработаем что собственно было выбрано на дополнительной форме.

Основная форма:

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


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

&НаКлиенте

Процедура ПоменятьИсполнителя(Команда)

П = Новый Структура("НовыйИсполнительОграничения",объект.НовыйИсполнительОграничения);

ОткрытьФорму("ВнешняяОбработка.МастерРаспределенияЗаявкоНаОтключение.Форма.ФормаВыбораИсполнителя",П,ЭтотОбъект,,,,,РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);

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

&НаКлиенте

Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

Если ИмяСобытия = "ВыбранНовыйИсполнитель" Тогда

объект.НовыйИсполнительОграничения=Параметр;

КонецЕсли;

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

Дополнительная форма:


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

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

&НаКлиенте

Процедура ВыбратьИЗакрыть(Команда)

ПараметрВызова = объект.НовыйИсполнительОграничения;

ФормаИсточник = "ВнешняяОбработка.МастерРаспределенияЗаявкоНаОтключение.Форма.Форма";

Оповестить("ВыбранНовыйИсполнитель",ПараметрВызова,ФормаИсточник);

Закрыть();

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

&НаСервере

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

объект.НовыйИсполнительОграничения=Параметры["НовыйИсполнительОграничения"];

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

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

1С: Событие «ПриКопировании» в регистре сведений

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

А вот не обрабатывает 1С такое событие в регистре сведений, поэтому одним из решений будет обработка параметров формы записи при событии «При создании на сервере». Например так:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	если ЗначениеЗаполнено(Параметры.ЗначениеКопирования.uuid) = истина тогда
		этотобъект.запись.uuid=Новый УникальныйИдентификатор();
	конецесли;	
КонецПроцедуры

&НаСервере

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

если ЗначениеЗаполнено(Параметры.ЗначениеКопирования.uuid) = истина тогда

этотобъект.запись.uuid=Новый УникальныйИдентификатор();

конецесли;

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

Т.е. если это «копирование», то значение заполнено «старыми» данными и их можно перезаписать.

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

1С: Шпаргалка по работе с таблицей значений

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

Ниже приведены наиболее часто используемые применения. Рассматриваются наиболее часто встречающиеся операции.

Определение типа колонок:


// Ссылочные типы
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));  
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("СчетФактура", Новый ОписаниеТипов("ДокументСсылка.СчетФактураВыданный"));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ТипКонтактнойИнформации", Новый ОписаниеТипов("ПеречислениеСсылка.ТипыКонтактнойИнформации"));  
 
// Простые типы
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ДолжностьНаименование", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(150))); 
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число",, Новый КвалификаторыЧисла(10,2)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата",, Новый КвалификаторыДаты(ЧастиДаты.Дата)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ЕстьОповещение", Новый ОписаниеТипов("Булево"));   
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ИменаПолейСубконто", Новый ОписаниеТипов("Массив"));  

//Составное
МассивТипов = Новый Массив();
МассивТипов.Добавить(Тип("Булево"));
МассивТипов.Добавить(Тип("ПеречислениеСсылка.ВидыПродукцииИС"));	
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("МаркировкаОстатков", Новый ОписаниеТипов(МассивТипов));

// Ссылочные типы

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("СчетФактура", Новый ОписаниеТипов("ДокументСсылка.СчетФактураВыданный"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ТипКонтактнойИнформации", Новый ОписаниеТипов("ПеречислениеСсылка.ТипыКонтактнойИнформации"));

// Простые типы

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ДолжностьНаименование", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(150)));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число",, Новый КвалификаторыЧисла(10,2)));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата",, Новый КвалификаторыДаты(ЧастиДаты.Дата)));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ЕстьОповещение", Новый ОписаниеТипов("Булево"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ИменаПолейСубконто", Новый ОписаниеТипов("Массив"));

//Составное

МассивТипов = Новый Массив();

МассивТипов.Добавить(Тип("Булево"));

МассивТипов.Добавить(Тип("ПеречислениеСсылка.ВидыПродукцииИС"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("МаркировкаОстатков", Новый ОписаниеТипов(МассивТипов));

Удаление строк:

// 1. Обходом строк
МассивКУдалению = Новый Массив;
Для Каждого ТекущаяСтрока Из ТЗ Цикл	
	Если ТекущаяСтрока.Удалить Тогда
		МассивКУдалению.Добавить(ТекущаяСтрока);
	КонецЕсли;	
КонецЦикла;
Для Каждого ТекущаяСтрока Из МассивКУдалению Цикл
	ТЗ.Удалить(ТекущаяСтрока);
КонецЦикла;
 
// 2. Найденные по отбору
НайденныеСтроки = ТЗ.НайтиСтроки(Новый Структура("Удалить", Истина));
Для Каждого ТекущаяСтрока Из НайденныеСтроки Цикл	
	ТЗ.Удалить(ТекущаяСтрока);	
КонецЦикла;
 
// 3. Выгрузка с отбором
НоваяТЗ = ТЗ.Скопировать(Новый Структура("Удалить", Ложь));

// 1. Обходом строк

МассивКУдалению = Новый Массив;

Для Каждого ТекущаяСтрока Из ТЗ Цикл

Если ТекущаяСтрока.Удалить Тогда

МассивКУдалению.Добавить(ТекущаяСтрока);

КонецЕсли;

КонецЦикла;

Для Каждого ТекущаяСтрока Из МассивКУдалению Цикл

ТЗ.Удалить(ТекущаяСтрока);

КонецЦикла;

// 2. Найденные по отбору

НайденныеСтроки = ТЗ.НайтиСтроки(Новый Структура("Удалить", Истина));

Для Каждого ТекущаяСтрока Из НайденныеСтроки Цикл

ТЗ.Удалить(ТекущаяСтрока);

КонецЦикла;

// 3. Выгрузка с отбором

НоваяТЗ = ТЗ.Скопировать(Новый Структура("Удалить", Ложь));

Сортировка:

ТЗДат.Сортировать("Дата Возр");

1	ТЗДат.Сортировать("Дата Возр");

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

1С: Получение полей отбора с формы списка

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

Задача: узнать состав текущего отбора на форме списка..и составить аналогичный запрос в БД, для получения выборки

Решение: Применимо в данный момент только к динамическому списку. Отборы получаем чтением данных из компоновщика настроек. Запрос (фактически условие) получается крайне грубым, но приемлемым для моих входящих данных. Итак код:

 	// Проработаем текущий отбор
	sql="";   	
	для каждого стр из Список.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы цикл
			попытка ош=стр["Элементы"];исключение прервать; конецпопытки;
			для каждого эл из стр.Элементы цикл
				если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Содержит тогда
					sql=sql+" И "+эл.ЛевоеЗначение+" ПОДОБНО ""%"+эл.ПравоеЗначение+"%""";
				конецесли;	
				если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно тогда
					sql=sql+" И "+эл.ЛевоеЗначение+" = """+эл.ПравоеЗначение+"""";
				конецесли;	
				если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Больше тогда
					sql=sql+" И "+эл.ЛевоеЗначение+" > """+эл.ПравоеЗначение+"""";
				конецесли;	
				если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Меньше тогда
					sql=sql+" И "+эл.ЛевоеЗначение+" < """+эл.ПравоеЗначение+"""";
				конецесли;	
				если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.НеРавно тогда
					sql=sql+" И "+эл.ЛевоеЗначение+" <> """+эл.ПравоеЗначение+"""";
				конецесли;	
				
			конеццикла;
	конеццикла;

// Проработаем текущий отбор

sql="";

для каждого стр из Список.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы цикл

попытка ош=стр["Элементы"];исключение прервать; конецпопытки;

для каждого эл из стр.Элементы цикл

если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Содержит тогда

sql=sql+" И "+эл.ЛевоеЗначение+" ПОДОБНО ""%"+эл.ПравоеЗначение+"%""";

конецесли;

если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Равно тогда

sql=sql+" И "+эл.ЛевоеЗначение+" = """+эл.ПравоеЗначение+"""";

конецесли;

если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Больше тогда

sql=sql+" И "+эл.ЛевоеЗначение+" > """+эл.ПравоеЗначение+"""";

конецесли;

если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.Меньше тогда

sql=sql+" И "+эл.ЛевоеЗначение+" < """+эл.ПравоеЗначение+"""";

конецесли;

если эл.ВидСравнения=ВидСравненияКомпоновкиДанных.НеРавно тогда

sql=sql+" И "+эл.ЛевоеЗначение+" <> """+эл.ПравоеЗначение+"""";

конецесли;

конеццикла;

Оставить комментарий отбор в форме списка, получение отбора

1 2 3 … 48 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
			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	31