Если СпрДоговоры.НайтиЭлемент(ТекСпр.ОсновнойДоговор.ТекущийЭлемент())=1 Тогда
Договор = СпрДоговоры.ТекущийЭлемент();
КонецЕсли;
Если ТипЗначение.Идентификатор() = "А1" Тогда
Если СпрТипЦен.НайтиПоНаименованию("А1")=1 Тогда
Договор.ТипЦен = СпрТипЦен.ТекущийЭлемент();
Договор.Записать();
КонецЕсли;
Если СпрДоговоры.НайтиЭлемент(ТекСпр.ОсновнойДоговор.ТекущийЭлемент())=1 Тогда
КонецЕсли;
Если ТипЗначение.Идентификатор() = "А1" Тогда
Если СпрТипЦен.НайтиПоНаименованию("А1")=1 Тогда
СпрДоговоры.ТипЦен = СпрТипЦен.ТекущийЭлемент();
СпрДоговоры.Записать();
КонецЕсли;