Hola Amigos:
Tengo un colega que necesitaba ordenar (por código) una grilla Spread de la empresa Grapecity. Yo le hice la codificación en PowerCobol porque WOW no conozco. Funciona a la perfección, pero no logramos traducirla a WOW. Probamos mil y una formas.
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 lCol pic s9(9).
01 lRow pic s9(9).
01 lCol2 pic s9(9).
01 lRow2 pic s9(9).
01 nSortBy pic s9(9).
01 SortKeys pic s9(9).
01 SortKeyOrder pic s9(9).
PROCEDURE DIVISION.
comienzo.
move 3 to SortKeys. *> Columna por la cual ordenar
move 1 to lCol. *> Desde Columna
move 1 to lRow. *> Desde Fila
move maxcol to lCol2. *> Hasta Columna
move maxrow to lRow2. *> Hasta Fila
move 0 to nSortBy. *> 0= por Fila, 1= por Columna
move 1 to SortKeyOrder. *> 0= No ordena, 1= Ascendente, 2= Descendente
move SortKeys to "SortKey"(1) of Spread.
move SortKeyOrder to "SortKeyOrder"(1) of Spread.
invoke Spread "Sort" using lCol lRow lCol2 lRow2 nSortBy returning ReturnValue.
sale.
exit program.
Logramos que no nos diera error, pero no hace nada. Un problema fue setear una propiedad con subindice y después nos daba error el método.
Saludos...
Fito...