• Некоторые компульсии по поводу околокомпьютерных обсессий.

    Tuesday, June 4, 2013

    1с 7.7 программно создать операцию

    Себе на заметку. Очень редко такое приходится делать, поэтому забываю. Порылся в архиве и нашел.

    Док = СоздатьОбъект("Документ.Операция");
    Док.Новый();
    Док.Записать();

    Опер = СоздатьОбъект("Операция");

    Опер.НайтиОперацию(Док.ТекущийДокумент());
    Опер.НоваяПроводка();
    Опер.Дебет.Счет = СчетПоКоду("901");
    Опер.Дебет.Субконто(1,ВидДеятельности);
    Опер.Дебет.Субконто(2,ВидЗатрат);
    Опер.Кредит.Счет = СчетПоКоду("26");
    Опер.Кредит.Субконто(1,Склад);
    Опер.Кредит.Субконто(2,ТМЦ);
    Опер.Кредит.Субконто(3,Партии);
    Опер.Сумма = Сумма;
    Опер.Записать();
    Post a Comment