|
![]() |
#1 |
Участник
|
X++: void clicked() { Currency cur; ExchRates excR, excRval; real sumEur, sumUsd,Coef; date dt = systemdateget();// <-получаем сегодняшную дату str Eur, Usd, stVal, StrDt; StrDt = Date2Str(dt,2,2,2,2,2,4); while select cur // Выбираем валюты кот. явл условными единицами where cur.UE == NoYes::Yes { stVal = cur.CurrencyCode; // Запоминаем наименование валюты напр. YEEUR Coef = cur.rate; // Запоминаем коэффициент select excR where excR.CurrencyCode == cur.CurrencyCodeParent && excR.FromDate == dt; { if (excR.CurrencyCode == enum2str(CurrencyUECod::EURcod)) { sumEur = excR.ExchRate * Coef; ttsbegin; excR.FromDate = dt; excR.ExchRate = sumEur; excR.CurrencyCode = stVal; excR.insert(); ttscommit; } else if (excR.CurrencyCode == enum2str(CurrencyUECod::USDcod)) { sumUsd = excR.ExchRate * Coef; ttsbegin; excR.FromDate = dt; excR.ExchRate = sumUsd; excR.CurrencyCode = stVal; excR.insert(); ttscommit; } } } element.closeCancel(); info(strfmt("На: %1", StrDt)); info("Курсы у.е. успешно расчитаны"); info(strfmt("Курс YEEUR: %1", sumEur)); info(strfmt("Курс YEUSD: %1", sumUsd)); } |
|
![]() |
#2 |
Участник
|
понятно почему вы поставили точку с запятой.
непонятно почему вы не убрали фигурную скобку - по синаксису ее здесь не должно быть. но если бы выше было "while select excR", то фигурная скобка обязательна, а точка с запятой была бы лишней. вы определитесь что именно у вас лишнее. ============== Что значит "делаются записи"? записи могут: insert, update, delete. Что именно вы подразумеваете под словом "делаются" Пожалуйста, пока не постите в эту ветку ваш код - на него просто физически больно смотреть. Сформулируйте на простом и родном для вас языке - что именно вы хотите получить в результате. Пожалуйста, не надо в стиле "акына" - заходим, запоминаем, делаем. А именно каков ожидаемый результат? |
|