You have TRACE on, which is designed specifically to give you the error
messages. Remark out the line SET TRACE ON.
Albert
On 1/18/2014 10:04 AM, mike epstein sony viao office wrote:
It has been a while since I have posted , I'm a bit rusty on my
programming. Here is my problem ;
In A form I have used for 6 or 7 years that I use to locate street
numbers and street names ,
Actually I used a drop down menu for 4 catagories to search (one of
which is the street number and street name )
In the code listed below (label startfill) if nothing is entered or
found in the fillin statement , a number error messages appear that
are cleared by pressing the return key Quite annoying .
I know that this is a simple task but I can't seem to figure this out.
I deffer to the wisdom of the list
Mike Epstein
CLEAR VAR vjob2,vjob3
CLEAR VAR vstreetnm
SET TRACE ON
SET VAR cflock TEXT = (CVAL('FASTLOCKS'))
SET VAR cqual TEXT = (CVAL('QUALCOLS'))
SET VAR dbsa TEXT = (CVAL('DATABASE'))
SET VAR vstreetnm TEXT
SET QUOTES = '
LABEL startfill
FILLIN vstreetnm USING 'ENTER PART OF THE STREET NAME OF THE JOB '
SET VAR vjob2 TEXT = null
CHOOSE vjob2 FROM #VALUES FOR (LJS(jobnam,30)&jbdsc+ ' @ ' &cntr),
jidcode FROM jobs WHERE +
jobnam CONTAINS .vstreetnm ORDER BY jidcode CAPTION ' CHOOSE ADDRESS'
LINES 40 FORMATTED OPTION |THEMENAME R:BASE ROCKS!
IF vstreetnm IS NULL THEN
GOTO startfill
ENDIF
SET VAR vjob2 INTEGER
SET VAR vjob3 INTEGER
SET VAR vemad TEXT
SET VAR vjob3 INTEGER = .vjob2
SET VAR vjobg INTEGER = .vjob3
SET VAR vcntrp TEXT
SET VAR vphon TEXT
SELECT cntr INTO vcntrp INDICATOR indvcntrp FROM jobs WHERE jidcode =
.vjob2
SELECT emailadd INTO vemad INDICATOR indvemad FROM customer WHERE cntr
= .vcntrp
SELECT phone INTO vphon INDICATOR indvphon FROM customer WHERE cntr =
.vcntrp
SELECT jobnam INTO vjnm INDICATOR indvjnm FROM jobs WHERE jidcode = .vjobg
SELECT cozip INTO vcozip INDICATOR indvcozip FROM jobs WHERE jidcode =
.vjobg
SET VAR vgoog TEXT = (.vjnm &'TN'&',' & CTXT(vcozip))
RECALC VARIABLES
PROPERTY cid_vlvpkjb refreshlist 'true'
--(PROPERTY ComponentID MAKECLICK '1')
PROPERTY cid_psjr refreshlist 'true'
PROPERTY cid_pjdd refreshlist 'true'
