anchor.diff:    PUBLIC SECTION.
       INTERFACES zif_abapgit_object.
       ALIASES mo_files FOR zif_abapgit_object~mo_files.
  +    METHODS constructor
  +      IMPORTING
  +        is_item     TYPE zif_abapgit_definitions=>ty_item
  +        iv_language TYPE spras.
   
     PRIVATE SECTION.
       CONSTANTS: c_objectname_form    TYPE thead-tdobject VALUE 'FORM' ##NO_TEXT.
       CONSTANTS: c_objectname_tdlines TYPE thead-tdobject VALUE 'TDLINES' ##NO_TEXT.
       CONSTANTS: c_extension_xml      TYPE string         VALUE 'xml' ##NO_TEXT.
  +    DATA: mv_form_name  TYPE itcta-tdform.
   
       TYPES: BEGIN OF tys_form_data,
                form_header   TYPE itcta,
  
positive.code:         es_form_data   TYPE zcl_abapgit_object_form=>tys_form_data
          et_lines       TYPE zcl_abapgit_object_form=>tyt_lines.
  
  ENDCLASS.
  
  
  
  CLASS ZCL_ABAPGIT_OBJECT_FORM IMPLEMENTATION.
  
  
    METHOD build_extra_from_header.
  
negative.code:         ##fm_subrc_ok.                                                   "#EC CI_SUBRC
  
    ENDMETHOD.
  
    METHOD order_check_and_insert.
  
      DATA: ls_order TYPE e071k-trkorr.
  
      CALL FUNCTION 'SAPSCRIPT_ORDER_CHECK'
        EXPORTING
          objecttype           = ms_item-obj_type
          form                 = mv_form_name
        EXCEPTIONS
          invalid_input        = 1
          object_locked        = 2
          object_not_available = 3
          OTHERS               = 4.
  
      IF sy-subrc <> 0.
        zcx_abapgit_exception=>raise_t100( ).
      ENDIF.
  
      CALL FUNCTION 'SAPSCRIPT_ORDER_INSERT'
        EXPORTING
          objecttype     = ms_item-obj_type
          form           = mv_form_name
          masterlang     = mv_language
        CHANGING
          order          = ls_order
        EXCEPTIONS
          invalid_input  = 1
          order_canceled = 2
          OTHERS         = 3.
  
      IF sy-subrc <> 0.
        zcx_abapgit_exception=>raise_t100( ).
      ENDIF.
  
    ENDMETHOD.
  
  ENDCLASS.
  