anchor.diff:        RETURN.
       ENDIF.
   
  -    cl_package_factory=>load_package(
  -      EXPORTING
  -        i_package_name             = iv_package
  -      IMPORTING
  -        e_package                  = li_package
  -      EXCEPTIONS
  -        object_not_existing        = 1
  -        unexpected_error           = 2
  -        intern_err                 = 3
  -        no_access                  = 4
  -        object_locked_and_modified = 5
  -        OTHERS                     = 6 ).
  -
  -    IF sy-subrc <> 0.
  -      zcx_abapgit_exception=>raise( |Error from CL_PACKAGE_FACTORY=>LOAD_PACKAGE { sy-subrc }| ).
  -    ENDIF.
  -
  -    IF li_package->wbo_korr_flag = abap_false.
  +    IF are_objects_recorded_in_tr_req( iv_package ) = abap_false.
         " Objects of package are not recorded in transport request,
         " no need to proceed.
         RETURN.
       ENDIF.
   
  -    CALL FUNCTION 'TRINT_ORDER_CHOICE'
  +    call_transport_order_popup(
         IMPORTING
  -        we_order               = lv_order     " Selected request
  -        we_task                = lv_task    " Selected task
  +        ev_order = lv_order
  +        ev_task  = lv_task ).
  +
  +    set_default_task( iv_order = lv_order
  +                      iv_task  = lv_task ).
  +
  +    mv_task_is_set_by_abapgit = abap_true.
  +
  +  ENDMETHOD.
  +
  +
  +  METHOD store_current_default_task.
  +
  +    ms_save_default_task = get_default_task( ).
  +
  +  ENDMETHOD.
  +
  +
  +  METHOD get_default_task.
  +
  +    DATA: lt_e070use TYPE STANDARD TABLE OF e070use.
  +
  +    CALL FUNCTION 'TR_TASK_GET'
         TABLES
  -        wt_e071                = lt_e071    " Object table to be edited (for mass editing)
  -        wt_e071k               = lt_e071k    " Key table to be edited (for mass editing)
  -      EXCEPTIONS
  -        no_correction_selected = 1
  -        display_mode           = 2
  -        object_append_error    = 3
  -        recursive_call         = 4
  -        wrong_order_type       = 5
  -        OTHERS                 = 6.
  -
  -    IF sy-subrc = 1.
  -      zcx_abapgit_exception=>raise( 'cancelled' ).
  -    ELSEIF sy-subrc > 1.
  -      zcx_abapgit_exception=>raise( |Error from TRINT_ORDER_CHOICE { sy-subrc }| ).
  -    ENDIF.
  +        tt_e070use       = lt_e070use
  +      EXCEPTIONS
  +        invalid_username = 1
  +        invalid_category = 2
  +        invalid_client   = 3
  +        OTHERS           = 4.
  +
  +    IF sy-subrc <> 0.
  +      zcx_abapgit_exception=>raise( |Error from TR_TASK_GET { sy-subrc }| ).
  +    ENDIF.
  +
  +    READ TABLE lt_e070use INTO rs_default_task
  +                          INDEX 1.
  +
  +  ENDMETHOD.
  +
  +
  +  METHOD set_default_task.
   
       CALL FUNCTION 'TR_TASK_SET'
         EXPORTING
  -        iv_order          = lv_order    " Request to be s et
  -        iv_task           = lv_task    " Task to be set
  +        iv_order          = iv_order
  +        iv_task           = iv_task
         EXCEPTIONS
           invalid_username  = 1
           invalid_category  = 2
  
positive.code: 
      CALL FUNCTION 'TR_TASK_SET'
        EXPORTING
          iv_order          = ms_save_default_task-ordernum    " Request to be s et
          iv_task           = ms_save_default_task-tasknum    " Task to be set
        EXCEPTIONS
          invalid_username  = 1
          invalid_category  = 2
  
negative.code:         RAISING
            zcx_abapgit_exception,
  
        restore_saved_default_task
          RAISING
            zcx_abapgit_exception,
  
        get_default_task
          RETURNING
            VALUE(rs_default_task) TYPE e070use
          RAISING
            zcx_abapgit_exception,
  
        set_default_task
          IMPORTING
            iv_order TYPE trkorr
            iv_task  TYPE trkorr
          RAISING
            zcx_abapgit_exception,
  
        call_transport_order_popup
          EXPORTING
            ev_order TYPE trkorr
            ev_task  TYPE trkorr
          RAISING
            zcx_abapgit_exception,
  
        are_objects_recorded_in_tr_req
          IMPORTING
            iv_package                     TYPE devclass
          RETURNING
            VALUE(rv_are_objects_recorded) TYPE abap_bool
          RAISING
            zcx_abapgit_exception,
  
        clear_default_task
          IMPORTING
            is_default_task TYPE e070use
          RAISING
            zcx_abapgit_exception.
  
  