gifts2017

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

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

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

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

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

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

См. также

Contragent+ 5.0 от 2 500
Подписаться Добавить вознаграждение

Комментарии

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