Mas orden en DataWindow

// Permite ordenar ascendentemente o descendentemente la columna sobre la cual se ha hecho doble clic...
String ls_header, ls_temp, is_lastheader , is_order

// Para el caso que la columna sea de tipo texto...
IF dwo.Type = "text" THEN
       ls_header = dwo.Name
       IF ls_header = is_lastheader THEN
               IF is_order = "D" THEN
                       is_order = "A"
               ELSE
                       is_order = "D"
               END IF
       ELSE
               is_lastheader = ls_header
       END IF
      
       // Como los títulos de las columnas por defecto son <campo>_t recortamos los dos últimos caracteres
       ls_temp = Left(ls_header, Len(ls_header) - 2) + " " + is_order
       This.SetRedraw(False)
       This.SetSort(ls_temp)
       This.Sort()
       This.SetRedraw(True)
END IF