Hello,
I have created a session as shown in the 1st attachment.
and i attached aswell the final layout and i face a problem that the last 2 fields are disabled eventhou i have created them as INPUT field.

Kindly advice on urgent basis,

Can you supply a screen shot of the field definition? Is there a script attached to the session?

i have attached the table field definition and the program script aswell.

declaration:

table ttdgei555 | Package and IRQ Reference
table ttdsls400
table ttcibd001
table ttdsls400
table ttdsls401

extern domain tcorno sales.order
extern domain tcorno sales.order1
extern domain tcpono position
extern domain tcitem item
extern domain tcdsca item.desc
extern domain tcmcs.st30 cust.order
extern domain tcseak seak
extern domain tcseak seak1
extern domain tcqsl1 quantity
extern domain tcmcs.st30 package
extern domain tcmcs.st30 irqr

|long i


|****************************** program section *******************************





|****************************** form section **********************************

form.1:
init.form:
get.screen.defaults()


field.sales.order:

on.input:


sales.data()

refresh()

|after.program:
|query.extend.select("tdgei555.slso")
|query.extend.from("tdgei555")

|query.extended.where("tdgei555.slso = " & :sales.order)



|----------------------------funtions-------------------------------------------

Functions:

function sales.data()
{

select tdsls400.*
from tdsls400
where tdsls400._index1 = {:sales.order}
selectdo
select tdsls401.*
from tdsls401
where tdsls401._index1 = {:tdsls400.orno}
|GROUP BY tdsls401.orno
selectdo
db.retry.point()
select tdgei555.*
from tdgei555 for update
where tdgei555.slso = :tdsls401.orno
and tdgei555.pono = :tdsls401.pono
selectdo
tdgei555.corn = tdsls400.corn
tdgei555.slso = tdsls400.orno

if tdsls401.item(10;2) = "SO"
then
tdgei555.pono = tdsls401.pono
tdgei555.item = tdsls401.item
tdgei555.oqua = tdsls401.oqua

select tcibd001.*
from tcibd001
where tcibd001._index1 = {:tdsls401.item}
selectdo

tdgei555.desc = tcibd001.dsca
tdgei555.seak = tcibd001.seak
endselect

db.update(ttdgei555,db.retry)

commit.transaction()
endif





selectempty

tdgei555.corn = tdsls400.corn
tdgei555.slso = tdsls400.orno

if tdsls401.item(10;2) = "SO"
then
tdgei555.pono = tdsls401.pono
tdgei555.item = tdsls401.item
tdgei555.oqua = tdsls401.oqua

select tcibd001.*
from tcibd001
where tcibd001._index1 = {:tdsls401.item}
selectdo

tdgei555.desc = tcibd001.dsca
tdgei555.seak = tcibd001.seak
endselect
db.insert(ttdgei555,db.retry)

commit.transaction()
endif

endselect

endselect

|sales.order = ""
endselect


}

screenshot

I am sorry, I was not clear. Can you supply the Form Field definitions for those two fields.