Senin, 16 Februari 2009

Retrive Using Datawindow Browse

when using datawindow browse as the same with datawindow input you can using this script for choosing of rows and retrieve. we can use this script in ancestor mode

SetPointer(HourGlass!)

st_message.visible = true
dw_1.AcceptText()
ibl_modify = false
If dw_1.Describe("datawindow.querymode") = 'no' and ibl_find = true then
dw_1.DataObject = dw_1.DataObject
dw_1.SetTransObject(sqlca)
ibl_find = false
End If
long llo_row
llo_row=dw_1.retrieve()
if llo_row > 0 then
if ibl_find=true then
dw_1.modify("datawindow.querymode=no")
dw_browse.object.data=dw_1.object.data
dw_browse.visible=true
wf_menu_browse(false)
else
wf_menu(3)
end if
dw_1.enabled=false
else
st_message.visible = false
messagebox("Retrieve","Data tidak ada.", Exclamation!)
return
end if
ibl_find_2 = false