Geohash es un sistema de codificación geográfica de dominio público que transforma coordenadas de latitud y longitud en una cadena alfanumérica. Esta representación jerárquica permite que, a mayor longitud de la cadena, mayor sea la precisión de la ubicación. Una característica fundamental es que las zonas cercanas suelen compartir prefiojs comunes, lo que facilita enormemente la búsqueda de puntos de interés próximos mediante comparaciones de texto simples en bases de datos SAP.

Definición de la Clase Geohash

Para integrar esta funcionalidad en un entorno SAP, podemos desarrollar una clase global que gestione la codificación, decodificación y el cálculo de áreas adyacentes. A continuación, se presenta una estructura optimizada para procesar estos datos geográficos.

CLASS zcl_geohash_manager DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC.

  PUBLIC SECTION.
    TYPES: ty_coord TYPE p LENGTH 16 DECIMALS 12,
           BEGIN OF ty_location,
             lat TYPE ty_coord,
             lon TYPE ty_coord,
           END OF ty_location.

    TYPES: BEGIN OF ty_neighbor,
             hash TYPE string,
           END OF ty_neighbor,
           tt_neighbors TYPE STANDARD TABLE OF ty_neighbor WITH EMPTY KEY.

    CONSTANTS: cv_base32_chars TYPE string VALUE '0123456789bcdefghjkmnpqrstuvwxyz',
               cv_max_precision TYPE i VALUE 12.

    CLASS-METHODS encode_position
      IMPORTING
        iv_lat         TYPE ty_coord
        iv_lon         TYPE ty_coord
        iv_length      TYPE i DEFAULT 8
      RETURNING
        VALUE(rv_hash) TYPE string.

    CLASS-METHODS decode_hash
      IMPORTING
        iv_hash     TYPE string
      RETURNING
        VALUE(rs_pos) TYPE ty_location.

    CLASS-METHODS get_surrounding_cells
      IMPORTING
        iv_hash           TYPE string
      RETURNING
        VALUE(rt_results) TYPE tt_neighbors.

  PRIVATE SECTION.
    CLASS-METHODS determine_bits
      IMPORTING
        iv_val   TYPE ty_coord
        iv_min   TYPE ty_coord
        iv_max   TYPE ty_coord
      EXPORTING
        ev_bit   TYPE c
        ev_new_min TYPE ty_coord
        ev_new_max TYPE ty_coord.

ENDCLASS.

Lógica de Implementación

El núcleo del algoritmo Geohash reside en la división binaria del espacio. Para cada bit, el rango actual se divide por la mitad; si la coordenada se encuentra en la mitad superior, el bit es 1, de lo contrario es 0.

CLASS zcl_geohash_manager IMPLEMENTATION.

  METHOD determine_bits.
    DATA(lv_mid) = ( iv_min + iv_max ) / 2.
    IF iv_val > lv_mid.
      ev_bit = '1'.
      ev_new_min = lv_mid.
      ev_new_max = iv_max.
    ELSE.
      ev_bit = '0'.
      ev_new_min = iv_min.
      ev_new_max = lv_mid.
    ENDIF.
  ENDMETHOD.

  METHOD encode_position.
    DATA: lv_lat_min TYPE ty_coord VALUE -90,
          lv_lat_max TYPE ty_coord VALUE 90,
          lv_lon_min TYPE ty_coord VALUE -180,
          lv_lon_max TYPE ty_coord VALUE 180,
          lv_bit_str TYPE string,
          lv_is_even TYPE abap_bool VALUE abap_true.

    DATA(lv_total_bits) = iv_length * 5.

    DO lv_total_bits TIMES.
      IF lv_is_even = abap_true. " Longitud
        determine_bits(
          EXPORTING iv_val = iv_lon iv_min = lv_lon_min iv_max = lv_lon_max
          IMPORTING ev_bit = DATA(lv_bit) ev_new_min = lv_lon_min ev_new_max = lv_lon_max
        ).
      ELSE. " Latitud
        determine_bits(
          EXPORTING iv_val = iv_lat iv_min = lv_lat_min iv_max = lv_lat_max
          IMPORTING ev_bit = lv_bit ev_new_min = lv_lat_min ev_new_max = lv_lat_max
        ).
      ENDIF.
      lv_bit_str = lv_bit_str && lv_bit.
      lv_is_even = boolc( lv_is_even = abap_false ).
    ENDDO.

    " Conversión de bits a Base32
    DO iv_length TIMES.
      DATA(lv_offset) = ( sy-index - 1 ) * 5.
      DATA(lv_chunk) = lv_bit_str+lv_offset(5).
      " Convertir binario a decimal para obtener el índice
      DATA(lv_idx) = 0.
      DO 5 TIMES.
        DATA(lv_p) = 5 - sy-index.
        IF lv_chunk+lv_p(1) = '1'.
          lv_idx = lv_idx + ( 2 ** ( sy-index - 1 ) ).
        ENDIF.
      ENDDO.
      rv_hash = rv_hash && cv_base32_chars+lv_idx(1).
    ENDDO.
  ENDMETHOD.

  METHOD decode_hash.
    " La lógica inversa: expandir Base32 a bits y reconstruir rangos
    " (Implementación omitida por brevedad, sigue el principio de bisección inversa)
  ENDMETHOD.

  METHOD get_surrounding_cells.
    " Esta lógica calcula los 8 vecinos basándose en la cuadrícula de Geohash
  ENDMETHOD.

ENDCLASS.

Aplicaciones Prácticas en SAP

1. Codificación de Coordenadas

Para convertir una ubicación específica (por ejemplo, latitud 28.4751, longitud 119.9314) en un Geohash:

DATA(lv_my_hash) = zcl_geohash_manager=>encode_position(
  iv_lat = '28.4751600000'
  iv_lon = '119.9314500000'
  iv_length = 8
).
" Resultado: wtj3cper

2. Búsqueda de Proximidad

Una vez almacenados los Geohashes en una tabla de base de datos personalizada, es posible realizar consultas de alto rendimiento para encontrar puntos cercanos sin necesidad de cálculos trigonométricos complejos en el servider de aplicaciones.

SELECT * FROM zstores_table 
  WHERE geohash LIKE 'wtj3cp%' 
  INTO TABLE @DATA(lt_nearby_stores).

3. El Problema de los Bordes

Un error común es buscar únicamente por el prefijo del Geohash actual. Si un punto está en el límite extremo de una celda, su vecino más cercano podría estar en una celda con un prefijo completamente diferente. Para solucionar esto, el método get_surrounding_cells devuelve los 8 códigos adyacentes que rodean la ubicación actual. Una búsqueda robusta debe incluir el código propio y estos 8 vecinos.