Вот так получилось:
ВидСубконто=Движение.СчетДт.ВидыСубконто[0].ВидСубконто;
Движение.СубконтоДт[ВидСубконто]=Значение;
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший