Kuk buenas tardes
el usuario deberia poder generar nivel 1 y 2, en el nivel 1 deberia poder cargar el nombre de un programa o crear una carpeta. (este ultimo tema no lo tengo resuelto).
adjunto el txt (es un ejemplo)
codigo para cargar el treeview desde un txt:
Código COBOL:
WORKING-STORAGE SECTION.
01 RETURNVALUE PIC S9(5) COMP-5.
01 WK-IDX PIC S9(9) COMP-5.
01 POW-PCMNODE OBJECT REFERENCE POW-CNODE.
01 WK-TEXT PIC X(100).
01 DEM PIC 99 VALUE 0.
01 I PIC 999 VALUE 0.
01 T1 PIC 999 VALUE 0.
01 TCHILD PIC S9(9) COMP-5 GLOBAL EXTERNAL.
01 TROOT PIC S9(9) COMP-5 GLOBAL EXTERNAL.
01 ELNODO1 PIC S9(9) COMP-5.
01 ELNODO2 PIC S9(9) COMP-5.
01 ELNODO3 PIC S9(9) COMP-5.
01 ELNODO4 PIC S9(9) COMP-5.
01 ELNODO5 PIC S9(9) COMP-5.
PROCEDURE DIVISION.
INVOKE POW-SELF "CallForm" USING "Apertura".
INVOKE Menu_Ppal "clear".
TAREA.
OPEN INPUT PROGRAMAS.
PERFORM VARYING T1 FROM 1 BY 1 UNTIL DEM = 99
READ PROGRAMAS AT END MOVE 99 TO DEM END-READ
IF DEM = ZEROES
EVALUATE NIVEL
WHEN 0
INVOKE Menu_Ppal "Add" USING PROG 1 3 4 RETURNING ELNODO1
WHEN 1
MOVE 'Root'(ELNODO1) OF Menu_Ppal TO POW-PCMNODE
INVOKE POW-PCMNODE 'Add' USING PROG 1 3 4 RETURNING ELNODO2
WHEN 2
MOVE 'Child'(ELNODO2) OF 'Root'(ELNODO1) OF Menu_Ppal TO POW-PCMNODE
INVOKE POW-PCMNODE 'Add' USING PROG 1 3 4 RETURNING ELNODO3
WHEN 3
MOVE 'Child'(ELNODO3) OF
'Child'(ELNODO2) OF 'Root'(ELNODO1) OF Menu_Ppal TO POW-PCMNODE
INVOKE POW-PCMNODE 'Add' USING PROG 1 3 4 RETURNING ELNODO4
WHEN 4
MOVE 'Child'(ELNODO4) OF
'Child'(ELNODO3) OF
'Child'(ELNODO2) OF 'Root'(ELNODO1) OF Menu_Ppal TO POW-PCMNODE
INVOKE POW-PCMNODE 'Add' USING PROG 1 3 4 RETURNING ELNODO5
END-EVALUATE
END-IF
END-PERFORM.
CLOSE PROGRAMAS.
EXIT PROGRAM.