конечно, в 7.7 код есть только у справочника, у документа "НомерДок".
Тогда код надо писать в виде

Если ТипЗначения(Опер.Кредит.Субконто(1))=11 Тогда
Код = Опер.Кредит.Субконто(1).Код;
ИначеЕсли ТипЗначения(Опер.Кредит.Субконто(1))=12 Тогда
Код = Опер.Кредит.Субконто(1).НомерДок;
Иначе
Код = "ЧтоТоЕще";
КонецЕсли;