FiveTech Support Forums

     ::oTabMag:= TTabMag():New()
    ::oTabMag:SetOrder(1 )
    ::oTabMag:GoTop()
    ::oTreeMag    := ::MakeTree()

   Error description: Error BASE/1004  Class: 'NIL' has no exported method: CARGO
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => CARGO( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETCOLSFORTREE( 7990 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SETTREE( 7943 )
   Called from: .\source\classes\XBROWSE.PRG => XBRWSETDATASOURCE( 17605 )
   Called from: .\source\classes\XBROWSE.PRG => XBROWSENEW( 17348 )
   Called from: source\Categorie\TCategorie.prg => TTABCAT:NEW( 135 )

static function MakeTree()

   field CODICE
   local oTree
   local c1, c2, c3


   USE "TABMAG" NEW SHARED
   INDEX ON CODICE TAG CODICE TO TMP MEMORY
   GO TOP



   TREE oTree
   do while ! eof()
      TREEITEM CODICE CARGO { FIELD->DESC }
      c1    := Left( CODICE, 2 )
      SKIP
      TREE
      do while Left( CODICE,2 ) == c1
         TREEITEM CODICE CARGO { FIELD->DESC }
         c2    := Left( CODICE, 4 )
         SKIP
         TREE
         do while Left( CODICE, 4 ) == c2
            TREEITEM CODICE CARGO { FIELD->DESC }
            SKIP
         enddo
         ENDTREE
      enddo
      ENDTREE
   enddo
   ENDTREE

   oTree:OpenAll()

   CLOSE TAG

return oTree

METHOD MakeTree() CLASS TTabCat
   FIELD CODICE

   local oTree
   local c1, c2, c3

   ::oTabMag:gotop()

  // USE "TABMAG" NEW SHARED
  // INDEX ON CODICE TAG CODICE TO TMP MEMORY
 //  GO TOP

 TREE oTree
   do while ! ::oTabMag:eof()
      TREEITEM ::oTabMag:CODICE CARGO { ::oTabMag:DESC }
      c1    := Left( ::oTabMag:CODICE, 2 )
      ::oTabMag:skip()
      TREE
      do while Left( ::oTabMag:CODICE,2 ) == c1
         TREEITEM ::oTabMag:CODICE CARGO { ::oTabMag:DESC }
         c2    := Left( ::oTabMag:CODICE, 4 )
         ::oTabMag:skip()
         TREE
         do while Left( ::oTabMag:CODICE, 4 ) == c2
            TREEITEM ::oTabMag:CODICE CARGO { ::oTabMag:DESC }
            ::oTabMag:skip()
         enddo
         ENDTREE
      enddo
      ENDTREE
   enddo
   ENDTREE

   oTree:OpenAll()

return oTree