SAP Business Application Studio : Développement ABAP dans le navigateur

Étapes pour créer un Dev Space ABAP :

1. Ouvrir le SAP BTP Cockpit
2. Sélectionner le subaccount → Services → Instances and Subscriptions
3. Ouvrir SAP Business Application Studio
4. Cliquer sur "Create Dev Space"
5. Entrer un nom : "ABAP_Development"
6. Type de Dev Space : sélectionner "SAP ABAP Development"
7. Confirmer "Create Dev Space"

1. Statut du Dev Space : "STOPPED"
2. Cliquer sur le bouton Play pour démarrer
3. Attendre que le statut soit : "RUNNING" (environ 1-2 minutes)
4. Cliquer sur "Open" pour ouvrir l'IDE

Connexion à BTP ABAP Environment :

1. View → Command Palette (Ctrl+Shift+P)
2. Entrer "ABAP: Create Service Instance"
3. Coller la clé de service de BTP ABAP Environment
4. Donner un nom de connexion : "BTP_DEV"
5. La connexion est testée et sauvegardée

Dans le BTP Cockpit :

1. Subaccount → Cloud Foundry → Spaces
2. Ouvrir le Space → Service Instances
3. Sélectionner l'instance ABAP Environment
4. "Create" → Service Key
5. Nom : "BAS_Connection"
6. Copier les données de la clé (JSON)

Nouveau projet ABAP Cloud :

1. View → Command Palette (Ctrl+Shift+P)
2. Entrer "ABAP: Create Project"
3. Sélectionner la connexion système
4. Entrer le package : "ZRAP_DEMO"
5. Nom du projet : "rap-demo"
6. Le projet est créé et ouvert

rap-demo/
├── .abap/
│   └── service-binding.json
├── src/
│   └── zrap_demo/
│       ├── zcl_example_class.clas.abap
│       └── zif_example_interface.intf.abap
└── package.json

CLASS zcl_bas_demo DEFINITION
  PUBLIC FINAL
  CREATE PUBLIC.

  PUBLIC SECTION.
    INTERFACES if_oo_adt_classrun.

    METHODS calculate_total
      IMPORTING
        it_items TYPE STANDARD TABLE
      RETURNING
        VALUE(rv_total) TYPE p.

ENDCLASS.

CLASS zcl_bas_demo IMPLEMENTATION.

  METHOD if_oo_adt_classrun~main.
    " BAS offre ici :
    " - Coloration syntaxique
    " - IntelliSense pour les méthodes
    " - Documentation en ligne
    " - Marquage des erreurs en temps réel

    out->write( 'Hello from BAS!' ).
  ENDMETHOD.

  METHOD calculate_total.
    " Code Completion affiche les opérations sur les tables
    LOOP AT it_items ASSIGNING FIELD-SYMBOL(<item>).
      rv_total = rv_total + <item>-amount.
    ENDLOOP.
  ENDMETHOD.

ENDCLASS.

View → Terminal (Ctrl+`)

Source Control View (Ctrl+Shift+G)
- Stage Changes
- Commit
- Push/Pull

View → Problems (Ctrl+Shift+M)

Workflow typique :

1. ADT pour le développement S/4HANA On-Premise
2. BAS pour BTP ABAP Environment
3. Git comme base de code commune
4. Même code, différents IDEs

" Étape 1: Database Table
" Créé via Command Palette: ABAP: New → Database Table

@EndUserText.label : 'Travel Bookings"
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
define table ztab_travel {
  key client      : abap.clnt not null;
  key travel_id   : abap.numc(8) not null;
  description     : abap.char(255);
  begin_date      : abap.dats;
  end_date        : abap.dats;
  total_price     : abap.curr(15,2);
  currency_code   : abap.cuky;
  status          : abap.char(1);
  created_by      : abap.uname;
  created_at      : timestampl;
  last_changed_by : abap.uname;
  last_changed_at : timestampl;
}

" Étape 2: CDS View Entity
" Command Palette: ABAP: New → Data Definition

@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Travel Booking View"
define root view entity ZI_Travel
  as select from ztab_travel
{
  key travel_id      as TravelId,
      description    as Description,
      begin_date     as BeginDate,
      end_date       as EndDate,
      @Semantics.amount.currencyCode: 'CurrencyCode"
      total_price    as TotalPrice,
      currency_code  as CurrencyCode,
      status         as Status,
      @Semantics.user.createdBy: true
      created_by     as CreatedBy,
      @Semantics.systemDateTime.createdAt: true
      created_at     as CreatedAt,
      @Semantics.user.lastChangedBy: true
      last_changed_by as LastChangedBy,
      @Semantics.systemDateTime.lastChangedAt: true
      last_changed_at as LastChangedAt
}

" Étape 3: Behavior Definition
" Command Palette: ABAP: New → Behavior Definition

managed implementation in class zbp_i_travel unique;
strict ( 2 );
with draft;

define behavior for ZI_Travel alias Travel
persistent table ztab_travel
draft table ztab_d_travel
lock master total etag LastChangedAt
authorization master ( instance )
{
  create;
  update;
  delete;

  field ( numbering : managed, readonly ) TravelId;
  field ( readonly ) CreatedBy, CreatedAt, LastChangedBy, LastChangedAt;

  determination setDefaults on modify { create; }
  validation validateDates on save { field BeginDate, EndDate; }

  draft action Edit;
  draft action Activate;
  draft action Discard;
  draft action Resume;
  draft determine action Prepare;

  mapping for ztab_travel corresponding
  {
    TravelId = travel_id;
    Description = description;
    BeginDate = begin_date;
    EndDate = end_date;
    TotalPrice = total_price;
    CurrencyCode = currency_code;
    Status = status;
    CreatedBy = created_by;
    CreatedAt = created_at;
    LastChangedBy = last_changed_by;
    LastChangedAt = last_changed_at;
  }
}

" Consumption View avec annotations
" BAS offre l'auto-complétion pour toutes les annotations

@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Travel Consumption View"
@Metadata.allowExtensions: true

define root view entity ZC_Travel
  provider contract transactional_query
  as projection on ZI_Travel
{
      @UI.facet: [
        { id: 'Travel',
          purpose: #STANDARD,
          type: #IDENTIFICATION_REFERENCE,
          label: 'Travel',
          position: 10 }
      ]

      @UI.lineItem: [{ position: 10, importance: #HIGH }]
      @UI.identification: [{ position: 10 }]
  key TravelId,

      @UI.lineItem: [{ position: 20, importance: #HIGH }]
      @UI.identification: [{ position: 20 }]
      Description,

      @UI.lineItem: [{ position: 30 }]
      @UI.identification: [{ position: 30 }]
      BeginDate,

      @UI.lineItem: [{ position: 40 }]
      @UI.identification: [{ position: 40 }]
      EndDate,

      @UI.lineItem: [{ position: 50 }]
      @UI.identification: [{ position: 50 }]
      TotalPrice,

      CurrencyCode,

      @UI.lineItem: [{ position: 60, criticality: 'StatusCriticality' }]
      Status,

      /* Élément virtuel pour la criticité du statut */
      case Status
        when 'O' then 2  " Open - Jaune
        when 'A' then 3  " Approved - Vert
        when 'R' then 1  " Rejected - Rouge
        else 0
      end as StatusCriticality,

      /* Champs admin */
      CreatedBy,
      CreatedAt,
      LastChangedBy,
      LastChangedAt
}

CLASS lhc_travel DEFINITION INHERITING FROM cl_abap_behavior_handler.

  PRIVATE SECTION.
    METHODS setDefaults FOR DETERMINE ON MODIFY
      IMPORTING keys FOR Travel~setDefaults.

    METHODS validateDates FOR VALIDATE ON SAVE
      IMPORTING keys FOR Travel~validateDates.

ENDCLASS.

CLASS lhc_travel IMPLEMENTATION.

  METHOD setDefaults.
    " Lire les entités pour les clés transmises
    READ ENTITIES OF ZI_Travel IN LOCAL MODE
      ENTITY Travel
        FIELDS ( TravelId )
        WITH CORRESPONDING #( keys )
      RESULT DATA(travels).

    " Définir les valeurs par défaut pour les nouvelles entrées
    MODIFY ENTITIES OF ZI_Travel IN LOCAL MODE
      ENTITY Travel
        UPDATE
          FIELDS ( Status CurrencyCode )
          WITH VALUE #( FOR travel IN travels
            ( %tky = travel-%tky
              Status = 'O'           " Open
              CurrencyCode = 'EUR' ) )
      REPORTED DATA(reported).

    " Dans BAS : Définir un point d'arrêt en cliquant à gauche du numéro de ligne
    " Démarrer le débogage via Run → Start Debugging
  ENDMETHOD.

  METHOD validateDates.
    " Validation : BeginDate doit être avant EndDate
    READ ENTITIES OF ZI_Travel IN LOCAL MODE
      ENTITY Travel
        FIELDS ( BeginDate EndDate )
        WITH CORRESPONDING #( keys )
      RESULT DATA(travels).

    LOOP AT travels ASSIGNING FIELD-SYMBOL(<travel>).
      IF <travel>-BeginDate > <travel>-EndDate.
        APPEND VALUE #(
          %tky = <travel>-%tky
          %msg = new_message_with_text(
            severity = if_abap_behv_message=>severity-error
            text     = 'La date de début doit être avant la date de fin"
          )
          %element-BeginDate = if_abap_behv=>mk-on
          %element-EndDate   = if_abap_behv=>mk-on
        ) TO reported-travel.
      ENDIF.
    ENDLOOP.
  ENDMETHOD.

ENDCLASS.

1. Définir un point d'arrêt : Cliquer à gauche du numéro de ligne
2. Configuration de débogage : Run → Add Configuration
3. Sélectionner le système ABAP
4. Démarrer l'application et exécuter l'action
5. Le débogueur s'arrête au point d'arrêt
6. La vue Variables affiche les valeurs des variables
7. Step Over (F10), Step Into (F11), Continue (F5)

1. Charger uniquement les packages nécessaires
   → Projets plus petits = meilleures performances

2. Redémarrer régulièrement le Dev Space
   → Nettoie la mémoire et le cache

3. Fermer les onglets inutilisés
   → Réduit la consommation de mémoire

4. Utiliser une connexion Internet stable
   → BAS dépend du réseau

Structure de workspace recommandée :

workspace/
├── project-rap-demo/        # Projet RAP
├── project-fiori-app/       # Application Fiori
├── project-api-integration/ # Intégration API
└── .vscode/
    └── settings.json        # Paramètres du workspace

Solution :
1. Vider le cache du navigateur
2. Supprimer et recréer le Dev Space
3. Vérifier l'abonnement BTP

Solution :
1. Recréer la clé de service
2. Recréer la connexion dans BAS
3. Vérifier les paramètres réseau/pare-feu

Solution :
1. Désactiver les extensions inutiles
2. Réduire la taille du projet
3. Isoler l'onglet du navigateur
4. Redémarrer le Dev Space

Solution :
1. Vérifier le statut du serveur de langage ABAP (en bas à droite)
2. Vérifier la connexion au système ABAP
3. Recharger le projet : Command Palette → Developer: Reload Window