// Модуль формы обработки распознавания документов

#Область ОбработчикиСобытийФормы

&НаКлиенте
Процедура ПриОткрытии(Отказ)
ИнициализироватьОбработку();
СтатусРаспознавания = "Готов к работе";
Прогресс = 0;
КонецПроцедуры

#КонецОбласти

#Область КомандыКлиента

&НаКлиенте
Процедура КомандаВыбратьФайл(Команда)

ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбораФайла.Фильтр =
"Документы (*.pdf;*.doc;*.docx;*.xlsx;*.xls)|*.pdf;*.doc;*.docx;*.xlsx;*.xls|" +
"Изображения (*.jpg;*.jpeg;*.png;*.bmp)|*.jpg;*.jpeg;*.png;*.bmp|" +
"Все файлы (*.*)|*.*";

ДиалогВыбораФайла.Заголовок = "Выберите документ для распознавания";

Если ДиалогВыбораФайла.Выбрать() Тогда
ПутьКФайлу = ДиалогВыбораФайла.ПолноеИмяФайла;
ИмяФайла = Файлы.ИмяФайла(ПутьКФайлу);
ПолеИмяФайла.Заголовок = "Выбран файл: " + ИмяФайла;
КнопкаРаспознать.Доступность = Истина;
ДобавитьВЛог("Выбран файл: " + ИмяФайла);
КонецЕсли;

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

&НаКлиенте
Процедура КомандаРаспознать(Команда)

Если ПустаяСтрока(ПутьКФайлу) Тогда
Сообщить("Выберите файл для распознавания");
Возврат;
КонецЕсли;

Если ПустаяСтрока(APIКлючDeepSeek) Тогда
Сообщить("Укажите API ключ DeepSeek");
Возврат;
КонецЕсли;

Если НЕ Файлы.Существует(ПутьКФайлу) Тогда
Сообщить("Файл не существует: " + ПутьКФайлу);
Возврат;
КонецЕсли;

Прогресс = 0;
ЛогПроцесса = "";
СтатусРаспознавания = "Подготовка к распознаванию...";
КнопкаРаспознать.Доступность = Ложь;

РаспознатьНаСервере();

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

&НаКлиенте
Процедура КомандаНайтиВНоменклатуре(Команда)

Если ТаблицаРезультатов.Количество() = 0 Тогда
Сообщить("Нет данных для поиска. Сначала выполните распознавание документа.");
Возврат;
КонецЕсли;

НайтиСоответствияНаСервере();

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

&НаКлиенте
Процедура КомандаСформироватьКП(Команда)

Если ТаблицаРезультатов.Количество() = 0 Тогда
Сообщить("Нет данных для формирования коммерческого предложения.");
Возврат;
КонецЕсли;

СформироватьКПНаСервере();

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

#КонецОбласти

#Область СерверныеПроцедуры

&НаСервере
Процедура ИнициализироватьОбработку()

ТаблицаРезультатов = Новый ТаблицаЗначений;
ТаблицаРезультатов.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка"));
ТаблицаРезультатов.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
ТаблицаРезультатов.Колонки.Добавить("ЕдиницаИзмерения", Новый ОписаниеТипов("Строка"));
ТаблицаРезультатов.Колонки.Добавить("Уверенность", Новый ОписаниеТипов("Число"));
ТаблицаРезультатов.Колонки.Добавить("НайдоВСправочнике", Новый ОписаниеТипов("Булево"));
ТаблицаРезультатов.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
ТаблицаРезультатов.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));
ТаблицаРезультатов.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));

APIКлючDeepSeek = "";
ПутьКФайлу = "";

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

&НаСервере
Процедура РаспознатьНаСервере()

Попытка
ТаблицаРезультатов = РаспознатьДокументЧерезDeepSeek(ПутьКФайлу);

Если ТаблицаРезультатов = Неопределено Тогда
ВызватьИсключение "Не удалось распознать документ";
КонецЕсли;

Прогресс = 100;
СтатусРаспознавания = "Распознавание завершено успешно";
КнопкаНайтиВНоменклатуре.Доступность = Истина;
Сообщить("Успешно распознано " + ТаблицаРезультатов.Количество() + " позиций");

Исключение
Ошибка = ОписаниеОшибки();
СтатусРаспознавания = "Ошибка распознавания";
КнопкаРаспознать.Доступность = Истина;
Сообщить("Ошибка распознавания: " + Ошибка);
КонецПопытки;

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