Since u_P is an integer, you may not use LJS directly. Instead use:
(LJS(CTXT(u_P, 20 ))) +
----- Original Message -----
From: "Steve Breen" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[EMAIL PROTECTED]>
Sent: Saturday, January 25, 2003 4:04 PM
Subject: [RBASE-L] - Argument 1 of function LJS cannot be INTEGER
Steve.
I have developed a form called username for entering our web users
username into the database it is working great, but now I have to
build
a way to edit the information using the form.
So for I have gotten this far in developing the code to edit the form
using the attached command.
I want to run this code and the use the following command after the
variable ' vu_p ' is returned.
Then edit using (form) username where u_P = vu_P
Any help will be appreciated, please review the attached code and
advise me what needs to be changed. The column u_P is an integer
column
in the username table.
I am getting this error.
(LJS(u_P, 20 )) +
+-----------------------------------------------------------+
� Break in file getuser at line 64 for 2153 �
� -ERROR- Argument 1 of function LJS cannot be INTEGER. �
� (2153) �
+-----------------------------------------------------------+
astkey(0)) = '[esc]' then
vSkipInput = 'YES' then
______________________________________________________________________
__
____________________________________________________________
-- GETUSER
-- returns vu_p
set var vmany = (cval('many'))
set var vrcode int = 0
set var choosemsg = 'WRITE '' Choose a Customer (ESC to Cancel)''
white
on blue'
label LOOP
cls
SET VAR vSkipInput TEXT
if vSkipInput = 'YES' then
set var vhow = 'by customer name'
goto SKIP
endif
choose vhow from #values for +
'By Customer Name' from sys_reports where count = 1 +
if (lastkey(0)) = '[esc]' then
goto CANCEL
endif
label SKIP
if vhow = 'by customer name' then
clear var vpart
dialog 'Enter 1 or more characters of customer name' vpart vkey 1
if (lastkey(0)) = '[esc]' then
goto LOOP
endif
-- If user has entered only one letter, use the FIRST_LETTER column,
-- else, use the CUSTNAME column. This is for SPEED.
SET VAR VLEN = (SLEN(.VPART))
if vlen = 1 then
SET VAR XWHERE = ('first_letter = .vpart')
else
set var vpart = (.vpart + .vmany)
SET VAR XWHERE = ('custname like .vpart')
endif
cls
&choosemsg
set var vu_p = text
set var vu_p text = null
choose vu_p from #values for +
( +(ljs(u_CompanyName, 25)) & +
(ljs(u_Name, 30)) & +
(LJS(u_P, 20 )) +
), u_p +
from username where +
&xwhere order by u_CompanyName at 2 2 black on cyan foot title +
'CUSTOMER NAME USER NAME USER NUMBER'
if (lastkey(0)) = '[esc]' then
if vSkipInput = 'YES' then
goto cancel
endif
goto LOOP
endif
endif
label FINISH
cls
clear var vchar vmany vpart vhow
return
label CANCEL
set var vrcode = 1
goto FINISH
return
______________________________________________________________________
__
__________________________________________
Thanks
Stephen Breen
Director of Sales and MIS
CDI Services, Inc.
Email: [EMAIL PROTECTED]
Web Site: http://www.911roadrepair.com <http://www.911roadrepair.com/>
