ARD отчёт
Добавлено: 03 окт 2007, 07:31
Дамы и господа!
Подскажите, где я ошибся. Интерфейс выбора ДО запускается, но после выбора ДО, Галактика вешается.
.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
Подскажите, где я ошибся. Интерфейс выбора ДО запускается, но после выбора ДО, Галактика вешается.
.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