АктСверки

14.11.24

10:06

Добрый день. Тут бухи попросили в документе Акт сверки в табличной части по данным нашей организации в поле представление добавить после запятой счет фактуру это именно для корректировки реализации и сторно, я написал код, но они жалуются что он отрабатывает в районе 30-40 минут , а так как я новичок в этом деле, то не совсем понимаю что не так с кодом. Вот сам код:

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
	
	Если ПараметрыЗаписи.РежимЗаписи = ПредопределенноеЗначение("РежимЗаписиДокумента.Проведение") Тогда
		ОценкаПроизводительностиКлиент.НачатьЗамерВремени(Истина, "ПроведениеАктСверкиВзаиморасчетов");
	КонецЕсли;
	
	// Получаем табличную часть "ПоДаннымОрганизации" документа
	Строки = ЭтаФорма.Объект.ПоДаннымОрганизации;

	// Проходим по строкам табличной части
	Для Каждого Строка Из Строки Цикл

		// Получаем значение реквизита "Представление"
		ЗначениеПредставления = Строка.Представление;

		// Проверяем, является ли значение строкой и не является ли пустым
		Если ТипЗнч(ЗначениеПредставления) = Тип("Строка") И НЕ ПустаяСтрока(ЗначениеПредставления) Тогда
			
			// Если это корректировка продажи
			Если Лев(ЗначениеПредставления, 21) = "Корректировка продажи" Тогда
				// Получаем номер корректировочной счет-фактуры
				НомерСчетФактуры = ПолучитьНомерКорректировочнойСчетФактуры(Строка.Документ);
				
				// Если нашли номер счет-фактуры, добавляем его к представлению, если его там еще нет
				Если НомерСчетФактуры <> "" И Не НайденоВСтроке(Строка.Представление, НомерСчетФактуры) Тогда
					Строка.Представление = Строка.Представление + ", Счет-фактура: " + НомерСчетФактуры;
				КонецЕсли;
			КонецЕсли;

			// Если это сторнируемый документ
			Если Лев(ЗначениеПредставления, 6) = "Сторно" Тогда
				// Поиск номера счет-фактуры обычного документа
				НомерСчетФактурыСторно = ПолучитьНомерСчетФактурыПоСторно(Строка.Документ); 

				// Если счет-фактура найдена и её номер еще не добавлен в представление
				Если НомерСчетФактурыСторно <> "" И Не НайденоВСтроке(Строка.Представление, НомерСчетФактурыСторно) Тогда
					Если ПустаяСтрока(Строка.Представление) Тогда
						Строка.Представление = "Счет-фактура: " + НомерСчетФактурыСторно;
					Иначе
						Строка.Представление = Строка.Представление + ", Счет-фактура: " + НомерСчетФактурыСторно;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;

		КонецЕсли;
	КонецЦикла;

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


// Функция для поиска номера корректировочной счет-фактуры
&НаСервере
Функция ПолучитьНомерКорректировочнойСчетФактуры(ДокументКорректировки)
	// Создаем новый запрос
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|   СчетФактураВыданный.Номер КАК НомерСФ
	|ИЗ
	|   Документ.СчетФактураВыданный КАК СчетФактураВыданный
	|ГДЕ
	|   СчетФактураВыданный.ДокументОснование = &Документ";

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

// Функция для получения номера счет-фактуры по сторнируемому документу
&НаСервере
Функция ПолучитьНомерСчетФактурыПоСторно(ДокументСторно)
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|   СчетФактураВыданный.Номер КАК НомерСФ
	|ИЗ
	|   Документ.СчетФактураВыданный КАК СчетФактураВыданный
	|ГДЕ
	|   СчетФактураВыданный.ДокументОснование = &ДокументОснование";

	// Устанавливаем параметр "ДокументОснование" — это будет СторнируемыйДокумент
	Запрос.УстановитьПараметр("ДокументОснование", ДокументСторно.СторнируемыйДокумент);

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

	// Проверяем, найден ли номер счёт-фактуры
	Если Выборка.Следующий() Тогда
		Возврат Выборка.НомерСФ;
	Иначе
		Возврат "";
	КонецЕсли;
КонецФункции

// Функция для проверки наличия строки в другом значении
Функция НайденоВСтроке(Строка, Поиск)
	Возврат Найти(Строка, Поиск) > 0;
КонецФункции

1
2
4
7
9
10
17
21

1 osa1C

14.11.24

06:28

(0) Грубая ошибка всех новичков - запрос в цикле детектед! Тебе надо получить всё одним запросом, а у тебя выполняется +100500 запросов.
Начинай запрос с выбора строк табличной части и к ним левым соединением прикрепляй счет-фактуры.

2 osa1C

14.11.24

06:56

(0) что-то в таком духе надо делать. Писал "на коленке", но должно быть примерно так. И никаких вызовов твоих функций с запросами из цикла. Запрос в цикле - это самое плохое, что может быть!

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

3 Denian

14.11.24

07:29

(1) Спасибо, учту на будущее

4 Мультук

14.11.24

08:00

(0)

30-40 мин даже этот код не может работать.

(2)

1) Допустим по РТУ есть два счёта: помеченный на удаление и проведенный.
-- кроме очевидно не нужного помеченного на удаление, вы размножили строки

2) вери хьюморес

АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка = СчетФактураВыданный.ДокументОснование

Документ.АктСверкиВзаиморасчетов.ПоДаннымОрганизации КАК АктСверкиВзаиморасчетовПоДаннымОрганизации
ЛЕВОЕ СОЕДИНЕНИЕ Документ.СчетФактураВыданный КАК СчетФактураВыданный
ПО АктСверкиВзаиморасчетовПоДаннымОрганизации.Ссылка = СчетФактураВыданный.ДокументОснование

3) Лень смотреть, но "вроде как" счф можно выписывать на основании нескольких РТУ
(табчасть "ДокументыОснования")

6
16

5 osa1C

14.11.24