Помогите разобратся с формой

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
OlegN
Сообщения: 9
Зарегистрирован: 27 мар 2007, 16:32

Помогите разобратся с формой

Сообщение OlegN »

Была создана логическая таблица в форме по заказам, при компиляции не ругается, при формировании отчета вылетают ошибки без описания. Подскажите что мне необходимо исправить или добавить. :eek:

.linkform 'Zak_Rep_05a' prototype is 'Zak_rep'
.NameInList 'Отчет по заказам1 '
.Group 'avto'
.Group 'Обобщенная'
!.hide
.var
spec:double
.endvar
.Create view t1
as select * from katzak ;

.fields
Filter
BegDate EndDate
AnalGroup
Npl GosNom NomZak
TimeAll DayAll ProbegAll spec
AnalItg
ItgTimeAll ItgDayAll ItgProbegAll
.endfields


.{
^
.}
Сведения о транспортных расходах по заказчикам
по путевым листам c @@@@@@@@@@@@@@@@@@@@@@@ по @@@@@@@@@@@@@@@@@@@@@

┌──────────────────┬──────────┬───────────┬───────────┬───────────┬─────────┬───────────┐
│ │ Номер │ Гос. │ Номер │ Время │ Дни │ Пробег │
│ Заказчик │ путевого │ номер │ заказа │ по заказу │по заказу│ по заказу │
│ │ │ │ │ │ │ │
└──────────────────┴──────────┴───────────┴───────────┴───────────┴─────────┴───────────┘

.{ CheckEnter GroupAnalZak
^
.{ CheckEnter ShapkaZak
.}
.{ CheckEnter DocAnalZak
.begin
if ((t1.getfirst katzak where(t1.katzak.nrec=Katzak_nrec))=0)
{
spec:=t1.katzak.timespec;
};
end.


@@@@@@@@@@ @@@@@@@@@@@ @@@@@@@@@@@ &'&&&&&.&& &'&&&&& &'&&&&&.&& ^
.}
.{ CheckEnter TotalAnalZak
^
&'&&&&&.&& &'&&&&& &'&&&&&.&&
.}
.}
.endform
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

так уж и без описания - свежо предание, но вериться с трудом.
за исключением не индексного поиска по katzak ничего не вижу.
вставте logstrtofile в подозрительные места - при получении посмотри лог.
вообще правильно писать
if (t1.getfirst katzak where(( Katzak_nrec ==katzak.nrec))=0)
{ spec:=t1.katzak.timespec;
}
else spec:=0 ;
Ответить