FoxPro/Visual FoxPro - Auxilio por Favorrrrrrrr TREEVIEW

   
Vista:

Auxilio por Favorrrrrrrr TREEVIEW

Publicado por Pablo Pinedo excellsistemas@hotmail.com (9 intervenciones) el 08/09/2012 20:16:24
Amigos

Antes q nada los saludo y espero q todo vaya bien.
Tengo un problema con el control TreeView desde ater, he consultado por foros,paginas web, videos del youtube y nada de nada.

les paso mis rutinas para q por favor me den una ayuda.

Tengo una base de datos SQL con las opciones con las que el treeview debe de ser cargado, las cargo a un cursor sin ningun problema, el problema radica cuando debo de alimentar el treeview les paso los datos.

1.thisform.creacursores (Este metodo lo cargo en el evento LOAD)

qpadre = "Mcursor 1"
qhijo = "Mcursor 2"
SQLEXEC(_screen.wp_conecta, qpadre, "cPadre")
SQLEXEC(_screen.wp_conecta, qhijo, "cHijo")

CREATE CURSOR menuOP (;
codigo char(3),;
nivel char(3),;
descripcion char(50))

INSERT INTO menuOP (codigo, nivel, descripcion) SELECT nivel, codigo, descripcion FROM cPadre
INSERT INTO menuOP (codigo, nivel, descripcion) SELECT codigo, nivel, descripcion FROM cHijo

SELECT menuOP

2.- thisform.init (Aqui esta el problema)

LOCAL lcTipo,lcChild,lcnKey, lcDescrip
SELECT * FROM menuOP ORDER BY nivel, codigo INTO CURSOR xmenu
GO TOP IN xmenu
SCAN
IF xmenu.codigo = '000'
lcTipo = 4
lcNkey = ALLTRIM(xmenu.nivel)
lcDescrip = ALLTRIM(xmenu.descripcion)
thisform.olecontrol1.Nodes.Add(,lcTipo,lcNkey,lcDescrip,,) ++ Aqui me da error
ELSE
lcTipo = 4
lcNkey = ALLTRIM(xmenu.nivel)
lcDescrip = ALLTRIM(xmenu.descripcion)
lcCodigo = ALLTRIM(xmenu.codigo)
thisform.olecontrol1.Nodes.Add(lcNkey,lcTipo,lcCodigo,lcDescrip,,) ++Aqui me da error
ENDIF
ENDSCAN


3.- Procedures SQL MCURSOR

create procedure Mcursor
@ind int
as
begin

if @ind = 1
begin
select codigo, nivel, descripcion from tab_menu where nivel = '000'
end
else
begin
select nivel,codigo, descripcion from tab_menu where nivel != '000'
end
end


4.- Parte de la Tabla SQL q estoy leyendo:

Codigo Nivel Descripcion
101 000 Movimientos
102 101 Venta en Punto de Venta
103 101 Anulacion de Venta
104 101 Restablecimiento de Venta
105 101 ReImpresion de Voucher
106 101 Modificacion de Documento
107 101 Consulta de Documento
201 000 Matenimiento de Tablas
202 201 Mantenimientos de Tabla CLientes
203 201 Mantenimiento de Tabla Proveedores
204 201 Envio de Corre Masivo a Clientes
301 000 Movimiento de Articulos
302 301 Registrar Item's




Por Favor agradecere me puedan apoyar, pues depende mucho mi trabajo de la elaboracion de este treeview
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

Auxilio por Favorrrrrrrr TREEVIEW

Publicado por Nacho Esviza ignacio@esviza.com (13 intervenciones) el 09/09/2012 14:25:26
Hola Pablo

¿Qué mensaje de error te da?
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