BlankSteve - Two things -
1. Since the value of u_P is the LAST column in your choose list, you do not need to set a width for it - it will just default to whatever width it needs BUT in order to add an integer column onto a list of other columns, you do need to set it to a TEXT value as in: CHOOSE vu_p FROM #values FOR + ( (LJS(u_CompanyName, 25)) & + (LJS(u_Name, 30)) & + (CTXT(u_P))), u_p + FROM username WHERE + &xwhere ORDER BY u_CompanyName AT 2 2 BLACK ON CYAN FOOT TITLE + 'CUSTOMER NAME USER NAME USER NUMBER' 2. If you wanted to place it somewhere else in the list of columns and set a pre-defined width, you first need to set it to text, then set the width like: CHOOSE vu_p FROM #values FOR + ( (LJS(u_CompanyName, 25)) & + (LJS( (CTXT(u_P)), 20 )) & (LJS(u_Name, 30)), u_p + FROM username WHERE + ... ----------------------------------------------------------- Sami Aaron Software Management Specialists 19312 W 63rd Terr Shawnee KS 66218 913-915-1971 http://www.softwaremgmt.com ----- Original Message ----- From: Steve Breen To: RBASE-L Mailing List Sent: Saturday, January 25, 2003 6: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
