• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Поступление ТМЦ" и Excel

  • Автор темы ViRtU
  • Дата начала
Статус
Закрыто для дальнейших ответов.
V

ViRtU

"Поступление ТМЦ" из полученной накладной в формате Excel. Как это сделать ? Прошу помочь :(. Профи отзовитесь :(...
 
V

vitfil

На форме накладной делаем кнопку "Загрузить"
На кнопку вешаем процедуру: (тут много поскипано, но идея ясна для самостоятельной реализации).

Процедура ЗагрузитьДанные()
Перем Эксель, Файл, Лист;
Перем ИмяФайла, ИмяКаталога;
Если ФС.ВыбратьФайл(0,ИмяФайла,ИмяКаталога,"Файл для загрузки","Файлы экселя (*.xls) |*.xls","xls",60)<>1 Тогда
Возврат;
КонецЕсли;

Эксел=СоздатьОбъект("Excel.Application");
Файл=Эксел.Workbooks.Open(СокрЛП(ИмяКаталога+"\"+ИмяФайла));
Лист=Файл.Sheets(1);

//поскипано

//заполним табличную часть

НомерСтрокиТЧ=23 //строка, с которой в экселевском файле начинается табличная часть накладной
НачатьТранзакцию();
Для А=НомерСтрокиТЧ+1 По 1000 Цикл
Название=СокрЛП(Лист.Cells(А,2).Value);
// тут надо организовать поиск, например, по наименованию номенклатуры
НоваяСтрока();

//поскипано

КонецЦикла;

Эксел.WorkBooks.Close();
Эксел.Quit();
ЗафиксироватьТранзакцию();
КонецПроцедуры
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!