Control Treeview

Pon el código del evento nodeclick y veremos qué puede pasar...
De todas formas tiene mala pinta el error, según la documentación de la
ayuda, sencillamente dice que tomes nota de todo lo que estabas haciendo y
que llames al ST de Microsoft...
:(

Víctor Brasó§Desarrollador independiente§
"Andrey" escribió en el mensaje
news:
Mostrar la cita

Hola Amigos...

Tengo una aplicacion VFP8 la cual tiene un control treeview con el que en
toda la fase de desarrollo y pruebas no tuvo ningun problema; pero ahora

en
Mostrar la cita

desarrollo me esta dando el siguiente error, en cualquier momento del

proceso.
Mostrar la cita

desplazamiento de busqueda no valido en el evento.
programa que genera el error : form.oletree.nodeclick

Les agradeceria mucho cualquier pista que me puedan dar.

Hola Victor...
Muchas Gracias por tu interes...
No había contestado mas rapido por cuestiones de tiempo...

Este es el codigo del evento nodeclick.

LPARAMETERS node
THISFORM.RefreshCombo
thisform.lblopcion=node.key
thisform.lbltexto=node.text

thisform.label10.Caption=node.key
thisform.label9.Caption=node.text

IF THISFORM.opg.option1.Value=1
SELECT tbl_tree_opciones9800
ENDIF

IF THISFORM.opg.option2.Value=1
SELECT tbl_tree_opciones9800Salientes
ENDIF

LOCATE FOR key=node.key
IF THISFORM.opg.option1.Value=1
THISFORM.isreferencia=tbl_tree_opciones9800.siRef
THISFORM.isoptgen=IIF(ALLTRIM(tbl_tree_opciones9800.parent)='0_',.t.,.f.)
ENDIF

IF THISFORM.opg.option2.Value=1
THISFORM.isreferencia=tbl_tree_opciones9800Salientes.siRef
THISFORM.isoptgen=IIF(ALLTRIM(tbl_tree_opciones9800Salientes.parent)='0_',.t.,.f.)
ENDIF

*THISFORM.checkButtons
*THISFORM.cboParent.Value = node.Index


"Victor B." escribió:

Mostrar la cita

Pon el código del evento nodeclick y veremos qué puede pasar...
De todas formas tiene mala pinta el error, según la documentación de la
ayuda, sencillamente dice que tomes nota de todo lo que estabas haciendo y
que llames al ST de Microsoft...
:(

Víctor Brasó§Desarrollador independiente§
"Andrey" escribió en el mensaje
news:
> Hola Amigos...
>
> Tengo una aplicacion VFP8 la cual tiene un control treeview con el que en
> toda la fase de desarrollo y pruebas no tuvo ningun problema; pero ahora
en
> desarrollo me esta dando el siguiente error, en cualquier momento del
proceso.
>
> desplazamiento de busqueda no valido en el evento.
> programa que genera el error : form.oletree.nodeclick
>
> Les agradeceria mucho cualquier pista que me puedan dar.
>
>

Hola Andrey

Depurando tu form te daria la linea que te da problemas.
Prueba el siguiente codigo espero te sea de ayuda:

LPARAMETERS node
WITH ThisForm
.RefreshCombo()
STORE node.key TO .label10.Caption, .lblopcion &&.lblopcion es propiedad
del form
STORE node.text TO .label9.Caption, .lbltexto &&.lbltexto es propiedad
del form?

IF .opg.option1.Value=1 &&Pienso q' tienes solo dos opciones
SELECT tbl_tree_opciones9800
ELSE
SELECT tbl_tree_opciones9800Salientes
ENDIF

LOCATE FOR EVALUATE(ALIAS() + ".key") = Node.Key &&Por el mensaje de error
se me ocurre key esta dando problemas
.isreferencia= .siRef
.isoptgen = IIF(ALLTRIM(.parent)='0_',.t.,.f.)
ENDWITH

Saludos,
Mauricio Pulla.
Cuenca-Ecuador


"Andrey" escribió en el mensaje
news:
Mostrar la cita

Hola Victor...
Muchas Gracias por tu interes...
No había contestado mas rapido por cuestiones de tiempo...

Este es el codigo del evento nodeclick.

LPARAMETERS node
THISFORM.RefreshCombo
thisform.lblopcion=node.key
thisform.lbltexto=node.text

thisform.label10.Caption=node.key
thisform.label9.Caption=node.text

IF THISFORM.opg.option1.Value=1
SELECT tbl_tree_opciones9800
ENDIF

IF THISFORM.opg.option2.Value=1
SELECT tbl_tree_opciones9800Salientes
ENDIF

LOCATE FOR key=node.key
IF THISFORM.opg.option1.Value=1
THISFORM.isreferencia=tbl_tree_opciones9800.siRef
THISFORM.isoptgen=IIF(ALLTRIM(tbl_tree_opciones9800.parent)='0_',.t.,.f.)
ENDIF

IF THISFORM.opg.option2.Value=1
THISFORM.isreferencia=tbl_tree_opciones9800Salientes.siRef

THISFORM.isoptgen=IIF(ALLTRIM(tbl_tree_opciones9800Salientes.parent)='0_',.t
.,.f.)
Mostrar la cita

ENDIF

*THISFORM.checkButtons
*THISFORM.cboParent.Value = node.Index


"Victor B." escribió:

> Pon el código del evento nodeclick y veremos qué puede pasar...
> De todas formas tiene mala pinta el error, según la documentación de la
> ayuda, sencillamente dice que tomes nota de todo lo que estabas haciendo

y
Mostrar la cita

> que llames al ST de Microsoft...
> :(
>
> Víctor Brasó§Desarrollador independiente§
> "Andrey" escribió en el mensaje
> news:
> > Hola Amigos...
> >
> > Tengo una aplicacion VFP8 la cual tiene un control treeview con el que

en
Mostrar la cita

> > toda la fase de desarrollo y pruebas no tuvo ningun problema; pero

ahora
Mostrar la cita

> en
> > desarrollo me esta dando el siguiente error, en cualquier momento del
> proceso.
> >
> > desplazamiento de busqueda no valido en el evento.
> > programa que genera el error : form.oletree.nodeclick
> >
> > Les agradeceria mucho cualquier pista que me puedan dar.
> >
> >
>
>
>

Gracias Mauricio...

Probare con tu codigo, y te estare contando.
Mil gracias de nuevo.


"Mauricio Pulla" escribió:

Mostrar la cita

Hola Andrey

Depurando tu form te daria la linea que te da problemas.
Prueba el siguiente codigo espero te sea de ayuda:

LPARAMETERS node
WITH ThisForm
.RefreshCombo()
STORE node.key TO .label10.Caption, .lblopcion &&.lblopcion es propiedad
del form
STORE node.text TO .label9.Caption, .lbltexto &&.lbltexto es propiedad
del form?

IF .opg.option1.Value=1 &&Pienso q' tienes solo dos opciones
SELECT tbl_tree_opciones9800
ELSE
SELECT tbl_tree_opciones9800Salientes
ENDIF

LOCATE FOR EVALUATE(ALIAS() + ".key") = Node.Key &&Por el mensaje de error
se me ocurre key esta dando problemas
.isreferencia= .siRef
.isoptgen = IIF(ALLTRIM(.parent)='0_',.t.,.f.)
ENDWITH

Saludos,
Mauricio Pulla.
Cuenca-Ecuador


"Andrey" escribió en el mensaje
news:
> Hola Victor...
> Muchas Gracias por tu interes...
> No había contestado mas rapido por cuestiones de tiempo...
>
> Este es el codigo del evento nodeclick.
>
> LPARAMETERS node
> THISFORM.RefreshCombo
> thisform.lblopcion=node.key
> thisform.lbltexto=node.text
>
> thisform.label10.Caption=node.key
> thisform.label9.Caption=node.text
>
> IF THISFORM.opg.option1.Value=1
> SELECT tbl_tree_opciones9800
> ENDIF
>
> IF THISFORM.opg.option2.Value=1
> SELECT tbl_tree_opciones9800Salientes
> ENDIF
>
> LOCATE FOR key=node.key
> IF THISFORM.opg.option1.Value=1
> THISFORM.isreferencia=tbl_tree_opciones9800.siRef
> THISFORM.isoptgen=IIF(ALLTRIM(tbl_tree_opciones9800.parent)='0_',.t.,.f.)
> ENDIF
>
> IF THISFORM.opg.option2.Value=1
> THISFORM.isreferencia=tbl_tree_opciones9800Salientes.siRef
>
THISFORM.isoptgen=IIF(ALLTRIM(tbl_tree_opciones9800Salientes.parent)='0_',.t
..,.f.)
> ENDIF
>
> *THISFORM.checkButtons
> *THISFORM.cboParent.Value = node.Index
>
>
> "Victor B." escribió:
>
> > Pon el código del evento nodeclick y veremos qué puede pasar...
> > De todas formas tiene mala pinta el error, según la documentación de la
> > ayuda, sencillamente dice que tomes nota de todo lo que estabas haciendo
y
> > que llames al ST de Microsoft...
> > :(
> >
> > Víctor Brasó§Desarrollador independiente§
> > "Andrey" escribió en el mensaje
> > news:
> > > Hola Amigos...
> > >
> > > Tengo una aplicacion VFP8 la cual tiene un control treeview con el que
en
> > > toda la fase de desarrollo y pruebas no tuvo ningun problema; pero
ahora
> > en
> > > desarrollo me esta dando el siguiente error, en cualquier momento del
> > proceso.
> > >
> > > desplazamiento de busqueda no valido en el evento.
> > > programa que genera el error : form.oletree.nodeclick
> > >
> > > Les agradeceria mucho cualquier pista que me puedan dar.
> > >
> > >
> >
> >
> >