УТ 11 При проведении РКО передачаДругойОрг выходит ошибка.
В архиве
Казань(Россия )
232 |
1
14 апреля 2024 в 21:39:49
(31 неделя 4 дня 17 часов назад)
63961
15.02.2019 14:27:57
Текст задания
УТ 11
При проведении РКО передачаДругойОрг выходит ошибка.
//Если Вид операции = оплата другой организации или выдача в другую кассу Тогда создать ПКО (если его нет), либо модифицировать существующий
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ОплатаДенежныхСредствВДругуюОрганизацию
ИЛИ ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВыдачаДенежныхСредствВДругуюКассу Тогда
Если НЕ ТипЗнч(ЭтотОбъект.ДокументОснование) = Тип("ДокументСсылка.ПриходныйКассовыйОрдер") Тогда
ТаблицаПКО = ПолучитьПКО();
Если ТаблицаПКО.Количество() = 0 Тогда
ДокументПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ДокументПКО.Заполнить(ЭтотОбъект.Ссылка);
ДокументПКО.Дата = ЭтотОбъект.Дата;
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ОплатаДенежныхСредствВДругуюОрганизацию Тогда
Для Каждого Строка Из ДокументПКО.РасшифровкаПлатежа Цикл
Строка.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЦикла;
ДокументПКО.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЕсли;
ДокументПКО.Записать(РежимЗаписиДокумента.Проведение);
Иначе
Для Каждого Строка из ТаблицаПКО Цикл
ДокументПКО = Строка.ПКО.ПолучитьОбъект();
ДокументПКО.УстановитьПометкуУдаления(ЭтотОбъект.ПометкаУдаления);
ДокументПКО.Организация = Справочники.Организации.ПустаяСсылка();
ДокументПКО.Касса = Справочники.Кассы.ПустаяСсылка();
ДокументПКО.КассаОтправитель = Справочники.Кассы.ПустаяСсылка();
ДокументПКО.ПринятоОт = "";
ДокументПКО.Заполнить(ЭтотОбъект.Ссылка);
ДокументПКО.Дата = ЭтотОбъект.Дата;
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ОплатаДенежныхСредствВДругуюОрганизацию Тогда
Для Каждого Строка Из ДокументПКО.РасшифровкаПлатежа Цикл
Строка.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЦикла;
ДокументПКО.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЕсли;
ДокументПКО.Записать(РежимЗаписиДокумента.Запись);