¿Puede Claude generar
apps Fiori y mantener
Web Dynpro?

# Con MCP ABAP activo, solo escribes esto: > "Crea una app Fiori de gestión de pedidos de venta. La entidad principal es SalesOrder con campos: OrderID (clave), CustomerID, Status (enum: NEW/OPEN/CLOSED), NetAmount, Currency, CreatedAt. Genera todos los artefactos RAP en el paquete Z_SD_ORDERS: tabla DDIC, CDS Interface View, Projection View con UI annotations para List Report, Metadata Extension con columnas visibles, Behavior Definition managed con draft, Behavior Implementation con validaciones básicas, Service Definition y Service Binding OData V4. Usa naming convention Z_<nombre> y activa todo."

@EndUserText.label: 'Sales Order' @AbapCatalog.enhancement.category: #NOT_EXTENSIBLE @AbapCatalog.tableCategory: #TRANSPARENT @AbapCatalog.deliveryClass: #A define table zsalesorder { key client : abap.clnt not null; key order_id : abap.char(10) not null; customer_id : abap.char(10); status : abap.char(10); // 'NEW' | 'OPEN' | 'CLOSED' net_amount : abap.curr(13,2); currency : abap.cuky; created_at : abap.utclong; }

@AccessControl.authorizationCheck: #NOT_REQUIRED @EndUserText.label: 'Sales Order - Interface View' define root view entity Z_I_SalesOrder as select from zsalesorder { key order_id as OrderID, customer_id as CustomerID, status as Status, net_amount as NetAmount, currency as Currency, created_at as CreatedAt }

@EndUserText.label: 'Sales Order - Consumption View' @AccessControl.authorizationCheck: #NOT_REQUIRED @Metadata.allowExtensions: true @UI.headerInfo: { typeName: 'Sales Order', typeNamePlural: 'Sales Orders', title: { type: #STANDARD, value: 'OrderID' } } define root view entity Z_C_SalesOrder provider contract transactional_query as projection on Z_I_SalesOrder { @UI.facet: [{ id:'General', type:#IDENTIFICATION_REFERENCE, label:'General' }] @UI.lineItem: [{ position: 10 }] @UI.identification: [{ position: 10 }] key OrderID, @UI.lineItem: [{ position: 20 }] CustomerID, @UI.lineItem: [{ position: 30 }] @UI.selectionField: [{ position: 10 }] Status, @UI.lineItem: [{ position: 40 }] @Semantics.amount.currencyCode: 'Currency' NetAmount, Currency, CreatedAt }

managed implementation in class ZBP_C_SalesOrder unique; with draft; define behavior for Z_C_SalesOrder alias SalesOrder persistent table zsalesorder draft table zsalesorder_d lock master total etag CreatedAt etag master CreatedAt { // Standard CUD operations create; update; delete; draft action Edit; draft action Activate; draft action Discard; draft determine action Prepare; // Custom actions action CloseOrder result [1] $self; // Validations validation validateStatus on save { field Status; } validation validateCustomer on save { field CustomerID; } // Field control field ( readonly : create, update ) OrderID; field ( mandatory ) CustomerID, Status; mapping for zsalesorder { OrderID = order_id; CustomerID = customer_id; Status = status; NetAmount = net_amount; Currency = currency; CreatedAt = created_at; } }

CLASS zbp_c_salesorder DEFINITION PUBLIC ABSTRACT FINAL INHERITING FROM cl_abap_behavior_handler. PRIVATE SECTION. "-- Validation: Status must be NEW, OPEN or CLOSED METHODS validate_status FOR VALIDATE ON SAVE IMPORTING keys FOR salesorder~validatestatus. "-- Action: Close the order METHODS close_order FOR MODIFY IMPORTING keys FOR ACTION salesorder~closeorder RESULT result. ENDCLASS. CLASS zbp_c_salesorder IMPLEMENTATION. METHOD validate_status. READ ENTITIES OF z_c_salesorder IN LOCAL MODE ENTITY salesorder FIELDS ( status ) WITH keys RESULT DATA(orders). LOOP AT orders INTO DATA(order). IF order-status NOT IN VALUE #( ( |NEW| ) ( |OPEN| ) ( |CLOSED| ) ). APPEND VALUE #( %tky = order-%tky %msg = new_message_with_text( severity = if_abap_behv_message=>severity-error text = |Status '{ order-status }' is not valid| ) ) TO failed-salesorder. ENDIF. ENDLOOP. ENDMETHOD. METHOD close_order. MODIFY ENTITIES OF z_c_salesorder IN LOCAL MODE ENTITY salesorder UPDATE FIELDS ( status ) WITH VALUE #( FOR key IN keys ( %tky = key-%tky status = |CLOSED| ) ). READ ENTITIES OF z_c_salesorder IN LOCAL MODE ENTITY salesorder ALL FIELDS WITH keys RESULT result. ENDMETHOD. ENDCLASS.