setting a forms Field values in Xbasic

[CharlesParker]

I have a grid. In this grid I have a field called "reportfilename" and a button.
for the buttons Onclick I do an ajax callback (and compute current row data is checked) that calls an xbasic function to set some session variables.
I see in the debugger that my variables are set and do contain the correct values. Doing good so far!
Next
I want to set a fields value in my form to one of the session variables in the xbasic and for the life of me I cannot do it.
I have tried every way I can think of but obviously NOT the right one.

Can one of you guys help me?
The current xbasic function reads as this:

function setmailedto as c (e as p)
session.mailto = e._currentRowDataNew.EMAIL
session.sentto = session.mailto + " " + Date() + " " + Now()
e._set.reportfilename.value = "session.sentto"
end function


Now, the e.set thing fails to set the value of the field called "reportfilename" to the value of the session variable. The variable does have the correct value in the debugger so I dunno what I am supposed to do to get the value of the variable "session.sentto" set as the value for the field "reportfilename".
The purpose of the date and Now are to add WHEN the email was sent...

Help me learn! please!

[GGandhi]

Re: setting a forms Field values in Xbasic

e._set.reportfilename.value = "session.sentto"
should be like
e._set.reportfilename.value = session.sentto

however you are getting the value from the grid and setting the value in the grid itself, so you don't need to reconstruct using session variable you can just add it to the desired string.
secondly you want to combine date() and now(), now() alone should be enough. debug thru and see if it gives what you need.

function setmailedto as c (e as p)
session.mailto = e._currentRowDataNew.EMAIL
e._set.reportfilename.value = e._currentRowDataNew.EMAIL+ " " + now()
end function

can be written like this
you are using session variable for some other purpose. you can still have it available.

[GGandhi]

Re: setting a forms Field values in Xbasic

you are using ajaxcallback which involves trip to the server you can set the variables in the browser itself with inline javascript. probably faster does not require trip to server.

var email = {grid.object}.getValue('G','EMAIL',{Grid.RowNumber});
var d1 = new Date();
d1 = d1.toFormat('MM/dd/yyyy 0h:0m:0s AM');
var emailSent = email+ " " + d1;
{grid.object}.setValue('G','REPORTFILENAME',{Grid.RowNumber},emailSent);
var session.email = email;

[CharlesParker]

Re: setting a forms Field values in Xbasic

Your code will not work in xbasic syntax is
var ="javascript here";
so simply inserting this code will not work.

Also I did try removing the quote marks around the "session.sentto" and that did not work either.

[GGandhi]

Re: setting a forms Field values in Xbasic

e._set.reportfilename.value = e._currentRowDataNew.EMAIL+ " " + now()

did you try, i tested that one earlier and it works as expected.
on the debug what value you are getting for session.sentto.

Your code will not work in xbasic syntax is
var ="javascript here";
so simply inserting this code will not work.

that was in javascript, i could test it for you and report later. not in xbasic.

[GGandhi]

Re: setting a forms Field values in Xbasic

session variables don't they need server, is this published and tested in the published version?
when you are assigning a value to a variable and the reference that variable, the quotes should not be there. as far as i know.

[GGandhi]

Re: setting a forms Field values in Xbasic

you are correct, javascript does not like dot notation, however
I tested ajaxcall version and javascript version of assigning field value. they both work as expected.
in ajaxcallback I used the same session variable as you did.
if you like post back I will show in a screencast, if you like.

[CharlesParker]

Re: setting a forms Field values in Xbasic

Ok,
so lets keep on track. Remember I am trying to set the value of a field in a grid using xbasic.
That is my dilemma.
I am sending an email and adding an attachment. This is done via the xbasic sample mandrill code provided. I am able to send the email and of course with the attachment. The goal now is to set the value of a field to say that there was an email sent on this day and at this time, using Now()
which by the way you were right, Date() was unnecessary and the date appeared twice in the debugger because of course Now() includes the date and time.

[GGandhi]

Re: setting a forms Field values in Xbasic

dim vendor as c
	vendor = e._currentRowDataNew.vendor_name
	session.vendor = vendor
	session.email_sentto = session.vendor + " " + now()
	e._set.comment.value = session.email_sentto

this is what I used to test the code and it sets as expected.

[GGandhi]

Re: setting a forms Field values in Xbasic

http://screencast.com/t/VsQlmxBG85B3
take a look

[CharlesParker]

Re: setting a forms Field values in Xbasic

I notice that you DO NOT have a detail view, does this make a difference in anything. I am going to do a screencast myself because what I am doing with the same code does NOT work in my version of Alpha and I am stumped...

[GGandhi]

Re: setting a forms Field values in Xbasic

it does not work in detail view.
e._set is converted to its javascript counterpart
{grid.object}.setValue('G',name.rownumber,value);
'G' and rownumber are not applicable in the detail view, the javascript does not know about the value.
it probably a bug I do not know. or they should not have copied the instruction from grid part to detail part without any modification.

[GGandhi]

Re: setting a forms Field values in Xbasic

however you could send javascript command to the browser as I detailed in post number 3 adjusting to detail view as the xbasic function return value.

[CharlesParker]

Re: setting a forms Field values in Xbasic

Ok, so fifty tries later I FINALLY got what I wanted and it took some figuring...I will create a little jing video if anyone wants but the code that worked - well I couldnt do it in xbasic - which was my goal BUT this is how I did it.
The Goal is to send an email with an attachment and log when it was sent, allow for a custom message (using mandrill) with the sending email a variable - since I have users in a saas application that want to send out an invoice as a PDF.
This is a Grid with a detail view. I have unchecked close detail view on submit.

I have an action button that is going to "Email Invoice"
The action buttons first inline javascript is "Submit Detail View" I am doing that in case someone alters the email address to be sent to prior to clicking the button.
The second action is an ajaxcallback with compute current row checked.

Functionname:setmailto

function setmailto as c (e as p)
	
	session.mailedto = e._currentRowDataNew.EMAIL
	session.sentto = session.mailedto + " " + Date()
	session.mailfrom = e._currentRowDataNew.REPLYEMAIL
	session.mymsg = e._currentRowDataNew.CUSTOM_MESSAGE
	session.sentto = session.mailedto + " " + Now()	

end function

The trick now is to NOT add a new action but rather add in javascript to execute after the function in the advanced area of the ajaxcallback!~
Thats what did the trick - anywhere else I kept getting errors.
I modified the code gandi provided in post 3 to read as follows

var email = {grid.object}.getValue('D','EMAIL');
var d1 = new Date();
d1 = d1.toFormat('MM/dd/yyyy 0h:0m:0s AM');
var emailSent = email+ " " + d1;
{grid.object}.setValue('D','REPORTFILENAME',emailSent);
{grid.Object}.submitDetailView();

***The interesting part here is if you stick this exact same code in an inline javscript OnClick Event - even running synchronously - you will get the message to save first and the code errors out. So it must be put in the same ajaxcallback, in the advanced section to work out - at least for me.



Next is Open a Report, Label, or Letter layout and target to xbasic

Functionname: ReportForEmail

function ReportForEmail as c (e as p)
	
dim msg1 as c
dim key as c 
key = e.fileSessionKey
dim b as b 
'get the binary day for the report
session.GetDataFromFile(b,key)
dim size as n 
size = b.size()
if size = 0 then 
	msg1 = "alert('Report was not sent.');"
	exit function
end if 
'If you don't have a Mandrill secret key, sign up at Mandrill.com
dim mysecretkey as c = ""   'if you leave this blank the key value is read from a setting in Project Properties
dim ms as p
dim date as d
ms.send_to = session.mailedto
	if session.mailedto = "" then
		msg1 = "alert('Email Address is missing or invalid!');"
		exit function
	end if
ms.from_email = session.mailfrom
ms.subject = "Wildlife Control Invoice/Estimate"
ms.message_html = "Please find the attached invoice and or estimate." + "<br>" + session.mymsg + crlf()+\ 
"<br>""<br>""<br>""<center><b>Confidentiality Notice:</b> This e-mail message, including any attachments,is for the sole use of the intended recipients." + crlf()+\
"It may contain confidential and privileged information or may be otherwise protected by law." + crlf()+\
"Any unauthorized review, use, disclosure or distribution is prohibited." + crlf()+\
"If you are not the intended recipient, please contact the sender immediately by reply e-mail and destroy all copies of the original message." + crlf()+\
"If you received this email by mistake, send complaints/concerns to [email protected]</a>This email is generated using NWCOPRO software.</center>" 

dim ms.attachmentsArray[1] as p
ms.attachmentsArray[1].name = "Wildlife Control.pdf"   'if the report was an html report, use the .html extension
ms.attachmentsArray[1].type = resolve_mime_type("pdf") 'if the report was an html report, use the 'html'
ms.attachmentsArray[1].content = base64encode(b)

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

And Finally, I have a submit and save action.
What this effectively does is what I wanted to accomplish in the first place.

I wanted to send an email and record in a field when it was sent and to whom.


Now, the only bugger here is that the msg1 alert DOES NOT fire at all.
So no message appears saying if the email was sent or NOT - even though it does work as expected otherwise.
if someone could help me troubleshoot that I would be very thankful!

I guess the "presult" isnt working or something and I am not sure how to catch that in the debugger...


I hope this help someone in the future!

[kotinkarwak]

Re: setting a forms Field values in Xbasic

Charles,
Following this, please if you have time cut the video, it helps to understand the code especially since you utilizing other services (mandrill).