|
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
))
+ ____________________________________________________________________________________________________________________________________ -- 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 CDI Services, Inc.
|
