2.
w22u
30
20.01.12 22:06
Сейчас в теме
() 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"));