Вот так получилось:
ВидСубконто=Движение.СчетДт.ВидыСубконто[0].ВидСубконто;
Движение.СубконтоДт[ВидСубконто]=Значение;
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой