Error Unknown.

[irfan112]

Hi All,

I'm have a xbasic function code which I'm running on an OnClick event.

On checking with debug(1) the function is through and result is fine in expected way.

But whenever I'm returning from debug it gives me the error & it will not assign the result to the grid field which I'm setting.

The error is like "An error occured in the script on this page"
Error: expected ","


Kindly help me to resolve this.

Regards,
Syed Irfan Ahmed

[lgrupido]

Re: Error Unknown.

Can you post the function so we can see the code?

At the very least, we need to see the last few lines where the data is being returned.

Also, in debug, you know you can see the variable values? You should check the value of the return variable just before you send it maybe there is an issue with it.

[irfan112]

Re: Error Unknown.

Hi Larry Thanks for the reply,

I've checked from the debug the function is returning the value correctly.

For your ref Following is the code in which m getting the error:

FUNCTION num2words AS C (e as p )
	debug(1)
dim	pubdebt as C = e._currentRowDataNew.Amount
dim spellit[9] as c
spellit[1]="Dollars"
spellit[2]="Thousand"
spellit[3]="Million"
spellit[4]="Billion"
spellit[5]="Trillion"
spellit[6]="Quadrillion"
spellit[7]="Quintillion"
spellit[8]="Sextillion"
spellit[9]="Septillion"

pubdebt=strtran(pubdebt,"$","")
pubdebt=strtran(pubdebt,",","")

if at(".",pubdebt,1)= 0 then
    pubdebt=pubdebt+"."
end if

if round_up((at(".",pubdebt,1)-1)/3,0)>0 then
    for n = round_up((at(".",pubdebt,1)-1)/3,0) to 1 step -1
    	if n*3 = (at(".",pubdebt,1)-1) then
    	    num2words = spellitout(left(pubdebt,3)) +" "+ spellit[n]+crlf()
   else if   n*3 > (at(".",pubdebt,1)-1) then
   			num2words=spellitout(left(pubdebt,3-((n*3)-(at(".",pubdebt,1)-1))))+" "+spellit[n] +crlf() 
   else if	 n*3 < 	(at(".",pubdebt,1)-1) then
   
   			num2words = num2words+" "+spellitout(left(right(left(pubdebt,at(".",pubdebt)-1),n*3),3))+" "+spellit[n]+crlf()
    	end if
  '  	num2words()
    next
end if

if len(pubdebt)-at(".",pubdebt,1)>0 then
    if len(pubdebt)-at(".",pubdebt,1) = 1 then
        num2words = num2words+" and "+ spellitout(alltrim(str(val(right(pubdebt,1))*10)))+" cents"
    else
    	num2words = num2words+" and "+ spellitout(substr(pubdebt,at(".",pubdebt,1)+1,2))+" cents"
    end if
end if
num2words= strtran(num2words,crlf(),"")
e._set.Amount_Words.value = num2words

END FUNCTION

FUNCTION spellitout AS C (varnum AS c )
'debug(1)
dim validlist as c = "0123456789."
binghead = ""
for n = 1 to len(alltrim(varnum))
if .not. inlist2(substr(varnum,n,1),"0,1,2,3,4,5,6,7,8,9,.") then
binghead="Invalid Character detected!"
end if
next n

if binghead <> "" then
spellitout = binghead
end
end if
numlist = <<%num%
zero
one
two
three
four
five
six
seven
eight
nine
ten
eleven
twelve
thirteen
fourteen
fifteen
sixteen
seventeen
eighteen
nineteen
twenty
twenty-one
twenty-two
twenty-three
twenty-four
twenty-five
twenty-six
twenty-seven
twenty-eight
twenty-nine
thirty
thirty-one
thirty-two
thirty-three
thirty-four
thirty-five
thirty-six
thirty-seven
thirty-eight
thirty-nine
forty
forty-one
forty-two
forty-three
forty-four
forty-five
forty-six
forty-seven
forty-eight
forty-nine
fifty
fifty-one
fifty-two
fifty-three
fifty-four
fifty-five
fifty-six
fifty-seven
fifty-eight
fifty-nine
sixty
sixty-one
sixty-two
sixty-three
sixty-four
sixty-five
sixty-six
sixty-seven
sixty-eight
sixty-nine
seventy
seventy-one
seventy-two
seventy-three
seventy-four
seventy-five
seventy-six
seventy-seven
seventy-eight
seventy-nine
eighty
eighty-one
eighty-two
eighty-three
eighty-four
eighty-five
eighty-six
eighty-seven
eighty-eight
eighty-nine
ninety
ninety-one
ninety-two
ninety-three
ninety-four
ninety-five
ninety-six
ninety-seven
ninety-eight
ninety-nine
%num%
dim numeric[101] as c



numeric.initialize(numlist)
spellitout=""
if len(varnum)=3 then
spellitout = numeric[val(left(varnum,1))+1]+" Hundred "
end if

if len(varnum) > 1 then
spellitout =spellitout + numeric[val(right(varnum,2))+1]
else
spellitout =spellitout + numeric[val(right(varnum,1))+1]
end if

if len(varnum)= 3 .and. left(varnum,1)= "0" then
spellitout = right(spellitout,len(spellitout)-len("zero hundred "))
end if

END FUNCTION

My grid fields are Amount & Amount_words
On dbClick event of amount field m calling the xbasic function num2words() and in the function you can see i'm trying to set the value of amount_words field to the result.

I'm getting the value of num2words correctly on checkung it from debug but its not setting the value of Amount_words field and giving script error message on closing the debug.

[lgrupido]

Re: Error Unknown.

What you need to understand is that when you use a function this way, you must return javascript in the function. You can't say, for instance:

num2words = "fifty-five"

That doesn't work, because num2words is expecting javascript.

To get your function work, dim a value such as

dim numvalue as c

Then use numvalue everywhere in the function that you have used num2words.

That will fix your code and make it work. Final num2words function included, below. (it works for me!)

FUNCTION num2words AS C (e as p )
	debug(1)
dim	pubdebt as C = e._currentRowDataNew.Amount
dim spellit[9] as c
dim numvalue as c
spellit[1]="Dollars"
spellit[2]="Thousand"
spellit[3]="Million"
spellit[4]="Billion"
spellit[5]="Trillion"
spellit[6]="Quadrillion"
spellit[7]="Quintillion"
spellit[8]="Sextillion"
spellit[9]="Septillion"

pubdebt=strtran(pubdebt,"$","")
pubdebt=strtran(pubdebt,",","")

if at(".",pubdebt,1)= 0 then
    pubdebt=pubdebt+"."
end if

if round_up((at(".",pubdebt,1)-1)/3,0)>0 then
    for n = round_up((at(".",pubdebt,1)-1)/3,0) to 1 step -1
    	if n*3 = (at(".",pubdebt,1)-1) then
    	    numvalue = spellitout(left(pubdebt,3)) +" "+ spellit[n]+crlf()
   else if   n*3 > (at(".",pubdebt,1)-1) then
   			numvalue=spellitout(left(pubdebt,3-((n*3)-(at(".",pubdebt,1)-1))))+" "+spellit[n] +crlf() 
   else if	 n*3 < 	(at(".",pubdebt,1)-1) then
   
   			numvalue = numvalue+" "+spellitout(left(right(left(pubdebt,at(".",pubdebt)-1),n*3),3))+" "+spellit[n]+crlf()
    	end if
  '  	num2words()
    next
end if

if len(pubdebt)-at(".",pubdebt,1)>0 then
    if len(pubdebt)-at(".",pubdebt,1) = 1 then
        numvalue = numvalue+" and "+ spellitout(alltrim(str(val(right(pubdebt,1))*10)))+" cents"
    else
    	numvalue = numvalue+" and "+ spellitout(substr(pubdebt,at(".",pubdebt,1)+1,2))+" cents"
    end if
end if
numvalue= strtran(numvalue,crlf(),"")
e._set.Amount_Words.value = numvalue

END FUNCTION

[agillbb]

Re: Error Unknown.

If this is a callback, then I think your other option might be to return javascript code which sets the grid field.

Replace last line:
e._set.Amount_Words.value = num2words
with something like:
num2words = "{grid.object}.setValue('G','LASTNAME',{grid.rowNumber},'" + num2words + "');"