Hi Nick,

I am sorry dispatching long code as per your instruction. This code is written on second column valid event of my grid text box. after selection I want to skip on third column text box which is not going.

*publ x
*x=0
publ y
y=0


*IF Subsidiary code IS BLANK EXECUTE THIS LINE 

factp=thisform.grid1.column1.combo1.value
fsbcd=thisform.grid1.column2.text1.value

If len(ALLT(fsbcd)) = 0
	
	if factp="C"
	
	select code,name,GLCODE from customer order by code into cursor curcust
	
	do form help1

	if y=1

	thisform.grid1.column2.text1.value=ccust
	THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
	THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
	thisform.grid1.column2.text1.refresh()
	*thisform.grid1.column3.text1.setfocus()
	
	retu
	
	else
	
	return .f.
	
	endi
	endi
	
	if factp="S"
	
	select code,name,GLCODE from supplier order by code into cursor curcust
	
	do form help1

	if y=1

	thisform.grid1.column2.text1.value=ccust
	THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
	THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
	thisform.grid1.refresh()
	retu
	
	else
	
	return .f.
	
	endi
	endi
	
	if factp="B"
	
	select code,name,GLCODE from bank order by code into cursor curcust
	
	do form help1

	if y=1

	thisform.grid1.column2.text1.value=ccust
	THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
	THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
	thisform.grid1.refresh()
	retu
	
	else
	
	return .f.
	
	endi
	endi

	if factp="P"
	
	select code,name,GLCODE from project order by code into cursor curcust
	
	do form help1

	if y=1

	thisform.grid1.column2.text1.value=ccust
	THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
	THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
	thisform.grid1.refresh()
	retu
	
	else
	
	return .f.
	
	endi
	endi
	
	if factp="V"
	
	select code,name,GLCODE from vehicle order by code into cursor curcust
	
	do form help1

	if y=1

	thisform.grid1.column2.text1.value=ccust
	THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
	THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
	thisform.grid1.refresh()
	retu
	
	else
	
	return .f.
	
	endi
	endi
	
	if factp="L"
	
	select code,name,GLCODE from location order by code into cursor curcust
	
	do form help1

	if y=1

	thisform.grid1.column2.text1.value=ccust
	THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
	THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
	thisform.grid1.refresh()
	retu
	
	else
	
	return .f.
	
	endi
	endi
endi


* IF subsidiary code HAVING ONE CHARACTER ENTERED EXECUTE THIS LINE

IF LEN(ALLT(fsbcd)) = 1
	if factp="C"		
			
			select code,name,GLCODE from customer into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,1))) == UPPER(ALLT(SUBS(customer.CODE,1,1))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
	****		
	if factp="S"		
			
			select code,name,GLCODE from SUPPLIER into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,1))) == UPPER(ALLT(SUBS(SUPPLIER.CODE,1,1))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="B"		
			
			select code,name,GLCODE from BANK into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,1))) == UPPER(ALLT(SUBS(BANK.CODE,1,1))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1
				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="P"		
			
			select code,name,GLCODE from PROJECT into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,1))) == UPPER(ALLT(SUBS(PROJECT.CODE,1,1))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
				return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="V"		
			
			select code,name,GLCODE from VEHICLE into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,1))) == UPPER(ALLT(SUBS(VEHICLE.CODE,1,1))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="L"		
			
			select code,name,GLCODE from LOCATION into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,1))) == UPPER(ALLT(SUBS(LOCATION.CODE,1,1))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
endi
			
***** IF SUBSIDIARY CODE HAVING 2 CHARACTER EXECUTE THIS LINE

IF LEN(ALLT(fsbcd)) = 2
	if factp="C"		
			
			select code,name,GLCODE from customer into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,2))) == UPPER(ALLT(SUBS(customer.CODE,1,2))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
	****		
	if factp="S"		
			
			select code,name,GLCODE from SUPPLIER into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,2))) == UPPER(ALLT(SUBS(SUPPLIER.CODE,1,2))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="B"		
			
			select code,name,GLCODE from BANK into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,2))) == UPPER(ALLT(SUBS(BANK.CODE,1,2))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1
				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="P"		
			
			select code,name,GLCODE from PROJECT into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,2))) == UPPER(ALLT(SUBS(PROJECT.CODE,1,2))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
				return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="V"		
			
			select code,name,GLCODE from VEHICLE into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,2))) == UPPER(ALLT(SUBS(VEHICLE.CODE,1,2))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="L"		
			
			select code,name,GLCODE from LOCATION into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,2))) == UPPER(ALLT(SUBS(LOCATION.CODE,1,2))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
endi
			

*********2 CHARACTER END
******IF SUBSIDIARY CODE HAVEING 3 CHARRACTER EXECUTE THIS LINE

IF LEN(ALLT(fsbcd)) = 3
	if factp="C"		
			
			select code,name,GLCODE from customer into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,3))) == UPPER(ALLT(SUBS(customer.CODE,1,3))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
	****		
	if factp="S"		
			
			select code,name,GLCODE from SUPPLIER into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,3))) == UPPER(ALLT(SUBS(SUPPLIER.CODE,1,3))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="B"		
			
			select code,name,GLCODE from BANK into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,3))) == UPPER(ALLT(SUBS(BANK.CODE,1,3))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1
				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="P"		
			
			select code,name,GLCODE from PROJECT into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,3))) == UPPER(ALLT(SUBS(PROJECT.CODE,1,3))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
				return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="V"		
			
			select code,name,GLCODE from VEHICLE into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,3))) == UPPER(ALLT(SUBS(VEHICLE.CODE,1,3))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="L"		
			
			select code,name,GLCODE from LOCATION into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,3))) == UPPER(ALLT(SUBS(LOCATION.CODE,1,3))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
endi
			
***** 3 CHARACTER END

*****IF SUBSIDIARY CODE HAVING FOUR CHARACTER EXECUTE THIS LINE

IF LEN(ALLT(fsbcd)) = 4
	if factp="C"		
			
			select code,name,GLCODE from customer into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,4))) == UPPER(ALLT(SUBS(customer.CODE,1,4))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
	****		
	if factp="S"		
			
			select code,name,GLCODE from SUPPLIER into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,4))) == UPPER(ALLT(SUBS(SUPPLIER.CODE,1,4))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="B"		
			
			select code,name,GLCODE from BANK into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,4))) == UPPER(ALLT(SUBS(BANK.CODE,1,4))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1
				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="P"		
			
			select code,name,GLCODE from PROJECT into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,4))) == UPPER(ALLT(SUBS(PROJECT.CODE,1,4))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
				return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="V"		
			
			select code,name,GLCODE from VEHICLE into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,4))) == UPPER(ALLT(SUBS(VEHICLE.CODE,1,4))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="L"		
			
			select code,name,GLCODE from LOCATION into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,4))) == UPPER(ALLT(SUBS(LOCATION.CODE,1,4))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
endi
			
**** 4 CHARACTER END
****IF SUBSIDIARY CODE HAVING 5 CHARACTER EXECUTE THIS LINE

IF LEN(ALLT(fsbcd)) = 5
	if factp="C"		
			
			select code,name,GLCODE from customer into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,5))) == UPPER(ALLT(SUBS(customer.CODE,1,5))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				*do form help1

				*if y=1

				*thisform.grid1.column2.text1.value=ccust
				*THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				*THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				*thisform.grid1.column2.text1.refresh()
				retu
	
				*else
				*thisform.grid1.column2.text1.value=space(6)
				*return .f.
	
				*endi
				endi
	endi	
	
	****		
	if factp="S"		
			
			select code,name,GLCODE from SUPPLIER into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,5))) == UPPER(ALLT(SUBS(SUPPLIER.CODE,1,5))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="B"		
			
			select code,name,GLCODE from BANK into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,5))) == UPPER(ALLT(SUBS(BANK.CODE,1,5))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1
				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="P"		
			
			select code,name,GLCODE from PROJECT into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,5))) == UPPER(ALLT(SUBS(PROJECT.CODE,1,5))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
				return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="V"		
			
			select code,name,GLCODE from VEHICLE into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,5))) == UPPER(ALLT(SUBS(VEHICLE.CODE,1,5))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="L"		
			
			select code,name,GLCODE from LOCATION into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,5))) == UPPER(ALLT(SUBS(LOCATION.CODE,1,5))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
endi
			

***5 CHARACTER END

*	* IF DIVISION HAVING actual code display otherwise display all division list	
	

IF LEN(ALLT(fsbcd)) = 6
	if factp="C"		
			
			select code,name,GLCODE from customer into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,6))) == UPPER(ALLT(SUBS(customer.CODE,1,6))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
	****		
	if factp="S"		
			
			select code,name,GLCODE from SUPPLIER into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,6))) == UPPER(ALLT(SUBS(SUPPLIER.CODE,1,6))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="B"		
			
			select code,name,GLCODE from BANK into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,6))) == UPPER(ALLT(SUBS(BANK.CODE,1,6))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1
				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="P"		
			
			select code,name,GLCODE from PROJECT into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,6))) == UPPER(ALLT(SUBS(PROJECT.CODE,1,6))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
				return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="V"		
			
			select code,name,GLCODE from VEHICLE into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,6))) == UPPER(ALLT(SUBS(VEHICLE.CODE,1,6))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column2.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	*****
	if factp="L"		
			
			select code,name,GLCODE from LOCATION into cursor curcust;
			 where UPPER(ALLTRIM(SUBS(fsbcd,1,6))) == UPPER(ALLT(SUBS(LOCATION.CODE,1,6))) 

				sele curcust
				If reccount()=0
				
				=messagebox('Sorry Subsidiary code not present...',(0+16+0),' SELECT...')
				thisform.grid1.column1.text1.value=space(6)
					return .f.
				
				else
				
				do form help1

				if y=1

				thisform.grid1.column2.text1.value=ccust
				THISFORM.grid1.column3.text1.VALUE=SUBS(CURCUST.GLCODE,1,8)
				THISFORM.grid1.column4.text1.VALUE=SUBS(CURCUST.GLCODE,9,6)
				thisform.grid1.refresh()
				retu
	
				else
				thisform.grid1.column2.text1.value=space(6)
				return .f.
	
				endi
				endi
	endi	
	
endi
						
****** END

>Hi Sajjad,
>
>Could you post here that code? Which method did you place it in - textbox.Valid()? Do I understand it right that you press Enter on second column and you suppose it to go the third column?
>
>>Hi Nick,
>>Thanks a lot for helping. I face one more problem in grid. i am using validation on second column of grid. when i press enter its invoke help list for that column..my code validate perfectly and selection coming in column but curos not moving to another text box. If i click mouse button on next column once more valid event fire and than after selection cursor going on another text box. Any idea to skip column in grif after validation please....
>>
>>Regards,
>>Sajjad
>>