Hola Fito .. es lo que hago y controlo internamente .. el tema es que no logro mostrarlo como tildado
Código COBOL:
move 0 to INDICE suma-total.
move indice-item2 to wk-idx.
pregunto.
IF INDICE = WK-IDX
MOVE suma-total to "Text" OF CmText21
go to fine.
INVOKE CtList2 "ReDraw" USING " "
move 1 TO "Celltext"(INDICE 6) OF ctList2
MOVE "x" TO "Celltext"(indice 5) OF CtList2.
move "Celltext"(INDICE 4) OF ctList2 TO suma-w.
compute suma-total = suma-total + suma-w
add 1 to indice
go to pregunto.
fine.
exit.