|
Получилось, огромное спасибо!!!
Выкладываю кусочек кода по загрузке из Экселя и проведения проводок. Может кому-то понадобится. Он очень ограниченный в проверках (на удаленные и т.п.), но как шаблон, я думаю сгодится.
Это заполнение полей документа 1С из Экселя:
Функция Заполнить()
Excel=СоздатьОбъект("Excel.Application");
Excel.Workbooks.Open(Путь);
а = 2;
пока ПустаяСтрока(Excel.WorkBooks(1).Worksheets(1).Range("A" + а).Value) = 0 Цикл
НоваяСтрока();
СчетДт = СчетПоКоду(Excel.WorkBooks(1).Worksheets(1).Range("B" + а).Value);
Субконто1 = Excel.WorkBooks(1).Worksheets(1).Range("C" + а).Value;
Субконто2 = Excel.WorkBooks(1).Worksheets(1).Range("D" + а).Value;
Субконто3 = Excel.WorkBooks(1).Worksheets(1).Range("E" + а).Value;
СчетКт = СчетПоКоду(Excel.WorkBooks(1).Worksheets(1).Range("F" + а).Value);
СубкотноКт1 = Excel.WorkBooks(1).Worksheets(1).Range("G" + а).Value;
СубконтоКт2 = Excel.WorkBooks(1).Worksheets(1).Range("H" + а).Value;
СубконтоКт3 = Excel.WorkBooks(1).Worksheets(1).Range("I" + а).Value;
Кво = Excel.WorkBooks(1).Worksheets(1).Range("J" + а).Value;
Сумма = Excel.WorkBooks(1).Worksheets(1).Range("K" + а).Value;
Содержание = Excel.WorkBooks(1).Worksheets(1).Range("L" + а).Value;
а = а + 1;
КонецЦикла;
Excel.ActiveWorkBook.Close();
Возврат "";
КонецФункции
а это проведение:
Процедура ОбработкаПроведения()
СпрТМЦ = СоздатьОбъект("Справочник.ТМЦ");
справМестХран = СоздатьОбъект("Справочник.МестаХранения");
докЗаказ = СоздатьОбъект("Документ.Заказ");
спраВидыДеят = СоздатьОбъект("Справочник.ВидыДеятельности");
спраПодр = СоздатьОбъект("Справочник.Подразделения");
глКомментарий("Начало",2,Контекст);
глТбОперация.УдалитьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Операция.НоваяПроводка();
Если (СчетДт = СчетПоКоду("26")) и (СчетКт = СчетПоКоду("231")) тогда
Операция.Дебет.Счет = СчетДт;
Операция.Кредит.Счет = СчетКт;
Операция.Комментарий = СокрЛП(Содержание);
справМестХран.НайтиПоНаименованию(Субконто1,0,1);
Операция.Дебет.МестаХранения = справМестХран.ТекущийЭлемент();
СпрТМЦ.НайтиПоНаименованию(Субконто2,0,1);
Операция.Дебет.ТМЦ = СпрТМЦ.ТекущийЭлемент();
Ддат = Дата(Лев(Прав(СокрЛП(Субконто3),9),8));
стрЗаказ = СтрЗаменить(Лев(СокрЛП(Субконто3),СтрДлина(СокрЛП(Субконто3))-11),"Заказ ","");
докЗаказ.НайтиПоНомеру(стрЗаказ,Ддат);
Операция.Дебет.Партии = докЗаказ.ТекущийДокумент();
Операция.Сумма = Сумма;
Операция.Количество = Кво;
спраВидыДеят.НайтиПоНаименованию(СубкотноКт1,0,1);
Операция.Кредит.ВидыДеятельности = спраВидыДеят.ТекущийЭлемент();
спраПодр.НайтиПоНаименованию(СубконтоКт2,0,1);
Операция.Кредит.Подразделения = спраПодр.ТекущийЭлемент();
ИначеЕсли (СчетДт = СчетПоКоду("232")) и (СчетКт = СчетПоКоду("231")) тогда
Операция.Дебет.Счет = СчетДт;
Операция.Кредит.Счет = СчетКт;
Операция.Комментарий = СокрЛП(Содержание);
справМестХран.НайтиПоНаименованию(Субконто1,0,1);
Операция.Дебет.МестаХранения = справМестХран.ТекущийЭлемент();
СпрТМЦ.НайтиПоНаименованию(Субконто2,0,1);
Операция.Дебет.ТМЦ = СпрТМЦ.ТекущийЭлемент();
Ддат = Дата(Лев(Прав(СокрЛП(Субконто3),9),8));
стрЗаказ = СтрЗаменить(Лев(СокрЛП(Субконто3),СтрДлина(СокрЛП(Субконто3))-11),"Заказ ","");
докЗаказ.НайтиПоНомеру(стрЗаказ,Ддат);
Операция.Дебет.Партии = докЗаказ.ТекущийДокумент();
Операция.Сумма = Сумма;
Операция.Количество = Кво;
спраВидыДеят.НайтиПоНаименованию(СубкотноКт1,0,1);
Операция.Кредит.ВидыДеятельности = спраВидыДеят.ТекущийЭлемент();
спраПодр.НайтиПоНаименованию(СубконтоКт2,0,1);
Операция.Кредит.Подразделения = спраПодр.ТекущийЭлемент();
ИначеЕсли (СчетДт = СчетПоКоду("903")) и (СчетКт = СчетПоКоду("232")) тогда
Операция.Дебет.Счет = СчетДт;
Операция.Кредит.Счет = СчетКт;
Операция.Комментарий = СокрЛП(Содержание);
Операция.Сумма = Сумма;
Операция.Количество = Кво;
спраВидыДеят.НайтиПоНаименованию(Субконто1,0,1);
Операция.Дебет.ВидыДеятельности = спраВидыДеят.ТекущийЭлемент();
спраПодр.НайтиПоНаименованию(Субконто2,0,1);
Операция.Дебет.Подразделения = спраПодр.ТекущийЭлемент();
справМестХран.НайтиПоНаименованию(СубкотноКт1,0,1);
Операция.Кредит.МестаХранения = справМестХран.ТекущийЭлемент();
СпрТМЦ.НайтиПоНаименованию(СубконтоКт2,0,1);
Операция.Кредит.ТМЦ = СпрТМЦ.ТекущийЭлемент();
Ддат = Дата(Лев(Прав(СокрЛП(СубконтоКт3),9),8));
стрЗаказ = СтрЗаменить(Лев(СокрЛП(СубконтоКт3),СтрДлина(СокрЛП(СубконтоКт3))-11),"Заказ ","");
докЗаказ.НайтиПоНомеру(стрЗаказ,Ддат);
Операция.Кредит.Партии = докЗаказ.ТекущийДокумент();
ИначеЕсли (СчетДт = СчетПоКоду("901")) и (СчетКт = СчетПоКоду("26")) тогда
Операция.Дебет.Счет = СчетДт;
Операция.Кредит.Счет = СчетКт;
Операция.Комментарий = СокрЛП(Содержание);
Операция.Сумма = Сумма;
Операция.Количество = Кво;
спраВидыДеят.НайтиПоНаименованию(Субконто1,0,1);
Операция.Дебет.ВидыДеятельности = спраВидыДеят.ТекущийЭлемент();
спраПодр.НайтиПоНаименованию(Субконто2,0,1);
Операция.Дебет.Подразделения = спраПодр.ТекущийЭлемент();
справМестХран.НайтиПоНаименованию(СубкотноКт1,0,1);
Операция.Кредит.МестаХранения = справМестХран.ТекущийЭлемент();
СпрТМЦ.НайтиПоНаименованию(СубконтоКт2,0,1);
Операция.Кредит.ТМЦ = СпрТМЦ.ТекущийЭлемент();
Ддат = Дата(Лев(Прав(СокрЛП(СубконтоКт3),9),8));
стрЗаказ = СтрЗаменить(Лев(СокрЛП(СубконтоКт3),СтрДлина(СокрЛП(СубконтоКт3))-11),"Заказ ","");
докЗаказ.НайтиПоНомеру(стрЗаказ,Ддат);
Операция.Кредит.Партии = докЗаказ.ТекущийДокумент();
конецесли;
Ддат = "";
стрЗаказ = "";
КонецЦикла;
Операция.Записать();
глКомментарий("Окончание",2,Контекст);
КонецПроцедуры
|
