FoxPro/Visual FoxPro - BUSCAR TREEVIEW (SOLUCION) PERO?

   
Vista:

BUSCAR TREEVIEW (SOLUCION) PERO?

Publicado por KEVIN HARNOLLD VECHARA AGUILA (41 intervenciones) el 19/12/2007 15:03:25
CLARO ESTA QUE YO TENGO EN EL TEXT ESTA ESTRUCTURA "15_NOMBRE DEL TEXT"

_GRPREPORTE='15'

_ENCONTRADO=.F.
_TAM=THISFORM.pageframe1.page1.treeinforme.Nodes.COUNT
FOR J= 1 TO _TAM STEP 1
_NO=THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).TEXT
CAR=AT('_',_NO)
IF CAR!=0 THEN
NU=SUBSTR(_NO,1,CAR-1)
IF TYPE(NU)='N' THEN
IF NU==_GRPREPORTE THEN
_ENCONTRADO=.T.
ENDIF
ENDIF
ENDIF
IF _ENCONTRADO=.T. THEN
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Parent.Expanded= .T.
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Selected= .T.
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Key
EXIT
ENDIF
ENDFOR
IF _ENCONTRADO=.F. THEN
MESSAGEBOX('Codigo no existe, verificar',0+48,'Buscando reportes')
ENDIF

PERO AUN HACE FALTA ALGO Y ES QUE DESDE CODIGO SE PRECIONE CLICK AUTOMATICAMENTE.

GRACIAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

SOLUCIONADO

Publicado por KEVIN HARNOLLD VECHARA AGUILA (41 intervenciones) el 20/12/2007 03:33:24
*LOS NODOS TIENEN ESTA ESTRUCTURA

*'15_COMPRAS'
*'16_VENTAS'

_ENCONTRADO=.F.
_TAM=THISFORM.pageframe1.page1.treeinforme.Nodes.COUNT
FOR J= 1 TO _TAM STEP 1
_NO=THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).TEXT
CAR=AT('_',_NO)
IF CAR!=0 THEN
NU=SUBSTR(_NO,1,CAR-1)
IF TYPE(NU)='N' THEN
IF NU==_GRPREPORTE THEN
_ENCONTRADO=.T.
ENDIF
ENDIF
ENDIF
IF _ENCONTRADO=.T. THEN
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Parent.Expanded= .T.
THISFORM.pageframe1.page1.treeinforme.Nodes.ITEM(J).Selected= .T.
THISFORM.pageframe1.page1.treeinforme.SetFocus
THISFORM.pageframe1.page1.treeinforme.NOdeClick(THISFORM.pageframe1.page1.treeinforme.Nodes(J))
THISFORM.pageframe1.page1.treeinforme.CLick
EXIT
ENDIF
ENDFOR
IF _ENCONTRADO=.F. THEN
MESSAGEBOX('Codigo no existe, verificar',0+48,'Buscando reportes')
ENDIF

ESPERO SIRVA PARA POSTERARLO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SOLUCIONADO

Publicado por Plinio II (55 intervenciones) el 21/12/2007 21:49:08
Bien hecho Kevin.
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar