выдает такую ошибку на некоторых документах как проверит есть ли данное Субконто?
04.12.2009
14:45
#1
"выдает такую ошибку на некоторых документах как проверит есть ли данное Субконто?
(это я вставляю в обработчик журнала)
если Опер.Документ.СубконтоКт4 <> 0 тогда
{Отчет.новый2.Форма.Модуль(582)}: Поле агрегатного объекта не обнаружено (СубконтоКт4)
Пока Опер.Документ.ПолучитьСтроку() = 1 Цикл
Опер_ = СоздатьОбъект("Операция");
Если Опер_.НайтиОперацию(Опер.Документ) = 1 Тогда
Опер_.ВыбратьПроводки();
Пока Опер_.ПолучитьПроводку() = 1 Цикл
Если Опер_.Дебет.Счет.Код ="А17.01.2.3" Тогда
Опер_.Дебет.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Дебет.Подразделения =Опер.Документ.Подразделение;
ИначеЕсли Опер_.Кредит.Счет.Код ="А17.01.2.3" Тогда
Опер_.Кредит.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Кредит.Подразделения =Опер.Документ.Подразделение;
ИначеЕсли Опер_.Дебет.Счет.Код ="А18.01.2.3" Тогда
Опер_.Дебет.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Дебет.Подразделения =Опер.Документ.Подразделение;
ИначеЕсли Опер_.Кредит.Счет.Код ="А18.01.2.3" Тогда
если Опер.Документ.СубконтоКт4 <> 0 тогда
Опер_.Кредит.Субконто("Подразделения",Опер.Документ.СубконтоКт4);
Опер_.Кредит.Подразделения =Опер.Документ.СубконтоКт4;
иначе
Опер_.Кредит.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Кредит.Подразделения =Опер.Документ.Подразделение;
конецесли;
Иначе
КонецЕсли;
КонецЦикла;
Опер_.Записать();
КонецЕсли;
КонецЦикла;"
(это я вставляю в обработчик журнала)
если Опер.Документ.СубконтоКт4 <> 0 тогда
{Отчет.новый2.Форма.Модуль(582)}: Поле агрегатного объекта не обнаружено (СубконтоКт4)
Пока Опер.Документ.ПолучитьСтроку() = 1 Цикл
Опер_ = СоздатьОбъект("Операция");
Если Опер_.НайтиОперацию(Опер.Документ) = 1 Тогда
Опер_.ВыбратьПроводки();
Пока Опер_.ПолучитьПроводку() = 1 Цикл
Если Опер_.Дебет.Счет.Код ="А17.01.2.3" Тогда
Опер_.Дебет.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Дебет.Подразделения =Опер.Документ.Подразделение;
ИначеЕсли Опер_.Кредит.Счет.Код ="А17.01.2.3" Тогда
Опер_.Кредит.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Кредит.Подразделения =Опер.Документ.Подразделение;
ИначеЕсли Опер_.Дебет.Счет.Код ="А18.01.2.3" Тогда
Опер_.Дебет.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Дебет.Подразделения =Опер.Документ.Подразделение;
ИначеЕсли Опер_.Кредит.Счет.Код ="А18.01.2.3" Тогда
если Опер.Документ.СубконтоКт4 <> 0 тогда
Опер_.Кредит.Субконто("Подразделения",Опер.Документ.СубконтоКт4);
Опер_.Кредит.Подразделения =Опер.Документ.СубконтоКт4;
иначе
Опер_.Кредит.Субконто("Подразделения",Опер.Документ.Подразделение);
Опер_.Кредит.Подразделения =Опер.Документ.Подразделение;
конецесли;
Иначе
КонецЕсли;
КонецЦикла;
Опер_.Записать();
КонецЕсли;
КонецЦикла;"
Читают тему
(гостей: 1)