Hi All,
Anyone can help?

this code "dal.set.field("tdpur401.sfbp",tdpur400.sfbp)" get this error "Error Change the value of the Ship-from Business Partner field."

select tdpur400.*
from tdpur400
where tdpur400.orno = rod_order and tdpur400.sfbp = :business_partner and tdpur400.sfad = :business_address
selectdo
select tdpur401.*
from tdpur401 for update
where tdpur401.orno = rod_order and tdpur401.sfbp = :business_partner and tdpur401.sfad = :business_address and tdpur401.item= item
selectdo
...
selectempty
ret6 = dal.new.object("tdpur401")
dal.set.field("tdpur401.item", pitem)
dal.set.field("tdpur401.qoor", str$(qty))
dal.set.field("tdpur401.pric", str$(price))
dal.set.field("tdpur401.sfbp",tdpur400.sfbp)
dal.set.field("tdpur401.sfad", tdpur400.sfad)
dal.set.field("tdpur401.odat", tdpur400.odat)
dal.set.field("tdpur401.ddat", tdpur400.ddat)
...
ret6 = dal.save.object("tdpur401")
commit.transaction()

endselect
selectempty

endselect

Attached Thumbnails