новое событие
Информационный поток
Задания вакансии материалы разработки сообщения форума
ilias007
Приватное сообщение

УТ 11 При проведении РКО передачаДругойОрг выходит ошибка.

Казань(Россия )
232 |  1
14 апреля 2024 в 21:39:49 (31 неделя 4 дня 17 часов назад)
63961
Текст задания
УТ 11
При проведении РКО передачаДругойОрг выходит ошибка.




//Если Вид операции = оплата другой организации или выдача в другую кассу Тогда создать ПКО (если его нет), либо модифицировать существующий
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ОплатаДенежныхСредствВДругуюОрганизацию
ИЛИ ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ВыдачаДенежныхСредствВДругуюКассу Тогда
Если НЕ ТипЗнч(ЭтотОбъект.ДокументОснование) = Тип("ДокументСсылка.ПриходныйКассовыйОрдер") Тогда

ТаблицаПКО = ПолучитьПКО();

Если ТаблицаПКО.Количество() = 0 Тогда
ДокументПКО = Документы.ПриходныйКассовыйОрдер.СоздатьДокумент();
ДокументПКО.Заполнить(ЭтотОбъект.Ссылка);
ДокументПКО.Дата = ЭтотОбъект.Дата;
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ОплатаДенежныхСредствВДругуюОрганизацию Тогда
Для Каждого Строка Из ДокументПКО.РасшифровкаПлатежа Цикл
Строка.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЦикла;
ДокументПКО.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЕсли;
ДокументПКО.Записать(РежимЗаписиДокумента.Проведение);
Иначе
Для Каждого Строка из ТаблицаПКО Цикл
ДокументПКО = Строка.ПКО.ПолучитьОбъект();
ДокументПКО.УстановитьПометкуУдаления(ЭтотОбъект.ПометкаУдаления);
ДокументПКО.Организация = Справочники.Организации.ПустаяСсылка();
ДокументПКО.Касса = Справочники.Кассы.ПустаяСсылка();
ДокументПКО.КассаОтправитель = Справочники.Кассы.ПустаяСсылка();
ДокументПКО.ПринятоОт = "";
ДокументПКО.Заполнить(ЭтотОбъект.Ссылка);
ДокументПКО.Дата = ЭтотОбъект.Дата;
Если ХозяйственнаяОперация = Перечисления.ХозяйственныеОперации.ОплатаДенежныхСредствВДругуюОрганизацию Тогда
Для Каждого Строка Из ДокументПКО.РасшифровкаПлатежа Цикл
Строка.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЦикла;
ДокументПКО.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.ПоступлениеДенежныхСредствОтДругойОрганизации;
КонецЕсли;
ДокументПКО.Записать(РежимЗаписиДокумента.Запись);

ДокументПКО.Записать(РежимЗаписиДокумента.Проведение);
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЕсли;
0
Отклики (5)