Автоматическая генерация приходных накладных из файла EXCEL

Опубликовал Serg (gors44) в раздел Обработки - Обработка документов

Продвинутые поставщики кроме бумажных документов предлагают электронные варианты документов в формате Excel. Эта обработка очень облегчит работу бухгалтерии по вводу приходных накладных и заполнению справочника товаров. Проверено на предприятии приходующего товар от поставщика KNAUFF. Остается дописать код по автоматическому формированию входных счет-фактур.

Продвинутые поставщики предлагают электронные варианты документов в формате Excel. Написанная мною обработка очень поможет экономить время на ввод в систему 1С:Бухгалтерия 8 документов по приходу товаров. Внедрено на предприятии, приходующем товар от поставщика KNAUFF. К недостаткам можно отнести привязку к единицам измерения и отсутствие автоматической генерации счет-фактур. Может кто-нибудь заинтересован в автоматизации процесса ввода информации. Приложим совместные усилия и доработаем. В перспективе всем придется перейти на электронные счета-фактуры.

Скачать файлы

Наименование Файл Версия Размер
Автоматическая генерация приходных накладных из файла EXCEL
.epf 8,38Kb
14.08.14
55
.epf 8,38Kb 55 Скачать

См. также

Добавить вознаграждение
Комментарии
1. Равиль (vip76) 12 20.01.12 15:24 Сейчас в теме
А какие то настройки возможны? На скрине не вижу настройки каких либо колонок, стратегий поиска номнеклатуры и контрагнетов и т.д...
2. Павел Хорев (w22u) 13 20.01.12 22:06 Сейчас в теме
(1) vip76,
Похоже, что все настройки прячутся внутри обработки, и доступны специалисту, знакомому с языком 1С.

Итак, что-же случится после выбора файла, нужного листа, номеров строк и нажатия кнопки "Выполнить" ?
Будет создан документ с со складом и контрагентом, параметры которых хранятся в следующих строках обработки:

лДок.Склад = Справочники.Склады.НайтиПоКоду("000000001");
лДок.Контрагент = Справочники.Контрагенты.НайтиПоКоду("000000021");
лДок.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000018");

Сами колонки, откуда идет загрузка номенклатуры указаны в следующих строках:


НайденнаяСсылка = Номенклатура.НайтиПоНаименованию(ExcelЛист.Cells(Row, 3).Value);
Если НайденнаяСсылка = Номенклатура.ПустаяСсылка() Тогда
Сообщить("Номенклатуры """ + ExcelЛист.Cells(Row, 3).Value + """ еще нет");
НовыйОбъект = Номенклатура.СоздатьЭлемент();
НовыйОбъект.Наименование = ExcelЛист.Cells(Row, 3).Value;
НовыйОбъект.БазоваяЕдиницаИзмерения = лСоответствиеЕИ.Получить(ExcelЛист.Cells(Row, 5).Value);
НовыйОбъект.НаименованиеПолное = ExcelЛист.Cells(Row, 3).Value;
НовыйОбъект.Родитель = Справочники.Номенклатура.НайтиПоКоду("00000000001");
НовыйОбъект.СтавкаНДС = Перечисления.СтавкиНДС.НДС18;

лСтрока.Количество = ExcelЛист.Cells(Row, 6).Value;
лСтрока.Цена = ExcelЛист.Cells(Row, 15).Value;
лСтрока.Сумма = ExcelЛист.Cells(Row, 14).Value;
лСтрока.СуммаНДС = ExcelЛист.Cells(Row, 13).Value;

А соответствие единиц измерения можно подкорректировать здесь:

лСоответствиеЕИ.Вставить("М2", ЕдиницаИзмерения.НайтиПоКоду("177"));
лСоответствиеЕИ.Вставить("ШТ", ЕдиницаИзмерения.НайтиПоКоду("796"));
лСоответствиеЕИ.Вставить("ПАЧ", ЕдиницаИзмерения.НайтиПоКоду("778"));
лСоответствиеЕИ.Вставить("КОР", ЕдиницаИзмерения.НайтиПоКоду("778"));
3. Serg (gors44) 50 20.01.12 22:29 Сейчас в теме
Все настройки прячутся внутри обработки для того чтобы не напрягать пользователя.
Если EXCEL-файл от другого поставщика ( не от KNAUFF), то необходимо открыть конфигуратор
и поменять номера колонок в одной процедуре.
4. Мубаракшин Рамиль (magican) 36 25.01.12 01:24 Сейчас в теме
Что то не могу вкурить ничего не появляется
5. Serg (gors44) 50 01.02.12 00:09 Сейчас в теме
Перед выбором файла, нужного листа, номеров строк и нажатия кнопки "Выполнить" необходимо:
1.Открыть обработку конфигуратором и если необходимо подредактировать модуль на предмет:
1.1 лДок.Склад = Справочники.Склады.НайтиПоКоду("000000001"); (если нужен другой склад)
лДок.Контрагент = Справочники.Контрагенты.НайтиПоКоду("000000021"); (если нужен другой Контрагент)
лДок.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000018"); (если нужен другой Договор)
1.2 Если используются другие единицы измерения добавить к этому списку
лСоответствиеЕИ.Вставить("М2", ЕдиницаИзмерения.НайтиПоКоду("177"));
лСоответствиеЕИ.Вставить("ШТ", ЕдиницаИзмерения.НайтиПоКоду("796"));
лСоответствиеЕИ.Вставить("ПАЧ", ЕдиницаИзмерения.НайтиПоКоду("778"));
лСоответствиеЕИ.Вставить("КОР", ЕдиницаИзмерения.НайтиПоКоду("778"));
1.3. Если в других колонках Excel расположена информация, то исправить номера колонок
6. Андрей Бесчеревных (ANDRU48DOP) 3 01.02.12 00:13 Сейчас в теме
У меня сейчас конфа Управление аптекой в последнем релизе они добавили добавление записей в шапке и т.д., можно от туда, как вариант посмотреть
7. Serg (gors44) 50 01.02.12 00:51 Сейчас в теме
Сделайте копию базы и пробуйте
8. Гость 01.02.12 01:27 Сейчас в теме
9. Serg (gors44) 50 01.02.12 09:17 Сейчас в теме
А какая задача перед Вами стоит?