1. Вставить в эту процедуру
Опер=СоздатьОбъект("Операция");
2. Вместо строчки
Если ТД.СуществуетОперация()=1 Тогда
Поставить
Если Опер.НайтиОперацию(ТД)=1 Тогда
Опер=СоздатьОбъект("Операция");
Если ТД.СуществуетОперация()=1 Тогда
Если Опер.НайтиОперацию(ТД)=1 Тогда