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'
