!--------------------------------!
! Agrego un Elemento al Queue    !
!--------------------------------!
 if choice(?List3) then
  get(QCampos,choice(?List3))
  TipoDeOrden
  case G:TipoDeOrden
   of 'A'
    QK:Cadena = '+'&clip(QC:Descripcion)
   of 'D'
    QK:Cadena = '-'&clip(QC:Descripcion)
  end
  add(QKeys)
  if errorcode() then stop(error()) .
  ThisWindow.Reset(1)
 end



