Падает, в чем причина?
Добавлено: 08 дек 2006, 16:15
Такой вот интерфейс:
вот на этой строчке:
из-за
sm.saldmoun.kauos[1]
падает при запуске... говорит внутренняя ошибка, объект не найден в ресурсе... что это такое???
Код: Выделить всё
Interface TestTable 'Test' doaccept, Cyan;
show at (,,80,40)
table struct TableOrgs(
nrec : Comp ,
crec : Comp ,
name : String
)with index (byNrec = nrec);
Create View TreeView
var
cOwner : Comp;
kvartal : word;
select
*
from TableOrgs;
create view sm
select * from saldmoun;
SCREEN MainScreen;
show at(,,,10);
fields
kvartal :[LIST 1 'I (31/03)', 2 'II (30/06)', 3 'III (30/09)', 4 'IV (31/12)']
{Font = {Bold = true} },Protect;
buttons
cmbtReport;
<<
По состоянию на .@@@@@@@@@ квартал <.Сформировать отчет.>
>>
end;
//------------------------------ Begin InitTables ------------------------------
procedure InitTables;
{
StartNewVisual(vtRotateVisual, vfTimer, 'Формирование дерева...',1);
ClearBuffer(#TableOrgs );
sm._Loop
if(modifier getfirst TableOrgs where ((sm.saldmoun.kauos[1]==TableOrgs.nrec))=tsOK){
TableOrgs.nrec := 1;
TableOrgs.name := '';
Insert Current TableOrgs;
}
StopVisual('',0);
}
//------------------------------ End InitTables ------------------------------
//------------------------------ Begin CreateReport ------------------------------
procedure CreateReport;
{
}
//------------------------------ End CreateReport ------------------------------
handleEvent
cmInit:{
InitTables;
}
cmCheckField:{
case (CurField) of
#kvartal:{
case (kvartal) of
end;
}
end;
}
cmbtReport:{
CreateReport;
}
end;
end.
Код: Выделить всё
((sm.saldmoun.kauos[1]==TableOrgs.nrec))=tsOK){
sm.saldmoun.kauos[1]
падает при запуске... говорит внутренняя ошибка, объект не найден в ресурсе... что это такое???