Advertisement
Cristian-Paolini

Ejemplo método llamado en un function import

Aug 2nd, 2022 (edited)
921
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 1.56 KB | None | 0 0
  1. METHOD MODIFICARCLASEPASAJERO.
  2.  
  3.     DATA: lv_json           TYPE /iwbep/s_mgw_name_value_pair=value,
  4.           ls_pasajeros      TYPE zcl_zos_academia_lu_02_mpc=>ts_pasajeros.
  5.           ls_mensaje        TYPE zcl_zos_academia_lu_02_mpc=>ts_mensajes.
  6.           ls_ztca_pasajeros TYPE ZTCA_PASAJEROS_2,
  7.           lv_fecha          TYPE datum.
  8.  
  9.     READ TABLE it_parameter INTO DATA(ls_parameter) WITH KEY NAME = 'Pasajero'.
  10.     IF sy-subrc EQ 0.
  11.  
  12.     lv_json = ls_parameter-value.
  13.  
  14.     CALL METHOD me-parser_pasjeros
  15.         EXPORTING
  16.             i_json_pasajeros = lv_json
  17.         IMPORTING
  18.             e_pasajero = ls_pasajeros.
  19.  
  20.     CALL FUNCTION 'CONVERSION_EXIT_SDATE_INPUT'
  21.         EXPORTING
  22.             input = ls_pasajeros-fecha.
  23.         IMPORTING
  24.             output = lv_fecha.
  25.         EXCEPTIONS
  26.             invalid_date = 1
  27.             OTHERS = 2.
  28.  
  29.     MOVE-CORRESPONDING ls_pasajeros TO ls_ztca_pasajeros.
  30.  
  31.     ls_ztca_pasajeros-fecha = lv_fecha.
  32.  
  33.     UPDATE ztca_pasajeros SET clase = ls_ztca_pasajeros-clase
  34.         WHERE num_vuelo = ztca_pasajeros-num_vuelo
  35.             AND fecha = ztca_pasajeros-fecha
  36.             AND asiento = ztca_pasajeros-asiento.
  37.     IF sy-subrc EQ 0.
  38.         COMMIT WORK.
  39.         ls_mensaje-tipo = 'S'.
  40.         ls_mensaje-mensaje = 'Se actualizó la clase del pasajero - Mensaje Back'.
  41.     ELSE.
  42.         ls_mensaje-tipo = 'E'.
  43.         ls_mensaje-mensaje = 'Error al actualizar clase del pasajero - Mensaje Back'.
  44.     ENDIF.
  45.  
  46.     copy_data_to_ref ( EXPORTING ls_data = ls_mensaje
  47.             CHANGING cr_data = er_data ).
  48.  
  49. END METHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement