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
