Para Antonio Linares y/o Daniel Garcia

Post Reply
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Para Antonio Linares y/o Daniel Garcia

Post by ACC69 »

Hola buenas tardes Ing. Antonio Linares y Daniel Garcia, me podran echar la mano con ese error o por cual debo sustituir?.tengo version 8.12 y VeRCE 5.00
Pasa que estoy probando la rutina del Ing. Anserk, pero al tratar de compilar, me marca error:

Error E0030 Syntax error: "syntax
error at 'AITEMS'"

O si hay alguna otra manera de mejorar ese codigo?; tengo casi un par de semanas de intentar crear armar tree mi catalogo de cuentas, tome el ejemplo que viene en samples: \samples\account, al igual me marca otro tipo de error, por el TreeEnd(),Treebegin y otras variables mas, ha de ser que ya no es compatible con la version actual que tengo 8.12, espero me puedan echar la mano con ese error o mejorar el codigo,ya que lo intento hacer desde base de datos, con la esturctura de cuentas . Cuentas caracter de longitud 16 y Nivel numerico de longitud 1...

Cuentas Nivel Descripcion
1020000000000000 1 Cuenta mayor
1020000100000000 2 Subcta
1020000100010000 3 Subsubcta
1020000100010001 4 subsubctanddetalles

Code: Select all

#include "FiveWin.ch"
#include "xBrowse.ch"
//---------------------//
Function Main()

    Local oBrw,oWnd
   
    DEFINE WINDOW oWnd TITLE "Tree using Array"
    @0,0 XBROWSE oBrw OF oWnd
   
    WITH OBJECT oBrw
      :SetTree(BuildTree())
      :oTree:OpenAll()
      :CreateFromCode()
    END
   
    oWnd:oClient:=oBrw
    ACTIVATE WINDOW oWnd
Return NIL

//---------------------//
Function BuildTree()

    Local oTree,nTreeCount,nPrevLevel,nCurLevel,nLevelDiff
    Local i,j
/*    Local aItems:={ {"01","Computers"      ,0},;
                    {"02","Core i3"        ,1},;
                    {"03","Core i5"        ,1},;  
                    {"04","Furnitures"     ,0},;
                    {"05","Tables"         ,1},;  
                    {"06","Computer Table" ,2},;
                    {"07","Regular Table"  ,2},;                    
                    {"08","Desk"           ,1},;
                    {"09","Computer Desk"  ,2},;                    
                    {"10","Regular Desk"   ,2},;                    
                    {"11","Chairs"         ,1} }  
*/                    
Local aItems:={ {"1020-0000-0000-0000", 1,"Cuenta mayor"},;
                {"1020-0001-0000-0000", 2,"Subcta"},;
                {"1020-0001-0001-0000", 3,"Subsubcta"},;
                {"1020-0001-0001-0001", 4,"subsubctanddetalles"} }                    
                   
    TREE oTree  
    nLevel:=aItems[1][2]
    nTreeCount:=0            
    For i:=1 to Len(aItems)
        if aItems[i][2] > nLevel
            TREE
            nTreeCount++
        Elseif aItems[i][2] < nLevel
            nPrevLevel:=nLevel
            nCurLevel:=aItems[i][2]
            nLevelDiff:=nPrevLevel-nCurLevel
            For j:=1 to nLevelDiff
                ENDTREE
                nTreeCount--
            Next
        Endif    
        [b]TREEITEM aItems[i][3] CARGO { aItems[i][1] }  // Item Code    aqui me da error ...[/b]
        nLevel:=aItems[i][2]
    Next              
    if nTreeCount > 0
       For i:=nTreeCount To 1 Step -1
          ENDTREE
       Next
    Endif        
    ENDTREE
Return oTree
Saludos y buen dia a todos.

Atte: Adrian C. C.
horacio
Posts: 1270
Joined: Wed Jun 21, 2006 12:39 am
Location: Capital Federal Argentina

Re: Para Antonio Linares y/o Daniel Garcia

Post by horacio »

He compilado tu ejemplo y funciona, en la linea

Code: Select all

[b]TREEITEM aItems[i][3] CARGO { aItems[i][1] }  // Item Code    aqui me da error ...[/b]
 

borré ya que genera un error.
Saludos
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Re: Para Antonio Linares y/o Daniel Garcia

Post by ACC69 »

horacio wrote:He compilado tu ejemplo y funciona, en la linea

Code: Select all

[b]TREEITEM aItems[i][3] CARGO { aItems[i][1] }  // Item Code    aqui me da error ...[/b]
 

borré ya que genera un error.
Saludos


Buenos dias, disculpa Horacio, que apenas este respondiendo, y vi tu mensaje, pero que version compilas, yo uso xHarbour para FWH 8.12 y VeRCE 5.0, no se si tenga que ver con la variable declarada aItems,o algun flags dentro de mi compilador, que no es compatible, pero siempre ahi me marca el error,por lo visto no me han podido ayudar con ese detalle, dirigido para el maestro Antonio Linares o Daniel Garcia ,de ese pequeño ejemplo que tome del sr. Anserk,sino fuera por ese detalle, no los estaria molestandoles.

Saludos y buen dia.

Atte: Adrian C. C.
User avatar
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Para Antonio Linares y/o Daniel Garcia

Post by Daniel Garcia-Gil »

Hola

Tu version de fivewin no soporta ese comando

deberas escribir un poco mas... intenta resolverlo de esta via

Code: Select all

        oItem = _TreeItem( aItems[i][3] )
        oItem:cargo = { aItems[i][1] }
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
ACC69
Posts: 619
Joined: Tue Dec 12, 2006 7:34 pm
Contact:

Re: Para Antonio Linares y/o Daniel Garcia

Post by ACC69 »

Daniel Garcia-Gil wrote:Hola

Tu version de fivewin no soporta ese comando

deberas escribir un poco mas... intenta resolverlo de esta via

Code: Select all

        oItem = _TreeItem( aItems[i][3] )
        oItem:cargo = { aItems[i][1] }

Buenos dias Ing. Daniel, mil disculpas que apenas leo tu respuesta, y gracias,una pregunta y molestioa mas, desde que version funciona el ejemplo de Anserk, la variable aItems[3]

Saludos y buen dia.
User avatar
JavierVital
Posts: 105
Joined: Thu Feb 26, 2009 4:08 pm
Contact:

Re: Para Antonio Linares y/o Daniel Garcia

Post by JavierVital »

Adrian, buen dia.

Oye vi que estabas tratando de meter un catalogo de cuentas en un tree
quisiera saber si lograste que se actualizara ese tree, cuando cambias de mes o año.

Saludos.
Post Reply