Редактирование документов с ручной корректировкой

Новая тема
Всем привет! Как можно программно редактировать документ, который вручную скорректирован? Например в счет-фактуру выданную мне нужно прописать в проводке (ПодразделениеДт и  ПодразделениеКт) подразделение организации в поля.
Счет-фактура теперь делает проводки?
На аванс делает.
Вот мне счет-фактуры по выданным авансам и нужно подкорректировать программно.
СФ на аванс не делает движений по счетам, где требуется учитывать подразделения! Опишите полностью задачу, с приведением проводок.
"Счет-фактура выданный (Вид счет-фактуры: на аванс; Документ-основание: Поступление на расчетный счет; Ручная корректировка: Истина) делает проводки Дт 76.АВ --- Кт68.02. В данном случае субконто не играют роли. Нужно взять подразделение организации из Документа основания (в нем есть реквизит подразделение организации) и вставить в проводку как ПодразделениеДт и ПодразделениеКт.

 ЗапросНаВыборку = Новый Запрос;

ЗапросНаВыборку.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
| ХозрасчетныйДвиженияССубконто.Период,
| ХозрасчетныйДвиженияССубконто.Регистратор,
| ХозрасчетныйДвиженияССубконто.Активность,
| ХозрасчетныйДвиженияССубконто.СчетДт,
| ХозрасчетныйДвиженияССубконто.СчетКт,
| ХозрасчетныйДвиженияССубконто.Организация
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто КАК ХозрасчетныйДвиженияССубконто
|ГДЕ
| ХозрасчетныйДвиженияССубконто.Активность = ИСТИНА
| И ХозрасчетныйДвиженияССубконто.СчетДт = &СчетДт";

ЗапросНаВыборку.УстановитьПараметр("СчетДт", ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.АВ").Ссылка);
РезультатЗапроса = ЗапросНаВыборку.Выполнить().Выбрать();

Пока РезультатЗапроса.Следующий() Цикл
   Если ТипЗнч(РезультатЗапроса.Регистратор) = ТипЗнч(Документы.СчетФактураВыданный.ПустаяСсылка()) Тогда
      Если РезультатЗапроса.Регистратор.РучнаяКорректировка Тогда
         Подразделение = РезультатЗапроса.Регистратор.ДокументыОснования[0].ДокументОснование.ПодразделениеОрганизации;
НаборЗаписей = РезультатЗапроса.Регистратор.ПолучитьОбъект().Движения.Хозрасчетный;
НаборЗаписей.Прочитать();
ТЗ = НаборЗаписей.Выгрузить();

Для каждого Строка ИЗ ТЗ Цикл
Строка.ПодразделениеДт = Подразделение;
Строка.ПодразделениеКт = Подразделение;
КонецЦикла;
ЗаписьСФВ = РезультатЗапроса.Регистратор.ПолучитьОбъект();
ЗаписьСФВ.ПодразделениеОрганизации = Подразделение;
ЗаписьСФВ.Записать(РежимЗаписиДокумента.Запись);
НаборЗаписей.Загрузить(тз);
НаборЗаписей.Записать();

КонецЕсли;
КонецЕсли;
КонецЦикла;



Уже сам допер, вот код, может кому пригодится, лишнее я убрал (может еще что-нибудь лишнее осталось)"
Для чего вам на 76.АВ подразделение?
Бухгалтерия сказала, что по счетам 76.АВ и 76.ВА нужно вести учет по позразделениям, осталось перепровести все документы связанные с этими счетами, но так как некоторые из них скорректированы вручную, то пришлось писать внешнюю обработку.
Для чего им в проводках видеть это? Не проще написать отчет, который выводит данную информацию? Или собираетесь написать свою "нетленку"?
Ну не знаю, проще - не проще, но я уже все сделал, так что "нетленка" тут самый раз.
Читают тему
(гостей: 1)

Быстрый переход