Application
===========
Path and name: C:\PRU\MENU.EXE
Size: 1,355,200 bytes
Max files handles permited: ( SetHandleCount() ) 255
Error ocurred at: 13-08-2006, 12:44:46
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = A { ... } Array
Stack Calls
===========
Called from LOCKERRHAN(0)
Called from (b)INITHANDL$(0)
Called from TTREEVIEW:NEW(0)
Called from CREATREE(425)
Called from (b)CHILDTREE(408)
Called from TMDICHILD:ACTIVATE(0)
Called from (b)TMDICHILD(0)
Called from CHILDTREE(408)
Called from (b)SEL_LA_FAM(373)
Called from TMDIFRAME:ACTIVATE(0)
Called from SEL_LA_FAM(373)
Called from (b)EDIT_AR(197)
Called from TBTNBMP:CLICK(0)
Called from TBTNBMP:LBUTTONUP(0)
Called from TBTNBMP:HANDLEEVEN(0)
El fallo aparentemente es en la línea 425 que os marco en negrita
LOCAL oTree
LOCAL oRoot
LOCAL oLink
LOCAL nStep
@ 0, 0 TREE oTree OF oChild ;
SIZE 0, 0 PIXEL;
BITMAPS { "Paper","FoldClose","FoldOpen", "BookClose", "BookOpen", "Tabla", "Procedimiento", "Usuario", "Server", "Ejecutivo", "Respaldo" } ;
TREE STYLE nOr( TVS_HASLINES, TVS_HASBUTTONS );
ON DBLCLICK ClickTree(oTree)
oTree:bRClicked = {|nRow,nCol| MenuTree(oTree,nRow,nCol)}
oChild:SetControl(oTree)
oRoot := oTree:GetRoot()
oRoot := oRoot:AddLastChild( "Servidor", 9, 9 )
oRoot:AddLastChild( "Ejecutivo", 0, 10 )
Si alguien necesita más código para investigar que me pase su mail y se lo mando por no hacer este post inmenso.
Si alguien tiene alguna idea me sería de gran ayuda. Yo me rindo con los trees.
FW 2.4 - Clipper 5.2 - dBase III+ - Blinker 5.0
