Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- METHOD MODIFICARCLASEPASAJERO.
- DATA: lv_json TYPE /iwbep/s_mgw_name_value_pair=value,
- ls_pasajeros TYPE zcl_zos_academia_lu_02_mpc=>ts_pasajeros.
- ls_mensaje TYPE zcl_zos_academia_lu_02_mpc=>ts_mensajes.
- ls_ztca_pasajeros TYPE ZTCA_PASAJEROS_2,
- lv_fecha TYPE datum.
- READ TABLE it_parameter INTO DATA(ls_parameter) WITH KEY NAME = 'Pasajero'.
- IF sy-subrc EQ 0.
- lv_json = ls_parameter-value.
- CALL METHOD me-parser_pasjeros
- EXPORTING
- i_json_pasajeros = lv_json
- IMPORTING
- e_pasajero = ls_pasajeros.
- CALL FUNCTION 'CONVERSION_EXIT_SDATE_INPUT'
- EXPORTING
- input = ls_pasajeros-fecha.
- IMPORTING
- output = lv_fecha.
- EXCEPTIONS
- invalid_date = 1
- OTHERS = 2.
- MOVE-CORRESPONDING ls_pasajeros TO ls_ztca_pasajeros.
- ls_ztca_pasajeros-fecha = lv_fecha.
- UPDATE ztca_pasajeros SET clase = ls_ztca_pasajeros-clase
- WHERE num_vuelo = ztca_pasajeros-num_vuelo
- AND fecha = ztca_pasajeros-fecha
- AND asiento = ztca_pasajeros-asiento.
- IF sy-subrc EQ 0.
- COMMIT WORK.
- ls_mensaje-tipo = 'S'.
- ls_mensaje-mensaje = 'Se actualizó la clase del pasajero - Mensaje Back'.
- ELSE.
- ls_mensaje-tipo = 'E'.
- ls_mensaje-mensaje = 'Error al actualizar clase del pasajero - Mensaje Back'.
- ENDIF.
- copy_data_to_ref ( EXPORTING ls_data = ls_mensaje
- CHANGING cr_data = er_data ).
- END METHOD.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement