Расширенный поиск операции ОФ

Описание

Текст примера

 // Дополнительная надстройка для поиска операции. Бывает так, что оператор
// не указывает операцию, и тогда стандартной процедурой ее нельзя найти.
Macro ПОИСК_ОПЕРАЦИИ_РАСШ (ФайлБазы, Операция);
 If   (ФайлБазы.CodeOper == 0)
      If   ((ФайлБазы.TypeGroup == 1) And (ФайлБазы.DirectOper == 0))  // АКТ приемки-передачи объекта
           Операция = "АКТ прихода";
      Elif ((ФайлБазы.TypeGroup == 1) And (ФайлБазы.DirectOper == 1))  // АКТ списания объекта
           Операция = "АКТ списания объекта";
      Elif ((ФайлБазы.TypeGroup == 1) And (ФайлБазы.DirectOper == 2))  // АКТ передачи объекта
           Операция = "АКТ передачи объекта";
      Elif ((ФайлБазы.TypeGroup == 1) And (ФайлБазы.DirectOper == 5))  // АКТ модернизации объекта
           Операция = "АКТ модернизации объекта";
      Elif ((ФайлБазы.TypeGroup == 1) And (ФайлБазы.DirectOper == 6))  // АКТ передачи объекта в МБП
           Операция = "АКТ передачи объекта в МБП";
      Elif ((ФайлБазы.TypeGroup == 1) And (ФайлБазы.DirectOper == 7))  // АКТ частичной ликвидации объекта ОФ
           Операция = "АКТ частичной ликвидации объекта ОФ";
      Elif ((ФайлБазы.TypeGroup == 2) And (ФайлБазы.DirectOper == 3))  // АКТ переоценки объекта
           Операция = "АКТ переоценки объекта";
      Elif ((ФайлБазы.TypeGroup == 2) And (ФайлБазы.DirectOper == 4))  // АКТ амортизации объекта
           Операция = "АКТ амортизации объекта";
      Elif ((ФайлБазы.TypeGroup == 6) And (ФайлБазы.DirectOper == 13)) // АКТ расчета амортизации для НО
           Операция = "АКТ расчета амортизации для НО";
      Elif ((ФайлБазы.TypeGroup == 5) And (ФайлБазы.DirectOper == 12)) // АКТ включения стоимости ОФ в состав МР
           Операция = "АКТ включения стоимости ОФ в состав МР";
      End;
 Else ПОИСК_ОПЕРАЦИИ (ФайлБазы.DirectOper, ФайлБазы.CodeOper, Операция);
 End;
 SetParm (1, Операция);
End;