Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Исправить програмно проводку (http://forums.kuban.ru/f1040/ispravit-_programno_provodku-8496501.html)

GariPortman 10.10.2017 14:47

Исправить програмно проводку
 
Создал расширение. Пытаюсь исправить записи движения по бухрегистру.

&После ("ОбработкаПроведения")
Процедура Расш1_ОбработкаПроведения(Отказ, РежимПроведения)

нужно заменить счетДт
Стр.СубконтоДТ.Контрагенты = Неопределено;
Стр.СубконтоДТ.Договоры = Неопределено;
Стр.СубконтоДТ.ДокументыРасчетовСКонтрагентами = Неопределено;
Для подстраховки
ЧислоСубконто = Стр.СчетДт.ВидыСубконто.Количество();
Для Сч = 1 По ЧислоСубконто Цикл
ВидСубк = Стр.СчетДт.ВидыСубконто[Сч-1].ВидСубконто;
Стр.СубконтоДт.Вставить(ВидСубк,Неопределено);
КонецЦикла;
Меняю счет
В конце процедуры смотрю движения. Во всех проводках СубконтоДТ.Договоры = Неопределено
Но при проведении документа выдает "Вид субконто договоры не доступен для данной записи"

user1C 10.10.2017 16:34

"[em]Меняю счет[/em]"
у того счета есть субконто договоры?

GariPortman 10.10.2017 18:24

У старого счета есть, у нового нет. Так вроде очищаю.

US1C 10.10.2017 19:44

(2) Попробуй поменять счет и установить значения только тех субконто, которые на новом счете.

GariPortman 11.10.2017 09:14

3-US1C > не взлетело. Получилось только
НоваяПроводка = НаборПроводок.добавить();
ЗаполнитьЗначенияСвойств(НоваяПроводка,СтараяПроводка,,"СубконтоДт");

GariPortman 11.10.2017 09:20

+4 ,,"СубконтоДт") - можно не писать. СубконтоДт/СубконтоКТ и так не копируются.


Текущее время: 01:54. Часовой пояс GMT +3.