Вот так получилось:
ВидСубконто=Движение.СчетДт.ВидыСубконто[0].ВидСубконто;
Движение.СубконтоДт[ВидСубконто]=Значение;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс