function main( ... )
t_id=AllocTable()
AddColumn(t_id,0,"trans_id",true, QTABLE_STRING_TYPE,30)
AddColumn(t_id,1,"sec_code",true, QTABLE_STRING_TYPE,30)
AddColumn(t_id,2,"activation_time",true, QTABLE_STRING_TYPE,30)
AddColumn(t_id,3,"settlecode",true, QTABLE_STRING_TYPE,30)
AddColumn(t_id,4,"exec_type",true, QTABLE_STRING_TYPE,30)
AddColumn(t_id,5,"#",true, QTABLE_STRING_TYPE,30)
if CreateWindow(t_id)<1 then
message("Error creating Dlg window",1)
end
SetWindowCaption(t_id,"Orders data")
local t=0
local count = getNumberOf("orders")
InsertRow(t_id,-1)
if count then
for i=0,count-1 do
InsertRow(t_id,-1)
if stopped then
break
end
t=getItem("orders", i)
if t ~= nil then
SetCell(t_id,i,0,tostring(t.trans_id))
SetCell(t_id,i,1,tostring(t.sec_code))
SetCell(t_id,i,2,tostring(t.activation_time))
SetCell(t_id,i,3,tostring(t.settlecode))
SetCell(t_id,i,4,tostring(t.exec_type))
end
SetCell(t_id,i,5,tostring(i))
end
end
end
|
