!--------------------------------!
! Aplico el Orden Seleccionado   !
!--------------------------------!
 L:Cadena = ''
 loop X# = 1 to records(QKeys)
  get(QKeys,X#)
  L:Cadena = clip(L:Cadena)&clip(QK:Cadena)&','
 end
 L:Cadena = sub(L:Cadena,1,len(clip(L:Cadena))-1)
 message('Key: '&clip(L:Cadena),'SORT A APLICAR',icon:exclamation)
 sort(QMedicamentos,L:Cadena)
 ThisWindow.Reset(1)