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

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

Добавлено: 04 апр 2007, 14:30
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

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