столбец14=оп.кредит.субконто(2).БазоваяЕдиница;
{T:\UKRAINEII\ПНЗАПАСЫ\ВЫПУСКПРОДУКЦИИ FOR ПУБ.ERT(61)}: Поле агрегатного объекта не обнаружено (БазоваяЕдиница)
Объясните, пожалуйста, разницу между двумя строчками кода, т.к. первый не выдает ошибку, а второй выдает:
столбец11=оп.кредит.субконто(2).наименование;
столбец14=оп.кредит.субконто(2).БазоваяЕдиница;
1С:Предприятие 7.7 для SQL (7.70.021)
Конфигурация: Производство+Услуги+Бухгалтерия для Украины (7.70.028)
Полный текст файла:
перем оп;
перем столбец5;
перем столбец7;
перем столбец8;
перем столбец11;
перем столбец14;
функция пр20_23 (сч)
Если (сч="201") или
(сч="202") или
(сч="203") или
(сч="204") или
(сч="205") или
(сч="206") или
(сч="207") или
(сч="208") или
(сч="2091") или
(сч="2092") или
(сч="231") или
(сч="22") или
(сч="232")
Тогда
пр20=1;
возврат 1;
иначе
пр20=0;
возврат 0;
КонецЕсли;
конецфункции
//*******************************************
Процедура Сформировать()
перем БС;
спр=создатьобъект("Справочник.Контрагенты");
//пн=создатьобъект("Документ.СписаниеТМЦВПроизводство");
пн=создатьобъект("Документ.ВыпускПродукции");
Таб=СоздатьОбъект("Таблица");
таб.ИсходнаяТаблица("Таблица1");
таб.ВывестиСекцию("Шапка");
пн.ВыбратьДокументы(Датас,Датапо);
пока пн.получитьдокумент()=1 цикл
если пн.выгр=0 тогда
Если пн.проведен()=1 Тогда
//таб.ВывестиСекцию("ШапкаДок");
оп=пн.операция;
оп.ВыбратьПроводки();
пн.выбратьСтроки(); пн.получитьСтроку();
стр=пн.продукция.КодСапЗаказадляПродукции.код;
бс="UA"+сред(сокрлп(стр),5,2);
таб.ВывестиСекцию("ШапкаДок");
пока оп.получитьпроводку()=1 цикл
Если оп.дебет.счет<>счетпокоду("26") Тогда //по счету 26 не количества и эта проводка нам не нужна!!!
// пн.ПолучитьСтрокуПоНомеру(оп.НомерСтрокиДокумента());
// сообщить(строка(оп.НомерСтрокиДокумента())+"ппппп");
//столбец8=пн.продукция.кодСАП;
// сообщить(строка(пн.продукция)+"--");
столбец11=оп.кредит.субконто(2).наименование;
столбец14=оп.кредит.субконто(2).БазоваяЕдиница;
если пустоеЗначение(оп.кредит.субконто(2))=0 тогда
тмцкод=оп.кредит.субконто(2).код;
кво=оп.количество;
иначе
тмцкод="";
кво=оп.количество;
конецесли;
//Работаем по дебету ***************************************************************
Если оп.сумма>=0 Тогда столбец7="+"; иначе столбец7="-"; КонецЕсли; //смотрим на модуль суммы операции
Если (пр20_23(оп.дебет.счет.код)=1) Тогда//смотрим, как нужно
столбец5=строка(оп.кредит.субконто(2).кодСАП);
столбец8=стр;
КонецЕсли;
таб.ВывестиСекцию("СтрокиДт");
//Работаем по кредиту***************************************************************
Если оп.сумма>=0 Тогда столбец7="-"; иначе столбец7="+"; КонецЕсли;
Если (пр20_23(оп.кредит.субконто(2).счет.код)=1) Тогда//<=, а потом по кредиту
столбец5=строка(оп.кредит.субконто(2).счет.код)+"/"+строка(оп.кредит.субконто(2).кодСАП); //
иначе //
столбец5=строка(оп.кредит.субконто(2).кодСАП); //и выводим секцию по кредиту
КонецЕсли;
таб.ВывестиСекцию("Строкикт");
конецЕсли;
столбец5=0;
столбец11=0;
столбец14=0;
столбец8=0;
КонецЦикла;
если закрытие=1 тогда пн.выгр=1;пн.Записать(); конецесли;
сообщить(строка(пн.номердок)+" документ выгружен!");
иначе
сообщить(строка(пн.номердок)+" документ уже был выгружен и закрыт! Повторная выгрузка невозможна!");
конецесли;
конецЕсли;
КонецЦикла;
таб.Показать("Таблица");
КонецПроцедуры
Процедура ПриОткрытии()
датас=текущаядата();
датапо=текущаядата();
КонецПроцедуры