Есть некая система которая формирует таблицу xls. Две колонки, в первой ЕДРПОУ контрагента во второй Сумма с НДС.
Нужно втянуть его в 1С и сформировать акты. Акты с одинаковой услугой но разной суммой, ручками бухгалтера заносят их по пол дня.
Вот решили как-то это автоматизировать и попросили меня что-то им "придумать".
Скажу сразу, я не программист, но так сложилось что немного пришлось разбираться и простенькие обработки довелось создавать.
Реализовать решил следующим образом. Загрузка из файла в таблицу значений (заодно контроль сколько срок загружено), а дальше по кнопке "создать" создаются акты оказания услуг.
Частично все получается, данные загружаются, акты создаются, табличная часть в них заполняется НО не тянет контрагента. Я не могу сообразить как получить контрагента по коду ЕДРПОУ из таблицы значений.
Код процедуры ниже:
Процедура СоздатьАкт()
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
Док = СоздатьОбъект("Документ.ОказаниеУслуг");
Док.Новый();
Док.Фирма = глВосстановитьЗначение(,"БазФирма");
Спр = СоздатьОбъект("Справочник.Контрагенты");
Док.Контрагент = Спр.ПолучитьЗначение(ТЗ.НомерСтроки,1);
Док.Касса = глВосстановитьЗначение(,"БазФирма").РС;
Док.ВидНДС = Константа.БазНДС;
Док.ВидТорговли = Перечисление.ВидыТорговли.Предоплата;
Док.СчетКонтрагента = СчетПоКоду("36.1");
Док.МестоСоставления = глВосстановитьЗначение(,"БазМестоСоставления");
Док.Автор = Пользователь;
Док.НоваяСтрока();
Док.Услуга = глПолучитьЗначениеКонстанты("АвтоАкт", "Название оказанной услуги",);
глУстановкаБазЕд(Док,Док.Услуга,Док.Услуга.БазЕдиница);
Док.Кво = "1";
Док.Коэффициент = "1";
Док.СуммаСНДС = СокрЛП(ТЗ.ПолучитьЗначение(ТЗ.НомерСтроки,2));
Док.СуммаБезНДС = Док.СуммаСНДС/6*5;
Док.НДС = Док.СуммаСНДС - Док.СуммаБезНДС;
Док.ЦенаБезНДС = Док.СуммаБезНДС;
Док.СуммаБезСкидки = Док.СуммаБезНДС;
Док.Записать();
Сообщить("Введена новая "+Док);
КонецЦикла;
КонецПроцедуры
Подскажите, пожалуйста, как правильно.
пс
Платформа - 7.70.027. Конфа - Бухгалтерия для Украины 7.70.324