" Док = СоздатьОбъект("Документ.УслугиСтороннихОрганизаций"); <br> Док.ВыбратьДокументы(ВыбНачПериода, ВыбКонПериода); <br> Пока Док.ПолучитьДокумент() = 1 Цикл<br> Если Док.Проведен() = 1 Тогда <br> ДокТек = Док.ТекущийДокумент(); <br> ДокТек.ВыбратьСтроки();<br> Пока ДокТек.ПолучитьСтроку() = 1 Цикл<br> Если ДокТек.КоррСчет = СчетПоКоду("20") Тогда<br> Если ДокТек.Субконто2 = ВыбСубконто1 Тогда <br> ДокТек.Субконто2 = ВыбСубконто2; <br> КонецЕсли; <br> КонецЕсли; <br> КонецЦикла; <br> Док.Записать();<br> Док.Провести(); <br> КонецЕсли;<br> КонецЦикла;<br><br>Цель-поменять второе субконто в проведенном документе. Но что-то не меняется"
Древовидный
Печать
Искать в теме:
Старый
читатель
офлайн
Дата регистрации: 08.02.2005
Сообщений: 46
Сообщений: 46
Пост №1 24.05.2010 19:56
Вьюн
читатель
офлайн
Дата регистрации: 14.01.2007
Сообщений: 657
Сообщений: 657
Пост №2 24.05.2010 20:58
"Док = СоздатьОбъект("Документ.УслугиСтороннихОрганизаций"); <br>Док.ВыбратьДокументы(ВыбНачПериода, ВыбКонПериода); <br>Пока Док.ПолучитьДокумент() = 1 Цикл<br>Если Док.Проведен() = 1 Тогда <br>Записать = 0;<br>Док.ВыбратьСтроки();<br>Пока Док.ПолучитьСтроку() = 1 Цикл<br>Если Док.КоррСчет = СчетПоКоду("20") Тогда<br>Если Док.Субконто2 = ВыбСубконто1 Тогда <br>Док.Субконто2 = ВыбСубконто2; <br>Записать = 1;<br>КонецЕсли; <br>КонецЕсли; <br>КонецЦикла; <br>Если Записать = 1 Тогда<br>Док.Записать();<br>Док.Провести(); <br>КонецЕсли;<br>КонецЕсли;<br>КонецЦикла;<br>"
zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Сообщений: 4656
Пост №3 25.05.2010 09:29
+ смотри на метод Опции, который даёт возможность выбора проведённых документов
oooterminal61
читатель
офлайн
Дата регистрации: 04.03.2010
Сообщений: 26
Сообщений: 26
Пост №4 27.05.2010 10:22
"1. Возможно эта строка лишняя: ДокТек = Док.ТекущийДокумент(); <br>2. Вставь Сообщить() после "Если ДокТек.Субконто2 = ВыбСубконто1 Тогда", будешь видеть находит ли и записывает ли. <br>"