1С ЗУП 3.1 Ввод данных (серия, номер) военного билета
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(8) ААААА... Тогда смотри , я уже понял что ты делаешь это не через документ , а через 2 справочника и 1 ригистр и это минимум тогда смори , те данные которые у тебя привязаны к справочнику "Военный учет" ты можешь заполнить в соответствующим справочнике. В регистре добавь тему для учета (Точно не знаю какую ну например сойдет как название реквизита взятое из тогоже справочника ). далее , обязательно сохрани конфигурацию и потом уже можешь пробовать создавать отчет для своей конфигурации. (фууух вроде все подробно рассписал)
(10)Да документов реально очень много но в конфигурации их всего 2 штуки , а далее ты уже выбираешь вид.
Вообще ты можешь мне заплатить и я сделаю эту работу .
но хочется чтоб ты научился сам. Начнем с того какие 3 темы ты хотел добавить ?
Почему передумал?
Вообще ты можешь мне заплатить и я сделаю эту работу .
но хочется чтоб ты научился сам. Начнем с того какие 3 темы ты хотел добавить ?
Почему передумал?
Прикрепленные файлы:

Точный код не могу скинуть но ворд это как эксель только легче , в экселе нужно еще и столбики считать при загрузке а в ворде вообще все изи, строка и страница.
Вот привожу код пример как я делаю загрузку из эксель просто это все нужно закинуть в оброботку и правильно ее назвать далее ,
Делаю так:
Создаю обработку. Создаю реквизит формы ПутьКФайлу. Его вытаскиваю в элементы формы.
Указываю в событии НачалоВыбора ПутьКФайлуНачалоВыбора
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выбор файла";
Диалог.Фильтр = "Excel файлы(*.xls; *.xlsx)|*.xls;*.xlsx";
Диалог.ИндексФильтра = 0;
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПолноеИмяФайла = ПутьКФайлу;
Если Диалог.Выбрать() Тогда
ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьНаСервере(ДвоичДанные, Расширение)
ФайлЭксельНаСервере = ПолучитьИмяВременногоФайла(Расширение);
ДвоичДанные.Записать(ФайлЭксельНаСервере);
Попытка
// Создание COM-объекта
Эксель = Новый COMОбъект("Excel.Application");
// Отключение вывода предупреждений и вопросов
Эксель.DisplayAlerts = 0;
Эксель.Visible = 0;
Исключение
Return;
КонецПопытки;
// Открываем книгу
Книга = Эксель.Workbooks.Open(ФайлЭксельНаСервере);
// Открываем лист
Лист = Книга.Sheets(1);
// Определяем количество строк и столбцов
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
ВсегоСтолбцов = Лист.Cells(1,1).SpecialCells(11).Column;
// Перебираем строки
Для СчетчикСтрок = 2 По ВсегоСтрок Цикл
Организация = Лист.Cells(СчетчикСтрок,1).Value;
ОрганизацияСпр = Справочники.Организации.НайтиПоНаименованию(Организация);
Имя = Лист.Cells(СчетчикСтрок,2).Value;
ФИО = Лист.Cells(СчетчикСтрок,3).Value;
// Создаем нового агента в справочнике Агенты
Агент = Справочники.Агенты.СоздатьЭлемент();
// Заполняем реквизиты
Агент.Владелец = ОрганизацияСпр;
Агент.Наименование = Имя;
Агент.ФИО = ФИО;
// Записываем
Агент.Записать();
КонецЦикла;
// Закрываем книгу
Эксель.Workbooks.Close();
// Отключаем Эксель
Эксель.Application.Quit();
КонецПроцедуры
// загрузка агентов
&НаКлиенте
Процедура Загрузить(Команда)
ИмяФайла = ЭтаФорма.ПутьКФайлу;
нФайл = Новый Файл(ИмяФайла);
Если Не нФайл.Существует() Тогда
Возврат;
КонецЕсли;
ДвоичДанные = Новый ДвоичныеДанные(ИмяФайла);
ЗагрузитьНаСервере(ДвоичДанные, нФайл.Расширение);
КонецПроцедуры
и вроде как то работает но очень плохо , работал с материалами и фурнитурой
Вот привожу код пример как я делаю загрузку из эксель просто это все нужно закинуть в оброботку и правильно ее назвать далее ,
Делаю так:
Создаю обработку. Создаю реквизит формы ПутьКФайлу. Его вытаскиваю в элементы формы.
Указываю в событии НачалоВыбора ПутьКФайлуНачалоВыбора
&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выбор файла";
Диалог.Фильтр = "Excel файлы(*.xls; *.xlsx)|*.xls;*.xlsx";
Диалог.ИндексФильтра = 0;
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПолноеИмяФайла = ПутьКФайлу;
Если Диалог.Выбрать() Тогда
ПутьКФайлу = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьНаСервере(ДвоичДанные, Расширение)
ФайлЭксельНаСервере = ПолучитьИмяВременногоФайла(Расширение);
ДвоичДанные.Записать(ФайлЭксельНаСервере);
Попытка
// Создание COM-объекта
Эксель = Новый COMОбъект("Excel.Application");
// Отключение вывода предупреждений и вопросов
Эксель.DisplayAlerts = 0;
Эксель.Visible = 0;
Исключение
Return;
КонецПопытки;
// Открываем книгу
Книга = Эксель.Workbooks.Open(ФайлЭксельНаСервере);
// Открываем лист
Лист = Книга.Sheets(1);
// Определяем количество строк и столбцов
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
ВсегоСтолбцов = Лист.Cells(1,1).SpecialCells(11).Column;
// Перебираем строки
Для СчетчикСтрок = 2 По ВсегоСтрок Цикл
Организация = Лист.Cells(СчетчикСтрок,1).Value;
ОрганизацияСпр = Справочники.Организации.НайтиПоНаименованию(Организация);
Имя = Лист.Cells(СчетчикСтрок,2).Value;
ФИО = Лист.Cells(СчетчикСтрок,3).Value;
// Создаем нового агента в справочнике Агенты
Агент = Справочники.Агенты.СоздатьЭлемент();
// Заполняем реквизиты
Агент.Владелец = ОрганизацияСпр;
Агент.Наименование = Имя;
Агент.ФИО = ФИО;
// Записываем
Агент.Записать();
КонецЦикла;
// Закрываем книгу
Эксель.Workbooks.Close();
// Отключаем Эксель
Эксель.Application.Quit();
КонецПроцедуры
// загрузка агентов
&НаКлиенте
Процедура Загрузить(Команда)
ИмяФайла = ЭтаФорма.ПутьКФайлу;
нФайл = Новый Файл(ИмяФайла);
Если Не нФайл.Существует() Тогда
Возврат;
КонецЕсли;
ДвоичДанные = Новый ДвоичныеДанные(ИмяФайла);
ЗагрузитьНаСервере(ДвоичДанные, нФайл.Расширение);
КонецПроцедуры
и вроде как то работает но очень плохо , работал с материалами и фурнитурой
Прикрепленные файлы:
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот