setting dialog field value on onbeforerecordinsert event handler

[Wajeed]

I am calling the following xbasic function on onbeforerecordinsert event handler to set the dialog component field value.

dim sql as c
dim args1 as sql::arguments
dim LNxtId as c
args1.set("paramtp","CUSTOMER")
args1.set("prfx","C")
sql = "Select dbo.fn_nextsequence(:paramtp,:prfx) " //User defined sql function
if (cn.execute(sql,args1))= .f. then
acmastupdate = "alert('" + js_escape(cn.callResult.text) + "');"
else
LNxtId = cn.ResultSet.Data(1)
end if
e.control.cust_code = LNxtId

but value is not effected in submit my data.
I tried to dirty the field by the following command
e.dirtyColumns.r1 = e.dirtyColumns.r1 + crlf()+"CUST_CODE"+crlf()
but i get error.

Please help me to get out of this error.

[GGandhi]

Re: setting dialog field value on onbeforerecordinsert event handler

I know you have difficulty starting out in alpha five ( read your other post) and I see that no one has answered this one yet and possibly this prompted your other post.
as I see in this post it looks like you are trying to get the new record id from customer table and want to insert it into the current dialog.
and you are not getting anywhere with it.
instead of trying to find an answer how to populate the id of a dialog, may I ask what are you trying to achieve and why you chose this approach?
if I understand your logic I could try to help.
below my signature there is link for a blog please take a look, also there are many people in this board, they have posted valuable code and they routinely contribute to the forum. you can take a look at their post and follow the method they implement. if you scan the board you will recognize who contributes generously, they are valuable addition to alpha software.

[Wajeed]

Re: setting dialog field value on onbeforerecordinsert event handler

Thanks Gandhi, I can see from other threads you valuable contribution in this forum, i appreciated.
My application scenario is as follows,
- I am creating a dialog form to record customer information
- Customer Table (SQL) contains Cust_Key (Auto ID) Primary Key, Cust_Code unique index key, cust_name, etc...
- I generate next cust_code value from another table (not Customer table)
- I want to save this value in cust_code field in Customer table when i submit my customer dialog form.
- I am trying to assign this value on server side afterdialogvalidate event handler before ExecuteServerSideAction("Save Data::save_datatocustmast").( Am i wrong ?).
- i tried e.control.<dialogfieldvalue> method and e.arguments method , but i am not able to achieve my requirement.

[GGandhi]

Re: setting dialog field value on onbeforerecordinsert event handler

okay

this needs to go in the afterValidate event before the record save action, not in the event you picked.
also I have corrected your code. take a look at this modified code.
if you want I will post a video later on.

(ps: this assumes you have dimmed and executed connection and verified the connection took place and your function works correct
the change below assumes you are getting a number, the one you want)

dim sql as c
 dim args1 as sql::arguments
 dim LNxtId as c
 args1.set("paramtp","CUSTOMER")
 args1.set("prfx","C")
 sql = "Select dbo.fn_nextsequence(:paramtp,:prfx) " //User defined sql function
 if (cn.execute(sql,args1))= .f. then
         acmastupdate = "alert('" + js_escape(cn.callResult.text) + "');"
         end function
  else
           LNxtId = cn.ResultSet.Data(1)
            e.dataSubmitted.cust_code = LNxtId
             e.dirtyColumns = e.dirtyColumns + crlf() +"CUST_CODE"
 end if

edit:
http://screencast.com/t/bpxwqgGm
edit2: with alert message
http://screencast.com/t/Cge2kQIdxby

[Wajeed]

Re: setting dialog field value on onbeforerecordinsert event handler

Thanks Mr.Gandhi.

it worked like charm... thanks