Esta parte del código para la carga:
Código COBOL:
PERFORM UNTIL swEof-SI
IF TRE-ID-PADRE = ZEROS
ADD 1 TO IDX-T
INVOKE CmTreeView1 "Add" USING TRE-TEXT RETURNING IDX-NOD
MOVE "Root"(IDX-NOD) OF CmTreeView1 TO TB-NODE(IDX-T)
PERFORM ICONOS
ELSE
ADD 1 TO IDX-T
INVOKE TB-NODE(TRE-ID-PADRE) "Add" USING TRE-TEXT RETURNING IDX-NOD
MOVE "Child"(IDX-NOD) OF TB-NODE(TRE-ID-PADRE) TO TB-NODE(IDX-T)
MOVE POW-TRUE TO "Expanded" OF TB-NODE(TRE-ID-PADRE)
PERFORM ICONOS
END-IF
PERFORM READ-FILE
END-PERFORM
Queda mucho mejor así:
Código COBOL:
PERFORM UNTIL swEof-SI
ADD 1 TO IDX-T
IF TRE-ID-PADRE = ZEROS
INVOKE CmTreeView1 "Add" USING TRE-TEXT RETURNING IDX-NOD
MOVE "Root"(IDX-NOD) OF CmTreeView1 TO TB-NODE(IDX-T)
ELSE
INVOKE TB-NODE(TRE-ID-PADRE) "Add" USING TRE-TEXT RETURNING IDX-NOD
MOVE "Child"(IDX-NOD) OF TB-NODE(TRE-ID-PADRE) TO TB-NODE(IDX-T)
MOVE POW-TRUE TO "Expanded" OF TB-NODE(TRE-ID-PADRE)
END-IF
PERFORM ICONOS
PERFORM READ-FILE
END-PERFORM