FiveTech Support Forums

function MyClick( nRow, nCol, oTree )

   local oItem
   oItem := oTree:getselected()
   vNive:=oItem:nLevel
   MsgInfo( vNive )

return NIL

Descripción de la Applicación:
___________________________________________________

Ubicación y Nombre: C:\DlymAdo.1\Contable.Exe (32 BITS)
Desde la Estación de Trabajo: PRICIPAL
Usuario en Sesión: 001
Privilegio del Usuario: 001
Tamaño: 1,086,976 bytes
Hora de Inicio:   Jueves 12 de Abril del 2012,  3:47:19 PM
Hora del Error:   Jueves 12 de Abril del 2012,  3:47:19 PM
Tiempo de Sesión: 0 hours 0 mins 19 secs 


Descripción del Error: 
___________________________________________________

Error BASE/1004
Message not found: TTVITEM:NLEVEL


Llamadas al Stack:
___________________________________________________

Llamado desde TTVITEM:ERROR(172)
Llamado desde TTVITEM:MSGNOTFOUND(205)
Llamado desde TTVITEM:NLEVEL(0)
Llamado desde MYCLICK(58)
Llamado desde (b)PSELCOMCT(39)
Llamado desde TTREEVIEW:LDBLCLICK(0)
Llamado desde TWINDOW:HANDLEEVENT(0)
Llamado desde TCONTROL:HANDLEEVENT(0)
Llamado desde TTREEVIEW:HANDLEEVENT(0)
Llamado desde _FWH(0)
Llamado desde DIALOGBOX(0)
Llamado desde TDIALOG:ACTIVATE(0)
Llamado desde PSELCOMCT(43)
Llamado desde R32_CAPT(18)
Llamado desde (b)TLYMA:AUTORIZA(1083)
Llamado desde TLYMA:AUTORIZA(1083)
Llamado desde (b)BUILDMENU(191)
Llamado desde TMENU:COMMAND(0)
Llamado desde TWINDOW:COMMAND(0)
Llamado desde TWINDOW:HANDLEEVENT(0)
Llamado desde _FWH(0)
Llamado desde WINRUN(0)
Llamado desde TWINDOW:ACTIVATE(0)
Llamado desde MAIN(163)
Llamado desde R32_MENU(27)

                        Function _ArmarTree( oLbx, oLbx1 )

Local oDatabase
Local nStep, i, aCursos
Local oLink
Local oLink1
Local oLink2


oVarRubros : fCaracter := Array( 2, 0 )

oDatabase := oVarRubros : oTree : Add( oVarGlobales : cEmpresa, 1 )

DbSelectArea( "caracter" )
caracter -> ( OrdSetFocus( "orden" ) )
caracter -> ( DbGoTop() )
While( caracter -> ( !Eof() ) )
   If( caracter -> codigo == 0 )
      caracter -> ( DbSkip() )
      loop
   End
   oVarRubros : oLink1  := oDatabase : Add( Alltrim( caracter -> descrip ), 0 )
   oVarRubros : oLink1  : Cargo := Alltrim( Str( caracter -> codigo ) )
   aCursos := BuscadCursos()
   For i := 1 To Len( aCursos )
      oVarRubros : oLink2 := oVarRubros : oLink1 : Add( Alltrim( BusNomCurso( aCursos[ i ] ) ), 2 )
      oVarRubros : oLink2 : Cargo := Alltrim( Str( caracter -> codigo ) ) + '-' + Alltrim( Str( cursos -> codigo ) )
      DbSelectArea(  "alumnos" )
      alumnos -> ( DbClearFilter() )
      alumnos -> ( DbSetFilter( { || alumnos -> curso == aCursos[ i ] .and. alumnos -> caracter == caracter -> codigo }, 'alumnos -> cursos == ' + Alltrim( Str( aCursos[ i ] ) ) + ' .and. alumnos -> caracter == ' + Alltrim( Str( caracter -> codigo ) ) ) )
      alumnos -> ( DbSetOrder( 2 ) )
      alumnos -> ( DbGoTop() )
      While( alumnos -> ( !Eof() ) )
         oVarRubros : oLink3 := oVarRubros : oLink2 : Add( Alltrim( alumnos -> alumno ), 1 )
         oVarRubros : oLink3 : Cargo := Alltrim( Str( caracter -> codigo ) ) + '-' + Alltrim( Str( cursos -> codigo ) ) + '-' + Alltrim( Str( alumnos -> codigo ) )
         alumnos -> ( DbSkip() )
      Enddo
      oVarRubros : oLink2 : Expand()
   Next i
   sele caracter
   caracter -> ( DbSkip() )
   oVarRubros : oLink1 : Expand()
Enddo
caracter -> ( DbGoTop() )
alumnos -> ( DbClearFilter() )
Return oVarRubros : oTree