Mr. Rao, Pls your help

[Armando]

Mr. Rao:

I need your valuable help to build a TREE on a BROWSE, I have a table with the following structure

Code: Select all  Expand view  RUN

    cCmdSql := "CREATE TABLE IF NOT EXISTS Cierre(" +;
                  "CIE_NI1 DECIMAL(02,0)       NOT NULL DEFAULT 0               COMMENT 'Primer nivel'," +;
                  "CIE_NI2 DECIMAL(02,0)       NOT NULL DEFAULT 0               COMMENT 'Segundo nivel'," +;
                  "CIE_NI3 DECIMAL(02,0)       NOT NULL DEFAULT 0               COMMENT 'Tercer nivel'," +;
                  "CIE_NI4 DECIMAL(02,0)       NOT NULL DEFAULT 0               COMMENT 'Cuarto nivel'," +;
                  "CIE_NI5 DECIMAL(02,0)       NOT NULL DEFAULT 0               COMMENT 'Quinto nivel'," +;
                  "CIE_DES VARCHAR(70)         NOT NULL DEFAULT ''              COMMENT 'Cierre de proyecto'," +;
                  "CIE_PRE DECIMAL(15,2)       NOT NULL DEFAULT 0.00            COMMENT 'Presupuesto'," +;
                  "CIE_GAS DECIMAL(15,2)       NOT NULL DEFAULT 0.00            COMMENT 'Gastado'," +;
                  "CIE_DIF DECIMAL(15,2)       NOT NULL DEFAULT 0.00            COMMENT 'Diferencia'," +;
                  "PRIMARY KEY(CIE_NI1,CIE_NI2,CIE_NI3,CIE_NI4,CIE_NI5))" +;
                  "ENGINE = InnoDB                                                 COMMENT 'Cierre de proyecto';"

 

The TREE must be built by the first 5 fields (CIE1,CIE2,CIE3,CIE4,CIE5),
and in the end be able to print it exactly as the branches are, open or closed

I have seen the examples\tree.prg but it is built with arrays.

If you have time to help me, I will send you the CIERRE table full of records

Here is an image of the content of the CIERRE table



Your help will be greatly appreciated.

Best regards

[Otto]

Dear Armando,

I use
:bIndent := { ||20 + ( ::cAlias )->TREELEVEL * 20 } .
With this it is easy to reach what you want.
:bIndent block and original xBrowse is much more flexible .

I called the program RAO-notes at the time. It was an abbreviation:

>Discover a new dimension of working with your information. RAO Notes: RAPID AND ORGANISED NOTES<

But in reality, I just wanted to thank Mr. Rao, who helped me a lot with it.

Best regards,
Otto
This program is from 2011! Back then, we tried very hard to achieve the Metrostyle and Windows 8 look and feel.

[nageswaragunupudi]

If you have time to help me, I will send you the CIERRE table full of records

Please connect to our FWH server

Code: Select all  Expand view  RUN

oCn := maria_Connect( "208.91.198.197:3306,fwhdemo,gnraofwh,Bharat@1950", .t. )

and create your table on this server and let us know.

[Armando]

Mr. Rao:

The table is already on your server, its name is CIERRE

Best regards

[Armando]

Mr Otto:

Thanks so much.

Regards

Dear Armando,

I use
:bIndent := { ||20 + ( ::cAlias )->TREELEVEL * 20 } .
With this it is easy to reach what you want.
:bIndent block and original xBrowse is much more flexible .

I called the program RAO-notes at the time. It was an abbreviation:

>Discover a new dimension of working with your information. RAO Notes: RAPID AND ORGANISED NOTES<

But in reality, I just wanted to thank Mr. Rao, who helped me a lot with it.

Best regards,
Otto
This program is from 2011! Back then, we tried very hard to achieve the Metrostyle and Windows 8 look and feel.

[Marc Venken]

Otto,

You have a link to the post for the Rao-Notes ?