clear
local m.fld4 as Number
_screen.AddProperty('myNewFld','0')
*
create Cursor MyCur1 (fld1 n( 10 , 2 ), fld2 c( 20 ))
create Cursor MyCur3 (fld1 n( 10 , 2 ), fld2 c( 20 ))
*
insert into MyCur1 (fld1, fld2) values ( 10 . 01 , 'первая')
insert into MyCur1 (fld1, fld2) values ( 20 . 02 , 'вторая')
insert into MyCur1 (fld1, fld2) values ( 30 . 03 , 'третья')
select MyCur1 
browse last
*
insert into MyCur3 select fld1, myFunc_2() from MyCur1
select MyCur3
browse last
*
use in select('MyCur1')
use in select('MyCur3')
******************************
function myFunc_2
lparameters Param_1
m.lofrm = createobject('frm1')
m.lofrm.show( 1 )
return  _screen.myNewFld
******************************
define Class frm1 as Form
    add Object txt1 as textbox with left = thisform.Left+ 5 , ;
        width = thisform.Width+ 5 , ;
        top =  20 
    procedure Destroy
    _screen.myNewFld = this.txt1.value
    endproc
enddefine