Страница 1 из 1

у меня сразу два вопроса :)

Добавлено: 03 фев 2004, 13:41
Vlad
Как вывести в ард отчете, кол-во рабочих часов по плану, за определенный месяц?
Кроме как сложить поля daychas[1]….daychas[31] в таблице klndr, больше не могу ничего придумать. Если есть что-нибудь проще, буду рад увидеть.
И еще один вопрос можно ли через значение переменной обратиться к полю таблицы….написать что то вроде
For(i:=1,i<=31, i:=i+1)
Sum:=sum+klndr.daychas[i];
Спасибо за внимание.

Re: у меня сразу два вопроса :)

Добавлено: 03 фев 2004, 13:47
Den
можно

Re: у меня сразу два вопроса :)

Добавлено: 03 фев 2004, 13:57
Vlad
Den, скажи как

Re: у меня сразу два вопроса :)

Добавлено: 03 фев 2004, 15:10
Den
Sorry...недосмотрел мессаг. Нет, так не прокатит.Придется тебе внутри for if или case использовать.

Re: у меня сразу два вопроса :)

Добавлено: 03 фев 2004, 18:17
Deinis
Почему нет?
Не уверен (не пробовал), но может прокатит такая фишка:

Var S: string; // строковое представление результата вычислений
Var ErrorInfo: string; // если были сообщения об ошибке в результате вычислений
For(i:=1,i<=31, i:=i+1)
begin
ErrorInfo := ''; // значение по умолчанию
S := Expression('Sum+KlnDr.DayChas[' + string(i) + ']' , ErrorInfo ) ;
IF (ErrorInfo = '')
then Sum := Sum + Double(S) ;
else // если возникла ошибка
begin
Sum := Sum + 0;
Message ('При подсчете суммы ... возникла ошибка следующего содержания: '+ErrorInfo) ;
end;
end;

Re: у меня сразу два вопроса :)

Добавлено: 04 фев 2004, 07:51
Goblin
Все прокатит ...

var i:integer;
var sum:double;
sum:=0;
for(i:=1;i<32;i:=i+1)
{
sum:=sum+klndr.chasf[i];
}

В словаре поля, имеющие в названии
"[№ какой-то]" объявлены массивами, и работа с ними на языке ADV производится как с обычными массивами ...
А то выражения строковые какие-то, преобразования типов зачем-то - а потом простой отчетик полчаса выдается ...
:)

Re: у меня сразу два вопроса :)

Добавлено: 04 фев 2004, 09:32
Den
Ну вот..умные люди подсказали. :)

Re: у меня сразу два вопроса :)

Добавлено: 04 фев 2004, 11:29
Vlad
Даааа :D... и чтобы я без них делал...Спасибо всем