View Single Post
  #1  
Old 21st November 2012, 05:53
Anton.k Anton.k is offline
Junior Member
 
Join Date: Nov 2012
Posts: 5
Anton.k is on a distinguished road
Baan: Baan 6(Infor ERP ln) - DB: Oracle - OS: Windows XP
Exclamation помощь программисту

Доброго времени суток.
Подскажите плиз, создаю в скрипте форму и на ней поле(глобальная переменная), после ввода на форме данные не сохраняются в переменной.

function create.prd()
{
show.mwindow()
fill.work.area()
handle.event.loop()
}

function show.mwindow()
{
long barmenu
toplevel = create.object( DsCmwindow, current.mwindow(),
DsNtitle, "Generate UID",
DsNprocessgroup, get.pgrp(pid),
DsNminWidth, 300,
DsNmaxWidth, 800,
DsNminHeight, 100,
DsNmaxHeight, 150)
}

function fill.work.area()
{
long rowcol
string listitems(300)
rowcol = create.object(DsCrowColumn, toplevel,
DsNvspace, 10,
DsNhspace, 10,
DsNnumColumns, 3,
DsNfixedDimension, DSHORIZONTAL )
frm.text = create.object(DsCfield, rowcol,
DsNheight, 20,
DsNmaxLength, 2,
DsNwidth, 20,
DsNstring, text
)
create.object(DsCpushButton, rowcol,
DsNstring, "Ok",
DsNreturnValue, COMMAND.EXIT)
update.object(toplevel)

}


function handle.event.loop()
{
long event(EVTMAXSIZE)
while TRUE
next.event(event)
on case evt.type(event)
case EVTPUSHBUTTON:
if (
evt.button.return(event) = COMMAND.EXIT ) then
change.object(frm.text, DsNstring,text)
update.object(frm.text)
message(text)|выводит пустое поле
return
endif
break
default:
break
endcase
endwhile
}
Reply With Quote