setting a forms Field values in Xbasic

[GGandhi]

Re: setting a forms Field values in Xbasic

dim pResult as p
pResult = email_send_mandrill(mysecretkey,ms)
if pResult.error = .f. then 
	msg1 = "alert('Your Invoice/Estimate was sent.');"
else
	msg1= "alert('Your Invoice/Estimate was not sent.');"
end if
ReportForEmail = msg1
end function

the code should normally return like this. then it will fire the message on to the screen.
glad to hear it worked out well.
looks like the code expects someone to change the detail view and the code I had in my mind will send sequence to the browser after sending out the email or for that matter any ajaxcallback to set the value in the detail view which of course will need to be saved. in either case
I am happy you resolved the issue.

[GGandhi]

Re: setting a forms Field values in Xbasic

also another question, why do you need to set all the session variables,
the whole thing can be written in xbasic without session involvement, is there an advantage?

[CharlesParker]

Re: setting a forms Field values in Xbasic

Friend I have NO IDEA...I got the idea when the first session variable worked and so I went with it. By all means, if you can come up with a better more efficient way or offer advice (even on a small scale) I am all ears, you have been not only an inspiration but a huge help in many ways. I cannot thank you enough for your advice and input. It is very evident that, your goal is to help other users out - and you do it often. For that I thank you as do many others who read the advice and maybe never comment but they think it...

One of the things that most of us do is get it working and move on! It is always such a joy when you finally get something working as expected!

I will post a video on what I did and how here in a bit. Perhaps you will have more and better advice to offer when you see how I did certain things.

[GGandhi]

Re: setting a forms Field values in Xbasic

http://screencast.com/t/COIjLm0pF

http://screencast.com/t/7IVdjpBw8

function a2 as c (e as p)
	'debug(1)
	dim vendor as c
	vendor = e._currentRowDataNew.vendor_name
	dim pResult as p
	'pResult = email_send_mandrill(mysecretkey,ms)
	 pResult.error = .t. 
	dim jsCmd as c
	jsCmd = <<%str%
	var vendor = {grid.Object}.getValue('D','VENDOR_NAME');
	var d1 = new Date();
	d1 = d1.toFormat('MM/dd/yyyy 0h:0m:0s AM');
	%str%
	if pResult.error = .f. then
		jsCmd = jsCmd + <<%str%
		{
		var dVendor = "Email sent to " + vendor + " on " + d1;
		alert('success, email was sent');
		}
		%str%
		else
		jsCmd = jsCmd + <<%str%
		{
		var dVendor = "Email was not able to be sent to " + vendor + " on " + d1;
		alert('failure, email was not sent')
		}
		%str%
		end if
		jsCmd = jsCmd + <<%str%
		{grid.Object}.setValue('D','Comment',dVendor);
	{grid.Object}.submitDetailView();
	%str%
	
	
	a2 = jsCmd
	end function

all done via xbasic, and the message and the field reflect whether success or failure in sending the email.
take a look

[kotinkarwak]

Re: setting a forms Field values in Xbasic

Gandhi,
In video 1, I see when you add data to the comment field, an "X" is added to the control and when the data is removed, this is removed. How do you set this up?
Working through the video saw where you format the date. is .toFormat() javascript? I can't find it reported when I simply have it in the debugger console even though it works within the app.

[GGandhi]

Re: setting a forms Field values in Xbasic

an "X" is added to the control and when the data is removed, this is removed. How do you set this up?

did not do anything special, i will re-examine the code.

.toFormat() javascript?

alpha version of javascript, the date.toFormat, to mimic xbasic version. you will find it in version 12 release notes.

[CharlesParker]

Re: setting a forms Field values in Xbasic

Any idea WHY the stock alpha example code that I am running (mostly stock) is NOT working to give me the presults?
I get NO msg1 alerts...

[kotinkarwak]

Re: setting a forms Field values in Xbasic

Think msg1 should be replaced with the actual function name.

[CharlesParker]

Re: setting a forms Field values in Xbasic

Oh my, simple error on my part Thanks!

[GGandhi]

Re: setting a forms Field values in Xbasic

Any idea WHY the stock alpha example code that I am running (mostly stock) is NOT working to give me the presults?
I get NO msg1 alerts...

check post number 16
that is how to end a function to get the alert fire.
also in your function you have
msg1 and then _name in the else clause.
the very first msg1 should be enveloped in a long if end if frame and a small one you have and the exit function will get you out before that msg1 is returned to the function.