Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
21 ноя 2024, 22:36

Импорт путевых листов

Автор Антон_, 04 окт 2019, 10:36

0 Пользователей и 1 гость просматривают эту тему.

Антон_

Добрый день!
В 1С управление автотранспортом 2.х вносят путевые листы по одному. Допустим, какое-то время сервер был недоступен, и данные путевых листов собирали просто в табличку в экселе. Можно ли теперь путевые листы импортировать в 1С? С чего начать, если такая задача решаема в принципе? Уровень в 1С - нулевой.
Спасибо!

alexandr_ll

Цитата: Антон_ от 04 окт 2019, 10:36
Добрый день!
В 1С управление автотранспортом 2.х вносят путевые листы по одному. Допустим, какое-то время сервер был недоступен, и данные путевых листов собирали просто в табличку в экселе. Можно ли теперь путевые листы импортировать в 1С? С чего начать, если такая задача решаема в принципе? Уровень в 1С - нулевой.
Спасибо!
Есть множество
https://wiseadvice-it.ru/o-kompanii/blog/articles/zagruzka-iz-excel-v-1s-8-3/

wise

(0) ТАК можно...
ЗагрузкаДанныхИзТабличногоДокумента.epf
https://programmist1s.ru/zagruzka-nomenklaturyi-v-1s-8-3-iz-excel-ili-dbf/
Представьте себе, какая была бы тишина, если бы люди говорили только то, что знают

jsg

Вам необходимо создать excel файл в качестве шаблона с заданной структурой (т.е. чтобы было известно заранее, в каком столбце какие данные). Далее пишется достаточно простая обработка в 1С, которая считывает файл и генерирует необходимые документы. Это сможет сделать любой 1С-ник.
Пример:
    НовыеРабочиеКниги = OknoExel.Workbooks;
    РабочаяКнига = НовыеРабочиеКниги.Open(СокрЛП(ИмяФайла));
    ОбластьНаименование=1;   ОбластьСумма=2;
   НомерСтроки=0;                     
   Пока ПустыхСтрок<30 Цикл
      НомерСтроки=НомерСтроки+1;
      Если ПустыхСтрок=29 Тогда
         Сообщить("файл считан")
      КонецЕсли;
      
      Наименование=СокрЛП(OknoExel.Cells(НомерСтроки,ОбластьНаименование).Value);
      Если ПустаяСтрока(Наименование) Тогда
         ПустыхСтрок=ПустыхСтрок+1;
         Продолжить;
      КонецЕсли;
      Сумма=СокрЛП(OknoExel.Cells(НомерСтроки,ОбластьСумма).Value);
      Если Не ОбластьСумма=0 Тогда
         Сумма=СокрЛП(OknoExel.Cells(НомерСтроки,ОбластьСумма).Value);
         Попытка
            Сумма=Число(Сумма);
         Исключение
            Сумма=0;
         КонецПопытки;
      КонецЕсли;
      Если Сумма=0 Тогда
         ПустыхСтрок=ПустыхСтрок+1;
         Продолжить;
      КонецЕсли;
      ПустыхСтрок   =0;
      
      Состояние("Строка "+НомерСтроки+"  "+Наименование);
      
      Сотрудник=Справочники.ФизическиеЛица.НайтиПоНаименованию(Наименование);
   КонецЦикла;
   OknoExel.Workbooks.Close();
Так получают данные, а дальше их разносите по документам

Антон_

Я почитал. Примерно понял, как в созданный в 1с пустой путевой лист забрать значения из .xls, но как создать список путевых листов, забрать данные из .xls для каждого и рассчитать эти листы (в интерфейсе кнопка "рассчитать"), чтобы они сохранились и провелись надлежащим образом, этого я не нашёл в подсказках.

Похожие темы (5)

Рейтинг@Mail.ru

Поиск