Код из Справочники.Контрагенты:
i | Учитесь вставлять картинки, прочтите правила |
Спасибо.
i | Учитесь вставлять картинки, прочтите правила |
//ммм+
КодКонтрДебет = "";
КодКонтрКредит = "";
Для Инд=1 По 3 Цикл
ВидСубконто = Опер.Дебет.Субконто(Инд);
Если ТипЗначенияСтр(ВидСубконто)="Справочник" Тогда
Если ВидСубконто.Вид()="Контрагенты" Тогда
КодКонтрДебет = Опер.Дебет.Субконто(Инд).Код;
КонецЕсли;
КонецЕсли;
ВидСубконто = Опер.Кредит.Субконто(Инд);
Если ТипЗначенияСтр(ВидСубконто)="Справочник" Тогда
Если ВидСубконто.Вид()="Контрагенты" Тогда
КодКонтрКредит = Опер.Кредит.Субконто(Инд).Код;
КонецЕсли;
КонецЕсли;
КонецЦикла;
//ммм=