Concepto de niveles Clean Core (A-D): El camino moderno hacia ABAP Cloud

┌─────────────────────────────────────────────────────────────┐
│ Nivel A: Released APIs                                       │
│ ──────────────────────                                       │
│ • Solo APIs SAP liberadas (contrato C1)                     │
│ • Compatibilidad Cloud completa                             │
│ • Preparado para el futuro y estable ante upgrades          │
│ • ✅ Conforme con Clean Core                                │
└──────────────────────────────────────────────────────────────┘

┌─────────────────────────────────────────────────────────────┐
│ Nivel B: Classic APIs                                        │
│ ──────────────────────                                       │
│ • APIs clásicas estables (BAPIs, RFC)                       │
│ • No liberadas para Cloud, pero documentadas                │
│ • Riesgo de upgrade moderado                                │
│ • ⚠️ Modernización recomendada                              │
└──────────────────────────────────────────────────────────────┘

┌─────────────────────────────────────────────────────────────┐
│ Nivel C: No clasificado                                      │
│ ──────────────────────                                       │
│ • Acceso a objetos no clasificados                          │
│ • Sin contrato SAP, sin garantía de estabilidad             │
│ • Alto riesgo de upgrade                                    │
│ • ❌ Modernización requerida                                │
└──────────────────────────────────────────────────────────────┘

┌─────────────────────────────────────────────────────────────┐
│ Nivel D: noAPI (accesos directos)                            │
│ ──────────────────────                                       │
│ • Accesos directos a tablas (SELECT en tablas SAP)          │
│ • Módulos de función no públicos                            │
│ • Máximo riesgo de upgrade                                  │
│ • ❌ Modernización inmediata necesaria                      │
└──────────────────────────────────────────────────────────────┘

CLASS zcl_flight_booking_a DEFINITION
  PUBLIC FINAL
  CREATE PUBLIC.

  PUBLIC SECTION.
    METHODS get_user_info
      RETURNING VALUE(rs_user) TYPE cl_abap_context_info=>ty_context_info.

    METHODS get_current_date
      RETURNING VALUE(rv_date) TYPE d.

    METHODS read_flights
      RETURNING VALUE(rt_flights) TYPE zt_flights.

ENDCLASS.

CLASS zcl_flight_booking_a IMPLEMENTATION.
  METHOD get_user_info.
    " ✅ Nivel A: Released API para info de usuario
    rs_user-user_id = cl_abap_context_info=>get_user_technical_name( ).
    rs_user-user_alias = cl_abap_context_info=>get_user_alias( ).
    rs_user-system_date = cl_abap_context_info=>get_system_date( ).
  ENDMETHOD.

  METHOD get_current_date.
    " ✅ Nivel A: Released API para fecha
    rv_date = cl_abap_context_info=>get_system_date( ).
  ENDMETHOD.

  METHOD read_flights.
    " ✅ Nivel A: Acceso a tabla Z propia (siempre permitido)
    SELECT * FROM zflight_book INTO TABLE @rt_flights.
  ENDMETHOD.
ENDCLASS.

" ⚠️ Nivel B: BAPI - estable pero no liberada
DATA: lt_return TYPE TABLE OF bapiret2.

CALL FUNCTION 'BAPI_CUSTOMER_GETDETAIL2'
  EXPORTING
    customerno   = lv_customer_id
  IMPORTING
    customerdata = ls_customer
  TABLES
    return       = lt_return.

" ⚠️ Nivel B: Módulo de función clásico de moneda
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  EXPORTING
    date             = sy-datum
    foreign_amount   = lv_amount
    foreign_currency = 'USD'
    local_currency   = 'EUR'
  IMPORTING
    local_amount     = lv_result.

" ❌ Nivel C: Clase no liberada
DATA(lo_flight_srv) = NEW cl_flight_service( ).
DATA(lt_schedule) = lo_flight_srv->get_connections( lv_carrier ).

" ❌ Nivel C: Uso de clases GUI (no Cloud-capable)
DATA(lo_alv) = NEW cl_gui_alv_grid( i_parent = lo_container ).
lo_alv->set_table_for_first_display( CHANGING it_outtab = lt_data ).

" ❌❌ Nivel D: Acceso directo a tabla interna SAP
SELECT SINGLE *
  FROM mara
  WHERE matnr = @lv_matnr
  INTO @ls_material.

" ❌❌ Nivel D: Acceso a módulo de función no público
CALL FUNCTION 'SD_SALES_DOCUMENT_READ_INT'
  EXPORTING
    document_number = lv_vbeln
  IMPORTING
    sales_header    = ls_header.

Modelo de 3 capas       Concepto de niveles
─────────────────────────────────────
TIER-1 (ABAP Cloud)  → Nivel A
TIER-2 (API-Wrapper) → Nivel A + B (según contenido del wrapper)
TIER-3 (Classic)     → Nivel B, C o D (según uso de API)

Check-Variant: Z_CLEAN_CORE_LEVELS
─────────────────────────────────────
Checks:
├── ABAP Cloud Readiness
│   ├── Released API Usage (Nivel A)
│   ├── Classic API Detection (Nivel B)
│   ├── Unclassified Objects (Nivel C)
│   └── Direct Table Access (Nivel D)
│
├── Prioridades:
│   ├── Nivel D Findings: Prioridad 1 (Error)
│   ├── Nivel C Findings: Prioridad 2 (Advertencia)
│   └── Nivel B Findings: Prioridad 3 (Info)
│
└── Excepciones:
    └── Tablas Z: siempre Nivel A (objetos propios)

" ATC Finding: Nivel D - Acceso directo a tabla
" ────────────────────────────────────────────────
" Objeto: ZCL_FLIGHT_LEGACY
" Línea: 45
" Finding: SELECT FROM MARA (tabla no liberada)
" Prioridad: 1 (Error)
" Recomendación: Usa CDS View I_Product o BAPI

" ATC Finding: Nivel C - Objeto no clasificado
" ────────────────────────────────────────────────
" Objeto: ZCL_CUSTOMER_SERVICE
" Línea: 78
" Finding: Uso de CL_GUI_ALV_GRID
" Prioridad: 2 (Advertencia)
" Recomendación: Migra a Fiori/RAP

" ATC Finding: Nivel B - Classic API
" ────────────────────────────────────────────────
" Objeto: ZCL_ORDER_PROCESSOR
" Línea: 112
" Finding: CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
" Prioridad: 3 (Info)
" Recomendación: Verifica alternativa Released API

" ANTES: Código Nivel D
SELECT SINGLE * FROM mara WHERE matnr = @lv_matnr INTO @ls_material.

" DESPUÉS: Código Nivel A
SELECT SINGLE Product, ProductType, BaseUnit
  FROM I_Product
  WHERE Product = @lv_matnr
  INTO @ls_material.