ARD отчёт

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

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

Ответить
ms_root
Сообщения: 14
Зарегистрирован: 23 май 2006, 05:56

ARD отчёт

Сообщение ms_root »

Дамы и господа!
Подскажите, где я ошибся. Интерфейс выбора ДО запускается, но после выбора ДО, Галактика вешается.

.form 'Zapros_DO_1'
.NameInList 'Запрос на потавку'
.ard
.var
myrec : comp; // номер ДО BaseDoc.Nrec
myGSDoc : comp; // номер этапа StepDoc.NRec
myGOrg : comp; // организация BaseDoc.cOrg
MySum : double;
.endvar

.Create view DO as
select
b.NODOC(fieldname=Nomer),
b.DDOC(fieldname=datedoc)

from
stepdoc,
basedoc b
where
(( word(32) == Pick.wList
and StepDoc.Nrec /== Pick.cRec
and StepDoc.cBasedoc /== b.nrec ));

.fields
Nomer
datedoc
.endfields

.begin
runinterface('F_SOPRHOZ::GetDBase',false, 1, 201, myrec, myGSDoc, myGOrg,Mysum);
end.

1.Список ДО

.{table DO
@@@@@@@@@@@ @@@@@@@@@@@@@
.}
.endform
Goblin
Местный житель
Сообщения: 474
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Сибирь-матушка
Контактная информация:

Сообщение Goblin »

Ну не вешается, а скорее всего пытается соорудить Вашу вьюху, которая ну совсем неправильная

Нижеописанная подцепка ограничивает Pick по всему "жирному" StepDoc и по коду списка

Код: Выделить всё

 where
(( word(32) == Pick.wList
and StepDoc.Nrec /== Pick.cRec
and StepDoc.cBasedoc /== b.nrec ));
Нужно наоборот, тогда именно к малому Pick, ограниченному кодом списка, из "жирного" Stepdoc подцепятся нужные значения

Код: Выделить всё

 where
(( word(32) == Pick.wList
and  Pick.cRec /== StepDoc.Nrec
and StepDoc.cBasedoc /== b.nrec ));
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Ответить