@Fito, yo lo meteria en listview y probaria asi:
Código COBOL:
*----------------
Carga.
INVOKE DB-Ventas-Database "ReadNextRecord" RETURNING ReturnValue.
IF ReturnValue not = 1 then
MOVE 2 to OFlag
exit program
end-if
end-if.
IF ReturnValue = 1
INVOKE CMLISTVIEW1 "Add" USING 1 1 RETURNING WK-IDX
IF WK-IDX > 0 THEN
MOVE "ListItems"(WK-IDX) OF CMLISTVIEW1 TO POW-PCMLIST
MOVE "ARTICULOID" OF DB-Ventas-Database TO "Text"(1) OF POW-PCMLIST
MOVE "CANTIDAD" OF DB-Ventas-Database TO "Numeric"(2) OF POW-PCMLIST *> picture $$$,$$$,$$9.99
MOVE "XTOTAL" OF DB-Ventas-Database TO "Numeric"(3) OF POW-PCMLIST *> picture $$$,$$$,$$9.99
MOVE "PRECIO" OF DB-Ventas-Database TO "Numeric"(4) OF POW-PCMLIST *> picture $$$,$$$,$$9.99
INVOKE CMLISTVIEW1 "Refresh"
MOVE 3 TO OFlag
END-IF
END-IF.
*----------------
F-Carga.
exit program.
Saludos