День добрый!
В обработке настроена выгрузка количества из документа
Заказ на производство в файлик Excel, вот код
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
Процедура ЗаказыНаПроизводство_ОБРАБОТАТЬ(РЕЖИМ)
ВыбФайл = Новый Файл(ИмяФайлаДанных);
Если НЕ ВыбФайл.Существует() Тогда
Сообщить("Файл не существует!");
Возврат;
КонецЕсли;
НачМомент = СокрЛП(ПолучитьОперативнуюОтметкуВремени());
Попытка
Excel = Новый COMОбъект("Excel.Application");
Excel.WorkBooks.Open(ИмяФайлаДанных);
Состояние("Обработка файла Microsoft Excel...");
Исключение
Сообщить("Ошибка. Возможно неверно указан номер листа книги Excel.");
Excel.WorkBooks.Close();
Excel = 0 ;
Возврат;
КонецПопытки;
//таб. заказав производства
ТабЗАК = Новый ТаблицаЗначений;
ТабЗАК.Колонки.Добавить("Код");
ТабЗАК.Колонки.Добавить("Количество");
Для Каждого Заказ Из СписокЗаказовНаПроизводство Цикл
Если НЕ Заказ.Пометка Тогда
Продолжить;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Заказ.ЗаказНапроизводство) Тогда
Продолжить;
КонецЕсли;
Для Каждого СоставЗаказ Из Заказ.ЗаказНапроизводство.Продукция Цикл
Если НЕ ЗначениеЗаполнено(СоставЗаказ.Спецификация) Тогда
Продолжить;
КонецЕсли;
КолПродукции = СоставЗаказ.Количество;
Для Каждого Комплектующие Из СоставЗаказ.Спецификация.ИсходныеКомплектующие Цикл
Если НЕ ЗначениеЗаполнено(Комплектующие.Номенклатура) Тогда
Продолжить;
КонецЕсли;
НовСтрЗАК = ТабЗАК.Добавить();
НовСтрЗАК.Код = СокрЛП(Комплектующие.Номенклатура.Код);
НовСтрЗАК.Количество = КолПродукции*Комплектующие.Количество;
КонецЦикла;
КонецЦикла;
КонецЦикла;
//ТабЗАК.ВыбратьСтроку();
ТабЗАК.Свернуть("Код","Количество");
ТабЗАК.Сортировать("Код Возр");
//ТабЗАК.ВыбратьСтроку();
Для Каждого Лист Из СписокЛистов Цикл
Если НЕ Лист.Пометка Тогда
Продолжить;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(СокрЛП(Лист.ИмяЛиста)) Тогда
Продолжить;
КонецЕсли;
Попытка
ExcelЛист = Excel.Sheets(СокрЛП(Лист.ИмяЛиста));
Исключение
Сообщить("НЕУДАЧНА попытка открыть лист - "+СокрЛП(Лист.ИмяЛиста),СтатусСообщения.ОченьВажное);
Продолжить;
КонецПопытки;
Для RowCount=Начало ПО КолСтр Цикл
Состояние("Обработка листа - "+СокрЛП(Лист.ИмяЛиста)+", строка "+СокрЛП(RowCount));
КодЭлемента = СокрЛП(ExcelЛист.Cells(RowCount, 1 ).Value);
Если НЕ ЗначениеЗаполнено(КодЭлемента) Тогда
Продолжить;
КонецЕсли;
//"4 270"
НайденнаяСтрокаЗАК = ТабЗАК.Найти(СтрЗаменить(КодЭлемента," ",""), "Код");
Если НайденнаяСтрокаЗАК = Неопределено Тогда
//Предупреждение("Товар не найден!");
ОстатокЗАК = 0 ;
Иначе
ОстатокЗАК = НайденнаяСтрокаЗАК.Количество;
КонецЕсли;
Если ОстатокЗАК <> 0 Тогда
Попытка
ТекущОстаток = Число(ExcelЛист.Cells(RowCount, 9 ).Value);
Исключение
ТекущОстаток = 0 ;
КонецПопытки;
Если РЕЖИМ Тогда
ExcelЛист.Cells(RowCount, 11 ).Value = ТекущОстаток + ОстатокЗАК;
Иначе
ExcelЛист.Cells(RowCount, 11 ).Value = ТекущОстаток - ОстатокЗАК;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Excel.WorkBooks.Close();
Excel = 0 ;
Сигнал();
Предупреждение("Выгрузка завершена! "+НачМомент+" - "+СокрЛП(ПолучитьОперативнуюОтметкуВремени()));
КонецПроцедуры
Не получается по аналогии настроить выгрузку из документа
План закупок в котором нет спецификаций, а просто табличная часть в которой номенклатура с количеством....
Подскажите код. Заранее спасибо!
