вторник, 4 июня 2019 г.

Программное изменения проводок документа 1С 7.7

Задача: Очистить субконто кредита у всех проводок в одной ручной операции
Решение:
Процедура Сформировать()
    опер = СоздатьОбъект("Операция");
    опер.НайтиОперацию(НашДокументНаФормеСВидомОперация);
    опер.ВключитьПроводки(0);
    опер.ВыбратьПроводки();
    Пока опер.ПолучитьПроводку()=1 Цикл
        опер.Кредит.Субконто(1,"");
    КонецЦикла;
    опер.Записать();
    опер.ВключитьПроводки(1);
КонецПроцедуры



Отсюда:
https://forum.mista.ru/topic.php?id=382542
https://forum.mista.ru/topic.php?id=382419
https://forum.mista.ru/topic.php?id=478141